) ** MATHS MAZE MODIFIED FOR THE **Q * COMMODORE 64 BY D.HALL FEB 83 *y *********************************d *** INITIALIZE ***nRE$(13):QU$(34)xVT$""SP$" " R(X)((1)X1) PL12256 *** DRAW MAZE ***@ T1TI\ 53280,8:53281,0:""z " צ" " צ צ" " צ צ צ " צ צ צ צ " צ צ צ צ צ"C " צ צ צ צ"i " צ צ צ" " צ צ" " צ" " N" " " " W E" " " " S *** SET UP INITIAL POSITION ***. PL1225:PP(PL):PL,42A , *** MOVE ***o 6VT$;SP$;SP$;SP$;VT$;" WHICH DIRECTION ?" @Z$"NSEW":1000 JMV(("-40+40+01-01",Z32,3)) TPL,PP:PLPLMV:PP(PL):PL,42 ^ *** ACCESS MOVE *** hPP90900 rPP32400 |PP102300 450;  *** FELL OF THE PATH ***p VT$;SP$;SP$;VT$;" OH DEAR YOU FELL OF THE PATH" " BACK TO START !! " X2:1100:210  *** SELECT PROBLEM *** PTR(4):PT500,550,600,650  *** ADD *** AR(9):BR(9):CAB:OP$"+":800+ & *** SUBTRACT ***Q 0AR(99):BR(9):BAFA:AB:BFh :CAB:OP$"-":800 X *** MULTIPLY *** bAR(9):BR(9) lCAB:OP$"*":800  *** RANDOM DIGITS *** VT$;SP$;SP$;VT$;" ADD THESE NUMBERS ";X2:1100:C0 I13:DPR(9):DP5DPKXR(9):1880DP,X48:CCX:X.8:1100c1880DP,32:I:850  *** SET THE PROBLEMS ****VT$;SP$;SP$;VT$;4A$((A),2)>B$((B),2)H" WHAT IS ";A$;" ";OP$;" ";B$;"? ";R1200\ANC880f" CORRECT":X.5:1100:3008p" WRONG ! IT WAS ";CWuX1:1100:VT$;SP$;SP$;VT$`z450z *** END OF GAME ***T2TI:VT$;SP$;SP$;VT$;" WELL DONE !! YOU COMPLETED THE MAZE IN ";((T2T1)60);"SECONDS";" - TRY AGAIN ? (Y/N)"A$:A$"Y"A$"N"940&A$"Y"1"":K *** AWAIT INPUT ***_A$:A$""1050nZ1(Z$)(Z$,Z,1)A$Z:1010PL,32:X.01:1100$PL,42:X.01:1100.1010L ** DELAY X SECONDS ***VT1X1000:T: *** AWAIT GETS UNTIL RETURN ***(AN0LZ$"0123456789"RE$(20):1000uZ12AN0(20);:AN(AN10):1220Z121220A$;:Z11ANAN10Z1:DEDE1:1220E MAZE IN ";((T2T1)60);"SECONDS";" - TRY AGA