C64S tape image fileMAZE MANIA 3MOUSE MAZE ^*%ROCKETS'STORY PROB -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  *** MOUSE MAZE ***D WE THINK IT'S PUBLIC DOMAINe AUTHOR: BRIAN MUNSHAW PLUS/4 C16 VERSION2025,64: NO EOL INSERT231000: MAIN LOOP:#UR$"":UI$"":UL0UL39 -"";:UI$:UI$""45<2UA(UI$):UR(UR$):UA13UR0" ";:70q7UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";: 145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)0110.dUI1(US$):UI$(US$,UI,1):UI$""4iAnUA46TsUA32UR0gxUA47UA58z}UA64UA91UA193UA218UI$""::""(142)"DO YOU WANT TO RESTART THE GAME ?":KB,0UI$:UI$"Y"150:UI$"N"146$150:2025,0:(9)"":*:_I07:1375I,FK(I)::: RESTORE FUNCTION KEYSe:s""(14)UT$" OUSE AZE":UH1:UP0:UG$"NSTRUCTIONS":850" HIS IS A GAME IN WHICH YOU GUIDE" "A MOUSE THROUGH A MAZE, TO THE EXIT,";"WHERE THERE IS A LARGE PIECE OF CHEESE"i"AWAITING THE SUCCESSFUL MAZE SOLVER." UH=1:GOSUB835:GOSUB85015000835: 0,2:4,15,1:""(142);%" &"  !'" ߚ C O M M O D O R E4(" T*"SOFTWAREr4"":R9$"5R9$"**************6R9$"* MOUSE MAZE *7R9$"**************9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:LC(UD$,24);"PRESS SPACE BAR TO CONTINUE"cHUI$:UI$" "840iMRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0:"":Mk(UD$,24);" ONE MOMENT PLEASE... ":S:UX$"Q":UC$(154):US12256:U3202:U4205:KB239UD$"":UP$" "I07:FK(I)(1375I):1375I,0:: DISABLE FUNCTION KEYS?W(13,9),V(13,9),SC$(10,1),N(6,1)EK:d(8):900:800:400z""UC$;::I(0)C1121:C2121:MA87:N$(0)I013:II09:W(I,II)0:V(I,II)0::I06:II01:N(I,II)0::!UT$" MOUSE MAZE":UG$"GAME SET UP":UP0:(142):850h"ENTER MAZE WIDTH (3-12): ";:UL2:US$"0123456789Q":35H(UR$):H12H31050$"ENTER MAZE LENGTH (3-8) : ";:UL1:US$"345678Q":35)V(UR$):." ENTER YOUR SPEED (1-9) : ";:UL1:US$"123456789Q":35-3A(UR$):7`DHVNjH1 V1 1150T~]HZHuTA(40(H33.5))2VD((21V2)2)UG$"GAME SET UP":850:"SETTING UP MAZE."875T012:Y08:W(T,Y)0:V(T,Y)0::D00:WA0"1250:1260:UG$"SPEED"B"DONE!":835XUPA1:850:"";hL1VD::TA);"";:K1H31:"";::""TA)""H31)""TA)"";2260:2350:Q0:Z0:F1X200:I1H:W(I,0)X:II1V:W(0,I)X:W(H1,I)X:I%:7Z((1)H1)`W(Z,1)1:V(Z,1)1:C2:RZ:S1: 1320wRHRR1: 1310 R1:SVSS1: 1310S1: 1310W(R,S)0 1280(J14:D(J)0:J2D(1)W(R1,S)0<D(2)W(R,S1)0FD(3)W(R1,S)0(PD(4)W(R,S1)0(CVH2SV)CZD0:J14:DDD(J):JRdD0 1280_nX(1)D{xD14:XXD(D):X0DD 1430, 1450, 1520, 1470RR1:V(R,S)21460SS1:V(R,S)1 1870: 1540SV 1490X200:J1H:W(J,V1)X:J$V(R,S)V(R,S)1N1870:SS1:SVCHV1CC1: 1300Y 1540mV(R,S)V(R,S)2}1870:RR1W(R,S)C:CC1CHV2 1320N: I1 H IX 2290"";: 2300" ";I "ڵ":TA);""; 2350- :). J1V38 "";?B I1 HUL V(I,J)2 2410aV " ";k` 2420wj " ";t I~ "":TA)""; I1 H V(I,J)0 2490 V(I,J)2 2490 " ";:JVD0I 2500 ""; I "ڵ":TA);""; J0 TAK);:""U TA);"";:H1K1:"";::""x D00"";:YT1VDV22:: D00D0((1)HZ1):TA13D0)" " PSUSTAD03VD40V240340  PS,C1:PS1,C2! BF1:X0:B6:HUS(VD1)40TA1,! HR3((1)HZ):HHR41,32:HHR42,32(PA),32:PP41:(PA),30H1430_"***MOVE ROCKET UP,(A(P40))32(PA),32:PP40:17506(PA),32:PP40:(PA),30@1430J***MOVE ROCKET RIGHTT(P)40((P)40)1570^(A(P39))32(PA),32:PP39:17504h(PA),32:PP39:(PA),30>r1430U|***MISSLE ROUTINEe7:3,800,3tS411570S4S41:PRP:I14PRPR40SC(PRA): SC42 3500 SC39 SC46 3510(PRA),93 FORW=1TO200(PRA),32 I1430)***LOSE ROUTINE6N(PA)H(PA),30128W7:I110n(PA),30:1,200,3(PA),N:1,400,30(PA),30128:1,600,3:I:0:2250DSO12140NSO01890bI18:X(I)P:lL413: WAS 7% vX(1)401X(8)1000:X(1)1000:X(2)1000X X(5)401000X(6)1000:X(5)1000:X(4)1000 X(3)40(X(3)40)X(2)1000:X(3)1000:X(4)1000 (X(7)1)40((X(7)1)40)X(8)1000:X(7)1000:X(6)1000 I14 X(I)01980!(X(I)A),Z(I)!X(I4)02000+!(X(I4)A),Z(I4)2!IK!7:3,(L415)125,50V!I14g!X(I)02050x!(X(I)A),32!X(I4)02070! (X(I4)A),32!I! L41(PA),81!*I18!4(L45L43)(I2I4I6I8)2130">X(I)X(I)IN(I)"RI:L4:2180%"\7:I2501206"fQW125025C"p3,3I,1W"zQW:I:0:1870t"7:I1001603:3,I4,2"I2(I2)2210" POKE59409,52"I"0:PA,32"""(142)" 3200"""";#"     "?#"       "f#"        "#"          "#"       ";# # ***WIN ROUTINE# SSSS1:SSLL5 3000$ SO01320$$ :I116:AS:$. 7#$8 L;$B L1V1(L):2360N$L L10:1320U$V Vg$` 1,L4,((V))u$t V02360$~ 2360$ -20,212,4,212,3,159,6,159,5,140,6,140,5,105,12,125,2,159,8$ 125,5,159,2,189,6,118,6,140,10,170,3,159,16,-1+% " **ROCKETS**":I1500:1% f% ::" HERE ARE 7 LEVELS OF DIFFICULTY IN"% " THIS GAME. N EACH LEVEL YOU MUST GET"% " FIVE ROCKETS TO THE TOP OF THE SCREEN."% " OU WILL RECEIVE YOUR SCORE WHEN YOU"#& " ARE DESTROYED OR WHEN YOU COMPLETE THE"8& " LAST LEVEL."^& " 'SPACE' --FIRE"& " 'LEFT CURSOR' --MOVE LEFT& " 'RIGHT CURSOR' --MOVE RIGHT"& UW0" OOD LUCK AND ENJOY THE SOUND EFFECTS"' UW0" ON 2."'* : WAS POKE TO UT/'2 B$:B$""26105'< >' ""N' R8 3200e' I1132:"";:I' " CONGRATULATIONS ";' I1131:"";:I' :" YOU HAVE SUCCESSFULLY COMPLETED LEVEL";LL;""( "IN THE NEXT LEVEL;YOU WILL ONLY HAVE ";9R;"SHOTS";N( " PER SHIP AND MORE STARS TO NEGOTIATE."~( " YOUR SCORE SO FAR IS--";(LLS5)SS( "GOOD LUCK!"( 835( RR1: 1210( ""( XX(LLS5)SS( I180:"";:I!) :"****************ROCKETS*****************"J) "IN THE PROCESS OF THE GAME YOU:"k) "DESTROYED";SR;" STARS") "AND SUCCESSFULLY NAVIGATED";SS;"ROCKETS") "YOUR SCORE WAS----";XX) :"****************************************"* I180:"";:I* 835* 10018* SRSR1:S5S510: 1700R* SRSR1:S5S55:1700\*#$23E3