Crotabin /C R O T A B I N - - - - - - - -  2003-05, XFAWORLD 7:7:0:: 9000(#:title Uz=18::0,0;0;7;" CROTABIN - NO BRAINS REQUIRED! ";21,0;"  2003-05, XFAWORLD Software ";7;0;10 ,20;u$;"=UP";11 ,20;d$;"=DOWN";12 ,20;l$;"=LEFT";13 ,20;r$;"=RIGHT";14,20;"1=QUIT";15,20;"2=RESTART" #1,0:xfa=z*100d 8000@+xfa a=110 :x$(a):a #ud,lr;"0":="2"z=z-1:z =u$100d =d$200 =l$300, =r$400  ="1" x1=x18  10 =a=120:.01z# =,(*100d)-502:a:z >:a=021:a,a;"THE END":.01z# =,a*2:a #21,0;"PRESS ANY KEY" 0:0: c dUud,lr;" ":(ud-1,lr)="o"(ud-2,lr)="+".01z# =,0:10 e(ud-1,lr)="o"(ud-2,lr)="x"ud-1,lr;"0";ud-2,lr;" ":ud=ud-1:x1=x1+1:.01z# =,20:10 ft(ud-1,lr)="o"ud,lr;" ";ud-1,lr;"0";ud-2,lr;"o":.01z# =,0:ud=ud-1:10 gN(ud-1,lr)=" "ud,lr;" ":ud=ud-1:.01z# =,0:10 hH(ud-1,lr)="+"Ū(ud-1,lr)="x".01z# =,0:10 i(ud-1,lr)="o"ƪ(ud-2,lr)="x"ud-1,lr;"0";ud-2,lr;" ":ud=ud-1:x1=x1+1:.01z# =,20:10 m 10 Uud,lr;" ":(ud+1,lr)="o"(ud+2,lr)="+".01z# =,0:10 ɏ(ud+1,lr)="o"(ud+2,lr)="x"ud+1,lr;"0";ud+2,lr;" ":ud=ud+1:x1=x1+1:.01z# =,20:10 t(ud+1,lr)="o"ud,lr;" ";ud+1,lr;"0";ud+2,lr;"o":.01z# =,0:ud=ud+1:10 N(ud+1,lr)=" "ud,lr;" ":ud=ud+1:.01z# =,0:10 H(ud+1,lr)="+"Ū(ud+1,lr)="x".01z# =,0:10 ͎(ud+1,lr)="o"ƪ(ud+2,lr)="x"ud+1,lr;"0";ud+2,lr;" ":ud=ud+1:x1=x1+1:.01z# =,20:10 10 ,Uud,lr;" ":(ud,lr-1)="o"(ud,lr-2)="+".01z# =,0:10 -(ud,lr-1)="o"(ud,lr-2)="x"ud,lr-1;"0";ud,lr-2;" ":lr=lr-1:x1=x1+1:.01z# =,20:10 .t(ud,lr-1)="o"ud,lr;" ";ud,lr-1;"0";ud,lr-2;"o":.01z# =,0:lr=lr-1:10 /N(ud,lr-1)=" "ud,lr;" ":lr=lr-1:.01z# =,0:10 0H(ud,lr-1)="+"Ū(ud,lr-1)="x".01z# =,0:10 1(ud,lr-1)="o"ƪ(ud,lr-2)="x"ud,lr-1;"0";ud,lr-2;" ":lr=lr-1:x1=x1+1:.01z# =,20:10 5 10 Uud,lr;" ":(ud,lr+1)="o"(ud,lr+2)="+".01z# =,0:10 (ud,lr+1)="o"(ud,lr+2)="x"ud,lr+1;"0";ud,lr+2;" ":lr=lr+1:x1=x1+1:.01z# =,20:10 t(ud,lr+1)="o"ud,lr;" ";ud,lr+1;"0";ud,lr+2;"o":.01z# =,0:lr=lr+1:10 N(ud,lr+1)=" "ud,lr;" ":lr=lr+1:.01z# =,0:10 H(ud,lr+1)="+"Ū(ud,lr+1)="x".01z# =,0:10 (ud,lr+1)="o"ƪ(ud,lr+2)="x"ud,lr+1;"0";ud,lr+2;" ":lr=lr+1:x1=x1+1:.01z# =,20:10  10 ? x$(1)="+++++++++++++++" x$(2)="+x o o x+" x$(3)="++++++ +++++" x$(4)=" + + " x$(5)=" + + " x$(6)=" +++ o ++++ " x$(7)=" + + " x$(8)=" ++ x ++" x$(9 )=" + +"  x$(10 )=" +++++++++++++" 1x1=0:x=3:ud=6:lr=8: x$(1)="++++++ " x$(2)="+x + ++++++" x$(3)="+ o +++++ x +" x$(4)="+ o +" x$(5)="++++++ o +" x$(6)=" + +++++" x$(7)=" + o + " x$(8)=" ++++ +++ " x$(9 )=" +x x+ "  x$(10 )=" +++++++++++ " 1x1=0:x=4:ud=4:lr=4: lx$(1)="+++++++++++++++" nx$(2)="+ +" ox$(3)="+ o +" px$(4)="++++++++++++ +" qx$(5)="+ +" rx$(6)="+ +" sx$(7)="+ ++++++++++++" tx$(8)="+ +" ux$(9 )="+ x+" v x$(10 )="+++++++++++++++" w1x1=0:x=1:ud=3:lr=1: x$(1)=" +++++" x$(2)=" + +" x$(3)="+++++++++++ o +" x$(4)="+ +x +" x$(5)="+ o x+" x$(6)="+ + ++++++" x$(7)="+x + o + " x$(8)="++++++ o+ " x$(9 )=" +x + " x$(10 )=" +++++++ " 1x1=0:x=4:ud=6:lr=8: !4x$(1)="+++++ +++++" !6x$(2)="+ + + x +" !7x$(3)="+x +++++++ +" !8x$(4)="+ +" !9x$(5)=" + o o+ " !:x$(6)="+ o +" !;x$(7)="++x++++++++ +" !<x$(8)="+ + + o +" !=x$(9 )="+xo + + x+" !> x$(10 )="+++++ +++++" !?1x1=0:x=5:ud=6:lr=7: !x$(1)="+++ +++ +++ +++" !x$(2)="+x+ +x+ +x+ +x+" !x$(3)="+ +++ +++ +++ +" !x$(4)="+ o +" !x$(5)="+ o +" !x$(6)="+++o +++" !x$(7)=" + + " !x$(8)=" +++++o+++++ " !x$(9 )=" + + " ! x$(10 )=" +++ " !2x1=0:x=4:ud=10 :lr=7: !x$(1)=" +++++ " !x$(2)=" + x + " !x$(3)=" + + " "x$(4)="++++++ ++++++" "x$(5)="+x o o +" "x$(6)="+ o o x+" "x$(7)="++++++ ++++++" "x$(8)=" + + " "x$(9 )=" + x + " " x$(10 )=" +++++ " "1x1=0:x=4:ud=9 :lr=7: "`x$(1)="+++++++++++++++" "bx$(2)="+ o x+" "cx$(3)="+++++++o+++++++" "dx$(4)=" + + " "ex$(5)=" + x x + " "fx$(6)=" + + " "gx$(7)=" + o + " "hx$(8)=" + o + " "ix$(9 )=" +++++++++x+ " "j x$(10 )=" +++ " "k1x1=0:x=4:ud=3:lr=1: #(G0,8;"C R O T A B I N";1,8;"- - - - - - - -" #)s3,0;"A very poor clone of the popular";4,6;"little game Sokoban":x$(10 ,15) #*F8,9 ;"1 - PLAY GAME";10 ,8;"2 - DEFINE KEYS" #+214,2;" 2003-05, XFAWORLD Software" #, 9100# #-s=s$:s1=1 #.&21,8;s$(s1s1+15) #/ ="1" #0="2"9050Z# #1@a=13:a:s1=s1+1:s1=s-14s1=1 #2 9006.# #Z-"KEY FOR UP:";u$:u$="1"u$="2"9050Z# #[/"KEY FOR DOWN:";d$:d$="1"d$="2"9051[# #\/"KEY FOR LEFT:";l$:l$="1"l$="2"9052\# #]0"KEY FOR RIGHT:";r$:r$="1"r$="2"9053]# #^ 90091# # #s$=" " #4s$=s$+"CROTABIN -  2003-05, XFAWORLD Software - " #Vs$=s$+"The idea of the game is to move the (o) on to the (x), you play as the (0). " #s$=s$+"You cannot move outside the (+) area! Though this game is quite simple, it can be quite puzzling (if you are a complete idiot of course!) but shouldn't keep you entertained for longer than 2 minutes. " #s$=s$+" " #"u$="7":d$="6":l$="5":r$="8": '  '"Crotabin"1 )