MATH-MAZE
FILE INFORMATION
FILENAME(S): MATH-MAZE
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 21:24:44
APPEARS ON: 2 disk(s)
FILE HASH
410b51ae1a180ad9681bc42b0d3a373e879440dcbee2a194c4ee0c106e35cad2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 7 | MATH-MAZE | PRG | DuncanTwain | 27 | 14 | DOWNLOAD FILE |
| EDUCATIEF REKENE | MATH-MAZE | PRG | DuncanTwain | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 64 00 8F 20 2A 2A 20 4D 41 54 48 53 |..).d.. ** 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 6E 00 8F 20 |OR THE **.Q.n.. |
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 78 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.y.x.. ********|
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 82 00 8F 20 |*********...... |
00000080: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 2A |*** INITIALIZE *|
00000090: 2A 2A 00 AA 08 8C 00 52 45 24 B2 C7 28 31 33 29 |**.....RE$..(13)|
000000A0: 3A 51 55 24 B2 C7 28 33 34 29 00 CA 08 96 00 56 |:QU$..(34).....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 A0 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 AA 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 B4 00 50 4C B2 31 32 32 35 00 36 |1).....PL.1225.6|
00000120: 09 BE 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 C8 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 DC |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 E6 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 F0 |... ....."....|
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 FA 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 04 01 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 0E 01 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 18 01 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 22 01 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 2C 01 |.. ....."...,.|
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 36 01 99 22 | ....."...6.."|
000002B0: 20 20 20 20 4E 22 00 C3 0A 40 01 99 22 20 20 20 | N"...@.." |
000002C0: 20 DD 22 00 D3 0A 4A 01 99 22 20 57 20 C3 DB C3 | ."...J.." W ...|
000002D0: 20 45 22 00 E0 0A 54 01 99 22 20 20 20 20 DD 22 | E"...T.." ."|
000002E0: 00 EC 0A 5E 01 99 22 20 20 20 20 53 00 12 0B 68 |...^.." S...h|
000002F0: 01 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 72 01 50 4C B2 31 32 32 35 3A 50 |**...r.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 7C 01 8F 20 2A 2A 2A 20 4D 4F 56 45 20 2A 2A |.|.. *** MOVE **|
00000340: 2A 00 6F 0B 86 01 99 56 54 24 3B 53 50 24 3B 53 |*.o....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: 82 0B 90 01 5A 24 B2 22 4E 53 45 57 22 3A 8D 38 |....Z$."NSEW":.8|
00000380: 36 30 00 A6 0B 9A 01 4D 56 B2 C5 28 CA 28 22 2D |60.....MV..(.("-|
00000390: 34 30 2B 34 30 2B 30 31 2D 30 31 22 2C 5A AC 33 |40+40+01-01",Z.3|
000003A0: AB 32 2C 33 29 29 00 CA 0B A4 01 97 50 4C 2C 50 |.2,3))......PL,P|
000003B0: 50 3A 50 4C B2 50 4C AA 4D 56 3A 50 50 B2 C2 28 |P:PL.PL.MV:PP..(|
000003C0: 50 4C 29 3A 97 50 4C 2C 34 32 00 E4 0B AE 01 8F |PL):.PL,42......|
000003D0: 20 2A 2A 2A 20 41 43 43 45 53 53 20 4D 4F 56 45 | *** ACCESS MOVE|
000003E0: 20 2A 2A 2A 00 F3 0B B8 01 8B 50 50 B2 39 30 A7 | ***......PP.90.|
000003F0: 37 39 30 00 02 0C C2 01 8B 50 50 B2 33 32 A7 34 |790......PP.32.4|
00000400: 38 30 00 12 0C CC 01 8B 50 50 B2 31 30 32 A7 33 |80......PP.102.3|
00000410: 38 30 00 1B 0C D6 01 89 35 32 30 00 3A 0C E0 01 |80......520.:...|
00000420: 8F 20 2A 2A 2A 20 46 45 4C 4C 20 4F 46 20 54 48 |. *** FELL OF TH|
00000430: 45 20 50 41 54 48 20 2A 2A 2A 00 6F 0C EA 01 99 |E PATH ***.o....|
00000440: 56 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 3B |VT$;SP$;SP$;VT$;|
00000450: 22 20 4F 48 20 44 45 41 52 20 59 4F 55 20 46 45 |" OH DEAR YOU FE|
00000460: 4C 4C 20 4F 46 20 54 48 45 20 50 41 54 48 22 00 |LL OF THE PATH".|
00000470: 89 0C F4 01 99 22 20 42 41 43 4B 20 54 4F 20 53 |....." BACK TO S|
00000480: 54 41 52 54 20 21 21 20 22 00 9B 0C FE 01 58 B2 |TART !! ".....X.|
00000490: 32 3A 8D 39 34 30 3A 89 32 31 30 00 B8 0C 08 02 |2:.940:.210.....|
000004A0: 8F 20 2A 2A 2A 20 53 45 4C 45 43 54 20 50 52 4F |. *** SELECT PRO|
000004B0: 42 4C 45 4D 20 2A 2A 2A 00 D9 0C 12 02 50 54 B2 |BLEM ***.....PT.|
000004C0: A5 52 28 34 29 3A 91 50 54 89 35 34 30 2C 35 36 |.R(4):.PT.540,56|
000004D0: 30 2C 35 39 30 2C 36 32 30 00 EB 0C 1C 02 8F 20 |0,590,620...... |
000004E0: 2A 2A 2A 20 41 44 44 20 2A 2A 2A 00 12 0D 26 02 |*** ADD ***...&.|
000004F0: 41 B2 A5 52 28 39 29 3A 42 B2 A5 52 28 39 29 3A |A..R(9):B..R(9):|
00000500: 43 B2 41 AA 42 3A 4F 50 24 B2 22 2B 22 3A 89 36 |C.A.B:OP$."+":.6|
00000510: 38 30 00 29 0D 30 02 8F 20 2A 2A 2A 20 53 55 42 |80.).0.. *** SUB|
00000520: 54 52 41 43 54 20 2A 2A 2A 00 4F 0D 3A 02 41 B2 |TRACT ***.O.:.A.|
00000530: A5 52 28 39 39 29 3A 42 B2 A5 52 28 39 29 3A 8B |.R(99):B..R(9):.|
00000540: 42 B1 41 A7 46 B2 41 3A 41 B2 42 3A 42 B2 46 00 |B.A.F.A:A.B:B.F.|
00000550: 66 0D 44 02 43 B2 41 AB 42 3A 4F 50 24 B2 22 2D |f.D.C.A.B:OP$."-|
00000560: 22 3A 89 36 38 30 00 7D 0D 4E 02 8F 20 2A 2A 2A |":.680.}.N.. ***|
00000570: 20 4D 55 4C 54 49 50 4C 59 20 2A 2A 2A 00 91 0D | MULTIPLY ***...|
00000580: 58 02 41 B2 A5 52 28 39 29 3A 42 B2 A5 52 28 39 |X.A..R(9):B..R(9|
00000590: 29 00 A8 0D 62 02 43 B2 41 AC 42 3A 4F 50 24 B2 |)...b.C.A.B:OP$.|
000005A0: 22 2A 22 3A 89 36 38 30 00 C4 0D 6C 02 8F 20 2A |"*":.680...l.. *|
000005B0: 2A 2A 20 52 41 4E 44 4F 4D 20 44 49 47 49 54 53 |** RANDOM DIGITS|
000005C0: 20 2A 2A 2A 00 F0 0D 76 02 99 56 54 24 3B 53 50 | ***...v..VT$;SP|
000005D0: 24 3B 53 50 24 3B 56 54 24 3B 22 20 41 44 44 20 |$;SP$;VT$;" ADD |
000005E0: 54 48 45 53 45 20 4E 55 4D 42 45 52 53 20 22 3B |THESE NUMBERS ";|
000005F0: 00 01 0E 80 02 58 B2 32 3A 8D 39 34 30 3A 43 B2 |.....X.2:.940:C.|
00000600: 30 00 1D 0E 8A 02 81 49 B2 31 A4 33 3A 44 50 B2 |0......I.1.3:DP.|
00000610: A5 52 28 39 29 3A 44 50 B2 35 AB 44 50 00 47 0E |.R(9):DP.5.DP.G.|
00000620: 94 02 58 B2 A5 52 28 39 29 3A 97 31 38 38 30 AA |..X..R(9):.1880.|
00000630: 44 50 2C 58 AA 34 38 3A 43 B2 43 AA 58 3A 58 B2 |DP,X.48:C.C.X:X.|
00000640: 2E 38 3A 8D 39 34 30 00 5F 0E 9E 02 97 31 38 38 |.8:.940._....188|
00000650: 30 AA 44 50 2C 33 32 3A 82 49 3A 89 37 33 30 00 |0.DP,32:.I:.730.|
00000660: 7E 0E A8 02 8F 20 2A 2A 2A 20 53 45 54 20 54 48 |~.... *** SET TH|
00000670: 45 20 50 52 4F 42 4C 45 4D 53 20 2A 2A 2A 00 94 |E PROBLEMS ***..|
00000680: 0E B2 02 99 56 54 24 3B 53 50 24 3B 53 50 24 3B |....VT$;SP$;SP$;|
00000690: 56 54 24 3B 00 A5 0E BC 02 41 24 B2 CA 28 C4 28 |VT$;.....A$..(.(|
000006A0: 41 29 2C 32 29 00 B6 0E C6 02 42 24 B2 CA 28 C4 |A),2).....B$..(.|
000006B0: 28 42 29 2C 32 29 00 DF 0E D0 02 99 22 20 57 48 |(B),2)......" WH|
000006C0: 41 54 20 49 53 20 22 3B 41 24 3B 22 20 22 3B 4F |AT IS ";A$;" ";O|
000006D0: 50 24 3B 22 20 22 3B 42 24 3B 22 3F 20 22 3B 00 |P$;" ";B$;"? ";.|
000006E0: E8 0E DA 02 8D 39 36 30 00 F7 0E E4 02 8B 41 4E |.....960......AN|
000006F0: B3 B1 43 A7 37 36 30 00 16 0F EE 02 99 22 20 43 |..C.760......" C|
00000700: 4F 52 52 45 43 54 22 3A 58 B2 2E 35 3A 8D 39 34 |ORRECT":X..5:.94|
00000710: 30 3A 89 33 38 30 00 32 0F F8 02 99 22 91 20 57 |0:.380.2....". W|
00000720: 52 4F 4E 47 20 21 20 20 49 54 20 57 41 53 20 22 |RONG ! IT WAS "|
00000730: 3B 43 00 50 0F 02 03 58 B2 31 3A 8D 39 34 30 3A |;C.P...X.1:.940:|
00000740: 99 56 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 |.VT$;SP$;SP$;VT$|
00000750: 00 59 0F 0C 03 89 35 32 30 00 73 0F 16 03 8F 20 |.Y....520.s.... |
00000760: 2A 2A 2A 20 45 4E 44 20 4F 46 20 47 41 4D 45 20 |*** END OF GAME |
00000770: 2A 2A 2A 00 8F 0F 20 03 54 32 B2 54 49 3A 99 56 |***... .T2.TI:.V|
00000780: 54 24 3B 53 50 24 3B 53 50 24 3B 56 54 24 3B 00 |T$;SP$;SP$;VT$;.|
00000790: D8 0F 2A 03 99 22 20 57 45 4C 4C 20 44 4F 4E 45 |..*.." WELL DONE|
000007A0: 20 21 21 20 59 4F 55 20 43 4F 4D 50 4C 45 54 45 | !! YOU COMPLETE|
000007B0: 44 20 54 48 45 20 4D 41 5A 45 20 49 4E 20 22 3B |D THE MAZE IN ";|
000007C0: B5 28 28 54 32 AB 54 31 29 AD 36 30 29 3B 22 53 |.((T2.T1).60);"S|
000007D0: 45 43 4F 4E 44 53 22 3B 00 F4 0F 34 03 99 22 20 |ECONDS";...4.." |
000007E0: 2D 20 54 52 59 20 41 47 41 49 4E 20 3F 20 28 59 |- TRY AGAIN ? (Y|
000007F0: 2F 4E 29 22 00 11 10 3E 03 A1 41 24 3A 8B 41 24 |/N)"...>..A$:.A$|
00000800: B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 38 33 |.."Y".A$.."N".83|
00000810: 30 00 1F 10 48 03 8B 41 24 B2 22 59 22 A7 8A 00 |0...H..A$."Y"...|
00000820: 2A 10 52 03 99 22 93 22 3A 80 00 44 10 5C 03 8F |*.R..".":..D.\..|
00000830: 20 2A 2A 2A 20 41 57 41 49 54 20 49 4E 50 55 54 | *** AWAIT INPUT|
00000840: 20 2A 2A 2A 00 57 10 66 03 A1 41 24 3A 8B 41 24 | ***.W.f..A$:.A$|
00000850: B2 22 22 A7 39 31 30 00 66 10 70 03 81 5A B2 31 |."".910.f.p..Z.1|
00000860: A4 C3 28 5A 24 29 00 7A 10 7A 03 8B CA 28 5A 24 |..(Z$).z.z...(Z$|
00000870: 2C 5A 2C 31 29 B2 41 24 A7 8E 00 86 10 84 03 82 |,Z,1).A$........|
00000880: 5A 3A 89 38 37 30 00 9C 10 8E 03 97 50 4C 2C 33 |Z:.870......PL,3|
00000890: 32 3A 58 B2 2E 30 31 3A 8D 39 34 30 00 B2 10 98 |2:X..01:.940....|
000008A0: 03 97 50 4C 2C 34 32 3A 58 B2 2E 30 31 3A 8D 39 |..PL,42:X..01:.9|
000008B0: 34 30 00 BB 10 A2 03 89 38 37 30 00 D8 10 AC 03 |40......870.....|
000008C0: 8F 20 2A 2A 20 44 45 4C 41 59 20 58 20 53 45 43 |. ** DELAY X SEC|
000008D0: 4F 4E 44 53 20 2A 2A 2A 00 ED 10 B6 03 81 54 B2 |ONDS ***......T.|
000008E0: 31 A4 58 AC 31 30 30 30 3A 82 54 3A 8E 00 13 11 |1.X.1000:.T:....|
000008F0: C0 03 8F 20 2A 2A 2A 20 41 57 41 49 54 20 47 45 |... *** AWAIT GE|
00000900: 54 53 20 55 4E 54 49 4C 20 52 45 54 55 52 4E 20 |TS UNTIL RETURN |
00000910: 2A 2A 2A 00 1C 11 CA 03 41 4E B2 30 00 3F 11 D4 |***.....AN.0.?..|
00000920: 03 5A 24 B2 22 30 31 32 33 34 35 36 37 38 39 22 |.Z$."0123456789"|
00000930: AA 52 45 24 AA C7 28 32 30 29 3A 8D 38 36 30 00 |.RE$..(20):.860.|
00000940: 67 11 DE 03 8B 5A B2 31 32 AF 41 4E B1 30 A7 99 |g....Z.12.AN.0..|
00000950: C7 28 32 30 29 3B 3A 41 4E B2 B5 28 41 4E AD 31 |.(20);:AN..(AN.1|
00000960: 30 29 3A 89 39 38 30 00 75 11 E8 03 8B 5A B2 31 |0):.980.u....Z.1|
00000970: 32 A7 39 38 30 00 86 11 F2 03 99 41 24 3B 3A 8B |2.980......A$;:.|
00000980: 5A B2 31 31 A7 8E 00 A4 11 FC 03 41 4E B2 41 4E |Z.11.......AN.AN|
00000990: AC 31 30 AA 5A AB 31 3A 44 45 B2 44 45 AA 31 3A |.10.Z.1:DE.DE.1:|
000009A0: 89 39 38 30 00 00 00 2D C1 |.980...-. |
..).D.. ** MATHS MAZE MODIFIED FOR THE *
*.Q.N.. * COMMODORE 64 BY D.HALL FEB 83
*.Y.X.. ********************************
*...... *** INITIALIZE ***.....RE$.G(13)
:QU$.G(34).J...VT$."....................
."... .SP$."
".......R(X)..(.(1).X.1).....P
L.1225.6.... *** DRAW MAZE ***.@.H.T1.TI
.\.R..53280,8:.53281,0:."..".Z...."
..W.."......" ..
W.. ..W..".A...." ..W.. ..W.
. ..W........" ..W.. ..W.. ..W
.. ..W........" ..W.. ..W.. ..W..
..W.. ..W..Z".C...." ..W.. ..W
.. ..W.. ..W..".I...." ..W..
..W.. ...W."...".." ..W
.. ..W.."...,.." ..W..
"...6.." N".C.@.." .".S.J.." W C.C
E"...T.." ."...^.." S...H.. *** S
ET UP INITIAL POSITION ***...R.PL.1225:P
P.B(PL):.PL,42.A.|.. *** MOVE ***.O....V
T$;SP$;SP$;SP$;VT$;" WHICH DIRECTION ?".
....Z$."NSEW":.860.....MV.E(J("-40+40+01
-01",Z.3.2,3)).J....PL,PP:PL.PL.MV:PP.B(
PL):.PL,42...... *** ACCESS MOVE ***....
..PP.90.790...B..PP.32.480...L..PP.102.3
80...V..520.:.... *** FELL OF THE PATH *
**.O....VT$;SP$;SP$;VT$;" OH DEAR YOU FE
LL OF THE PATH"......" BACK TO START !!
".....X.2:.940:.210...... *** SELECT PRO
BLEM ***.Y...PT..R(4):.PT.540,560,590,62
0...... *** ADD ***...&.A..R(9):B..R(9):
C.A.B:OP$."+":.680.).0.. *** SUBTRACT **
*.O.:.A..R(99):B..R(9):.B.A.F.A:A.B:B.F.
F.D.C.A.B:OP$."-":.680.}.N.. *** MULTIPL
Y ***...X.A..R(9):B..R(9)...B.C.A.B:OP$.
"*":.680.D.L.. *** RANDOM DIGITS ***...V
..VT$;SP$;SP$;VT$;" ADD THESE NUMBERS ";
.....X.2:.940:C.0......I.1.3:DP..R(9):DP
.5.DP.G...X..R(9):.1880.DP,X.48:C.C.X:X.
.8:.940._....1880.DP,32:.I:.730.~.... **
* SET THE PROBLEMS ***......VT$;SP$;SP$;
VT$;.....A$.J(D(A),2)...F.B$.J(D(B),2)..
.P.." WHAT IS ";A$;" ";OP$;" ";B$;"? ";.
..Z..960......AN..C.760......" CORRECT":
X..5:.940:.380.2....". WRONG ! IT WAS "
;C.P...X.1:.940:.VT$;SP$;SP$;VT$.Y....52
0.S.... *** END OF GAME ***... .T2.TI:.V
T$;SP$;SP$;VT$;.X.*.." WELL DONE !! YOU
COMPLETED THE MAZE IN ";.((T2.T1).60);"S
ECONDS";...4.." - TRY AGAIN ? (Y/N)"...>
..A$:.A$.."Y".A$.."N".830...H..A$."Y"...
*.R..".":..D.\.. *** AWAIT INPUT ***.W.F
..A$:.A$."".910.F.P..Z.1.C(Z$).Z.Z..J(Z$
,Z,1).A$........Z:.870......PL,32:X..01:
.940......PL,42:X..01:.940......870.X...
. ** DELAY X SECONDS ***......T.1.X.1000
:.T:....... *** AWAIT GETS UNTIL RETURN
***...J.AN.0.?.T.Z$."0123456789".RE$.G(2
0):.860.G....Z.12.AN.0..G(20);:AN..(AN.1
0):.980.U....Z.12.980......A$;:.Z.11....
...AN.AN.10.Z.1:DE.DE.1:.980...-A
> CLICK IMAGE PREVIEW FOR FULL MODAL