BIG SUBTRACT.C2
FILE INFORMATION
FILENAME(S): BIG SUBTRACT.C2
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-11-30 01:08:42
APPEARS ON: 2 disk(s)
FILE HASH
52e7f4becfad6d1416f9c813004583933bac764e582f5a3797c536f2012bf175
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | BIG SUBTRACT.C2 | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| L EHRNEN | BIG SUBTRACT.C2 | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 01 00 89 39 31 30 00 2A 04 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 04 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 04 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 04 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 04 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 04 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 CE 04 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 04 1E 00 3A 00 F0 04 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 05 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 05 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 05 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 05 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 05 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 05 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 05 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 05 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 05 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 05 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 05 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 05 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 06 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 06 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 06 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 06 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 06 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 06 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 06 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 06 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 06 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 06 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 06 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 06 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 06 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 07 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 07 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 07 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 07 A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 07 A5 00 8E 00 |$).57.170._.....|
00000360: 7C 07 AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 07 AF |(UI$).90.180....|
00000380: 00 8E 00 A6 07 B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 07 B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 07 BB 00 8E 00 |$).128):........|
000003D0: DC 07 BE 00 55 49 24 B2 22 22 3A 8E 00 01 08 C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 08 C5 00 8D 32 35 30 00 13 08 C8 00 8D |+......250......|
00000410: 32 34 35 00 32 08 CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 08 D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 08 D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 08 D8 00 89 33 30 30 00 AD 08 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 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 00 E2 08 |81,6:.53280,6...|
000004B0: DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A |..UT$.UL$:.".";:|
000004C0: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
000004D0: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
000004E0: 33 29 00 F7 08 E1 00 97 55 51 2C 55 51 25 28 55 |3)......UQ,UQ%(U|
000004F0: 51 AB 55 42 29 3A 82 00 03 09 E6 00 97 55 31 2C |Q.UB):.......U1,|
00000500: 55 31 25 00 0F 09 E8 00 97 55 32 2C 55 32 25 00 |U1%......U2,U2%.|
00000510: 1B 09 E9 00 97 55 34 2C 55 34 25 00 29 09 EA 00 |.....U4,U4%.)...|
00000520: 97 55 33 2C 55 33 25 AB 31 00 31 09 EB 00 89 33 |.U3,U3%.1.1....3|
00000530: 35 00 63 09 F0 00 55 44 25 B2 28 28 55 32 25 AC |5.c...UD%.((U2%.|
00000540: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
00000550: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
00000560: 29 3A 8E 00 9E 09 F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
00000570: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
00000580: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
00000590: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 CA | COMING . ":...|
000005A0: 09 FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
000005B0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
000005C0: 3A 55 34 25 B2 C2 28 55 34 29 00 F2 09 FB 00 55 |:U4%..(U4).....U|
000005D0: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U|
000005E0: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.|
000005F0: 55 4C 00 F8 09 FF 00 8E 00 09 0A 2C 01 8F 20 2A |UL.........,.. *|
00000600: 2A 20 4D 45 4E 55 20 2A 2A 00 0F 0A 2D 01 3A 00 |* MENU **...-.:.|
00000610: 3E 0A 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |>....".":.UT,UU%|
00000620: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000630: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 44 |281,9:.53280,8.D|
00000640: 0A 2F 01 3A 00 61 0A 31 01 99 22 13 20 20 20 20 |./.:.a.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
00000660: 22 00 90 0A 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000690: 00 B7 0A 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000006A0: 31 2E 20 20 20 42 45 47 49 4E 20 42 49 47 20 53 |1. BEGIN BIG S|
000006B0: 55 42 54 52 41 43 54 00 E1 0A 40 01 99 22 11 11 |UBTRACT...@.."..|
000006C0: 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 | 2. STUD|
000006D0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
000006E0: 22 00 0B 0B 45 01 99 22 11 11 20 20 20 20 20 20 |"...E..".. |
000006F0: 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E | 3. TEACHER IN|
00000700: 53 54 52 55 43 54 49 4F 4E 53 22 00 27 0B 4F 01 |STRUCTIONS".'.O.|
00000710: 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 |.".. 4. |
00000720: 51 55 49 54 11 11 22 00 56 0B 54 01 99 22 20 2D |QUIT..".V.T.." -|
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 22 00 81 0B 59 01 99 22 11 11 20 |-----"...Y..".. |
00000760: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
00000770: 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 |MBER KEY (1-4) "|
00000780: 3B 00 A9 0B 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
00000790: 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |1234":.35:. INPU|
000007A0: 54 20 52 4F 55 54 49 4E 45 00 B4 0B 60 01 55 53 |T ROUTINE...`.US|
000007B0: 24 B2 22 22 00 D1 0B 63 01 91 C5 28 55 52 24 29 |$.""...c...(UR$)|
000007C0: 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 |.1000,400,500,39|
000007D0: 36 00 DA 0B 68 01 89 33 30 30 00 01 0C 8B 01 8F |6...h..300......|
000007E0: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
000007F0: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000800: 2A 00 30 0C 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.0.....(50003).|
00000810: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000820: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000830: 00 5A 0C 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |.Z....UU.71:..(5|
00000840: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
00000850: 3A 97 35 33 32 38 30 2C 31 34 00 66 0C 8E 01 99 |:.53280,14.f....|
00000860: 22 9A 93 22 3A 80 00 71 0C 8F 01 8D 38 37 35 3A |"..":..q....875:|
00000870: 8E 00 92 0C 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
00000880: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
00000890: 2A 2A 00 C1 0C 95 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
000008A0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
000008B0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
000008C0: 30 00 F6 0C 9A 01 55 54 24 B2 22 20 C2 49 47 20 |0.....UT$." .IG |
000008D0: D3 55 42 54 52 41 43 54 22 3A 55 50 B2 30 3A 55 |.UBTRACT":UP.0:U|
000008E0: 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 |G$.".TUDENT .NST|
000008F0: 22 3A 8D 38 35 30 00 28 0D 9B 01 99 3A 99 22 11 |":.850.(....:.".|
00000900: 11 20 20 20 C2 49 47 20 D3 55 42 54 52 41 43 54 |. .IG .UBTRACT|
00000910: 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 41 | WILL GIVE YOU A|
00000920: 20 4E 55 4D 42 45 52 22 00 4D 0D 9C 01 99 3A 99 | NUMBER".M....:.|
00000930: 22 20 20 20 4F 46 20 53 55 42 54 52 41 43 54 49 |" OF SUBTRACTI|
00000940: 4F 4E 20 50 52 4F 42 4C 45 4D 53 2E 22 00 7E 0D |ON PROBLEMS.".~.|
00000950: 9D 01 99 3A 99 22 20 20 20 D9 4F 55 20 48 41 56 |...:." .OU HAV|
00000960: 45 20 41 53 20 4D 55 43 48 20 54 49 4D 45 20 41 |E AS MUCH TIME A|
00000970: 53 20 59 4F 55 20 4E 45 45 44 20 49 4E 22 00 A3 |S YOU NEED IN"..|
00000980: 0D 9E 01 99 3A 99 22 20 20 20 41 4E 53 57 45 52 |....:." ANSWER|
00000990: 49 4E 47 20 54 48 45 20 51 55 45 53 54 49 4F 4E |ING THE QUESTION|
000009A0: 53 2E 22 00 D4 0D 9F 01 99 3A 99 22 20 20 20 C9 |S."......:." .|
000009B0: 46 20 59 4F 55 20 47 45 54 20 41 20 51 55 45 53 |F YOU GET A QUES|
000009C0: 54 49 4F 4E 20 57 52 4F 4E 47 2C 59 4F 55 20 57 |TION WRONG,YOU W|
000009D0: 49 4C 4C 22 00 F9 0D A0 01 99 3A 99 22 20 20 20 |ILL"......:." |
000009E0: 42 45 20 47 49 56 45 4E 20 41 4E 4F 54 48 45 52 |BE GIVEN ANOTHER|
000009F0: 20 43 48 41 4E 43 45 2E 22 00 02 0E A1 01 8D 38 | CHANCE."......8|
00000A00: 33 35 00 10 0E C7 01 55 50 B2 32 3A 8D 38 35 30 |35.....UP.2:.850|
00000A10: 00 4A 0E C8 01 99 3A 99 22 20 CE 4F 54 45 3A 22 |.J....:." .OTE:"|
00000A20: 3A 99 3A 99 22 20 20 20 20 D7 48 45 4E 20 59 4F |:.:." .HEN YO|
00000A30: 55 20 48 41 56 45 20 46 49 4E 49 53 48 45 44 20 |U HAVE FINISHED |
00000A40: 52 45 41 44 49 4E 47 20 41 22 00 7A 0E C9 01 99 |READING A".z....|
00000A50: 3A 99 22 20 20 20 20 50 41 47 45 20 4F 4E 20 54 |:." PAGE ON T|
00000A60: 48 45 20 53 43 52 45 45 4E 2C 20 50 52 45 53 53 |HE SCREEN, PRESS|
00000A70: 20 D3 D0 C1 C3 C5 20 54 4F 22 00 91 0E CA 01 99 | ..... TO"......|
00000A80: 3A 99 22 20 20 20 20 43 4F 4E 54 49 4E 55 45 2E |:." CONTINUE.|
00000A90: 22 00 C4 0E CB 01 99 3A 99 22 20 20 20 20 D7 48 |"......:." .H|
00000AA0: 45 4E 20 59 4F 55 20 47 49 56 45 20 41 4E 20 41 |EN YOU GIVE AN A|
00000AB0: 4E 53 57 45 52 20 41 4C 57 41 59 53 20 50 52 45 |NSWER ALWAYS PRE|
00000AC0: 53 53 22 3B 00 00 0F CC 01 99 3A 99 22 20 20 20 |SS";......:." |
00000AD0: 20 3C D2 C5 D4 D5 D2 CE 3E 2E 22 3A 99 3A 99 22 | <......>.":.:."|
00000AE0: 20 20 20 20 D4 4F 20 52 45 54 55 52 4E 20 54 4F | .O RETURN TO|
00000AF0: 20 54 48 45 20 4D 45 4E 55 20 41 54 20 41 4E 59 | THE MENU AT ANY|
00000B00: 00 24 0F D6 01 99 22 11 20 20 20 20 54 49 4D 45 |.$....". TIME|
00000B10: 2C 20 50 52 45 53 53 20 48 20 3C D2 C5 D4 D5 D2 |, PRESS H <.....|
00000B20: CE 3E 2E 22 00 2D 0F E5 01 8D 38 33 35 00 41 0F |.>.".-....835.A.|
00000B30: EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |...UZ.1..UP%:.21|
00000B40: 37 00 47 0F F3 01 8E 00 68 0F F4 01 8F 20 2A 2A |7.G.....h.... **|
00000B50: 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 | TEACHER INSTRUC|
00000B60: 54 49 4F 4E 53 20 2A 2A 00 98 0F F5 01 99 22 93 |TIONS **......".|
00000B70: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
00000B80: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 |03).0..53281,2:.|
00000B90: 35 33 32 38 30 2C 31 30 00 CD 0F F6 01 55 54 24 |53280,10.....UT$|
00000BA0: B2 22 20 C2 49 47 20 D3 55 42 54 52 41 43 54 22 |." .IG .UBTRACT"|
00000BB0: 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |:UP.0:UG$.".EACH|
00000BC0: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 FB 0F |ER .NST":.850...|
00000BD0: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T|
00000BE0: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000BF0: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 24 10 F8 01 |NOWLEDGE,.".$...|
00000C00: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA|
00000C10: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL|
00000C20: 49 43 11 22 00 50 10 F9 01 99 22 20 20 20 44 4F |IC.".P...." DO|
00000C30: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000C40: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."|
00000C50: 00 6D 10 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |.m...." PLEASE|
00000C60: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 97 10 | CONTACT:..."...|
00000C70: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD|
00000C80: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000C90: 48 49 4E 45 53 11 22 00 BA 10 FC 01 99 22 20 20 |HINES."......" |
00000CA0: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA|
00000CB0: 52 4D 41 43 59 20 C1 56 45 2E 00 DE 10 FD 01 99 |RMACY .VE.......|
00000CC0: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC|
00000CD0: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 00 |OURT, .NTARIO"..|
00000CE0: 11 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .|
00000CF0: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"|
00000D00: 00 20 11 FF 01 99 22 20 20 20 20 20 20 20 20 20 |. ...." |
00000D10: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"|
00000D20: 00 36 11 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.6...UP.1:. 835:|
00000D30: 8D 20 38 35 30 3A 00 60 11 01 02 99 22 20 20 20 |. 850:.`...." |
00000D40: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000D50: 3A 20 C2 49 47 20 C4 55 42 54 52 41 43 54 20 11 |: .IG .UBTRACT .|
00000D60: 00 82 11 02 02 99 22 20 20 20 20 20 D7 52 49 54 |......" .RIT|
00000D70: 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 |TEN .Y : .NKNOW|
00000D80: 4E 11 00 A6 11 03 02 99 22 20 20 20 20 20 D5 50 |N......." .P|
00000D90: 47 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 |GRADED .Y : |
00000DA0: 20 20 20 20 20 11 00 D1 11 04 02 99 22 20 20 20 | ......." |
00000DB0: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000DC0: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000DD0: 11 00 F8 11 05 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000DE0: 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 | ......2.0 ... .|
00000DF0: CF CD D0 D5 D4 C5 D2 11 00 1F 12 06 02 99 22 20 |.............." |
00000E00: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E | ..... 4.|
00000E10: 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ..............|
00000E20: 41 12 07 02 99 22 20 20 20 20 20 20 20 20 20 38 |A...." 8|
00000E30: 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 |032 ... ........|
00000E40: 11 00 66 12 08 02 99 22 20 20 20 20 20 20 20 20 |..f...." |
00000E50: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000E60: CD D0 D5 D4 C5 D2 00 6F 12 09 02 8D 38 33 35 00 |.......o....835.|
00000E70: 83 12 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000E80: 32 31 37 00 89 12 57 02 8E 00 AF 12 58 02 8F 20 |217...W.....X.. |
00000E90: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000EA0: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000EB0: C0 12 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00000EC0: 00 E0 12 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |...].UP.0:UG$.".|
00000ED0: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000EE0: 00 E9 12 94 02 8D 38 33 35 00 FD 12 B2 02 8B 55 |......835......U|
00000EF0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 03 13 |Z.1..UP%:.217...|
00000F00: BB 02 8E 00 28 13 BC 02 8F 20 2A 2A 20 54 4F 20 |....(.... ** TO |
00000F10: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00000F20: 4D 34 30 33 32 20 2A 2A 00 5E 13 C6 02 99 22 93 |M4032 **.^....".|
00000F30: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00000F40: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00000F50: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 94 |ON AN 8032 ....|
00000F60: 13 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
00000F70: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
00000F80: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
00000F90: 11 11 11 22 00 9F 13 DA 02 9E 55 55 AA 37 31 00 |..."......UU.71.|
00000FA0: A5 13 E4 02 80 00 C5 13 20 03 8F 20 2A 2A 20 54 |........ .. ** T|
00000FB0: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G|
00000FC0: 20 45 20 2A 2A 00 F9 13 22 03 99 22 93 11 1D 05 | E **...".."....|
00000FD0: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50|
00000FE0: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14|
00000FF0: 3A 97 35 33 32 38 31 2C 36 00 0F 14 24 03 81 49 |:.53281,6...$..I|
00001000: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..|
00001010: 27 14 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |'.&..I.1.22:."..|
00001020: 12 A6 92 22 3B 3A 82 00 3F 14 28 03 81 49 B2 31 |...";:..?.(..I.1|
00001030: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..|
00001040: 57 14 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |W.*..I.1.22:."..|
00001050: 12 A6 92 22 3B 3A 82 00 7C 14 2C 03 99 22 13 11 |...";:..|.,.."..|
00001060: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001070: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 9E 14 2E |......... .....|
00001080: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001090: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 BF |...... . . ....|
000010A0: 14 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........|
000010B0: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....|
000010C0: DD 14 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..2.."..........|
000010D0: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 05 15 |.......... ....|
000010E0: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............|
000010F0: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O |
00001100: 52 20 45 11 11 00 28 15 36 03 99 22 1D 1D 1D 1D |R E...(.6.."....|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA|
00001120: 54 49 4F 4E 41 4C 11 11 00 47 15 38 03 99 22 1D |TIONAL...G.8..".|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S|
00001140: 4F 46 54 57 41 52 45 00 62 15 3A 03 8F 20 2A 2A |OFTWARE.b.:.. **|
00001150: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00001160: 2A 2A 00 9A 15 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
00001170: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
00001180: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
00001190: 57 41 49 54 92 22 3A 49 B2 30 00 BC 15 3C 03 A1 |WAIT.":I.0...<..|
000011A0: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
000011B0: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 E0 15 3E |1:.I.250.828...>|
000011C0: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
000011D0: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
000011E0: 00 E9 15 40 03 89 33 30 30 00 05 16 43 03 8F 20 |...@..300...C.. |
000011F0: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
00001200: 53 53 20 2A 2A 00 40 16 48 03 97 55 4F 2C 30 3A |SS **.@.H..UO,0:|
00001210: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001220: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
00001230: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |AR TO CONTINUE."|
00001240: 00 57 16 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.W.L..UI$:.UI$..|
00001250: 22 20 22 A7 38 34 34 00 5D 16 4E 03 8E 00 7D 16 |" ".844.].N...}.|
00001260: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
00001270: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 89 16 |GN ROUTINE **...|
00001280: 54 03 55 50 B2 55 50 AA 31 00 B3 16 57 03 99 22 |T.UP.UP.1...W.."|
00001290: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
000012A0: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
000012B0: 31 38 29 00 E2 16 5C 03 99 22 20 2D 2D 2D 2D 2D |18)...\.." -----|
000012C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012E0: 2D 22 00 F1 16 60 03 8B 55 48 B3 B1 30 A7 38 37 |-"...`..UH..0.87|
000012F0: 30 00 32 17 61 03 8F 50 52 49 4E 54 4C 45 46 54 |0.2.a..PRINTLEFT|
00001300: 24 28 55 44 24 2C 32 34 29 3B 4C 45 46 54 24 28 |$(UD$,24);LEFT$(|
00001310: 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,7);"HELP - P|
00001320: 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E |RESS H <RETURN|
00001330: 3E 22 00 43 17 66 03 55 48 B2 30 3A 99 22 13 11 |>".C.f.UH.0:."..|
00001340: 22 3A 8E 00 62 17 6B 03 8F 20 2A 2A 20 50 4C 45 |":..b.k.. ** PLE|
00001350: 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 |ASE WAIT REMARK |
00001360: 2A 2A 00 98 17 70 03 99 C8 28 55 44 24 2C 32 34 |**...p...(UD$,24|
00001370: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E |);" ON|
00001380: 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E |E MOMENT PLEASE.|
00001390: 2E 2E 20 20 20 20 20 22 00 9E 17 75 03 8E 00 BB |.. "...u....|
000013A0: 17 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 |.... ** SET UP V|
000013B0: 41 52 49 41 42 4C 45 53 20 2A 2A 00 06 18 85 03 |ARIABLES **.....|
000013C0: 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 |UX$."H":.UQ%(100|
000013D0: 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 |0):UB.32768:U1.1|
000013E0: 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 |96:U2.197:U3.198|
000013F0: 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 |:U4.216:UC.167:U|
00001400: 55 B2 31 30 32 34 00 44 18 86 03 55 54 B2 35 39 |U.1024.D...UT.59|
00001410: 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 |468:UU%.12:UL%.1|
00001420: 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 |4:UP%.1146:UM.32|
00001430: 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 |768:UO.158:. 500|
00001440: 30 33 2C 30 00 87 18 87 03 8B C2 28 35 30 30 30 |03,0.......(5000|
00001450: 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 |3).0.UB.1024:U1.|
00001460: 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 |209:U2.210:U3.21|
00001470: 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A |1:U4.214:UC.204:|
00001480: 55 55 B2 32 30 34 38 00 C6 18 88 03 8B C2 28 35 |UU.2048.......(5|
00001490: 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 |0003).0.UT.53272|
000014A0: 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 |:UU%.21:UL%.23:U|
000014B0: 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A |P%.2139:UM.1024:|
000014C0: 55 4F B2 31 39 38 00 EA 18 89 03 55 44 24 B2 22 |UO.198.....UD$."|
000014D0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000014E0: 11 11 11 11 11 11 11 11 11 22 00 1C 19 8A 03 55 |.........".....U|
000014F0: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." |
00001500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001510: 20 20 20 20 20 20 20 20 20 20 20 22 00 6A 19 8B | ".j..|
00001520: 03 55 54 24 B2 22 20 D0 D2 CF C7 D2 C1 CD A0 CE |.UT$." .........|
00001530: C1 CD C5 A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 |.........":. PLA|
00001540: 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 |CE PROGRAM TITLE|
00001550: 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 | HERE !!!!!!!!!!|
00001560: 21 21 21 21 21 21 21 2A 2A 2A 00 7E 19 8C 03 5A |!!!!!!!***.~...Z|
00001570: 4E B2 31 36 3A 86 5A 28 31 32 38 29 3A 8E 00 98 |N.16:.Z(128):...|
00001580: 19 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 |.... ** SET VARI|
00001590: 41 42 4C 45 53 20 2A 2A 00 A1 19 93 03 8D 39 30 |ABLES **......90|
000015A0: 30 00 BC 19 98 03 8F 20 2A 2A 20 43 48 45 43 4B |0...... ** CHECK|
000015B0: 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 DA 19 9D | FOR 8032 **....|
000015C0: 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |..".":.".":. SHI|
000015D0: 46 54 45 44 20 53 50 41 43 45 00 F1 19 A2 03 8B |FTED SPACE......|
000015E0: C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 |.(UB.40)..96..70|
000015F0: 30 00 0A 1A A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 |0...... ** MEMOR|
00001600: 59 20 43 48 45 43 4B 20 2A 2A 00 1E 1A A4 03 8B |Y CHECK **......|
00001610: 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 4C | .(0).2000.937.L|
00001620: 1A A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 |...."....THIS MA|
00001630: 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 |CHINE DOES NOT H|
00001640: 41 56 45 20 45 4E 4F 55 47 48 11 22 00 70 1A A6 |AVE ENOUGH.".p..|
00001650: 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E |.."MEMORY TO RUN|
00001660: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
00001670: 00 7B 1A A7 03 9E 55 55 AA 37 31 00 81 1A A8 03 |.{....UU.71.....|
00001680: 80 00 9B 1A A9 03 99 22 93 05 22 3A 8B C2 28 35 |......."..":..(5|
00001690: 30 30 30 33 29 B2 30 A7 39 36 32 00 CA 1A AC 03 |0003).0.962.....|
000016A0: 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 |. ** BASIC 2.0 |
000016B0: 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 |OR 4.0 OR C-6|
000016C0: 34 20 53 45 54 55 50 20 2A 2A 00 08 1B AD 03 97 |4 SETUP **......|
000016D0: 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 |1075,133:.1076,1|
000016E0: 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 |44:.1077,234:.10|
000016F0: 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 |79,4:.1080,133:.|
00001700: 31 30 38 31 2C 31 34 35 00 3E 1B AE 03 97 31 30 |1081,145.>....10|
00001710: 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 |91,155:.1098,133|
00001720: 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 |:.1099,144:.1100|
00001730: 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 60 |,234:.1103,133.`|
00001740: 1B AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 |....1104,145:.11|
00001750: 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 |05,234:.1082,234|
00001760: 00 77 1B B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.w.....(50003)..|
00001770: 31 36 30 A7 39 35 35 00 A6 1B B6 03 97 31 30 39 |160.955......109|
00001780: 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 |3,88:.1094,228:.|
00001790: 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 |1097,85:.1102,22|
000017A0: 38 3A 89 39 36 35 00 BB 1B BB 03 8B C2 28 35 30 |8:.965.......(50|
000017B0: 30 30 33 29 B3 B1 31 A7 39 39 30 00 EA 1B C0 03 |003)..1.990.....|
000017C0: 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 |.1093,49:.1094,2|
000017D0: 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 |30:.1097,46:.110|
000017E0: 32 2C 32 33 30 3A 89 39 36 35 00 24 1C C2 03 97 |2,230:.965.$....|
000017F0: 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 |2099,141:.2100,2|
00001800: 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C |0:.2101,3:.2103,|
00001810: 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 |8:.2104,141:.210|
00001820: 35 2C 32 31 00 60 1C C3 03 97 32 31 30 36 2C 33 |5,21.`....2106,3|
00001830: 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 |:.2115,145:.2117|
00001840: 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 |,52:.2118,234:.2|
00001850: 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 |121,49:.2122,141|
00001860: 00 9A 1C C4 03 97 32 31 32 33 2C 32 30 3A 97 32 |......2123,20:.2|
00001870: 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A |124,3:.2126,234:|
00001880: 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C |.2127,141:.2128,|
00001890: 32 31 3A 97 32 31 32 39 2C 33 00 B8 1C C5 03 9E |21:.2129,3......|
000018A0: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE |
000018B0: 53 54 4F 50 20 4B 45 59 00 C9 1C CA 03 8D 38 30 |STOP KEY......80|
000018C0: 30 3A 8F 20 54 49 54 4C 45 00 D9 1C D4 03 89 33 |0:. TITLE......3|
000018D0: 30 30 3A 8F 20 4D 45 4E 55 00 0A 1D DE 03 99 22 |00:. MENU......"|
000018E0: 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |.THE PGM WILL NO|
000018F0: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
00001900: 41 43 48 49 4E 45 21 22 3A 80 00 3F 1D E8 03 8B |ACHINE!":..?....|
00001910: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
00001920: 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |Z.0:. ** PROGRAM|
00001930: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
00001940: 6A 1D E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 |j...."..";:.:..(|
00001950: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00001960: 36 3A 97 35 33 32 38 30 2C 36 00 81 1D F2 03 55 |6:.53280,6.....U|
00001970: 54 24 B2 22 20 42 49 47 20 53 55 42 54 52 41 43 |T$." BIG SUBTRAC|
00001980: 54 00 94 1D FC 03 8F 20 42 49 47 20 53 55 42 54 |T...... BIG SUBT|
00001990: 52 41 43 54 00 9E 1D FE 03 4E 51 B2 31 30 00 C6 |RACT.....NQ.10..|
000019A0: 1D 06 04 8F 20 53 55 42 54 52 41 43 54 49 4E 47 |.... SUBTRACTING|
000019B0: 20 57 49 54 48 20 4C 41 52 47 45 20 43 48 41 52 | WITH LARGE CHAR|
000019C0: 41 43 54 45 52 53 00 DA 1D 10 04 8F 20 52 20 4D |ACTERS...... R M|
000019D0: 41 43 4E 41 55 47 48 54 4F 4E 00 E5 1D 1A 04 8F |ACNAUGHTON......|
000019E0: 20 57 48 43 49 00 08 1E 24 04 8F 20 4C 4E 20 4C | WHCI...$.. LN L|
000019F0: 49 4E 45 20 57 48 45 52 45 20 4E 55 4D 42 45 52 |INE WHERE NUMBER|
00001A00: 53 20 41 50 50 45 41 52 00 2D 1E 2E 04 8F 20 43 |S APPEAR.-.... C|
00001A10: 4C 20 43 4F 4C 55 4D 4E 20 57 48 45 52 45 20 4E |L COLUMN WHERE N|
00001A20: 55 4D 42 45 52 53 20 41 50 50 45 41 52 00 4F 1E |UMBERS APPEAR.O.|
00001A30: 38 04 8F 20 4D 58 20 4D 41 58 20 4E 55 4D 42 45 |8.. MX MAX NUMBE|
00001A40: 52 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 00 |R OF CHARACTERS.|
00001A50: 70 1E 42 04 8F 20 4F 4E 4C 59 20 31 30 20 57 49 |p.B.. ONLY 10 WI|
00001A60: 4C 4C 20 46 49 54 20 4F 4E 20 41 20 4C 49 4E 45 |LL FIT ON A LINE|
00001A70: 00 A0 1E 4C 04 55 50 B2 30 3A 55 47 24 B2 22 51 |...L.UP.0:UG$."Q|
00001A80: 55 45 53 54 49 4F 4E 23 22 3A 8D 38 35 30 3A 8D |UESTION#":.850:.|
00001A90: 31 32 36 30 3A 8F 20 52 45 41 44 20 44 41 54 41 |1260:. READ DATA|
00001AA0: 00 BE 1E 56 04 8F 20 47 45 4E 45 52 41 54 45 20 |...V.. GENERATE |
00001AB0: 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 53 00 E2 |RANDOM NUMBERS..|
00001AC0: 1E 60 04 8F 20 4D 53 20 49 53 20 4D 49 4E 49 4D |.`.. MS IS MINIM|
00001AD0: 55 4D 20 2D 20 4D 51 20 49 53 20 4D 41 58 49 4D |UM - MQ IS MAXIM|
00001AE0: 55 4D 00 02 1F 6A 04 4D 53 B2 35 30 3A 4D 51 B2 |UM...j.MS.50:MQ.|
00001AF0: 39 39 3A 54 42 B2 31 34 3A 4E 43 B2 30 3A 4E 57 |99:TB.14:NC.0:NW|
00001B00: B2 30 00 16 1F 74 04 8D 31 36 36 30 3A 41 B2 4E |.0...t..1660:A.N|
00001B10: 3A 41 24 B2 4E 24 00 2A 1F 7E 04 8D 31 36 36 30 |:A$.N$.*.~..1660|
00001B20: 3A 42 B2 4E 3A 42 24 B2 4E 24 00 38 1F 88 04 8B |:B.N:B$.N$.8....|
00001B30: 42 B1 41 A7 31 31 34 30 00 56 1F 92 04 53 24 B2 |B.A.1140.V...S$.|
00001B40: 41 24 AA 22 2D 22 AA 42 24 AA 22 3D 22 3A 4C 51 |A$."-".B$."=":LQ|
00001B50: B2 C3 28 53 24 29 00 6B 1F 9C 04 43 4C B2 30 3A |..(S$).k...CL.0:|
00001B60: 4C 4E B2 31 30 3A 8D 31 34 34 30 00 84 1F A6 04 |LN.10:.1440.....|
00001B70: 99 3A 99 3A 99 A3 54 42 29 22 20 20 20 20 20 20 |.:.:..TB)" |
00001B80: 20 20 20 22 00 9B 1F B0 04 8F 20 49 4E 50 55 54 | "...... INPUT|
00001B90: 20 54 48 45 20 41 4E 53 57 45 52 00 A5 1F BA 04 | THE ANSWER.....|
00001BA0: 8D 31 35 34 30 00 C1 1F C4 04 8F 20 57 48 41 54 |.1540...... WHAT|
00001BB0: 20 57 41 53 20 54 48 45 20 41 4E 53 57 45 52 20 | WAS THE ANSWER |
00001BC0: 3F 00 CB 1F CE 04 8D 31 36 32 30 00 00 20 D8 04 |?......1620.. ..|
00001BD0: 8B 41 4E B2 41 AB 42 A7 99 3A 99 3A 99 A3 54 42 |.AN.A.B..:.:..TB|
00001BE0: 29 22 20 20 43 4F 52 52 45 43 54 22 3A 4E 43 B2 |)" CORRECT":NC.|
00001BF0: 4E 43 AA 31 3A 8D 31 37 31 30 3A 89 31 31 34 30 |NC.1:.1710:.1140|
00001C00: 00 36 20 E2 04 8B 41 4E B3 B1 41 AB 42 A7 99 3A |.6 ...AN..A.B..:|
00001C10: 99 3A 99 A3 54 42 29 22 49 4E 43 4F 52 52 45 43 |.:..TB)"INCORREC|
00001C20: 54 22 3A 4E 57 B2 4E 57 AA 31 3A 8D 31 37 31 30 |T":NW.NW.1:.1710|
00001C30: 3A 89 31 31 37 30 00 4D 20 EC 04 8F 20 4C 41 52 |:.1170.M ... LAR|
00001C40: 47 45 20 43 48 41 52 41 43 54 45 52 53 00 71 20 |GE CHARACTERS.q |
00001C50: F6 04 44 4E 24 B2 22 13 11 11 11 11 11 11 11 11 |..DN$.".........|
00001C60: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001C70: 22 00 99 20 0A 05 83 20 22 20 22 2C 30 2C 31 2C |".. ... " ",0,1,|
00001C80: 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 2C |2,3,4,5,6,7,8,9,|
00001C90: 2A 2C 2B 2C 2D 2C 2F 2C 3D 00 C1 20 14 05 83 22 |*,+,-,/,=.. ..."|
00001CA0: 20 20 20 D5 C0 C9 20 AE 20 D5 C0 C9 D5 C0 C9 20 | ... . ...... |
00001CB0: 20 DD B0 C0 AE D5 C0 C9 B0 C0 AE D5 C0 C9 D5 C0 | ...............|
00001CC0: C9 00 E9 20 1E 05 83 22 20 20 20 DD A0 DD A0 DD |... ..." .....|
00001CD0: A0 A0 A0 DD A0 A0 DD DD A0 DD DD A0 A0 DD A0 A0 |................|
00001CE0: A0 A0 DD DD A0 DD DD A0 DD 00 11 21 28 05 83 22 |...........!(.."|
00001CF0: 20 20 20 DD A0 DD A0 DD A0 D5 C0 CB A0 C0 B3 AD | .............|
00001D00: C0 DB AD C0 C9 AB C0 C9 A0 A0 DD AB C0 B3 CA C0 |................|
00001D10: B3 00 39 21 32 05 83 22 20 20 20 DD A0 DD A0 DD |..9!2.." .....|
00001D20: A0 DD A0 A0 A0 A0 DD A0 A0 DD A0 A0 DD DD A0 DD |................|
00001D30: A0 A0 DD DD A0 DD A0 A0 DD 00 61 21 3C 05 83 22 |..........a!<.."|
00001D40: 20 20 20 CA C0 CB A0 B1 A0 AD C0 BD CA C0 CB A0 | .............|
00001D50: A0 B1 CA C0 CB CA C0 CB A0 A0 B1 CA C0 CB CA C0 |................|
00001D60: CB 00 78 21 46 05 83 22 20 20 20 20 20 20 20 20 |..x!F.." |
00001D70: 20 20 20 20 20 20 20 22 00 8F 21 50 05 83 22 CD | "..!P..".|
00001D80: A0 CE 20 DD 20 20 20 20 20 2E 20 20 20 20 22 00 |.. . . ".|
00001D90: A6 21 5A 05 83 22 20 D6 20 C0 DB C0 C0 C0 C0 C6 |.!Z.." . .......|
00001DA0: C6 C6 C5 C5 C5 22 00 BD 21 64 05 83 22 CE A0 CD |....."..!d.."...|
00001DB0: 20 DD 20 20 20 20 20 2E 20 A3 A3 A3 22 00 D4 21 | . . ..."..!|
00001DC0: 6E 05 83 22 20 20 20 20 20 20 20 20 20 20 20 20 |n.." |
00001DD0: 20 20 20 22 00 DA 21 77 05 8C 00 F8 21 78 05 81 | "..!w....!x..|
00001DE0: 49 B2 31 A4 5A 4E 3A 87 20 4A 24 3A 5A 28 C6 28 |I.1.ZN:. J$:Z(.(|
00001DF0: 4A 24 29 29 B2 49 3A 82 00 0E 22 82 05 81 49 B2 |J$)).I:..."...I.|
00001E00: 31 A4 35 3A 87 20 5A 31 24 28 49 29 3A 82 00 36 |1.5:. Z1$(I):..6|
00001E10: 22 8C 05 81 49 B2 31 A4 35 3A 87 20 5A 24 28 49 |"...I.1.5:. Z$(I|
00001E20: 29 3A 5A 24 28 49 29 B2 5A 31 24 28 49 29 AA 5A |):Z$(I).Z1$(I).Z|
00001E30: 24 28 49 29 3A 82 00 3C 22 96 05 8E 00 53 22 A0 |$(I):..<"....S".|
00001E40: 05 8F 20 50 52 49 4E 54 20 43 48 41 52 41 43 54 |.. PRINT CHARACT|
00001E50: 45 52 53 00 63 22 AA 05 99 C8 28 44 4E 24 2C 4C |ERS.c"....(DN$,L|
00001E60: 4E 29 3B 00 70 22 B4 05 4E 4E B2 C3 28 53 24 29 |N);.p"..NN..(S$)|
00001E70: 00 85 22 BE 05 81 49 B2 31 A4 35 3A 53 4E 24 28 |.."...I.1.5:SN$(|
00001E80: 49 29 B2 22 22 00 91 22 C8 05 81 4A B2 31 A4 4E |I)."".."...J.1.N|
00001E90: 4E 00 D0 22 D2 05 4E 4A B2 C6 28 CA 28 53 24 2C |N.."..NJ..(.(S$,|
00001EA0: 4A 2C 31 29 29 3A 53 4E 24 28 49 29 B2 53 4E 24 |J,1)):SN$(I).SN$|
00001EB0: 28 49 29 AA CA 28 5A 24 28 49 29 2C 28 5A 28 4E |(I)..(Z$(I),(Z(N|
00001EC0: 4A 29 AB 31 29 AC 33 AA 31 2C 33 29 AA 22 20 22 |J).1).3.1,3)." "|
00001ED0: 00 D6 22 DC 05 82 00 17 23 E6 05 99 A3 43 4C 29 |..".....#....CL)|
00001EE0: C8 28 53 4E 24 28 49 29 AA 22 20 20 20 20 20 20 |.(SN$(I)." |
00001EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F10: 20 22 2C 34 30 29 3B 00 1F 23 F0 05 82 3A 8E 00 | ",40);..#...:..|
00001F20: 29 23 FA 05 53 24 B2 22 22 00 67 23 04 06 8D 36 |)#..S$."".g#...6|
00001F30: 30 30 30 3A 55 53 24 B2 22 31 32 33 34 35 36 37 |000:US$."1234567|
00001F40: 38 39 30 48 22 3A 55 4C B2 34 3A 8D 33 35 3A 5A |890H":UL.4:.35:Z|
00001F50: 58 24 B2 55 52 24 3A 99 22 91 20 20 20 20 20 20 |X$.UR$:.". |
00001F60: 22 3A 8D 37 30 30 30 00 77 23 0E 06 8B C3 28 53 |":.7000.w#....(S|
00001F70: 24 29 B1 4D 51 A7 8E 00 9E 23 18 06 8B 5A 58 24 |$).MQ....#...ZX$|
00001F80: B1 B2 22 30 22 AF 5A 58 24 B3 B2 22 39 22 A7 53 |.."0".ZX$.."9".S|
00001F90: 24 B2 53 24 AA 5A 58 24 3A 8D 31 34 34 30 00 D4 |$.S$.ZX$:.1440..|
00001FA0: 23 22 06 8B 5A 58 24 B2 22 2F 22 B0 5A 58 24 B2 |#"..ZX$."/".ZX$.|
00001FB0: 22 2A 22 B0 5A 58 24 B2 22 2B 22 B0 5A 58 24 B2 |"*".ZX$."+".ZX$.|
00001FC0: 22 2D 22 A7 53 24 B2 53 24 AA 5A 58 24 3A 8D 31 |"-".S$.S$.ZX$:.1|
00001FD0: 34 34 30 3A 00 0A 24 2C 06 8B 5A 58 24 B2 22 3D |440:..$,..ZX$."=|
00001FE0: 22 B0 5A 58 24 B2 22 20 22 B0 5A 58 24 B2 22 20 |".ZX$." ".ZX$." |
00001FF0: 22 B0 5A 58 24 B2 22 20 22 A7 53 24 B2 53 24 AA |".ZX$." ".S$.S$.|
00002000: 5A 58 24 3A 8D 31 34 34 30 3A 00 1B 24 36 06 8B |ZX$:.1440:..$6..|
00002010: 5A 58 24 B2 C7 28 31 33 29 A7 8E 00 4A 24 40 06 |ZX$..(13)...J$@.|
00002020: 8B 5A 58 24 B2 C7 28 32 30 29 AF C3 28 53 24 29 |.ZX$..(20)..(S$)|
00002030: B1 4C 51 A7 53 24 B2 C8 28 53 24 2C C3 28 53 24 |.LQ.S$..(S$,.(S$|
00002040: 29 AB 31 29 3A 8D 31 34 34 30 00 50 24 4A 06 8E |).1):.1440.P$J..|
00002050: 00 6A 24 54 06 8F 20 57 48 41 54 20 49 53 20 54 |.j$T.. WHAT IS T|
00002060: 48 45 20 41 4E 53 57 45 52 3F 00 8C 24 5E 06 81 |HE ANSWER?..$^..|
00002070: 49 B2 31 A4 C3 28 53 24 29 3A 8B CA 28 53 24 2C |I.1..(S$):..(S$,|
00002080: 49 2C 31 29 B2 22 3D 22 A7 4A B2 49 00 92 24 68 |I,1)."=".J.I..$h|
00002090: 06 82 00 A8 24 72 06 41 4E B2 C5 28 CA 28 53 24 |....$r.AN..(.(S$|
000020A0: 2C 4A AA 31 29 29 3A 8E 00 C6 24 7C 06 8F 20 52 |,J.1)):...$|.. R|
000020B0: 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 47 45 4E |ANDOM NUMBER GEN|
000020C0: 45 52 41 54 4F 52 00 D0 24 81 06 46 B2 46 AA 31 |ERATOR..$..F.F.1|
000020D0: 00 E1 24 86 06 4E B2 B5 28 BB 28 31 29 AC 4D 51 |..$..N..(.(1).MQ|
000020E0: 29 00 F0 24 90 06 8B 4E B3 4D 53 A7 31 36 37 30 |)..$...N.MS.1670|
000020F0: 00 01 25 9A 06 4E 24 B2 CA 28 C4 28 4E 29 2C 32 |..%..N$..(.(N),2|
00002100: 29 00 07 25 A4 06 8E 00 22 25 AE 06 8F 20 50 52 |)..%...."%... PR|
00002110: 49 4E 54 20 4E 55 4D 42 45 52 20 43 4F 52 52 45 |INT NUMBER CORRE|
00002120: 43 54 00 46 25 B3 06 8D 38 33 35 3A 55 50 B2 4E |CT.F%...835:UP.N|
00002130: 43 3A 55 47 24 B2 22 51 55 45 53 54 49 4F 4E 23 |C:UG$."QUESTION#|
00002140: 22 3A 8D 38 35 30 00 72 25 B4 06 54 52 24 B2 22 |":.850.r%..TR$."|
00002150: 20 54 52 49 45 53 20 2D 22 3A 8B 20 4E 43 AA 4E | TRIES -":. NC.N|
00002160: 57 B3 32 20 A7 20 54 52 24 B2 22 20 54 52 59 20 |W.2 . TR$." TRY |
00002170: 2D 22 00 AE 25 B5 06 43 41 24 B2 22 20 43 4F 52 |-"..%..CA$." COR|
00002180: 52 45 43 54 20 41 4E 53 57 45 52 53 2E 22 3A 8B |RECT ANSWERS.":.|
00002190: 20 4E 43 B3 32 20 A7 20 43 41 24 B2 22 20 43 4F | NC.2 . CA$." CO|
000021A0: 52 52 45 43 54 20 41 4E 53 57 45 52 2E 22 00 EC |RRECT ANSWER."..|
000021B0: 25 B8 06 99 C4 28 4E 43 AA 4E 57 29 3B 54 52 24 |%....(NC.NW);TR$|
000021C0: 3B C4 28 4E 43 29 3B 43 41 24 3A 8B 4E 43 B2 4E |;.(NC);CA$:.NC.N|
000021D0: 51 A7 99 A6 31 30 29 22 11 11 54 48 45 20 45 4E |Q...10)"..THE EN|
000021E0: 44 22 3A 8D 38 34 30 3A 89 32 30 30 00 FA 25 C2 |D":.840:.200..%.|
000021F0: 06 81 49 B2 31 A4 34 30 3A 82 00 00 26 CC 06 8E |..I.1.40:...&...|
00002200: 00 10 26 D0 07 99 22 93 52 45 53 55 4C 54 53 22 |..&...".RESULTS"|
00002210: 00 1F 26 DA 07 99 22 A3 A3 A3 A3 A3 A3 A3 22 00 |..&...".......".|
00002220: 44 26 EE 07 99 3A 99 22 49 54 20 54 4F 4F 4B 20 |D&...:."IT TOOK |
00002230: 59 4F 55 20 22 3B 4E 43 AA 4E 57 3B 22 20 54 52 |YOU ";NC.NW;" TR|
00002240: 49 45 53 22 00 69 26 F8 07 99 3A 99 22 54 4F 20 |IES".i&...:."TO |
00002250: 41 4E 53 57 45 52 20 22 3B 4E 51 3B 22 20 51 55 |ANSWER ";NQ;" QU|
00002260: 45 53 54 49 4F 4E 53 2E 22 00 90 26 0C 08 99 3A |ESTIONS."..&...:|
00002270: 99 22 43 41 4C 4C 20 59 4F 55 52 20 54 45 41 43 |."CALL YOUR TEAC|
00002280: 48 45 52 20 54 4F 20 53 45 45 20 54 48 49 53 22 |HER TO SEE THIS"|
00002290: 00 B6 26 16 08 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..&...".........|
000022A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000022B0: A3 A3 A3 A3 A3 22 00 BF 26 20 08 8D 38 33 35 00 |....."..& ..835.|
000022C0: C8 26 2A 08 89 39 38 30 00 FC 26 70 17 99 C8 28 |.&*..980..&p...(|
000022D0: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 |UD$,24);.(UP$,7)|
000022E0: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
000022F0: 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 0D 27 7A | H <RETURN>"..'z|
00002300: 17 99 C8 28 55 44 24 2C 31 35 29 3A 8E 00 41 27 |...(UD$,15):..A'|
00002310: 58 1B 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 |X...(UD$,24);.(U|
00002320: 50 24 2C 37 29 3B 22 20 20 20 20 20 20 20 20 20 |P$,7);" |
00002330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002340: 22 00 47 27 62 1B 8E 00 00 00 |".G'b..... |
.......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 **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).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:.B(50003).0..53281,6:.53280,6...
..UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256.
U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1,
U1%......U2,U2%......U4,U4%.)....U3,U3%.
1.1....35.C...UD%.((U2%.256.U1%.U3%).UB)
.40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..J
...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U
4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.
UL.........,.. ** MENU **...-.:.>...."."
:.UT,UU%:.B(50003).0..53281,9:.53280,8.D
./.:.A.1..". MENU"...6.."
--------------------------------------"
...;..".. 1. BEGIN BIG SUBTRACT.
..@..".. 2. STUDENT INSTRUCTIONS
"...E..".. 3. TEACHER INSTRUCTIO
NS".'.O..".. 4. QUIT..".V.T.." -
-------------------------------------"..
.Y..".. PRESS A NUMBER KEY (1-4) "
;...^.UL.1:US$."1234":.35:. INPUT ROUTIN
E...`.US$."".Q.C..E(UR$).1000,400,500,39
6.Z.H..300...... ** RE-ENABLE STOP KEY A
ND END **.0....B(50003)..1.B(50003)..160
.B(50003)..0.399.Z....UU.71:.B(50003).0.
.53281,6:.53280,14.F...."..":..Q....875:
....... ** STUDENT INSTRUCTIONS **.A....
".":.UT,UL%:.B(50003).0..53281,0:.53280,
0.....UT$." BIG SUBTRACT":UP.0:UG$."STUD
ENT INST":.850.(....:.".. BIG SUBTRACT
WILL GIVE YOU A NUMBER".M....:." OF S
UBTRACTION PROBLEMS.".~....:." YOU HAV
E AS MUCH TIME AS YOU NEED IN"......:."
ANSWERING THE QUESTIONS.".T....:." I
F YOU GET A QUESTION WRONG,YOU WILL"...
..:." BE GIVEN ANOTHER CHANCE."......8
35...G.UP.2:.850.J.H..:." NOTE:":.:."
WHEN YOU HAVE FINISHED READING A".Z.I..
:." PAGE ON THE SCREEN, PRESS SPACE T
O"...J..:." CONTINUE.".D.K..:." WH
EN YOU GIVE AN ANSWER ALWAYS PRESS";...L
..:." <RETURN>.":.:." TO RETURN TO
THE MENU AT ANY.$.V..". TIME, PRESS
H <RETURN>.".-....835.A....UZ.1..UP%:.21
7.G.....H.... ** TEACHER INSTRUCTIONS **
......".":.UT,UL%:.B(50003).0..53281,2:.
53280,10.M...UT$." BIG SUBTRACT":UP.0:UG
$."TEACHER INST":.850......".. TO T
HE BEST OF OUR KNOWLEDGE,.".$...." THI
S PROGRAM IS IN THE PUBLIC.".P...." DO
MAIN. IF THIS IS NOT THE CASE.".M...."
PLEASE CONTACT:..."......" COMMOD
ORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......." AGINC
OURT, ONTARIO"......" CANADA
M1W 2K4". ...." (416) 499-4292"
.6...UP.1:. 835:. 850:.`...." ..PROG
RAM NAME: BIG DUBTRACT ......." WRIT
TEN BY : UNKNOWN......." UPGRADED B
Y : ..Q...." .THIS PROGRAM
WILL RUN ON ANY........" BASIC 2
.0 PET COMPUTER......." BASIC 4.
0 PET COMPUTER..A...." 8032 CBM
COMPUTER..F...." COMMODORE 64 CO
MPUTER.O....835...N..UZ.1..UP%:.217...W.
....X.. ** PROGRAM MODIFICATION INST **.
..Y..".":.UT,UL%...].UP.0:UG$."PROGRAM M
OD":.850......835......UZ.1..UP%:.217...
....(.... ** TO USE 8032 LOAD CBM4032 **
.^.F..".....BEFORE RUNNING THIS PROGRAM
ON AN 8032 .....P.." LOAD THE 'CBM
4032' PROGRAM............."...Z..UU.71.
......E. .. ** T I T L E P A G E **...
".."....";:.UT,UU%:.B(50003).0..53280,14
:.53281,6...$..I.1.38:."...";:..'.&..I.1
.22:.".....";:..?.(..I.1.37:.".....";:..
W.*..I.1.22:.".....";:..|.,.."..........
................. .......".............
...... . . .....0.."...................
. ......2..".................... ....
4.."..............C O M M O D O R E...(.
6.."...............EDUCATIONAL...G.8..".
...............SOFTWARE.B.:.. ** COMMODO
RE LOGO **...;..H(UD$,24);"..........PRE
SS SPACE BAR OR WAIT.":I.0...<..A$:.A$..
" ".I.I.1:.I.250.828...>.T1$."":T2$."":T
3$."":T4$."":I.0...@..300...C.. ** SPACE
BAR PRESS **.@.H..UO,0:.H(UD$,24);"....
...PRESS SPACE BAR TO CONTINUE.".W.L..UI
$:.UI$.." ".844.].N...}.R.. ** PAGE DESI
GN ROUTINE **...T.UP.UP.1...W.."."H(UT$.
UP$,21);I(UP$.UG$.D(UP),18)...\.." -----
---------------------------------"...`..
UH..0.870.2.A..PRINTLEFT$(UD$,24);LEFT$(
UP$,7);"HELP - PRESS H <RETURN>".C.F.U
H.0:."..":..B.K.. ** PLEASE WAIT REMARK
**...P..H(UD$,24);" ONE MOMENT
PLEASE... "...U........ ** SET UP V
ARIABLES **.....UX$."H":.UQ%(1000):UB.32
768:U1.196:U2.197:U3.198:U4.216:UC.167:U
U.1024.D...UT.59468:UU%.12:UL%.14:UP%.11
46:UM.32768:UO.158:. 50003,0......B(5000
3).0.UB.1024:U1.209:U2.210:U3.211:U4.214
:UC.204:UU.2048.F....B(50003).0.UT.53272
:UU%.21:UL%.23:UP%.2139:UM.1024:UO.198..
...UD$.".........................".....U
P$."
".J...UT$." PROGRAM NAME ":. PLA
CE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*
**.~...ZN.16:.Z(128):....... ** SET VARI
ABLES **......900...... ** CHECK FOR 803
2 **.Z....".":." ":. SHIFTED SPACE......
B(UB.40)..96..700...... ** MEMORY CHECK
**...... .(0).2000.937.L...."....THIS MA
CHINE DOES NOT HAVE ENOUGH.".P...."MEMOR
Y TO RUN THIS PROGRAM !".{....UU.71.....
......."..":.B(50003).0.962.J.... ** BAS
IC 2.0 OR 4.0 OR C-64 SETUP **......
1075,133:.1076,144:.1077,234:.1079,4:.10
80,133:.1081,145.>....1091,155:.1098,133
:.1099,144:.1100,234:.1103,133.`....1104
,145:.1105,234:.1082,234.W....B(50003)..
160.955......1093,88:.1094,228:.1097,85:
.1102,228:.965......B(50003)..1.990.....
.1093,49:.1094,230:.1097,46:.1102,230:.9
65.$.B..2099,141:.2100,20:.2101,3:.2103,
8:.2104,141:.2105,21.`.C..2106,3:.2115,1
45:.2117,52:.2118,234:.2121,49:.2122,141
...D..2123,20:.2124,3:.2126,234:.2127,14
1:.2128,21:.2129,3...E..UU.48:. DISABLE
STOP KEY.I.J..800:. TITLE.Y.T..300:. MEN
U......".THE PGM WILL NOT WORK ON THIS M
ACHINE!":..?....UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **.J...."..";:.:.B(
50003).0..53281,6:.53280,6.....UT$." BIG
SUBTRACT...... BIG SUBTRACT.....NQ.10.F
.... SUBTRACTING WITH LARGE CHARACTERS.Z
.... R MACNAUGHTON...... WHCI...$.. LN L
INE WHERE NUMBERS APPEAR.-.... CL COLUMN
WHERE NUMBERS APPEAR.O.8.. MX MAX NUMBE
R OF CHARACTERS.P.B.. ONLY 10 WILL FIT O
N A LINE. .L.UP.0:UG$."QUESTION#":.850:.
1260:. READ DATA...V.. GENERATE RANDOM N
UMBERS...`.. MS IS MINIMUM - MQ IS MAXIM
UM...J.MS.50:MQ.99:TB.14:NC.0:NW.0...T..
1660:A.N:A$.N$.*.~..1660:B.N:B$.N$.8....
B.A.1140.V...S$.A$."-".B$."=":LQ.C(S$).K
...CL.0:LN.10:.1440......:.:..TB)"
"...... INPUT THE ANSWER......1540.A.
D.. WHAT WAS THE ANSWER ?.K.N..1620.. X.
.AN.A.B..:.:..TB)" CORRECT":NC.NC.1:.17
10:.1140.6 ...AN..A.B..:.:..TB)"INCORREC
T":NW.NW.1:.1710:.1170.M ... LARGE CHARA
CTERS.Q ..DN$.".........................
".. ... " ",0,1,2,3,4,5,6,7,8,9,*,+,-,/,
=.A ..." U.I . U.IU.I ....U.I...U.IU.
I.. ..." . . . . .. .. . .. ..
...!(.." . . . U.K .......I..I ....J.
..9!2.." . . . . . . .. . .. .
..A!<.." J.K . ...J.K .J.KJ.K .J.KJ.
K.X!F.." "..!P.."M N .
. "..!Z.." V ......FFFEEE"..!D.."N M
. . ...".T!N.." ".Z!W
....!X..I.1.ZN:. J$:Z(F(J$)).I:..."...I.
1.5:. Z1$(I):..6"...I.1.5:. Z$(I):Z$(I).
Z1$(I).Z$(I):..<"....S" .. PRINT CHARACT
ERS.C"...H(DN$,LN);.P"..NN.C(S$).."...I.
1.5:SN$(I)."".."H..J.1.NN.P"R.NJ.F(J(S$,
J,1)):SN$(I).SN$(I).J(Z$(I),(Z(NJ).1).3.
1,3)." ".V".....#....CL)H(SN$(I)."
",40);.
.#...:..)#..S$."".G#...6000:US$."1234567
890H":UL.4:.35:ZX$.UR$:.". ":.7000.
W#...C(S$).MQ....#...ZX$.."0".ZX$.."9".S
$.S$.ZX$:.1440.T#"..ZX$."/".ZX$."*".ZX$.
"+".ZX$."-".S$.S$.ZX$:.1440:..$,..ZX$."=
".ZX$." ".ZX$." ".ZX$." ".S$.S$.ZX$:.144
0:..$6..ZX$.G(13)...J$@..ZX$.G(20).C(S$)
.LQ.S$.H(S$,C(S$).1):.1440.P$J...J$T.. W
HAT IS THE ANSWER?..$^..I.1.C(S$):.J(S$,
I,1)."=".J.I..$H....$R.AN.E(J(S$,J.1)):.
.F$|.. RANDOM NUMBER GENERATOR.P$..F.F.1
..$..N..(.(1).MQ)..$...N.MS.1670..%..N$.
J(D(N),2)..%...."%... PRINT NUMBER CORRE
CT.F%...835:UP.NC:UG$."QUESTION#":.850.R
%..TR$." TRIES -":. NC.NW.2 . TR$." TRY
-"..%..CA$." CORRECT ANSWERS.":. NC.2 .
CA$." CORRECT ANSWER."..%...D(NC.NW);TR$
;D(NC);CA$:.NC.NQ...10)"..THE END":.840:
.200..%B..I.1.40:...&L....&P..".RESULTS"
..&Z..".......".D&...:."IT TOOK YOU ";NC
.NW;" TRIES".I&...:."TO ANSWER ";NQ;" QU
ESTIONS."..&...:."CALL YOUR TEACHER TO S
EE THIS"..&...".........................
....."..& ..835.H&*..980..&P..H(UD$,24);
H(UP$,7);"HELP - PRESS H <RETURN>"..'Z
..H(UD$,15):..A'X..H(UD$,24);H(UP$,7);"
".G'B.....
> CLICK IMAGE PREVIEW FOR FULL MODAL