C64S tape image fileMAZE MANIA ;-ANDROID NIM "MAZE'STORY PROB -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  *** MAZE ***@ TO THE BEST OF OUR KNOWLEDGEa THIS PROGRAM IS IN THE} PUBLIC DOMAIN AUTHOR: JIM BUTTERFIELD PLUS/4 C16 VERSION: 2025,64: NO EOL INSERT231000:0#UR$:K91(US$):UR$(US$,K9,1)37<$K9:35M%UR$UX$145X&UR$:^':""(142)"DO YOU WANT TO RESTART THE GAME ?":KB,0UI$:UI$"Y"150:UI$"N"146150:2025,0:(9)""::I07:1375I,FK(I):: : RESTORE FUNCTION KEYS":(:4(142)fUT$" MAZE":UH1:UP0:UG$"INSTRUCTIONS":850" THIS PROGRAM CREATES A MAZE" AND LETS YOU TRY TO GO THROUGH IT." TO MOVE, PRESS THE FOLLOWING" KEYS FOR THE APPROPRIATE DIRECTIONS:-" ^G" d"  I " <-J L->"  K " !" V835:  0,2:4,15,1:""(142);#%" :&"  f'" ߚ C O M M O D O R Ey(" *"SOFTWARE4"":R9$"5R9$"********6R9$"* MAZE *7R9$"********9UI0.:UI$:UI$" "UIUI1:UI150826G;""(14);:4,15,4:M=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"8\UH0(UD$,24);(UP$,7);" QUIT - PRESS Q "IaUH0:"":k(UD$,24);" ONE MOMENT PLEASE... "::UX$"Q":UC$(154):US12256:U3202:U4205:KB239I07:FK(I)(1375I):1375I,0:: DISABLE FUNCTION KEYSNUD$"":UP$" "jW(19,11),V(19,11),D(4)UT$" MAZE":UH1:UP0:(8):800:900:400""UC$(142);:UT$" MAZE":UP0:UG$""FF0 MAZE PROGRAM PET VERSION BY JIM BUTTERFIELD@ IDEA AND BASIC ALGORITHM FROM:h 'WHAT TO DO AFTER YOU HIT RETURN'u.X(TI)8850: " MAZE!"BH8:V6:TT$"000100"LM" WANT A SMALL,":" MEDIUM, OR BIG MAZE? ";:US$"SBMQ":UL1Q35:A$UR$)VX(A$):X83 1140O`H12:V9:TT$"000300":X77 1140jH18:V10:TT$"000500": X66 "":1100tX200:I1H:W(I,0)X:I~I1V:W(0,I)X:W(H1,I)X:I" WANT TO WATCH ME CONSTRUCT" THE MAZE (Y OR N)? ";:US$"YNQ": 35:A$UR$/F0:(A$)89F1AZ((1)H1)W"":" ";:I1Hq:A$"":IZA$" "~:A$;:I:J1V:"";: I1H:" ";:I::"";I1H:"";:I::J:875W(Z,1)1:C2:RZ:S1: 1320RHRR1: 1310+ R1:SVSS1: 1310:S1: 1310NW(R,S)0 1280c(J14:D(J)0:Jw2D(1)W(R1,S)0<D(2)W(R,S1)0FD(3)W(R1,S)0PD(4)W(R,S1)0(CVH2SV)ZD0:J14:DDD(J):JdD0 1280nX(1)DxD14:XXD(D):X0D3D 1430, 1450, 1520, 14709LRR1:V(R,S)2V1460iSS1:V(R,S)1z1870: 1540SV 1490X200:J1H:W(J,V1)X:JV(R,S)V(R,S)11870:SS1:SVCHV1CC1: 1300 1540V(R,S)V(R,S)21870:RR1(W(R,S)C:CC1;CHV2 1320JF11580z""";:S1V:"";:R1H:1900:R:::S,RZ:S1:A$:A$:A$1(UD$,24)" "2300058606TI$"000000":6@R1R:S1S:A$"":18403JT$TI$:""(T$,2)":"(T$,3,2)":"(T$,2)DLT$TT$2000YTA$:A$"" 1610uV1,200(12((0)40)),2YA$"Q"145^D(A$)hD50D75 1710rD52D74 1730|D54D76 1760D56D73 1610S1 1610(V(R,S1)1)1 1610"SS1: 1780;(V(R,S)1)1 1610LSS1: 1780[R1 1610qV(R1,S)2 1610RR1: 1780V(R,S)2 1610RR1A$" ":1840SV 1600" CONGRATULATIONS! " 7:J280020:1,J,3: 835:"";( Z$:Z$""1820C &""Y +150::900:1001_ ,:h 0""| :J1S121:: DJ1R1:"";:J:"";A$;: NF1 X"":J1S21::J bJ1R:"";:J:""; lA$" ":XV(R,S):X2A$" ""!vA$;"";:A$" ":X2A$""3!X0A$""D!X1A$" "S!A$;"";:c!7:1,200,5!(UD$,23)" TIME IS UP. PLEASE TRY AGAIN":" ":835!A$" ":1840!(UD$,23)" ""(UD$,24)" ";("1580H" (UD$,24)" READY";b" I1400::" SET";" I1400::" GO !";" I721:I:1,600,3::" *** ANDROID NIM ***F TO THE BEST OF OUR KNOWLEDGEg THIS PROGRAM IS IN THE PUBLIC DOMAIN AUTHOR: DON DENIS PLUS/4 C16 VERSION 2025,64: NO EOL INSERT231000 :D""(142)"DO YOU WANT TO RESTART THE GAME ?":KB,0^UI$:UI$"Y"150:pUI$"N"146150:2025,0:(9)""::I07:1375I,FK(I)::: RESTORE FUNCTION KEYS""(14)UT$" NDROID IM":UH1:UP0:UG$"NSTRUCTIONS":850:D" E ARE AT YOUR COMMAND. HOOSE ANY ONEq" OF US( OR ) AND WE WILL HELP YOU"" ELIMINATE THE ROIDS. AKE AS MANY" ROIDS AS YOU WANT FROM ANY ROW. LAY" AGAINST THE COMPUTER TO SEE WHO CAN'" REMOVE THE LAST ROID FROM THE SCREEN.T"F AT ANY TIME YOU WISH TO QUIT"s" PRESS ."|835: 0,2:4,15,1:""(142);%" &"  '" ߚ C O M M O D O R E(" 6*"SOFTWARET4"":R9$"p5R9$"***************6R9$"* ANDROID NIM *7R9$"***************9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:1C(UD$,24);"PRESS SPACE BAR TO CONTINUE"IHUI$:UI$" "840OMRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\UH0(UD$,24);(UP$,7);"HELP - PRESS H "aUH0:"":3k(UD$,24);" ONE MOMENT PLEASE... ":9:oUX$"Q":US12256:U3202:U4205:UC$(154):KB239UD$"":UP$" "UQ%(1000),B$(18),PX(17),PY(17),R(17),CM$(5),A(2),B(2),M$(15))I07:FK(I)(1375I):1375I,0:/5:N(8):800:900:400c""UC$(142);:lUG1""9)"*** ANDROID NIM ***" BY DON DENIS IS$:IS$UX$ 145LSF64VCL$" "[IS$:IS$UX$ 145"jLNU4:CNU3I~ E(X)(A(P)E)((A(P)E)):IQ.7aIS$:IS$UX$ 145o: I017|: B$(I): IB$(18)"        "'B$(18)B$(18)"      "sB$(18)B$(18)"     "B$(18)B$(18)" "I017: PX(I),PY(I): R(I)I: II015: M$(I)(: I2I05<: CM$(I)F: IP2750#ZIQ.9DdRR3:B(0)10:B(1)15:B(2)18knQ$"ARE YOU READY TO PLAY? ":2150|sA$UX$ 145xA$"N"145}A$"Y"1390"":2750: N317: 2500: R(N)N: NRR18:A(0)7:A(1)5:A(2)3'TR0:Q$"DO YOU WANT TO PLAY FIRST? ":2150/M0AA$UX$ 145RA$"N"1540dA$"Y"1490nM1M}RR31810M01690TR0:Q$"IT IS YOUR TURN. \WHICH ROW? ":2150"Z1'A$UX$ 145,P(A$)656P0P21880:1560;IS$:IS$UX$ 145/@A(P)01950:1560WJTRP:Q$"HOW MANY ANDROIDS? ":2150iOA$UX$ 145xTZ(A$)48^Z1Z91880:1560cIS$:IS$UX$ 145hLN,PY(P):CN,PX(P):""ZrZA(P)1950:LN,PY(P):CN,PX(P):" ":1610|SL25:2020/LN,PY(P):CN,PX(P):" "91530EE0:F0PP02hIS$:IS$UX$ 145: EE(0):A(P)FFA(P):I1P: PP02: RE(0):RA(P)1760P:UW0:955IS$:IS$UX$ 145RA(P)IQ(1)PI1:RA(P)((1)(A(P)1)1)(TRP:ZA(P)REZ1AN$"ANDROID":1770XAN$"ANDROIDS"Q$"WE CHOOSE"(Z)" "AN$" FROM ROW "(P65)". \"2550IS$:IS$UX$ 145SL5:20201530Q$"WIN. \":M0Q$"LOSE. \"Q$"YOU "Q$@&M0Q$Q$"WE WILL PLAY BETTER NEXT TIME. \":IQIQIQIQO0TR0:2550|:Q$"WOULD YOU LIKE ANOTHER GAME? ":2150?A$UX$ 145BA$"Y"1440DA$"N"1850NQ$"THANK YOU FOR PLAYING. \\":2550:UG0:145 XTR0:R10:R20:R30:SL17& bM1$M$(9):M2$M$(10):M3$M$(11)0 l2280\ vQ$"YOUR ANSWER DOES NOT MAKE SENSE. \" Z0Q$"CAN'T YOU MAKE UP YOUR MIND? \" 2550  R1P:R2P:R3P:SL25 M1$M$(7):M2$M$(8):M3$M$(8) 2280!TRP:Q$"SORRY, ONLY"(A(P))" ANDROIDS LEFT. \"H!A(P)0Q$"I CAN'T DO IT. I HAVE NONE LEFT. \"R!2550X!k!R1P:R2P:R3P!M1$M$(6):M2$M$(8):M3$M$(8)!2280!IIB(P)A(P)! IIIIIZ1!: LN,PY(I):CN,PX(I):""B$(6)! : I!):"*5:JJ30255 10:3,3JJ,3:JJ"5:"">I1Z."H: 23407"R: I="\T"fKB,0:QU$Q$:2550a"pTTI800u"zM1$M$((1)16)"M2$M$((1)16)"M3$M$((1)16)"R1R((1)RR)"R2R((1)RR):R2R12210"R3R((1)RR):R3R2R3R12220#SL(25(1)1)#2280&#A$:A$""CL$:U#TIT Q$CM$((1)6)"\ "QU$:2550:2160_#2170o#CSL 11#: LN,PY(R1):CN,PX(R1):""B$(((M1$,C))SF)#: LN,PY(R2):CN,PX(R2):""B$(((M2$,C))SF) $ : LN,PY(R3):CN,PX(R3):""B$(((M3$,C))SF)$ : C$ $ :E$$ LN,PY(R1):CN,PX(R1):"";K$- :o$. 7:JJ20030010:3,3JJ,4:JJu$/ :$8 SPPX(R1):EPPX(B(P)A(P))5$B SPPX(R1):EPPX(B(P)A(P))5$L JSPEP2:" -=*";:J$V ((EPSP)2)2EPSP"";%` ""B$(18)+%e 7:JJ30020020:3,3JJ,2:JJC%j RRRR1:A(P)A(P)1K%t A3c%~ P12460,2450,2440p% AAA(1)}% AAA(0)% JA16% : R(J)R(J1)% : J% % LN,PY(N):CN,PX(N):""B$(17(1));% LN,PY(N):CN,PX(N):""B$(0);$& LN,PY(N):CN,PX(N):""B$(95(1));P& LN,PY(N):CN,PX(N):""B$(144(1));V& _& CL$t& II0: GOSUB2650& I1(Q$)& : CH$(Q$,I,1)& NN1&( : CH$" "2650&2 : CH$"\"III:CL$:2630&< : LN,1:CN,III:""CH$&F : I'P ('Z LN,PY(TR):CN,PX(TR):""B$(1);.'c :K'd 7:3,50(TR1),1(CH$)Q'e :e'n "";:2730w'x "";:2730' " ";:2730' "":2730' N0' ' :' 7:3,200(TR1),1(CH$)' :' ' N02' : 2500( : "*"(N65)( : N:F( "  "f( "  "( "   "( "   "( "   "( "   " )" "   "+), "    ";)6 " "S)@ " "k)J "  ")T "  ")^ "  ")h "  ")r " ")| " ") ""* ""]* 0,2,3,10,0,18,5,2,10,2,15,2,20,2,25,2,30,2,35,2,13,10,18,10,23,10,28}* 10,33,10,21,18,26,18,31,18* AHDEEDABACABACABACAADHDAB* AHDAFADAFADEDHDAHAFFHFFAA* AHANCAAABKPLQAKPINHACCAFG* JOKPLQKPJOKPLQKPJOINFJHFM+ FGNKLJLJLJLJLFHFFADEQNJNID>+ AHAFADAFAHADFDFDFDHDAFGKN^+ AHBBBAHADEEEDABACABACADEI~+ ABBBAHADEEEDAFADAFADAFAHA+ OJJJPPPPQPQPKKKKKKKKKKKKK+ AAAAAAAAHABBBAAACCAHAAAHA+ AAAAAAAAIIIIIJKLLLIIIIIII+ AAAAAAAANIIIIOPQQQNNNNNNN,& AHABADACAFABADACFBDCFBDHD>,0 ADEDADEDADEDHAFGFAFGFAFGF^,: BDBDBDBDBACFMNCACACACAHCA~,D AFGGNQPQPQFAHDEPQNDAFGLIG,N "COME ON. ","WE HAVEN'T GOT ALL DAY! ",X "WE HAVE BETTER THINGS TO DO. " -b "JUST ANSWER THE QUESTION. ","IT ISN'T THAT DIFFICULT! "7-l "THERE IS A LIMIT TO OUR PATIENCE! "(`