LAZER MATH.C3
FILE INFORMATION
FILENAME(S): LAZER MATH.C3
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 01:08:42
APPEARS ON: 2 disk(s)
FILE HASH
8bf73974590df47af75b5fcf0fa9d160ffb11dfa3d512d8a4d04231003f474f6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | LAZER MATH.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 5 | 2 | DOWNLOAD FILE |
| L EHRNEN | LAZER MATH.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....| 00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY | 00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....| 00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .| 00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....| 00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh| 00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`| 00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh| 00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4| 00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU| 000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **| 000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO| 000000C0: 55 54 49 4E 45 20 2A 2A 00 E4 08 23 00 8F 20 2B |UTINE **...#.. +| 000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION| 000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U| 000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*| 00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 1F 09 2D |..UL.0.UL.80...-| 00000110: 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 |.." ..";:.UC,0.| 00000120: 33 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |3.2..UI$:.UI$.""| 00000130: A7 35 30 00 5D 09 37 00 8B 55 49 24 B2 C7 28 31 |.50.].7..UI$..(1| 00000140: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC| 00000150: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 70 09 |,1:." .";:.85.p.| 00000160: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105| 00000170: 00 84 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U| 00000180: 4C A7 35 30 00 A9 09 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. | 00000190: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID | 000001A0: 43 48 41 52 41 43 54 45 52 00 B9 09 46 00 55 52 |CHARACTER...F.UR| 000001B0: 24 B2 55 52 24 AA 55 49 24 00 C3 09 4B 00 99 55 |$.UR$.UI$...K..U| 000001C0: 49 24 3B 00 CB 09 50 00 89 35 30 00 F0 09 55 00 |I$;...P..50...U.| 000001D0: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR | 000001E0: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++| 000001F0: 00 18 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |...Z..UR$.UX$.19| 00000200: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP| 00000210: 20 52 4F 55 54 49 4E 45 00 27 0A 5F 00 8B 55 46 | ROUTINE.'._..UF| 00000220: B2 31 A7 8D 32 34 30 00 34 0A 64 00 55 46 B2 30 |.1..240.4.d.UF.0| 00000230: 3A 99 3A 8E 00 4D 0A 66 00 8F 20 2B 2B 20 43 48 |:.:..M.f.. ++ CH| 00000240: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 5E 0A |ECK DELETE ++.^.| 00000250: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 76 |i...(UR$).1.50.v| 00000260: 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U| 00000270: 52 24 29 AB 31 29 00 88 0A 73 00 99 22 9D 20 20 |R$).1)...s..". | 00000280: 9D 9D 22 3B 3A 89 35 30 00 AF 0A 78 00 8F 20 2B |..";:.50...x.. +| 00000290: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI| 000002A0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.| 000002B0: C1 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15| 000002C0: 30 00 D1 0A 7F 00 55 53 24 B2 55 53 24 AA 55 58 |0.....US$.US$.UX| 000002D0: 24 00 E2 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |$......US.1..(US| 000002E0: 24 29 00 F9 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US| 000002F0: 24 2C 55 53 2C 31 29 A7 8E 00 FF 0A 8C 00 82 00 |$,US,1).........| 00000300: 0C 0B 91 00 55 49 24 B2 22 22 3A 8E 00 27 0B 96 |....UI$."":..'..| 00000310: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I| 00000320: 4E 50 55 54 20 2A 2A 00 38 0B 98 00 8B C6 28 55 |NPUT **.8.....(U| 00000330: 49 24 29 B2 34 36 A7 8E 00 49 0B 9B 00 8B 55 49 |I$).46...I....UI| 00000340: 24 B2 C7 28 33 32 29 A7 8E 00 66 0B A0 00 8B C6 |$..(32)...f.....| 00000350: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).| 00000360: 35 37 A7 31 37 30 00 6C 0B A5 00 8E 00 89 0B AA |57.170.l........| 00000370: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI| 00000380: 24 29 B1 39 30 A7 31 38 30 00 8F 0B AF 00 8E 00 |$).90.180.......| 00000390: B3 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.| 000003A0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."| 000003B0: 22 3A 8E 00 D6 0B B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U| 000003C0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).| 000003D0: 31 32 38 29 3A 8E 00 DC 0B BB 00 8E 00 E9 0B BE |128):...........| 000003E0: 00 55 49 24 B2 22 22 3A 8E 00 0E 0C C3 00 55 46 |.UI$."":......UF| 000003F0: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO| 00000400: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 17 |UTINE EXIT +++..| 00000410: 0C C5 00 8D 32 35 30 00 20 0C C8 00 8D 32 34 35 |....250. ....245| 00000420: 00 32 0C CD 00 81 55 51 B2 55 42 A4 55 42 AA 39 |.2....UQ.UB.UB.9| 00000430: 32 35 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |25.N...UQ%(UQ.UB| 00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a| 00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT| 00000460: 29 00 6A 0C D8 00 89 33 30 30 00 8F 0C D9 00 55 |).j....300.....U| 00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.| 00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 |UK$:UP.UJ:UL.UK.| 00000490: C6 0C DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.| 000004A0: 97 35 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 |.53281,1:.".";:.| 000004B0: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1| 000004C0: 34 3A 89 32 32 30 00 D0 0C DB 00 99 22 93 22 3B |4:.220......".";| 000004D0: 00 FF 0C DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 |.....UT$.UL$:.UT| 000004E0: 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 |,UV%:.UQ.UB.(U2%| 000004F0: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 |.256.U1%.U3%.3).| 00000500: 14 0D E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 |.....UQ,UQ%(UQ.U| 00000510: 42 29 3A 82 00 20 0D E6 00 97 55 31 2C 55 31 25 |B):.. ....U1,U1%| 00000520: 00 2C 0D E8 00 97 55 32 2C 55 32 25 00 38 0D E9 |.,....U2,U2%.8..| 00000530: 00 97 55 34 2C 55 34 25 00 44 0D EA 00 97 55 33 |..U4,U4%.D....U3| 00000540: 2C 55 33 25 00 4E 0D EB 00 89 31 31 34 30 00 80 |,U3%.N....1140..| 00000550: 0D F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 |...UD%.((U2%.256| 00000560: AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 |.U1%.U3%).UB).40| 00000570: 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E |:..(UD$,UD%.1):.| 00000580: 00 BB 0D F5 00 99 C8 28 55 44 24 2C 32 34 29 3B |.......(UD$,24);| 00000590: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000005A0: 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F | . HELP CO| 000005B0: 4D 49 4E 47 20 92 20 20 22 3A 8E 00 E7 0D FA 00 |MING . ":......| 000005C0: 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 |U1%..(U1):U2%..(| 000005D0: 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 |U2):U3%..(U3):U4| 000005E0: 25 B2 C2 28 55 34 29 00 0F 0E FB 00 55 4A 24 B2 |%..(U4).....UJ$.| 000005F0: 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 |US$:UK$.UG$:UL$.| 00000600: 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 |UT$:UJ.UP:UK.UL.| 00000610: 15 0E FF 00 8E 00 26 0E 2C 01 8F 20 2A 2A 20 4D |......&.,.. ** M| 00000620: 45 4E 55 20 2A 2A 00 2C 0E 2D 01 3A 00 5B 0E 2E |ENU **.,.-.:.[..| 00000630: 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 |..".":.UT,UU%:..| 00000640: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 00000650: 2C 39 3A 97 35 33 32 38 30 2C 38 00 61 0E 2F 01 |,9:.53280,8.a./.| 00000660: 3A 00 7E 0E 31 01 99 22 13 20 20 20 20 20 20 20 |:.~.1..". | 00000670: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 AD | MENU"..| 00000680: 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.6.." ----------| 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 CD 0E |------------"...| 000006B0: 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 |;..".. 1. | 000006C0: 20 20 4C 41 5A 45 52 20 4D 41 54 48 22 00 F7 0E | LAZER MATH"...| 000006D0: 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 |@..".. 2. | 000006E0: 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 | STUDENT INSTRU| 000006F0: 43 54 49 4F 4E 53 22 00 21 0F 45 01 99 22 11 11 |CTIONS".!.E.."..| 00000700: 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 | 3. TEAC| 00000710: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS| 00000720: 22 00 3D 0F 4F 01 99 22 11 11 20 20 20 20 20 20 |".=.O..".. | 00000730: 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 6C 0F | 4. QUIT..".l.| 00000740: 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T.." -----------| 00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 97 0F 59 |-----------"...Y| 00000770: 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 |..".. PRES| 00000780: 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 |S A NUMBER KEY (| 00000790: 31 2D 34 29 20 22 3B 00 BF 0F 5E 01 55 4C B2 31 |1-4) ";...^.UL.1| 000007A0: 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A |:US$."1234":.35:| 000007B0: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.| 000007C0: D1 0F 5F 01 8B C3 28 55 52 24 29 B1 31 A7 33 30 |.._...(UR$).1.30| 000007D0: 30 00 DC 0F 60 01 55 53 24 B2 22 22 00 F9 0F 63 |0...`.US$.""...c| 000007E0: 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 |...(UR$).1000,40| 000007F0: 30 2C 35 30 30 2C 33 39 36 00 02 10 68 01 89 33 |0,500,396...h..3| 00000800: 30 30 00 29 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 |00.).... ** RE-E| 00000810: 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 |NABLE STOP KEY A| 00000820: 4E 44 20 45 4E 44 20 2A 2A 00 58 10 8C 01 8B C2 |ND END **.X.....| 00000830: 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 |(50003)..1..(500| 00000840: 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 |03)..160..(50003| 00000850: 29 B3 B1 30 A7 33 39 39 00 82 10 8D 01 9E 55 55 |)..0.399......UU| 00000860: AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.71:..(50003).0.| 00000870: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,| 00000880: 31 34 00 8E 10 8E 01 99 22 9A 93 22 3A 80 00 99 |14......"..":...| 00000890: 10 8F 01 8D 38 37 35 3A 8E 00 BA 10 90 01 8F 20 |....875:....... | 000008A0: 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 |** STUDENT INSTR| 000008B0: 55 43 54 49 4F 4E 53 20 2A 2A 00 C3 10 92 01 99 |UCTIONS **......| 000008C0: 22 93 22 00 F2 10 95 01 99 22 93 22 3A 97 55 54 |"."......".":.UT| 000008D0: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0| 000008E0: A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280| 000008F0: 2C 30 00 13 11 9A 01 55 50 B2 30 3A 55 47 24 B2 |,0.....UP.0:UG$.| 00000900: 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D |".TUDENT .NST":.| 00000910: 38 35 30 00 1D 11 A4 01 8D 31 35 32 30 00 26 11 |850......1520.&.| 00000920: C7 01 8D 38 35 30 00 56 11 DB 01 99 22 11 11 1D |...850.V...."...| 00000930: 1D 1D 1D 1D C9 46 20 41 54 20 41 4E 59 20 54 49 |.....F AT ANY TI| 00000940: 4D 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 |ME YOU WISH TO R| 00000950: 45 54 55 52 4E 22 00 74 11 E0 01 99 22 11 20 54 |ETURN".t....". T| 00000960: 4F 20 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 |O THE .... PRESS| 00000970: 20 48 20 22 00 7D 11 E5 01 8D 38 33 35 00 91 11 | H ".}....835...| 00000980: EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |...UZ.1..UP%:.21| 00000990: 37 00 97 11 F3 01 8E 00 B8 11 F4 01 8F 20 2A 2A |7............ **| 000009A0: 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 | TEACHER INSTRUC| 000009B0: 54 49 4F 4E 53 20 2A 2A 00 E8 11 F5 01 99 22 93 |TIONS **......".| 000009C0: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500| 000009D0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 |03).0..53281,2:.| 000009E0: 35 33 32 38 30 2C 31 30 00 09 12 F6 01 55 50 B2 |53280,10.....UP.| 000009F0: 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 |0:UG$.".EACHER .| 00000A00: 4E 53 54 22 3A 8D 38 35 30 00 37 12 F7 01 99 22 |NST":.850.7...."| 00000A10: 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 |.. .O THE B| 00000A20: 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C |EST OF OUR KNOWL| 00000A30: 45 44 47 45 2C 11 22 00 60 12 F8 01 99 22 20 20 |EDGE,.".`...." | 00000A40: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS| 00000A50: 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 | IN THE PUBLIC."| 00000A60: 00 8C 12 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E |......" DOMAIN| 00000A70: 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F |. .F THIS IS NO| 00000A80: 54 20 54 48 45 20 43 41 53 45 11 22 00 A9 12 FA |T THE CASE."....| 00000A90: 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E |.." PLEASE CON| 00000AA0: 54 41 43 54 3A 11 11 11 22 00 D3 12 FB 01 99 22 |TACT:..."......"| 00000AB0: 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | .OMMODORE | 00000AC0: C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 |.USINESS .ACHINE| 00000AD0: 53 11 22 00 F6 12 FC 01 99 22 20 20 20 20 20 20 |S."......" | 00000AE0: 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 | 3370 .HARMAC| 00000AF0: 59 20 C1 56 45 2E 00 1A 13 FD 01 99 22 20 20 20 |Y .VE......." | 00000B00: 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 | .GINCOURT| 00000B10: 2C 20 CF 4E 54 41 52 49 4F 22 00 3C 13 FE 01 99 |, .NTARIO".<....| 00000B20: 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 |" .ANAD| 00000B30: 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 5C 13 FF |A .1. 2.4".\..| 00000B40: 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 |.." (41| 00000B50: 36 29 20 34 39 39 2D 34 32 39 32 22 00 72 13 00 |6) 499-4292".r..| 00000B60: 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 |.UP.1:. 835:. 85| 00000B70: 30 3A 00 99 13 01 02 99 22 20 20 20 20 20 11 11 |0:......" ..| 00000B80: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 CC 41 |.ROGRAM .AME: .A| 00000B90: 5A 45 52 20 4D 41 54 48 11 00 C0 13 02 02 99 22 |ZER MATH......."| 00000BA0: 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 | .RITTEN .Y | 00000BB0: 20 3A 20 CA 4F 48 4E 20 C3 48 45 4C 4C 45 57 11 | : .OHN .HELLEW.| 00000BC0: 00 E9 13 03 02 99 22 20 20 20 20 20 D5 50 47 52 |......" .PGR| 00000BD0: 41 44 45 44 20 C2 59 20 3A 20 D3 54 45 50 48 45 |ADED .Y : .TEPHE| 00000BE0: 4E 20 C6 45 4E 54 4F 4E 11 00 14 14 04 02 99 22 |N .ENTON......."| 00000BF0: 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 | ..HIS PROGR| 00000C00: 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 |AM WILL RUN ON A| 00000C10: 4E 59 11 11 00 34 14 07 02 99 22 20 20 20 20 20 |NY...4...." | 00000C20: 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 | ... 64 .....| 00000C30: D4 C5 D2 11 00 59 14 08 02 99 22 20 20 20 20 20 |.....Y...." | 00000C40: 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 | ......... 64| 00000C50: 20 C3 CF CD D0 D5 D4 C5 D2 00 62 14 09 02 8D 38 | .........b....8| 00000C60: 33 35 00 76 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 |35.v.N..UZ.1..UP| 00000C70: 25 3A 89 32 31 37 00 7C 14 57 02 8E 00 A2 14 58 |%:.217.|.W.....X| 00000C80: 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F |.. ** PROGRAM MO| 00000C90: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 |DIFICATION INST | 00000CA0: 2A 2A 00 B3 14 59 02 99 22 93 22 3A 97 55 54 2C |**...Y..".":.UT,| 00000CB0: 55 4C 25 00 D3 14 5D 02 55 50 B2 30 3A 55 47 24 |UL%...].UP.0:UG$| 00000CC0: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.| 00000CD0: 38 35 30 00 DC 14 94 02 8D 38 33 35 00 F0 14 B2 |850......835....| 00000CE0: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217| 00000CF0: 00 F6 14 BB 02 8E 00 1B 15 BC 02 8F 20 2A 2A 20 |............ ** | 00000D00: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD| 00000D10: 20 43 42 4D 34 30 33 32 20 2A 2A 00 51 15 C6 02 | CBM4032 **.Q...| 00000D20: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU| 00000D30: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR| 00000D40: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .| 00000D50: 11 00 87 15 D0 02 99 22 20 20 20 20 20 20 4C 4F |......." LO| 00000D60: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032| 00000D70: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......| 00000D80: 11 11 11 11 11 11 22 00 92 15 DA 02 9E 55 55 AA |......"......UU.| 00000D90: 37 31 00 98 15 E4 02 80 00 BD 15 1D 03 8F 20 2A |71............ *| 00000DA0: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO| 00000DB0: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 08 16 |AD CBM4032 **...| 00000DC0: 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 |..."....BEFORE R| 00000DD0: 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 |UNNING THIS PROG| 00000DE0: 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 |RAM ON AN 8032 | 00000DF0: 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 |..LOAD CBM 4032 | 00000E00: 50 52 4F 47 52 41 4D 22 00 14 16 1F 03 9E 31 30 |PROGRAM"......10| 00000E10: 39 33 3A 80 00 34 16 20 03 8F 20 2A 2A 20 54 20 |93:..4. .. ** T | 00000E20: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G | 00000E30: 45 20 2A 2A 00 68 16 22 03 99 22 93 11 1D 05 22 |E **.h.".."...."| 00000E40: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500| 00000E50: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:| 00000E60: 97 35 33 32 38 31 2C 36 00 7E 16 24 03 81 49 B2 |.53281,6.~.$..I.| 00000E70: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 96 |1.38:."...";:...| 00000E80: 16 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...| 00000E90: A6 92 22 3B 3A 82 00 AE 16 28 03 81 49 B2 31 A4 |..";:....(..I.1.| 00000EA0: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 C6 |37:.".....";:...| 00000EB0: 16 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...| 00000EC0: A6 92 22 3B 3A 82 00 EB 16 2C 03 99 22 13 11 11 |..";:....,.."...| 00000ED0: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000EE0: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 0D 17 2E 03 |........ ......| 00000EF0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 00000F00: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 2E 17 |..... . . .....| 00000F10: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............| 00000F20: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 4C |....... . ....L| 00000F30: 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........| 00000F40: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 74 17 34 |......... ..t.4| 00000F50: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............| 00000F60: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R| 00000F70: 20 45 11 11 00 97 17 36 03 99 22 1D 1D 1D 1D 1D | E.....6..".....| 00000F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT| 00000F90: 49 4F 4E 41 4C 11 11 00 B6 17 38 03 99 22 1D 1D |IONAL.....8.."..| 00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO| 00000FB0: 46 54 57 41 52 45 00 D1 17 3A 03 8F 20 2A 2A 20 |FTWARE...:.. ** | 00000FC0: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *| 00000FD0: 2A 00 09 18 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*...;...(UD$,24)| 00000FE0: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES| 00000FF0: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W| 00001000: 41 49 54 92 22 3A 49 B2 30 00 2B 18 3C 03 A1 41 |AIT.":I.0.+.<..A| 00001010: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1| 00001020: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 4F 18 3E 03 |:.I.250.828.O.>.| 00001030: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3| 00001040: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.| 00001050: 58 18 40 03 89 33 30 30 00 74 18 43 03 8F 20 2A |X.@..300.t.C.. *| 00001060: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES| 00001070: 53 20 2A 2A 00 AF 18 48 03 97 55 4F 2C 30 3A 99 |S **...H..UO,0:.| 00001080: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....| 00001090: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA| 000010A0: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |R TO CONTINUE.".| 000010B0: C6 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |..L..UI$:.UI$.."| 000010C0: 20 22 A7 38 34 34 00 CC 18 4E 03 8E 00 EC 18 52 | ".844...N.....R| 000010D0: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG| 000010E0: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 F8 18 54 |N ROUTINE **...T| 000010F0: 03 55 50 B2 55 50 AA 31 00 22 19 57 03 99 22 93 |.UP.UP.1.".W..".| 00001100: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.| 00001110: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1| 00001120: 38 29 00 51 19 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8).Q.\.." ------| 00001130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001150: 22 00 60 19 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |".`.`..UH..0.870| 00001160: 00 94 19 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |...a...(UD$,24);| 00001170: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -| 00001180: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU| 00001190: 52 4E 3E 22 00 A6 19 66 03 97 55 4F 2C 30 3A 99 |RN>"...f..UO,0:.| 000011A0: 22 13 11 22 3A 8E 00 C5 19 6B 03 8F 20 2A 2A 20 |"..":....k.. ** | 000011B0: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA| 000011C0: 52 4B 20 2A 2A 00 FB 19 70 03 99 C8 28 55 44 24 |RK **...p...(UD$| 000011D0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" | 000011E0: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA| 000011F0: 53 45 2E 2E 2E 20 20 20 20 20 22 00 01 1A 75 03 |SE... "...u.| 00001200: 8E 00 1E 1A 84 03 8F 20 2A 2A 20 53 45 54 20 55 |....... ** SET U| 00001210: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 69 |P VARIABLES **.i| 00001220: 1A 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |...UX$."H":.UQ%(| 00001230: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U| 00001240: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.| 00001250: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16| 00001260: 37 3A 55 55 B2 31 30 32 34 00 A7 1A 86 03 55 54 |7:UU.1024.....UT| 00001270: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL| 00001280: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM| 00001290: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. | 000012A0: 35 30 30 30 33 2C 30 00 EA 1A 87 03 8B C2 28 35 |50003,0.......(5| 000012B0: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:| 000012C0: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3| 000012D0: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2| 000012E0: 30 34 3A 55 55 B2 32 30 34 38 00 29 1B 88 03 8B |04:UU.2048.)....| 000012F0: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53| 00001300: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2| 00001310: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10| 00001320: 32 34 3A 55 4F B2 31 39 38 00 4D 1B 89 03 55 44 |24:UO.198.M...UD| 00001330: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00001340: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 7F 1B |............"...| 00001350: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." | 00001360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00001380: A5 1B 8B 03 55 54 24 B2 22 20 CC C1 DA C5 D2 20 |....UT$." ..... | 00001390: CD C1 D4 C8 22 3A 8F 20 50 52 4F 47 52 41 4D 20 |....":. PROGRAM | 000013A0: 54 49 54 4C 45 00 B3 1B 8C 03 86 47 47 28 32 30 |TITLE......GG(20| 000013B0: 29 3A 8E 00 CD 1B 8E 03 8F 20 2A 2A 20 53 45 54 |):....... ** SET| 000013C0: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 D6 1B | VARIABLES **...| 000013D0: 93 03 8D 39 30 30 00 DC 1B 94 03 3A 00 E2 1B 95 |...900.....:....| 000013E0: 03 3A 00 FD 1B 98 03 8F 20 2A 2A 20 43 48 45 43 |.:...... ** CHEC| 000013F0: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 1B 1C |K FOR 8032 **...| 00001400: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH| 00001410: 49 46 54 45 44 20 53 50 41 43 45 00 32 1C A2 03 |IFTED SPACE.2...| 00001420: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7| 00001430: 30 30 00 4B 1C A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00.K.... ** MEMO| 00001440: 52 59 20 43 48 45 43 4B 20 2A 2A 00 5F 1C A4 03 |RY CHECK **._...| 00001450: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.| 00001460: 8D 1C A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |....."....THIS M| 00001470: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT | 00001480: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 B1 1C |HAVE ENOUGH."...| 00001490: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU| 000014A0: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !| 000014B0: 22 00 BC 1C A7 03 9E 55 55 AA 37 31 00 C2 1C A8 |"......UU.71....| 000014C0: 03 80 00 DC 1C A9 03 99 22 93 05 22 3A 8B C2 28 |........"..":..(| 000014D0: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 0B 1D AC |50003).0.962....| 000014E0: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 | 000014F0: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-| 00001500: 36 34 20 53 45 54 55 50 20 2A 2A 00 49 1D AD 03 |64 SETUP **.I...| 00001510: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,| 00001520: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1| 00001530: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:| 00001540: 97 31 30 38 31 2C 31 34 35 00 7F 1D AE 03 97 31 |.1081,145......1| 00001550: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13| 00001560: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110| 00001570: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.| 00001580: A1 1D AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |.....1104,145:.1| 00001590: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23| 000015A0: 34 00 B8 1D B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.......(50003).| 000015B0: B1 31 36 30 A7 39 35 35 00 E7 1D B6 03 97 31 30 |.160.955......10| 000015C0: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:| 000015D0: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2| 000015E0: 32 38 3A 89 39 36 35 00 FC 1D BB 03 8B C2 28 35 |28:.965.......(5| 000015F0: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 2B 1E C0 |0003)..1.990.+..| 00001600: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,| 00001610: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11| 00001620: 30 32 2C 32 33 30 3A 89 39 36 35 00 65 1E C2 03 |02,230:.965.e...| 00001630: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,| 00001640: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103| 00001650: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21| 00001660: 30 35 2C 32 31 00 A1 1E C3 03 97 32 31 30 36 2C |05,21......2106,| 00001670: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211| 00001680: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.| 00001690: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14| 000016A0: 31 00 DB 1E C4 03 97 32 31 32 33 2C 32 30 3A 97 |1......2123,20:.| 000016B0: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234| 000016C0: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128| 000016D0: 2C 32 31 3A 97 32 31 32 39 2C 33 00 F9 1E C5 03 |,21:.2129,3.....| 000016E0: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE| 000016F0: 20 53 54 4F 50 20 4B 45 59 00 0A 1F CA 03 8D 38 | STOP KEY......8| 00001700: 30 30 3A 8F 20 54 49 54 4C 45 00 1A 1F D4 03 89 |00:. TITLE......| 00001710: 33 30 30 3A 8F 20 4D 45 4E 55 00 4B 1F DE 03 99 |300:. MENU.K....| 00001720: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N| 00001730: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS | 00001740: 4D 41 43 48 49 4E 45 21 22 3A 80 00 80 1F E8 03 |MACHINE!":......| 00001750: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:| 00001760: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA| 00001770: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **| 00001780: 00 AC 1F E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |......"..";:.:..| 00001790: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 000017A0: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 B2 1F 4C |,6:.53280,14...L| 000017B0: 04 8F 00 BC 1F 56 04 89 31 33 35 30 00 DF 1F 60 |.....V..1350...`| 000017C0: 04 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 000017D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................| 000017E0: 02 20 6A 04 8F 2E 2E 2E 2E 2E 2E 47 45 54 53 20 |. j........GETS | 000017F0: 41 4E 53 57 45 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ANSWER..........| 00001800: 2E 2E 00 0B 20 74 04 A1 52 52 24 00 1D 20 79 04 |.... t..RR$.. y.| 00001810: 8B 52 52 24 B2 22 48 22 A7 8D 31 39 35 00 31 20 |.RR$."H"..195.1 | 00001820: 7A 04 8B 52 52 24 B2 C7 28 31 33 29 89 31 31 39 |z..RR$..(13).119| 00001830: 30 00 41 20 7E 04 53 53 24 B2 53 53 24 AA 52 52 |0.A ~.SS$.SS$.RR| 00001840: 24 00 63 20 88 04 8B 52 52 24 B2 22 20 22 A7 99 |$.c ...RR$." "..| 00001850: 57 57 24 22 20 20 20 20 20 20 20 22 3A 53 53 24 |WW$" ":SS$| 00001860: B2 22 22 00 70 20 92 04 99 57 57 24 3B 53 53 24 |."".p ...WW$;SS$| 00001870: 00 76 20 A6 04 8E 00 99 20 B0 04 8F 2E 2E 2E 2E |.v ..... .......| 00001880: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001890: 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 BC 20 BA 04 8F 2E |........... ....| 000018A0: 2E 2E 2E 2E 57 52 49 54 45 53 20 45 51 55 41 54 |....WRITES EQUAT| 000018B0: 49 4F 4E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 D2 20 C4 |ION........... .| 000018C0: 04 41 B2 B5 28 BB 28 54 49 29 AC 39 AE 51 51 AA |.A..(.(TI).9.QQ.| 000018D0: 31 29 00 E8 20 CE 04 42 B2 B5 28 BB 28 54 49 29 |1).. ..B..(.(TI)| 000018E0: AC 39 AE 51 51 AA 31 29 00 F2 20 D8 04 43 B2 41 |.9.QQ.1).. ..C.A| 000018F0: AA 42 00 19 21 E2 04 99 22 13 11 11 11 11 11 11 |.B..!...".......| 00001900: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... | 00001910: 22 41 22 2B 22 42 22 3D 22 00 1F 21 EC 04 8E 00 |"A"+"B"="..!....| 00001920: 43 21 F6 04 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |C!..............| 00001930: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001940: 2E 2E 2E 00 67 21 00 05 8F 2E 2E 2E 2E 2E 2E 2E |....g!..........| 00001950: 49 46 20 50 4C 41 59 45 52 20 57 49 4E 53 2E 2E |IF PLAYER WINS..| 00001960: 2E 2E 2E 2E 2E 2E 2E 00 8E 21 0A 05 99 22 13 11 |.........!..."..| 00001970: 11 11 11 11 11 11 11 20 59 4F 55 20 42 45 41 54 |....... YOU BEAT| 00001980: 20 54 48 45 20 4C 41 5A 45 52 21 21 21 22 00 AC | THE LAZER!!!"..| 00001990: 21 14 05 99 22 20 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |!..." ..........| 000019A0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 CC 21 1E |..........."..!.| 000019B0: 05 99 22 11 11 20 41 4E 4F 54 48 45 52 20 47 41 |..".. ANOTHER GA| 000019C0: 4D 45 3F 20 28 59 2F 4E 29 20 22 3B 00 EA 21 28 |ME? (Y/N) ";..!(| 000019D0: 05 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D |.US$."YN":UL.1:.| 000019E0: 33 35 3A 42 42 24 B2 55 52 24 00 FC 21 2D 05 8B |35:BB$.UR$..!-..| 000019F0: 42 42 24 B2 22 59 22 A7 31 36 36 30 00 0B 22 32 |BB$."Y".1660.."2| 00001A00: 05 8B 42 42 24 B2 22 4E 22 A7 8E 00 15 22 3C 05 |..BB$."N"...."<.| 00001A10: 89 31 33 32 30 00 3A 22 46 05 8F 2E 2E 2E 2E 2E |.1320.:"F.......| 00001A20: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001A30: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 5F 22 50 05 8F |..........._"P..| 00001A40: 2E 2E 2E 2E 47 41 4D 45 20 48 45 41 44 49 4E 47 |....GAME HEADING| 00001A50: 20 45 54 43 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 | ETC............| 00001A60: 65 22 5A 05 8F 00 6B 22 64 05 8F 00 71 22 6E 05 |e"Z...k"d...q"n.| 00001A70: 8F 00 94 22 96 05 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E |..."............| 00001A80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001A90: 2E 2E 2E 2E 00 B7 22 A0 05 8F 2E 2E 2E 2E 2E 2E |......".........| 00001AA0: 2E 23 20 4F 46 20 44 49 47 49 54 53 2E 2E 2E 2E |.# OF DIGITS....| 00001AB0: 2E 2E 2E 2E 2E 2E 2E 00 E0 22 AA 05 99 22 93 11 |........."..."..| 00001AC0: 11 11 11 20 48 4F 57 20 4D 41 4E 59 20 44 49 47 |... HOW MANY DIG| 00001AD0: 49 54 53 20 44 4F 20 59 4F 55 20 57 49 53 48 22 |ITS DO YOU WISH"| 00001AE0: 00 01 23 B4 05 99 22 20 49 4E 20 59 4F 55 52 20 |..#..." IN YOUR | 00001AF0: 4E 55 4D 42 45 52 53 3F 20 28 31 2D 38 29 20 22 |NUMBERS? (1-8) "| 00001B00: 3B 00 27 23 BE 05 55 53 24 B2 22 31 32 33 34 35 |;.'#..US$."12345| 00001B10: 36 37 38 22 3A 55 4C B2 31 3A 8D 33 35 3A 51 51 |678":UL.1:.35:QQ| 00001B20: B2 C5 28 55 52 24 29 00 31 23 C8 05 89 31 36 37 |..(UR$).1#...167| 00001B30: 30 00 54 23 F0 05 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E |0.T#............| 00001B40: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001B50: 2E 2E 2E 2E 00 77 23 FA 05 8F 2E 2E 2E 2E 2E 2E |.....w#.........| 00001B60: 2E 49 4E 53 54 52 55 43 54 49 4F 4E 53 2E 2E 2E |.INSTRUCTIONS...| 00001B70: 2E 2E 2E 2E 2E 2E 2E 00 7D 23 04 06 8F 00 AB 23 |........}#.....#| 00001B80: 18 06 99 22 11 11 1D 20 D9 4F 55 20 57 49 4C 4C |..."... .OU WILL| 00001B90: 20 42 45 20 47 49 56 45 4E 20 41 20 53 55 4D 20 | BE GIVEN A SUM | 00001BA0: 54 4F 20 41 4E 53 57 45 52 2E 22 00 D7 23 2C 06 |TO ANSWER."..#,.| 00001BB0: 99 22 11 20 C2 55 54 20 4D 45 41 4E 57 48 49 4C |.". .UT MEANWHIL| 00001BC0: 45 20 41 20 4C 41 5A 45 52 20 42 45 41 4D 20 57 |E A LAZER BEAM W| 00001BD0: 49 4C 4C 20 42 45 22 00 F7 23 36 06 99 22 11 20 |ILL BE"..#6..". | 00001BE0: 44 45 4D 4F 4C 49 53 48 49 4E 47 20 54 48 45 20 |DEMOLISHING THE | 00001BF0: 42 4C 4F 43 4B 2E 22 00 1D 24 40 06 99 22 11 20 |BLOCK."..$@..". | 00001C00: D3 4F 20 41 4E 53 57 45 52 20 54 48 45 20 53 55 |.O ANSWER THE SU| 00001C10: 4D 20 41 53 20 46 41 53 54 20 41 53 22 00 48 24 |M AS FAST AS".H$| 00001C20: 4A 06 99 22 11 20 59 4F 55 52 20 46 49 4E 47 45 |J..". YOUR FINGE| 00001C30: 52 53 20 41 4E 44 20 4D 49 4E 44 20 57 49 4C 4C |RS AND MIND WILL| 00001C40: 20 41 4C 4C 4F 57 2E 22 00 85 24 54 06 99 22 11 | ALLOW."..$T..".| 00001C50: 11 20 CE 4F 54 45 3A 22 3A 99 22 20 12 D4 4F 20 |. .OTE:":." ..O | 00001C60: 44 45 4C 45 54 45 20 57 52 4F 4E 47 20 41 4E 53 |DELETE WRONG ANS| 00001C70: 57 45 52 2C 20 50 52 45 53 53 20 53 50 41 43 45 |WER, PRESS SPACE| 00001C80: 20 42 41 52 22 00 8E 24 68 06 8D 38 33 35 00 94 | BAR"..$h..835..| 00001C90: 24 6D 06 8E 00 9E 24 72 06 89 31 34 35 30 00 C2 |$m....$r..1450..| 00001CA0: 24 7C 06 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |$|..............| 00001CB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001CC0: 2E 2E 00 E6 24 86 06 8F 2E 2E 2E 2E 49 4E 49 54 |....$.......INIT| 00001CD0: 49 41 4C 49 5A 45 53 20 26 20 44 45 46 49 4E 45 |IALIZES & DEFINE| 00001CE0: 53 2E 2E 2E 2E 2E 00 07 25 90 06 53 53 24 B2 22 |S.......%..SS$."| 00001CF0: 22 3A 81 59 59 B2 31 A4 32 30 3A 47 47 28 59 59 |":.YY.1.20:GG(YY| 00001D00: 29 B2 30 3A 82 59 59 00 2B 25 9A 06 41 24 B2 22 |).0:.YY.+%..A$."| 00001D10: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001D20: 11 11 11 11 11 11 11 11 11 11 22 00 62 25 A4 06 |..........".b%..| 00001D30: 57 57 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |WW$."...........| 00001D40: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................| 00001D50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001D60: 1D 22 00 86 25 AE 06 8F 2E 2E 2E 2E 2E 2E 2E 2E |."..%...........| 00001D70: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001D80: 2E 2E 2E 2E 2E 2E 00 AA 25 B8 06 8F 2E 2E 2E 2E |........%.......| 00001D90: 2E 4D 41 49 4E 20 50 52 4F 47 52 41 4D 2E 2E 2E |.MAIN PROGRAM...| 00001DA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 CE 25 C2 06 8F |............%...| 00001DB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001DC0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 F2 |................| 00001DD0: 25 CC 06 8F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |%...............| 00001DE0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001DF0: 2E 2E 00 16 26 D6 06 8F 2E 2E 2E 2E 2E 2E 2E 2E |....&...........| 00001E00: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001E10: 2E 2E 2E 2E 2E 2E 00 1F 26 E0 06 99 22 93 22 00 |........&...".".| 00001E20: 2C 26 EA 06 81 41 41 B2 31 A4 32 30 00 57 26 F4 |,&...AA.1.20.W&.| 00001E30: 06 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00001E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .| 00001E50: 20 20 20 20 20 20 22 00 5F 26 FE 06 82 41 41 00 | "._&...AA.| 00001E60: 69 26 08 07 8D 31 32 30 30 00 8A 26 12 07 8F 2E |i&...1200..&....| 00001E70: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001E80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 AB 26 1C 07 8F |............&...| 00001E90: 2E 2E 2E 2E 2E 2E 4C 41 5A 45 52 20 4C 4F 4F 50 |......LAZER LOOP| 00001EA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 B8 26 26 07 |.............&&.| 00001EB0: 81 44 44 B2 31 A4 32 30 00 D1 26 30 07 8D 31 31 |.DD.1.20..&0..11| 00001EC0: 32 30 3A 8B C5 28 53 53 24 29 B2 43 89 31 32 37 |20:..(SS$).C.127| 00001ED0: 30 00 F7 26 3A 07 42 42 B2 B5 28 BB 28 54 49 29 |0..&:.BB..(.(TI)| 00001EE0: AC 32 30 AA 31 29 3A 8B 47 47 28 42 42 29 B3 B1 |.20.1):.GG(BB)..| 00001EF0: 30 A7 89 31 38 35 30 00 04 27 44 07 47 47 28 42 |0..1850..'D.GG(B| 00001F00: 42 29 B2 31 00 14 27 4E 07 43 43 B2 42 42 AC 34 |B).1..'N.CC.BB.4| 00001F10: 30 AA 55 4D 00 21 27 58 07 81 46 46 B2 30 A4 33 |0.UM.!'X..FF.0.3| 00001F20: 38 00 2F 27 62 07 97 43 43 AA 46 46 2C 36 37 00 |8./'b..CC.FF,67.| 00001F30: 37 27 6C 07 82 46 46 00 71 27 76 07 99 C8 28 41 |7'l..FF.q'v...(A| 00001F40: 24 2C 42 42 AA 31 29 3B 22 20 20 20 20 20 20 20 |$,BB.1);" | 00001F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F70: 22 00 79 27 80 07 82 44 44 00 99 27 8A 07 8F 2E |".y'...DD..'....| 00001F80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00001F90: 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 B9 27 94 07 8F 2E |...........'....| 00001FA0: 2E 2E 2E 2E 2E 2E 49 46 20 50 4C 41 59 45 52 20 |......IF PLAYER | 00001FB0: 4C 4F 53 54 2E 2E 2E 2E 2E 00 EA 27 9E 07 99 22 |LOST.......'..."| 00001FC0: 93 11 11 11 11 20 54 48 45 20 4C 41 5A 45 52 20 |..... THE LAZER | 00001FD0: 48 41 53 20 44 45 53 54 52 4F 59 45 44 20 54 48 |HAS DESTROYED TH| 00001FE0: 45 20 42 4C 4F 43 4B 21 21 21 00 17 28 A8 07 99 |E BLOCK!!!..(...| 00001FF0: 22 20 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |" ..............| 00002000: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................| 00002010: C4 C4 C4 C4 C4 C4 22 00 2C 28 B2 07 99 22 11 11 |......".,(..."..| 00002020: 11 20 22 41 22 2B 22 42 22 3D 22 43 00 4F 28 BC |. "A"+"B"="C.O(.| 00002030: 07 99 22 11 11 11 20 59 4F 55 52 20 41 4E 53 57 |.."... YOUR ANSW| 00002040: 45 52 3A 20 20 22 53 53 24 22 11 11 11 11 22 00 |ER: "SS$"....".| 00002050: 59 28 C6 07 89 31 33 31 30 00 5F 28 D0 07 80 00 |Y(...1310._(....| 00002060: 76 28 DA 07 8F 2E 2E 47 47 20 2D 41 52 52 41 59 |v(.....GG -ARRAY| 00002070: 20 4F 46 20 32 30 00 92 28 E4 07 8F 2E 2E 52 52 | OF 20..(.....RR| 00002080: 24 2D 44 49 47 49 54 53 20 4F 46 20 41 4E 53 57 |$-DIGITS OF ANSW| 00002090: 45 52 00 A4 28 EE 07 8F 2E 2E 53 53 24 2D 41 4E |ER..(.....SS$-AN| 000020A0: 53 57 45 52 00 C9 28 F8 07 8F 2E 2E 57 57 24 2D |SWER..(.....WW$-| 000020B0: 43 55 52 53 4F 52 20 54 4F 20 41 4E 53 57 45 52 |CURSOR TO ANSWER| 000020C0: 20 50 4F 53 49 54 49 4F 4E 00 E3 28 02 08 8F 2E | POSITION..(....| 000020D0: 2E 43 20 20 2D 43 4F 52 52 45 43 54 20 41 4E 53 |.C -CORRECT ANS| 000020E0: 57 45 52 00 FC 28 0C 08 8F 2E 2E 41 20 20 2D 52 |WER..(.....A -R| 000020F0: 4E 44 2E 20 23 20 54 4F 20 41 44 44 00 15 29 16 |ND. # TO ADD..).| 00002100: 08 8F 2E 2E 42 20 20 2D 52 4E 44 2E 20 23 20 54 |....B -RND. # T| 00002110: 4F 20 41 44 44 00 3A 29 20 08 8F 2E 2E 55 55 24 |O ADD.:) ....UU$| 00002120: 2D 41 4E 53 57 45 52 20 54 4F 20 22 41 4E 4F 54 |-ANSWER TO "ANOT| 00002130: 48 45 52 20 47 41 4D 45 3F 22 00 5F 29 2A 08 8F |HER GAME?"._)*..| 00002140: 2E 2E 4B 4B 24 2D 41 4E 53 57 45 52 20 54 4F 20 |..KK$-ANSWER TO | 00002150: 22 49 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 00 |"INSTRUCTIONS?".| 00002160: 83 29 34 08 8F 2E 2E 51 51 20 2D 41 4E 53 57 45 |.)4....QQ -ANSWE| 00002170: 52 20 54 4F 20 22 23 20 4F 46 20 44 49 47 49 54 |R TO "# OF DIGIT| 00002180: 53 3F 22 00 AA 29 3E 08 8F 2E 2E 4F 4F 24 2D 43 |S?"..)>....OO$-C| 00002190: 4F 4E 54 49 4E 55 45 20 41 46 54 45 52 20 49 4E |ONTINUE AFTER IN| 000021A0: 53 54 52 55 43 54 49 4F 4E 53 00 C3 29 48 08 8F |STRUCTIONS..)H..| 000021B0: 2E 2E 41 24 20 2D 48 4F 4D 45 20 41 4E 44 20 44 |..A$ -HOME AND D| 000021C0: 4F 57 4E 00 E0 29 52 08 8F 2E 2E 42 42 20 2D 52 |OWN..)R....BB -R| 000021D0: 4E 44 2E 20 49 4E 54 2E 20 31 20 54 4F 20 32 30 |ND. INT. 1 TO 20| 000021E0: 00 22 2A 5C 08 8F 2E 2E 43 43 20 2D 53 43 52 45 |."*\....CC -SCRE| 000021F0: 45 4E 20 4C 4F 43 41 54 49 4F 4E 20 4F 46 20 31 |EN LOCATION OF 1| 00002200: 27 53 54 20 32 31 20 50 4C 41 43 45 53 20 28 4E |'ST 21 PLACES (N| 00002210: 4F 54 20 49 4E 43 4C 55 44 49 4E 47 20 48 4F 4D |OT INCLUDING HOM| 00002220: 45 29 00 4E 2A 66 08 8F 2E 2E 44 44 2C 46 46 2C |E).N*f....DD,FF,| 00002230: 41 41 2C 59 59 2C 4A 4A 20 2D 20 44 4F 20 4C 4F |AA,YY,JJ - DO LO| 00002240: 4F 50 20 50 41 52 41 4D 45 54 45 52 53 2E 00 00 |OP PARAMETERS...| 00002250: 00 |. |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
...#.. +++ INPUT SECTION +++...(..UO,0:U
R$."":UI$.""...*..UL.0.UL.80...-.." .."
;:.UC,0.3.2..UI$:.UI$."".50.].7..UI$.G(1
3).C(UR$)..1..UC,1:." .";:.85.P.<..UI$.G
(20).105...>.. C(UR$)..UL.50...A..120:.
CHECK FOR VALID CHARACTER...F.UR$.UR$.UI
$.C.K..UI$;.K.P..50...U.. +++ CHECK FOR
HELP REQUEST +++...Z..UR$.UX$.195:. EXIT
TO HELP ROUTINE.'._..UF.1..240.4.D.UF.0
:.:..M.F.. ++ CHECK DELETE ++.^.I..C(UR$
).1.50.V.N.UR$.H(UR$,C(UR$).1)...S..".
..";:.50...X.. ++ CHECK FOR VALID CHARAC
TERS ++.A.}..C(US$).0.150.Q..US$.US$.UX
$......US.1.C(US$)......UI$.J(US$,US,1).
............UI$."":..'.... ** STANDARD I
NPUT **.8....F(UI$).46...I....UI$.G(32).
..F. ..F(UI$).48.F(UI$).57.170.L........
..F(UI$).65.F(UI$).90.180............F(U
I$).193.F(UI$).218.UI$."":..V....B(UT).U
U%.UI$.G(F(UI$).128):............UI$."":
....C.UF.1:. +++ HELP ROUTINE EXIT +++..
.E..250. .H..245.2.M..UQ.UB.UB.925.N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK.F.Z..B(50003).0..53281,1:.".";:.
53281,6:.53280,14:.220.P....".";.....UT$
.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3).
.....UQ,UQ%(UQ.UB):.. ....U1,U1%.,....U2
,U2%.8....U4,U4%.D....U3,U3%.N....1140..
...UD%.((U2%.256.U1%.U3%).UB).40:.H(UD$,
UD%.1):.......H(UD$,24);"
. HELP COMING . ":......U1%.B(U1
):U2%.B(U2):U3%.B(U3):U4%.B(U4).....UJ$.
US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.......&.
,.. ** MENU **.,.-.:.[....".":.UT,UU%:.B
(50003).0..53281,9:.53280,8.A./.:.~.1.."
. MENU"...6.." ----------
----------------------------".M.;.."..
1. LAZER MATH"...@..".. 2.
STUDENT INSTRUCTIONS".!.E..".. 3
. TEACHER INSTRUCTIONS".=.O.."..
4. QUIT..".L.T.." -------------------
-------------------"...Y..".. PRES
S A NUMBER KEY (1-4) ";...^.UL.1:US$."12
34":.35:. INPUT ROUTINE.Q._..C(UR$).1.30
0...`.US$.""...C..E(UR$).1000,400,500,39
6...H..300.).... ** RE-ENABLE STOP KEY A
ND END **.X....B(50003)..1.B(50003)..160
.B(50003)..0.399......UU.71:.B(50003).0.
.53281,6:.53280,14......"..":.......875:
....... ** STUDENT INSTRUCTIONS **.C....
"."......".":.UT,UL%:.B(50003).0..53281,
0:.53280,0.....UP.0:UG$."STUDENT INST":.
850......1520.&.G..850.V....".......IF A
T ANY TIME YOU WISH TO RETURN".T....". T
O THE MENU PRESS H ".}....835......UZ.1.
.UP%:.217............ ** TEACHER INSTRUC
TIONS **......".":.UT,UL%:.B(50003).0..5
3281,2:.53280,10.....UP.0:UG$."TEACHER I
NST":.850.7....".. TO THE BEST OF O
UR KNOWLEDGE,.".`...." THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF TH
IS IS NOT THE CASE."......" PLEASE CON
TACT:...".S...." COMMODORE BUSINESS
MACHINES."......" 3370 PHARMAC
Y AVE......." AGINCOURT, ONTARI
O".<...." CANADA M1W 2K4".\..
.." (416) 499-4292".R...UP.1:.
835:. 850:......" ..PROGRAM NAME: LA
ZER MATH......." WRITTEN BY : JOHN
CHELLEW......." UPGRADED BY : STEPHE
N FENTON......." .THIS PROGRAM WILL
RUN ON ANY...4...." PET 64 COMPU
TER..Y...." COMMODORE 64 COMPUTE
R.B....835.V.N..UZ.1..UP%:.217.|.W.....X
.. ** PROGRAM MODIFICATION INST **...Y..
".":.UT,UL%.S.].UP.0:UG$."PROGRAM MOD":.
850......835......UZ.1..UP%:.217........
.... ** TO USE 8032 LOAD CBM4032 **.Q.F.
.".....BEFORE RUNNING THIS PROGRAM ON AN
8032 .....P.." LOAD THE 'CBM 4032
' PROGRAM............."...Z..UU.71......
...... ** TO USE 8032 LOAD CBM4032 **...
..."....BEFORE RUNNING THIS PROGRAM ON A
N 8032 ..LOAD CBM 4032 PROGRAM"......10
93:..4. .. ** T I T L E P A G E **.H."
.."....";:.UT,UU%:.B(50003).0..53280,14:
.53281,6.~.$..I.1.38:."...";:....&..I.1.
22:.".....";:....(..I.1.37:.".....";:..F
.*..I.1.22:.".....";:....,.."...........
................ ......."..............
..... . . .....0.."...................
. ....L.2..".................... ..T.4
.."..............C O M M O D O R E.....6
.."...............EDUCATIONAL.....8.."..
..............SOFTWARE.Q.:.. ** COMMODOR
E LOGO **...;..H(UD$,24);"..........PRES
S SPACE BAR OR WAIT.":I.0.+.<..A$:.A$.."
".I.I.1:.I.250.828.O.>.T1$."":T2$."":T3
$."":T4$."":I.0.X.@..300.T.C.. ** SPACE
BAR PRESS **...H..UO,0:.H(UD$,24);".....
..PRESS SPACE BAR TO CONTINUE.".F.L..UI$
:.UI$.." ".844.L.N.....R.. ** PAGE DESIG
N ROUTINE **...T.UP.UP.1.".W.."."H(UT$.U
P$,21);I(UP$.UG$.D(UP),18).Q.\.." ------
--------------------------------".`.`..U
H..0.870...A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>"...F..UO,0:."..":..E
.K.. ** PLEASE WAIT REMARK **...P..H(UD$
,24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **.I
...UX$."H":.UQ%(1000):UB.32768:U1.196:U2
.197:U3.198:U4.216:UC.167:UU.1024.....UT
.59468:UU%.12:UL%.14:UP%.1146:UM.32768:U
O.158:. 50003,0......B(50003).0.UB.1024:
U1.209:U2.210:U3.211:U4.214:UC.204:UU.20
48.)....B(50003).0.UT.53272:UU%.21:UL%.2
3:UP%.2139:UM.1024:UO.198.M...UD$.".....
...................."....UP$."
".....UT$.
" LAZER MATH":. PROGRAM TITLE......GG(20
):..M.... ** SET VARIABLES **.V....900..
...:.....:...... ** CHECK FOR 8032 **...
...".":." ":. SHIFTED SPACE.2....B(UB.40
)..96..700.K.... ** MEMORY CHECK **._...
. .(0).2000.937......"....THIS MACHINE D
OES NOT HAVE ENOUGH."......"MEMORY TO RU
N THIS PROGRAM !"......UU.71.B..........
"..":.B(50003).0.962...... ** BASIC 2.0
OR 4.0 OR C-64 SETUP **.I....1075,13
3:.1076,144:.1077,234:.1079,4:.1080,133:
.1081,145.....1091,155:.1098,133:.1099,
144:.1100,234:.1103,133......1104,145:.1
105,234:.1082,234......B(50003)..160.955
......1093,88:.1094,228:.1097,85:.1102,2
28:.965......B(50003)..1.990.+....1093,4
9:.1094,230:.1097,46:.1102,230:.965.E.B.
.2099,141:.2100,20:.2101,3:.2103,8:.2104
,141:.2105,21...C..2106,3:.2115,145:.211
7,52:.2118,234:.2121,49:.2122,141...D..2
123,20:.2124,3:.2126,234:.2127,141:.2128
,21:.2129,3...E..UU.48:. DISABLE STOP KE
Y...J..800:. TITLE...T..300:. MENU.K....
".THE PGM WILL NOT WORK ON THIS MACHINE!
":.......UZ.1..UP%:.UP%:UZ.0:. ** PROGRA
M STARTS HERE **......"..";:.:.B(50003).
0..53281,6:.53280,14...L.....V..1350...`
................................. J.....
...GETS ANSWER.............. T..RR$.. Y.
.RR$."H"..195.1 Z..RR$.G(13).1190.A ~.SS
$.SS$.RR$.C ...RR$." "..WW$" ":SS$
."".P ...WW$;SS$.V ..... ...............
................... ........WRITES EQUAT
ION..........R D.A..(.(TI).9.QQ.1).. N.B
..(.(TI).9.QQ.1).. X.C.A.B..!...".......
............... "A"+"B"="..!....C!......
............................G!..........
IF PLAYER WINS...........!...".........
YOU BEAT THE LAZER!!!"..!..." DDDDDDDDDD
DDDDDDDDDDD".L!...".. ANOTHER GAME? (Y/N
) ";..!(.US$."YN":UL.1:.35:BB$.UR$..!-..
BB$."Y".1660.."2..BB$."N"...."<..1320.:"
F.................................._"P..
....GAME HEADING ETC............E"Z...K"
D...Q"N...."............................
......" .........# OF DIGITS............
."..."..... HOW MANY DIGITS DO YOU WISH"
..#..." IN YOUR NUMBERS? (1-8) ";.'#..US
$."12345678":UL.1:.35:QQ.E(UR$).1#H..167
0.T#.................................W#.
.........INSTRUCTIONS...........}#.....#
..."... YOU WILL BE GIVEN A SUM TO ANSWE
R.".W#,..". BUT MEANWHILE A LAZER BEAM W
ILL BE"..#6..". DEMOLISHING THE BLOCK.".
.$@..". SO ANSWER THE SUM AS FAST AS".H$
J..". YOUR FINGERS AND MIND WILL ALLOW."
..$T..".. NOTE:":." .TO DELETE WRONG ANS
WER, PRESS SPACE BAR"..$H..835..$M....$R
..1450.B$|..............................
....$.......INITIALIZES & DEFINES.......
%..SS$."":.YY.1.20:GG(YY).0:.YY.+%..A$."
..........................".B%..WW$."...
........................................
."..%...................................
%........MAIN PROGRAM..............N%B..
................................%L......
............................&V..........
........................&...".".,&...AA.
1.20.W&..." .
"._&...AA.I&...1200..&............
....................&.........LAZER LOOP
.............&&..DD.1.20.Q&0..1120:.E(SS
$).C.1270..&:.BB..(.(TI).20.1):.GG(BB)..
0..1850..'D.GG(BB).1..'N.CC.BB.40.UM.!'X
..FF.0.38./'B..CC.FF,67.7'L..FF.Q'V..H(A
$,BB.1);"
".Y'...DD..'....................
...........'..........IF PLAYER LOST....
...'..."..... THE LAZER HAS DESTROYED TH
E BLOCK!!!..(..." DDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDD".,(..."... "A"+"B"="C.O(.
.."... YOUR ANSWER: "SS$"....".Y(F..131
0._(P...V(Z....GG -ARRAY OF 20..(.....RR
$-DIGITS OF ANSWER..(.....SS$-ANSWER.I(.
....WW$-CURSOR TO ANSWER POSITION..(....
.C -CORRECT ANSWER..(.....A -RND. # TO
ADD..).....B -RND. # TO ADD.:) ....UU$
-ANSWER TO "ANOTHER GAME?"._)*....KK$-AN
SWER TO "INSTRUCTIONS?"..)4....QQ -ANSWE
R TO "# OF DIGITS?"..)>....OO$-CONTINUE
AFTER INSTRUCTIONS.C)H....A$ -HOME AND D
OWN..)R....BB -RND. INT. 1 TO 20."*\....
CC -SCREEN LOCATION OF 1'ST 21 PLACES (N
OT INCLUDING HOME).N*F....DD,FF,AA,YY,JJ
- DO LOOP PARAMETERS....
> CLICK IMAGE PREVIEW FOR FULL MODAL