MATHS MAZE
FILE INFORMATION
FILENAME(S): MATHS MAZE
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 21:13:02
APPEARS ON: 1 disk(s)
FILE HASH
aa397c5adfac1e6790b15368de35b69b5c0555e38f3a3e9ca13ee7b127192d3b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTER 6409 6410 | MATHS MAZE | PRG | DuncanTwain | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 8F 20 2A 2A 20 4D 41 54 48 53 |..).... ** MATHS|
00000010: 20 4D 41 5A 45 20 4D 4F 44 49 46 49 45 44 20 46 | MAZE MODIFIED F|
00000020: 4F 52 20 54 48 45 20 2A 2A 00 51 08 14 00 8F 20 |OR THE **.Q.... |
00000030: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 42 |* COMMODORE 64 B|
00000040: 59 20 44 2E 48 41 4C 4C 20 46 45 42 20 38 33 20 |Y D.HALL FEB 83 |
00000050: 2A 00 79 08 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.y.... ********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 08 64 00 8F 20 |*********...d.. |
00000080: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 2A |*** INITIALIZE *|
00000090: 2A 2A 00 AA 08 6E 00 52 45 24 B2 C7 28 31 33 29 |**...n.RE$..(13)|
000000A0: 3A 51 55 24 B2 C7 28 33 34 29 00 CA 08 78 00 56 |:QU$..(34)...x.V|
000000B0: 54 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |T$."............|
000000C0: 11 11 11 11 11 11 11 11 11 22 00 FB 08 82 00 53 |.........".....S|
000000D0: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 22 00 12 09 8C 00 | ".....|
00000100: 96 A5 52 28 58 29 B2 B5 28 BB 28 31 29 AC 58 AA |..R(X)..(.(1).X.|
00000110: 31 29 00 1E 09 96 00 50 4C B2 31 32 32 35 00 36 |1).....PL.1225.6|
00000120: 09 C8 00 8F 20 2A 2A 2A 20 44 52 41 57 20 4D 41 |.... *** DRAW MA|
00000130: 5A 45 20 2A 2A 2A 00 40 09 CD 00 54 31 B2 54 49 |ZE ***.@...T1.TI|
00000140: 00 5C 09 D2 00 97 35 33 32 38 30 2C 38 3A 97 35 |.\....53280,8:.5|
00000150: 33 32 38 31 2C 30 3A 99 22 93 05 22 00 7A 09 D4 |3281,0:."..".z..|
00000160: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000170: 20 20 20 20 A6 A6 D7 A6 A6 22 00 9C 09 D6 00 99 | ....."......|
00000180: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 |" ..|
00000190: D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 22 00 C1 09 D8 |... ....."....|
000001A0: 00 99 22 20 20 20 20 20 20 20 20 20 A6 A6 D7 A6 |.." ....|
000001B0: A6 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 |. ..... ....|
000001C0: A6 00 EA 09 DA 00 99 22 20 20 20 20 20 A6 A6 D7 |......." ...|
000001D0: A6 A6 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 |.. ..... ...|
000001E0: A6 A6 20 20 20 A6 A6 D7 A6 A6 00 19 0A DC 00 99 |.. ...........|
000001F0: 22 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 20 |" ..... ..... |
00000200: 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 20 | ..... ..... |
00000210: 20 20 A6 A6 D7 A6 A6 DA 22 00 43 0A DE 00 99 22 | ......".C...."|
00000220: 20 20 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 | ..... ...|
00000230: A6 A6 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 |.. ..... ...|
00000240: A6 A6 22 00 69 0A E0 00 99 22 20 20 20 20 20 20 |..".i...." |
00000250: 20 20 20 A6 A6 D7 A6 A6 20 20 20 A6 A6 D7 A6 A6 | ..... .....|
00000260: 20 20 20 A6 A6 A6 D7 A6 22 00 8B 0A E2 00 99 22 | ....."......"|
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 D7 | ...|
00000280: A6 A6 20 20 20 A6 A6 D7 A6 A6 22 00 A9 0A E4 00 |.. .....".....|
00000290: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000002A0: 20 20 20 A6 A6 D7 A6 A6 22 00 B6 0A E6 00 99 22 | ....."......"|
000002B0: 20 20 20 20 4E 22 00 C3 0A E8 00 99 22 20 20 20 | N"......" |
000002C0: 20 DD 22 00 D3 0A EA 00 99 22 20 57 20 C3 DB C3 | ."......" W ...|
000002D0: 20 45 22 00 E0 0A EC 00 99 22 20 20 20 20 DD 22 | E"......" ."|
000002E0: 00 EC 0A EE 00 99 22 20 20 20 20 53 00 12 0B FA |......" S....|
000002F0: 00 8F 20 2A 2A 2A 20 53 45 54 20 55 50 20 49 4E |.. *** SET UP IN|
00000300: 49 54 49 41 4C 20 50 4F 53 49 54 49 4F 4E 20 2A |ITIAL POSITION *|
00000310: 2A 2A 00 2E 0B 04 01 50 4C B2 31 32 32 35 3A 50 |**.....PL.1225:P|
00000320: 50 B2 C2 28 50 4C 29 3A 97 50 4C 2C 34 32 00 41 |P..(PL):.PL,42.A|
00000330: 0B 2C 01 8F 20 2A 2A 2A 20 4D 4F 56 45 20 2A 2A |.,.. *** MOVE **|
00000340: 2A 00 6F 0B 36 01 99 56 54 24 3B 53 50 24 3B 53 |*.o.6..VT$;SP$;S|
00000350: 50 24 3B 53 50 24 3B 56 54 24 3B 22 20 57 48 49 |P$;SP$;VT$;" WHI|
00000360: 43 48 20 44 49 52 45 43 54 49 4F 4E 20 3F 22 00 |CH DIRECTION ?".|
00000370: 83 0B 40 01 5A 24 B2 22 4E 53 45 57 22 3A 8D 31 |..@.Z$."NSEW":.1|
00000380: 30 30 30 00 A7 0B 4A 01 4D 56 B2 C5 28 CA 28 22 |000...J.MV..(.("|
00000390: 2D 34 30 2B 34 30 2B 30 31 2D 30 31 22 2C 5A AC |-40+40+01-01",Z.|
000003A0: 33 AB 32 2C 33 29 29 00 CB 0B 54 01 97 50 4C 2C |3.2,3))...T..PL,|
000003B0: 50 50 3A 50 4C B2 50 4C AA 4D 56 3A 50 50 B2 C2 |PP:PL.PL.MV:PP..|
000003C0: 28 50 4C 29 3A 97 50 4C 2C 34 32 00 E5 0B 5E 01 |(PL):.PL,42...^.|
000003D0: 8F 20 2A 2A 2A 20 41 43 43 45 53 53 20 4D 4F 56 |. *** ACCESS MOV|
000003E0: 45 20 2A 2A 2A 00 F4 0B 68 01 8B 50 50 B2 39 30 |E ***...h..PP.90|
000003F0: A7 39 30 30 00 03 0C 72 01 8B 50 50 B2 33 32 A7 |.900...r..PP.32.|
00000400: 34 30 30 00 13 0C 7C 01 8B 50 50 B2 31 30 32 A7 |400...|..PP.102.|
00000410: 33 30 30 00 1C 0C 86 01 89 34 35 30 00 3B 0C 90 |300......450.;..|
00000420: 01 8F 20 2A 2A 2A 20 46 45 4C 4C 20 4F 46 20 54 |.. *** FELL OF T|
00000430: 48 45 20 50 41 54 48 20 2A 2A 2A 00 70 0C 9A 01 |HE PATH ***.p...|
00000440: 99 56 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 |.VT$;SP$;SP$;VT$|
00000450: 3B 22 20 4F 48 20 44 45 41 52 20 59 4F 55 20 46 |;" OH DEAR YOU F|
00000460: 45 4C 4C 20 4F 46 20 54 48 45 20 50 41 54 48 22 |ELL OF THE PATH"|
00000470: 00 8A 0C 9F 01 99 22 20 42 41 43 4B 20 54 4F 20 |......" BACK TO |
00000480: 53 54 41 52 54 20 21 21 20 22 00 9D 0C A4 01 58 |START !! ".....X|
00000490: B2 32 3A 8D 31 31 30 30 3A 89 32 31 30 00 BA 0C |.2:.1100:.210...|
000004A0: C2 01 8F 20 2A 2A 2A 20 53 45 4C 45 43 54 20 50 |... *** SELECT P|
000004B0: 52 4F 42 4C 45 4D 20 2A 2A 2A 00 DB 0C CC 01 50 |ROBLEM ***.....P|
000004C0: 54 B2 A5 52 28 34 29 3A 91 50 54 89 35 30 30 2C |T..R(4):.PT.500,|
000004D0: 35 35 30 2C 36 30 30 2C 36 35 30 00 ED 0C F4 01 |550,600,650.....|
000004E0: 8F 20 2A 2A 2A 20 41 44 44 20 2A 2A 2A 00 14 0D |. *** ADD ***...|
000004F0: FE 01 41 B2 A5 52 28 39 29 3A 42 B2 A5 52 28 39 |..A..R(9):B..R(9|
00000500: 29 3A 43 B2 41 AA 42 3A 4F 50 24 B2 22 2B 22 3A |):C.A.B:OP$."+":|
00000510: 89 38 30 30 00 2B 0D 26 02 8F 20 2A 2A 2A 20 53 |.800.+.&.. *** S|
00000520: 55 42 54 52 41 43 54 20 2A 2A 2A 00 51 0D 30 02 |UBTRACT ***.Q.0.|
00000530: 41 B2 A5 52 28 39 39 29 3A 42 B2 A5 52 28 39 29 |A..R(99):B..R(9)|
00000540: 3A 8B 42 B1 41 A7 46 B2 41 3A 41 B2 42 3A 42 B2 |:.B.A.F.A:A.B:B.|
00000550: 46 00 68 0D 3A 02 43 B2 41 AB 42 3A 4F 50 24 B2 |F.h.:.C.A.B:OP$.|
00000560: 22 2D 22 3A 89 38 30 30 00 7F 0D 58 02 8F 20 2A |"-":.800...X.. *|
00000570: 2A 2A 20 4D 55 4C 54 49 50 4C 59 20 2A 2A 2A 00 |** MULTIPLY ***.|
00000580: 93 0D 62 02 41 B2 A5 52 28 39 29 3A 42 B2 A5 52 |..b.A..R(9):B..R|
00000590: 28 39 29 00 AA 0D 6C 02 43 B2 41 AC 42 3A 4F 50 |(9)...l.C.A.B:OP|
000005A0: 24 B2 22 2A 22 3A 89 38 30 30 00 C6 0D 8A 02 8F |$."*":.800......|
000005B0: 20 2A 2A 2A 20 52 41 4E 44 4F 4D 20 44 49 47 49 | *** RANDOM DIGI|
000005C0: 54 53 20 2A 2A 2A 00 F2 0D 94 02 99 56 54 24 3B |TS ***......VT$;|
000005D0: 53 50 24 3B 53 50 24 3B 56 54 24 3B 22 20 41 44 |SP$;SP$;VT$;" AD|
000005E0: 44 20 54 48 45 53 45 20 4E 55 4D 42 45 52 53 20 |D THESE NUMBERS |
000005F0: 22 3B 00 04 0E 9E 02 58 B2 32 3A 8D 31 31 30 30 |";.....X.2:.1100|
00000600: 3A 43 B2 30 00 20 0E A8 02 81 49 B2 31 A4 33 3A |:C.0. ....I.1.3:|
00000610: 44 50 B2 A5 52 28 39 29 3A 44 50 B2 35 AB 44 50 |DP..R(9):DP.5.DP|
00000620: 00 4B 0E B2 02 58 B2 A5 52 28 39 29 3A 97 31 38 |.K...X..R(9):.18|
00000630: 38 30 AA 44 50 2C 58 AA 34 38 3A 43 B2 43 AA 58 |80.DP,X.48:C.C.X|
00000640: 3A 58 B2 2E 38 3A 8D 31 31 30 30 00 63 0E B7 02 |:X..8:.1100.c...|
00000650: 97 31 38 38 30 AA 44 50 2C 33 32 3A 82 49 3A 89 |.1880.DP,32:.I:.|
00000660: 38 35 30 00 82 0E 20 03 8F 20 2A 2A 2A 20 53 45 |850... .. *** SE|
00000670: 54 20 54 48 45 20 50 52 4F 42 4C 45 4D 53 20 2A |T THE PROBLEMS *|
00000680: 2A 2A 00 98 0E 2A 03 99 56 54 24 3B 53 50 24 3B |**...*..VT$;SP$;|
00000690: 53 50 24 3B 56 54 24 3B 00 A9 0E 34 03 41 24 B2 |SP$;VT$;...4.A$.|
000006A0: CA 28 C4 28 41 29 2C 32 29 00 BA 0E 3E 03 42 24 |.(.(A),2)...>.B$|
000006B0: B2 CA 28 C4 28 42 29 2C 32 29 00 E3 0E 48 03 99 |..(.(B),2)...H..|
000006C0: 22 20 57 48 41 54 20 49 53 20 22 3B 41 24 3B 22 |" WHAT IS ";A$;"|
000006D0: 20 22 3B 4F 50 24 3B 22 20 22 3B 42 24 3B 22 3F | ";OP$;" ";B$;"?|
000006E0: 20 22 3B 00 ED 0E 52 03 8D 31 32 30 30 00 FC 0E | ";...R..1200...|
000006F0: 5C 03 8B 41 4E B3 B1 43 A7 38 38 30 00 1C 0F 66 |\..AN..C.880...f|
00000700: 03 99 22 20 43 4F 52 52 45 43 54 22 3A 58 B2 2E |.." CORRECT":X..|
00000710: 35 3A 8D 31 31 30 30 3A 89 33 30 30 00 38 0F 70 |5:.1100:.300.8.p|
00000720: 03 99 22 91 20 57 52 4F 4E 47 20 21 20 20 49 54 |..". WRONG ! IT|
00000730: 20 57 41 53 20 22 3B 43 00 57 0F 75 03 58 B2 31 | WAS ";C.W.u.X.1|
00000740: 3A 8D 31 31 30 30 3A 99 56 54 24 3B 53 50 24 3B |:.1100:.VT$;SP$;|
00000750: 53 50 24 3B 56 54 24 00 60 0F 7A 03 89 34 35 30 |SP$;VT$.`.z..450|
00000760: 00 7A 0F 84 03 8F 20 2A 2A 2A 20 45 4E 44 20 4F |.z.... *** END O|
00000770: 46 20 47 41 4D 45 20 2A 2A 2A 00 96 0F 8E 03 54 |F GAME ***.....T|
00000780: 32 B2 54 49 3A 99 56 54 24 3B 53 50 24 3B 53 50 |2.TI:.VT$;SP$;SP|
00000790: 24 3B 56 54 24 3B 00 DF 0F 98 03 99 22 20 57 45 |$;VT$;......" WE|
000007A0: 4C 4C 20 44 4F 4E 45 20 21 21 20 59 4F 55 20 43 |LL DONE !! YOU C|
000007B0: 4F 4D 50 4C 45 54 45 44 20 54 48 45 20 4D 41 5A |OMPLETED THE MAZ|
000007C0: 45 20 49 4E 20 22 3B B5 28 28 54 32 AB 54 31 29 |E IN ";.((T2.T1)|
000007D0: AD 36 30 29 3B 22 53 45 43 4F 4E 44 53 22 3B 00 |.60);"SECONDS";.|
000007E0: FB 0F A2 03 99 22 20 2D 20 54 52 59 20 41 47 41 |....." - TRY AGA|
000007F0: 49 4E 20 3F 20 28 59 2F 4E 29 22 00 18 10 AC 03 |IN ? (Y/N)".....|
00000800: A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 |.A$:.A$.."Y".A$.|
00000810: B1 22 4E 22 A7 39 34 30 00 26 10 B6 03 8B 41 24 |."N".940.&....A$|
00000820: B2 22 59 22 A7 8A 00 31 10 DE 03 99 22 93 22 3A |."Y"...1....".":|
00000830: 80 00 4B 10 E8 03 8F 20 2A 2A 2A 20 41 57 41 49 |..K.... *** AWAI|
00000840: 54 20 49 4E 50 55 54 20 2A 2A 2A 00 5F 10 F2 03 |T INPUT ***._...|
00000850: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 35 30 00 |.A$:.A$."".1050.|
00000860: 6E 10 FC 03 81 5A B2 31 A4 C3 28 5A 24 29 00 82 |n....Z.1..(Z$)..|
00000870: 10 06 04 8B CA 28 5A 24 2C 5A 2C 31 29 B2 41 24 |.....(Z$,Z,1).A$|
00000880: A7 8E 00 8F 10 10 04 82 5A 3A 89 31 30 31 30 00 |........Z:.1010.|
00000890: A6 10 1A 04 97 50 4C 2C 33 32 3A 58 B2 2E 30 31 |.....PL,32:X..01|
000008A0: 3A 8D 31 31 30 30 00 BD 10 24 04 97 50 4C 2C 34 |:.1100...$..PL,4|
000008B0: 32 3A 58 B2 2E 30 31 3A 8D 31 31 30 30 00 C7 10 |2:X..01:.1100...|
000008C0: 2E 04 89 31 30 31 30 00 E4 10 4C 04 8F 20 2A 2A |...1010...L.. **|
000008D0: 20 44 45 4C 41 59 20 58 20 53 45 43 4F 4E 44 53 | DELAY X SECONDS|
000008E0: 20 2A 2A 2A 00 F9 10 56 04 81 54 B2 31 A4 58 AC | ***...V..T.1.X.|
000008F0: 31 30 30 30 3A 82 54 3A 8E 00 1F 11 B0 04 8F 20 |1000:.T:....... |
00000900: 2A 2A 2A 20 41 57 41 49 54 20 47 45 54 53 20 55 |*** AWAIT GETS U|
00000910: 4E 54 49 4C 20 52 45 54 55 52 4E 20 2A 2A 2A 00 |NTIL RETURN ***.|
00000920: 28 11 BA 04 41 4E B2 30 00 4C 11 C4 04 5A 24 B2 |(...AN.0.L...Z$.|
00000930: 22 30 31 32 33 34 35 36 37 38 39 22 AA 52 45 24 |"0123456789".RE$|
00000940: AA C7 28 32 30 29 3A 8D 31 30 30 30 00 75 11 CE |..(20):.1000.u..|
00000950: 04 8B 5A B2 31 32 AF 41 4E B1 30 A7 99 C7 28 32 |..Z.12.AN.0...(2|
00000960: 30 29 3B 3A 41 4E B2 B5 28 41 4E AD 31 30 29 3A |0);:AN..(AN.10):|
00000970: 89 31 32 32 30 00 84 11 D8 04 8B 5A B2 31 32 A7 |.1220......Z.12.|
00000980: 31 32 32 30 00 95 11 E2 04 99 41 24 3B 3A 8B 5A |1220......A$;:.Z|
00000990: B2 31 31 A7 8E 00 B4 11 EC 04 41 4E B2 41 4E AC |.11.......AN.AN.|
000009A0: 31 30 AA 5A AB 31 3A 44 45 B2 44 45 AA 31 3A 89 |10.Z.1:DE.DE.1:.|
000009B0: 31 32 32 30 00 00 00 |1220... |
..).... ** MATHS MAZE MODIFIED FOR THE *
*.Q.... * COMMODORE 64 BY D.HALL FEB 83
*.Y.... ********************************
*...D.. *** INITIALIZE ***...N.RE$.G(13)
:QU$.G(34).J.X.VT$."....................
.".....SP$."
".......R(X)..(.(1).X.1).....P
L.1225.6.H.. *** DRAW MAZE ***.@.M.T1.TI
.\.R..53280,8:.53281,0:."..".Z.T.."
..W.."...V.." ..
W.. ..W..".A.X.." ..W.. ..W.
. ..W.....Z.." ..W.. ..W.. ..W
.. ..W........" ..W.. ..W.. ..W..
..W.. ..W..Z".C...." ..W.. ..W
.. ..W.. ..W..".I...." ..W..
..W.. ...W."......" ..W
.. ..W.."......" ..W..
"......" N".C...." .".S...." W C.C
E"......" ."......" S...... *** S
ET UP INITIAL POSITION ***.....PL.1225:P
P.B(PL):.PL,42.A.,.. *** MOVE ***.O.6..V
T$;SP$;SP$;SP$;VT$;" WHICH DIRECTION ?".
..@.Z$."NSEW":.1000...J.MV.E(J("-40+40+0
1-01",Z.3.2,3)).K.T..PL,PP:PL.PL.MV:PP.B
(PL):.PL,42...^.. *** ACCESS MOVE ***...
H..PP.90.900...R..PP.32.400...|..PP.102.
300......450.;.... *** FELL OF THE PATH
***.P....VT$;SP$;SP$;VT$;" OH DEAR YOU F
ELL OF THE PATH"......" BACK TO START !!
".....X.2:.1100:.210...B.. *** SELECT P
ROBLEM ***...L.PT..R(4):.PT.500,550,600,
650...... *** ADD ***.....A..R(9):B..R(9
):C.A.B:OP$."+":.800.+.&.. *** SUBTRACT
***.Q.0.A..R(99):B..R(9):.B.A.F.A:A.B:B.
F.H.:.C.A.B:OP$."-":.800..X.. *** MULTI
PLY ***...B.A..R(9):B..R(9)...L.C.A.B:OP
$."*":.800.F.... *** RANDOM DIGITS ***..
....VT$;SP$;SP$;VT$;" ADD THESE NUMBERS
";.....X.2:.1100:C.0. ....I.1.3:DP..R(9)
:DP.5.DP.K...X..R(9):.1880.DP,X.48:C.C.X
:X..8:.1100.C....1880.DP,32:.I:.850... .
. *** SET THE PROBLEMS ***...*..VT$;SP$;
SP$;VT$;...4.A$.J(D(A),2)...>.B$.J(D(B),
2)...H.." WHAT IS ";A$;" ";OP$;" ";B$;"?
";...R..1200...\..AN..C.880...F.." CORR
ECT":X..5:.1100:.300.8.P..". WRONG ! IT
WAS ";C.W.U.X.1:.1100:.VT$;SP$;SP$;VT$.
`.Z..450.Z.... *** END OF GAME ***.....T
2.TI:.VT$;SP$;SP$;VT$;......" WELL DONE
!! YOU COMPLETED THE MAZE IN ";.((T2.T1)
.60);"SECONDS";......" - TRY AGAIN ? (Y/
N)"......A$:.A$.."Y".A$.."N".940.&....A$
."Y"...1....".":..K.... *** AWAIT INPUT
***._....A$:.A$."".1050.N....Z.1.C(Z$)..
....J(Z$,Z,1).A$........Z:.1010......PL,
32:X..01:.1100...$..PL,42:X..01:.1100.G.
...1010...L.. ** DELAY X SECONDS ***...V
..T.1.X.1000:.T:....... *** AWAIT GETS U
NTIL RETURN ***.(...AN.0.L.D.Z$."0123456
789".RE$.G(20):.1000.U.N..Z.12.AN.0..G(2
0);:AN..(AN.10):.1220...X..Z.12.1220....
..A$;:.Z.11.......AN.AN.10.Z.1:DE.DE.1:.
1220...
> CLICK IMAGE PREVIEW FOR FULL MODAL