ADDIT.DRILL/DT
FILE INFORMATION
FILENAME(S): ADDIT.DRILL/DT
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 4 disk(s)
FILE HASH
5601c6d104e07578d87806afa32f3d35725bd66a07dc3a71b0d21c609cbcec62
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | ADDIT.DRILL/DT | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 17 | DOWNLOAD FILE |
| FREESOFT DISK NR | ADDIT.DRILL/DT | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 17 | DOWNLOAD FILE |
| FREEWARE DISK NR | ADDIT.DRILL/DT | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 17 | DOWNLOAD FILE |
| L EHRNEN | ADDIT.DRILL/DT | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 17 | 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 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 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 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 EF 08 22 00 22 4D 33 31 20 47 48 |...:..."."M31 GH|
000000E0: 43 44 20 41 44 44 49 45 52 45 22 20 50 52 47 00 |CD ADDIERE" PRG.|
000000F0: 0B 09 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 |..#.. +++ INPUT |
00000100: 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 23 09 28 00 |SECTION +++.#.(.|
00000110: 97 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 |.UO,0:UR$."":UI$|
00000120: B2 22 22 00 33 09 2A 00 8B 55 4C B2 30 A7 55 4C |."".3.*..UL.0.UL|
00000130: B2 38 30 00 3D 09 2D 00 97 55 43 2C 30 00 51 09 |.80.=.-..UC,0.Q.|
00000140: 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 |2..UI$:.UI$."".5|
00000150: 30 00 7B 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 |0.{.7..UI$..(13)|
00000160: AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 |..(UR$)..1..UC,1|
00000170: 3A 99 22 20 9D 22 3B 3A 89 38 35 00 8E 09 3C 00 |:." .";:.85...<.|
00000180: 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 A2 |.UI$..(20).105..|
00000190: 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 |.>.. .(UR$)..UL.|
000001A0: 35 30 00 C7 09 41 00 8D 31 32 30 3A 8F 20 43 48 |50...A..120:. CH|
000001B0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000001C0: 41 52 41 43 54 45 52 00 D7 09 46 00 55 52 24 B2 |ARACTER...F.UR$.|
000001D0: 55 52 24 AA 55 49 24 00 E1 09 4B 00 99 55 49 24 |UR$.UI$...K..UI$|
000001E0: 3B 00 E9 09 50 00 89 35 30 00 0E 0A 55 00 8F 20 |;...P..50...U.. |
000001F0: 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 |+++ CHECK FOR HE|
00000200: 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 36 |LP REQUEST +++.6|
00000210: 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A |.Z..UR$.UX$.195:|
00000220: 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 |. EXIT TO HELP R|
00000230: 4F 55 54 49 4E 45 00 45 0A 5F 00 8B 55 46 B2 31 |OUTINE.E._..UF.1|
00000240: A7 8D 32 34 30 00 52 0A 64 00 55 46 B2 30 3A 99 |..240.R.d.UF.0:.|
00000250: 3A 8E 00 6B 0A 66 00 8F 20 2B 2B 20 43 48 45 43 |:..k.f.. ++ CHEC|
00000260: 4B 20 44 45 4C 45 54 45 20 2B 2B 00 7C 0A 69 00 |K DELETE ++.|.i.|
00000270: 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 94 0A 6E |..(UR$).1.50...n|
00000280: 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 |.UR$..(UR$,.(UR$|
00000290: 29 AB 31 29 00 A6 0A 73 00 99 22 9D 20 20 9D 9D |).1)...s..". ..|
000002A0: 22 3B 3A 89 35 30 00 CD 0A 78 00 8F 20 2B 2B 20 |";:.50...x.. ++ |
000002B0: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000002C0: 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 DF 0A |CHARACTERS ++...|
000002D0: 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 |}...(US$).0.150.|
000002E0: F0 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 |.....US.1..(US$)|
000002F0: 00 07 0B 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C |......UI$..(US$,|
00000300: 55 53 2C 31 29 A7 8E 00 0D 0B 8C 00 82 00 1A 0B |US,1)...........|
00000310: 91 00 55 49 24 B2 22 22 3A 8E 00 35 0B 96 00 8F |..UI$."":..5....|
00000320: 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 | ** STANDARD INP|
00000330: 55 54 20 2A 2A 00 46 0B 98 00 8B C6 28 55 49 24 |UT **.F.....(UI$|
00000340: 29 B2 34 36 A7 8E 00 57 0B 9B 00 8B 55 49 24 B2 |).46...W....UI$.|
00000350: C7 28 33 32 29 A7 8E 00 74 0B A0 00 8B C6 28 55 |.(32)...t.....(U|
00000360: 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 |I$).48..(UI$).57|
00000370: A7 31 37 30 00 7A 0B A5 00 8E 00 97 0B AA 00 8B |.170.z..........|
00000380: C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 |.(UI$).65..(UI$)|
00000390: B1 39 30 A7 31 38 30 00 9D 0B AF 00 8E 00 C1 0B |.90.180.........|
000003A0: B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 |....(UI$).193..(|
000003B0: 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A |UI$).218.UI$."":|
000003C0: 8E 00 E4 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 |........(UT).UU%|
000003D0: A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 |.UI$..(.(UI$).12|
000003E0: 38 29 3A 8E 00 EA 0B BB 00 8E 00 F7 0B BE 00 55 |8):............U|
000003F0: 49 24 B2 22 22 3A 8E 00 23 0C C3 00 55 46 B2 31 |I$."":..#...UF.1|
00000400: 3A 99 22 9D 20 22 3B 3A 8F 20 2B 2B 2B 20 48 45 |:.". ";:. +++ HE|
00000410: 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 |LP ROUTINE EXIT |
00000420: 2B 2B 2B 00 2C 0C C5 00 8D 32 35 30 00 35 0C C8 |+++.,....250.5..|
00000430: 00 8D 32 34 35 00 4B 0C CD 00 81 55 51 B2 55 42 |..245.K....UQ.UB|
00000440: AA 32 34 30 A4 55 42 AA 37 32 30 00 67 0C D2 00 |.240.UB.720.g...|
00000450: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000460: 3A 82 3A 99 22 93 22 00 7A 0C D7 00 55 5A B2 31 |:.:.".".z...UZ.1|
00000470: 3A 55 56 25 B2 C2 28 55 54 29 00 83 0C D8 00 89 |:UV%..(UT)......|
00000480: 33 30 30 00 C7 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000490: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
000004A0: 55 4A 3A 55 4C B2 55 4B 3A 8B C2 28 35 30 30 30 |UJ:UL.UK:..(5000|
000004B0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
000004C0: 33 32 38 30 2C 31 34 00 E6 0C DC 00 55 54 24 B2 |3280,14.....UT$.|
000004D0: 55 4C 24 3A 99 22 93 22 3B 3A 97 55 54 2C 55 56 |UL$:.".";:.UT,UV|
000004E0: 25 3A 8D 38 35 35 00 FC 0C DD 00 81 55 51 B2 55 |%:.855......UQ.U|
000004F0: 42 AA 32 34 30 A4 55 42 AA 37 32 30 00 11 0D E1 |B.240.UB.720....|
00000500: 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A |..UQ,UQ%(UQ.UB):|
00000510: 82 00 1D 0D E6 00 97 55 31 2C 55 31 25 00 29 0D |.......U1,U1%.).|
00000520: E8 00 97 55 32 2C 55 32 25 00 35 0D E9 00 97 55 |...U2,U2%.5....U|
00000530: 34 2C 55 34 25 00 43 0D EA 00 97 55 33 2C 55 33 |4,U4%.C....U3,U3|
00000540: 25 AB 31 00 50 0D EB 00 8B 46 4C B2 30 A7 33 35 |%.1.P....FL.0.35|
00000550: 00 5B 0D EC 00 46 4C B2 30 3A 8E 00 8D 0D F0 00 |.[...FL.0:......|
00000560: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1|
00000570: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..|
00000580: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 C8 0D |(UD$,UD%.1):....|
00000590: F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |....(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 12 20 48 49 4C 46 45 20 4B 4F 4D 4D | . HILFE KOMM|
000005C0: 54 20 92 20 20 22 3A 8E 00 F4 0D FA 00 55 31 25 |T . ":......U1%|
000005D0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005E0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005F0: 28 55 34 29 00 1C 0E FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
00000600: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
00000610: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 22 0E FF |:UJ.UP:UK.UL."..|
00000620: 00 8E 00 33 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...3.,.. ** MENU|
00000630: 20 2A 2A 00 39 0E 2D 01 3A 00 68 0E 2E 01 99 22 | **.9.-.:.h...."|
00000640: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000650: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000660: 97 35 33 32 38 30 2C 38 00 6E 0E 2F 01 3A 00 8B |.53280,8.n./.:..|
00000670: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000680: 20 20 20 20 20 20 4D 45 4E 55 22 00 BA 0E 36 01 | MENU"...6.|
00000690: 99 22 20 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 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 EB 0E 3B 01 99 |---------"...;..|
000006C0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000006D0: 45 47 49 4E 4E 20 27 53 43 48 52 49 46 54 4C 2E |EGINN 'SCHRIFTL.|
000006E0: 20 41 44 44 49 45 52 45 4E 27 22 00 12 0F 40 01 | ADDIEREN'"...@.|
000006F0: 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 |.".. 2. |
00000700: 53 43 48 55 45 4C 45 52 41 4E 4C 45 49 54 55 4E |SCHUELERANLEITUN|
00000710: 47 22 00 37 0F 45 01 99 22 11 11 20 20 20 20 20 |G".7.E..".. |
00000720: 20 20 33 2E 20 20 20 4C 45 48 52 45 52 41 4E 4C | 3. LEHRERANL|
00000730: 45 49 54 55 4E 47 22 00 53 0F 4F 01 99 22 11 11 |EITUNG".S.O.."..|
00000740: 20 20 20 20 20 20 20 34 2E 20 20 20 45 4E 44 45 | 4. ENDE|
00000750: 11 11 22 00 82 0F 54 01 99 22 20 2D 2D 2D 2D 2D |.."...T.." -----|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 22 00 A7 0F 59 01 99 22 11 11 20 20 20 20 20 |-"...Y..".. |
00000790: 20 20 54 41 53 54 45 20 31 2D 34 20 44 52 55 45 | TASTE 1-4 DRUE|
000007A0: 43 4B 45 4E 20 22 3B 00 CF 0F 5E 01 55 4C B2 31 |CKEN ";...^.UL.1|
000007B0: 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A |:US$."1234":.35:|
000007C0: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.|
000007D0: DA 0F 60 01 55 53 24 B2 22 22 00 F7 0F 63 01 91 |..`.US$.""...c..|
000007E0: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
000007F0: 35 30 30 2C 33 39 36 00 00 10 68 01 89 33 30 30 |500,396...h..300|
00000800: 00 27 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 |.'.... ** RE-ENA|
00000810: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 |BLE STOP KEY AND|
00000820: 20 45 4E 44 20 2A 2A 00 56 10 8C 01 8B C2 28 35 | END **.V.....(5|
00000830: 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 |0003)..1..(50003|
00000840: 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 |)..160..(50003).|
00000850: B1 30 A7 33 39 39 00 80 10 8D 01 9E 55 55 AA 37 |.0.399......UU.7|
00000860: 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |1:..(50003).0..5|
00000870: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000880: 00 8C 10 8E 01 99 22 9A 93 22 3A 80 00 97 10 8F |......"..":.....|
00000890: 01 8D 38 37 35 3A 8E 00 B8 10 90 01 8F 20 2A 2A |..875:....... **|
000008A0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
000008B0: 54 49 4F 4E 53 20 2A 2A 00 E7 10 95 01 99 22 93 |TIONS **......".|
000008C0: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
000008D0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 |03).0..53281,0:.|
000008E0: 35 33 32 38 30 2C 30 00 08 11 9A 01 55 50 B2 30 |53280,0.....UP.0|
000008F0: 3A 55 47 24 B2 22 D3 43 48 55 45 4C 45 52 41 4E |:UG$.".CHUELERAN|
00000900: 4C 2E 22 3A 8D 38 35 30 00 38 11 9C 01 99 22 11 |L.":.850.8....".|
00000910: 11 20 C4 49 45 53 45 53 20 D0 52 4F 47 52 41 4D |. .IESES .ROGRAM|
00000920: 4D 20 55 45 42 54 20 4D 49 54 20 44 49 52 20 53 |M UEBT MIT DIR S|
00000930: 43 48 52 49 46 54 2D 22 00 67 11 9E 01 99 22 20 |CHRIFT-".g...." |
00000940: 4C 49 43 48 45 53 20 C1 44 44 49 45 52 45 4E 2E |LICHES .DDIEREN.|
00000950: 20 C4 55 20 4B 41 4E 4E 53 54 20 4D 49 54 20 47 | .U KANNST MIT G|
00000960: 52 4F 53 53 45 4E 22 00 A0 11 A0 01 99 22 20 4F |ROSSEN"......" O|
00000970: 44 45 52 20 4B 4C 45 49 4E 45 4E 20 DA 41 48 4C |DER KLEINEN .AHL|
00000980: 45 4E 20 42 5A 57 2E 20 C1 55 46 47 41 42 45 4E |EN BZW. .UFGABEN|
00000990: 20 20 20 20 20 20 20 52 45 43 48 4E 45 4E 2E 22 | RECHNEN."|
000009A0: 00 CB 11 A2 01 99 22 11 20 C7 49 42 20 42 49 54 |......". .IB BIT|
000009B0: 54 45 20 4A 45 44 45 20 DA 49 46 46 45 52 20 45 |TE JEDE .IFFER E|
000009C0: 49 4E 5A 45 4C 4E 20 56 4F 4E 22 00 F9 11 A4 01 |INZELN VON".....|
000009D0: 99 22 20 52 45 43 48 54 53 20 4E 41 43 48 20 4C |." RECHTS NACH L|
000009E0: 49 4E 4B 53 20 45 49 4E 2C 20 57 49 45 20 49 4D |INKS EIN, WIE IM|
000009F0: 20 46 4F 4C 47 45 4E 2D 22 00 17 12 A6 01 99 22 | FOLGEN-"......"|
00000A00: 20 44 45 4E 20 C2 45 49 53 50 49 45 4C 20 47 45 | DEN .EISPIEL GE|
00000A10: 5A 45 49 47 54 3A 22 00 38 12 A8 01 99 22 11 11 |ZEIGT:".8...."..|
00000A20: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000A30: 20 20 39 38 37 36 35 34 00 56 12 AA 01 99 22 20 | 987654.V...." |
00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 20 | + |
00000A50: 35 34 33 32 31 30 00 74 12 AC 01 99 22 20 20 20 |543210.t...." |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 C0 C0 C0 C0 | ....|
00000A70: C0 C0 C0 C0 00 94 12 AE 01 99 22 20 20 20 20 20 |.........." |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A90: 20 12 20 22 00 B2 12 B0 01 99 22 20 20 20 20 20 | . "......" |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 5E 20 20 20 20 | ^ |
00000AB0: 20 5E 00 D2 12 B2 01 99 22 20 20 20 20 20 20 20 | ^......" |
00000AC0: 20 20 20 20 20 20 20 20 C5 4E 44 45 20 D3 54 41 | .NDE .TA|
00000AD0: 52 54 00 E0 12 B4 01 8D 38 33 35 3A 8D 38 35 30 |RT......835:.850|
00000AE0: 00 11 13 C2 01 99 22 11 11 20 D6 45 52 47 49 53 |......".. .ERGIS|
00000AF0: 53 20 4E 49 43 48 54 20 4E 41 43 48 20 4A 45 44 |S NICHT NACH JED|
00000B00: 45 52 20 DA 49 46 46 45 52 45 49 4E 47 41 42 45 |ER .IFFEREINGABE|
00000B10: 22 00 3A 13 C4 01 99 22 20 11 3C D2 C5 D4 D5 D2 |".:...." .<.....|
00000B20: CE 3E 20 5A 55 20 44 52 55 45 43 4B 45 4E 2E 20 |.> ZU DRUECKEN. |
00000B30: C5 52 53 54 20 44 41 4E 4E 22 00 6A 13 C6 01 99 |.RST DANN".j....|
00000B40: 22 20 11 4E 49 4D 4D 54 20 44 45 52 20 C3 4F 4D |" .NIMMT DER .OM|
00000B50: 50 55 54 45 52 20 44 45 49 4E 45 20 C5 49 4E 47 |PUTER DEINE .ING|
00000B60: 41 42 45 20 41 4E 2E 11 11 22 00 96 13 CA 01 99 |ABE AN..."......|
00000B70: 22 20 11 D7 45 4E 4E 20 44 55 20 49 52 47 45 4E |" ..ENN DU IRGEN|
00000B80: 44 57 41 4E 4E 20 C8 49 4C 46 45 20 42 52 41 55 |DWANN .ILFE BRAU|
00000B90: 43 48 53 54 2C 22 00 C2 13 CC 01 99 22 20 11 4B |CHST,"......" .K|
00000BA0: 4F 4D 4D 53 54 20 44 55 20 4D 49 54 20 27 48 27 |OMMST DU MIT 'H'|
00000BB0: 20 49 4E 53 20 CD 45 4E 55 2E 20 C4 55 20 47 45 | INS .ENU. .U GE|
00000BC0: 2D 22 00 F1 13 CE 01 99 22 20 11 4C 41 4E 47 53 |-"......" .LANGS|
00000BD0: 54 20 28 4E 41 43 48 20 44 45 4D 20 CC 45 53 45 |T (NACH DEM .ESE|
00000BE0: 4E 20 44 45 52 20 C1 4E 4C 45 49 54 55 4E 47 29 |N DER .NLEITUNG)|
00000BF0: 22 00 21 14 D0 01 99 22 20 11 41 55 54 4F 4D 41 |".!...." .AUTOMA|
00000C00: 54 49 53 43 48 20 57 49 45 44 45 52 20 5A 55 20 |TISCH WIEDER ZU |
00000C10: 44 45 52 20 C1 55 46 47 41 42 45 2C 20 42 45 49 |DER .UFGABE, BEI|
00000C20: 22 00 47 14 D2 01 99 22 20 11 44 45 52 20 44 55 |".G...." .DER DU|
00000C30: 20 55 4E 54 45 52 42 52 4F 43 48 45 4E 20 48 41 | UNTERBROCHEN HA|
00000C40: 54 54 45 53 54 2E 22 00 50 14 E5 01 8D 38 33 35 |TTEST.".P....835|
00000C50: 00 64 14 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A |.d....UZ.1..UP%:|
00000C60: 89 32 31 37 00 6A 14 F3 01 8E 00 8B 14 F4 01 8F |.217.j..........|
00000C70: 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 | ** TEACHER INST|
00000C80: 52 55 43 54 49 4F 4E 53 20 2A 2A 00 BB 14 F5 01 |RUCTIONS **.....|
00000C90: 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 |.".":.UT,UL%:..(|
00000CA0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000CB0: 32 3A 97 35 33 32 38 30 2C 31 30 00 DD 14 F6 01 |2:.53280,10.....|
00000CC0: 55 50 B2 30 3A 55 47 24 B2 22 CC 45 48 52 45 52 |UP.0:UG$.".EHRER|
00000CD0: 41 4E 4C 45 49 54 2E 22 3A 8D 38 35 30 00 0B 15 |ANLEIT.":.850...|
00000CE0: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T|
00000CF0: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000D00: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 34 15 F8 01 |NOWLEDGE,.".4...|
00000D10: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA|
00000D20: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL|
00000D30: 49 43 11 22 00 60 15 F9 01 99 22 20 20 20 44 4F |IC.".`...." DO|
00000D40: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000D50: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."|
00000D60: 00 7D 15 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |.}...." PLEASE|
00000D70: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 A7 15 | CONTACT:..."...|
00000D80: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD|
00000D90: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000DA0: 48 49 4E 45 53 11 22 00 CA 15 FC 01 99 22 20 20 |HINES."......" |
00000DB0: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA|
00000DC0: 52 4D 41 43 59 20 C1 56 45 2E 00 EE 15 FD 01 99 |RMACY .VE.......|
00000DD0: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC|
00000DE0: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 10 |OURT, .NTARIO"..|
00000DF0: 16 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .|
00000E00: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"|
00000E10: 00 30 16 FF 01 99 22 20 20 20 20 20 20 20 20 20 |.0...." |
00000E20: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"|
00000E30: 00 3F 16 40 02 8D 38 33 35 3A 8D 38 35 30 3A 00 |.?.@..835:.850:.|
00000E40: 6A 16 42 02 99 22 20 20 20 20 20 11 11 D0 52 4F |j.B.." ...RO|
00000E50: 47 52 41 4D 20 CE 41 4D 45 3A 20 C1 44 44 49 54 |GRAM .AME: .DDIT|
00000E60: 49 4F 4E 20 C4 52 49 4C 4C 11 00 97 16 44 02 99 |ION .RILL....D..|
00000E70: 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 |" .RITTEN .Y|
00000E80: 20 20 3A 20 C4 4F 4E 41 4C 44 20 D2 4F 53 53 20 | : .ONALD .OSS |
00000E90: 20 31 39 37 39 11 22 00 C2 16 46 02 99 22 20 20 | 1979."...F.." |
00000EA0: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :|
00000EB0: 20 D1 55 49 4E 43 59 20 CC 45 45 20 20 31 39 38 | .UINCY .EE 198|
00000EC0: 32 11 00 F4 16 48 02 99 22 12 20 20 20 20 20 D5 |2....H..". .|
00000ED0: 45 42 45 52 53 45 54 5A 54 20 55 4E 44 20 42 45 |EBERSETZT UND BE|
00000EE0: 41 52 42 45 49 54 45 54 20 56 4F 4E 20 20 20 20 |ARBEITET VON |
00000EF0: 20 20 22 3B 00 25 17 4A 02 99 22 12 20 20 20 20 | ";.%.J..". |
00000F00: 20 20 20 20 20 20 20 20 C3 20 D7 20 D3 20 20 D7 | . . . .|
00000F10: 55 45 52 5A 42 55 52 47 20 20 20 20 20 20 20 20 |UERZBURG |
00000F20: 20 20 20 20 22 00 4E 17 4C 02 99 22 20 20 20 20 | ".N.L.." |
00000F30: 20 20 20 20 20 C2 C1 D3 C9 C3 20 32 2F 34 2E 30 | ..... 2/4.0|
00000F40: 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 70 | ..............p|
00000F50: 17 4E 02 99 22 20 20 20 20 20 20 20 20 20 38 30 |.N.." 80|
00000F60: 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 |32 ... .........|
00000F70: 00 95 17 50 02 99 22 20 20 20 20 20 20 20 20 20 |...P.." |
00000F80: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000F90: D0 D5 D4 C5 D2 00 9E 17 52 02 8D 38 33 35 00 B2 |........R..835..|
00000FA0: 17 54 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |.T..UZ.1..UP%:.2|
00000FB0: 31 37 00 B8 17 56 02 8E 00 DE 17 58 02 8F 20 2A |17...V.....X.. *|
00000FC0: 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 |* PROGRAM MODIFI|
00000FD0: 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 EF |CATION INST **..|
00000FE0: 17 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 |.Y..".":.UT,UL%.|
00000FF0: 0F 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 |..].UP.0:UG$.".R|
00001000: 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 |OGRAM .OD":.850.|
00001010: 18 18 94 02 8D 38 33 35 00 2C 18 B2 02 8B 55 5A |.....835.,....UZ|
00001020: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 32 18 BB |.1..UP%:.217.2..|
00001030: 02 8E 00 57 18 BC 02 8F 20 2A 2A 20 54 4F 20 55 |...W.... ** TO U|
00001040: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
00001050: 34 30 33 32 20 2A 2A 00 8D 18 C6 02 99 22 93 11 |4032 **......"..|
00001060: 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00001070: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00001080: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 C3 18 |N AN 8032 .....|
00001090: D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 |..." LOAD T|
000010A0: 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 |HE 'CBM 4032' PR|
000010B0: 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 |OGRAM...........|
000010C0: 11 11 22 00 CE 18 DA 02 9E 55 55 AA 37 31 00 D4 |.."......UU.71..|
000010D0: 18 E4 02 80 00 F4 18 20 03 8F 20 2A 2A 20 54 20 |....... .. ** T |
000010E0: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
000010F0: 45 20 2A 2A 00 28 19 22 03 99 22 93 11 1D 05 22 |E **.(.".."...."|
00001100: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00001110: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
00001120: 97 35 33 32 38 31 2C 36 00 3E 19 24 03 81 49 B2 |.53281,6.>.$..I.|
00001130: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 56 |1.38:."...";:..V|
00001140: 19 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
00001150: A6 92 22 3B 3A 82 00 6E 19 28 03 81 49 B2 31 A4 |..";:..n.(..I.1.|
00001160: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 86 |37:.".....";:...|
00001170: 19 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00001180: A6 92 22 3B 3A 82 00 AB 19 2C 03 99 22 13 11 11 |..";:....,.."...|
00001190: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011A0: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 CD 19 2E 03 |........ ......|
000011B0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000011C0: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 EE 19 |..... . . .....|
000011D0: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
000011E0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 0C |....... . .....|
000011F0: 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00001200: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 34 1A 34 |......... ..4.4|
00001210: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001220: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
00001230: 20 45 11 11 00 58 1A 36 03 99 22 1D 1D 1D 1D 1D | E...X.6..".....|
00001240: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4C 45 52 4E 53 4F |..........LERNSO|
00001250: 46 54 57 41 52 45 11 11 00 7D 1A 38 03 99 22 1D |FTWARE...}.8..".|
00001260: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 57 20 53 |...........C W S|
00001270: 20 20 20 57 55 45 52 5A 42 55 52 47 22 00 98 1A | WUERZBURG"...|
00001280: 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 |:.. ** COMMODORE|
00001290: 20 4C 4F 47 4F 20 2A 2A 00 D3 1A 3B 03 99 C8 28 | LOGO **...;...(|
000012A0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 12 4C |UD$,24);"......L|
000012B0: 45 45 52 54 41 53 54 45 20 44 52 55 45 43 4B 45 |EERTASTE DRUECKE|
000012C0: 4E 20 4F 44 45 52 20 57 41 52 54 45 4E 92 22 3A |N ODER WARTEN.":|
000012D0: 49 B2 30 00 F5 1A 3C 03 A1 41 24 3A 8B 41 24 B3 |I.0...<..A$:.A$.|
000012E0: B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 |." ".I.I.1:.I.25|
000012F0: 30 A7 38 32 38 00 19 1B 3E 03 54 31 24 B2 22 22 |0.828...>.T1$.""|
00001300: 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 |:T2$."":T3$."":T|
00001310: 34 24 B2 22 22 3A 49 B2 30 00 22 1B 40 03 89 33 |4$."":I.0.".@..3|
00001320: 30 30 00 3E 1B 43 03 8F 20 2A 2A 20 53 50 41 43 |00.>.C.. ** SPAC|
00001330: 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 7B |E BAR PRESS **.{|
00001340: 1B 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C |.H..UO,0:..(UD$,|
00001350: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 20 20 20 20 12 |24);"...... .|
00001360: 20 CC 45 45 52 54 41 53 54 45 20 44 52 55 45 43 | .EERTASTE DRUEC|
00001370: 4B 45 4E 20 92 20 20 20 20 20 22 00 92 1B 4C 03 |KEN . "...L.|
00001380: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 |.UI$:.UI$.." ".8|
00001390: 34 34 00 98 1B 4E 03 8E 00 B8 1B 52 03 8F 20 2A |44...N.....R.. *|
000013A0: 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F |* PAGE DESIGN RO|
000013B0: 55 54 49 4E 45 20 2A 2A 00 C4 1B 54 03 55 50 B2 |UTINE **...T.UP.|
000013C0: 55 50 AA 31 00 EE 1B 57 03 99 22 93 22 C8 28 55 |UP.1...W..".".(U|
000013D0: 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 |T$.UP$,21);.(UP$|
000013E0: AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 1D |.UG$..(UP),18)..|
000013F0: 1C 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.\.." ----------|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 2C 1C |------------".,.|
00001420: 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 60 1C 61 |`..UH..0.870.`.a|
00001430: 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 |...(UD$,24);.(UP|
00001440: 24 2C 37 29 3B 22 C8 49 4C 46 45 20 48 20 3C 52 |$,7);".ILFE H <R|
00001450: 45 54 55 52 4E 3E 20 44 52 55 45 43 4B 45 4E 22 |ETURN> DRUECKEN"|
00001460: 00 71 1C 66 03 55 48 B2 30 3A 99 22 13 11 22 3A |.q.f.UH.0:."..":|
00001470: 8E 00 90 1C 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 |....k.. ** PLEAS|
00001480: 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A |E WAIT REMARK **|
00001490: 00 C7 1C 70 03 99 C8 28 55 44 24 2C 32 34 29 3B |...p...(UD$,24);|
000014A0: 22 20 20 20 20 20 20 20 20 20 20 20 C5 49 4E 45 |" .INE|
000014B0: 4E 20 CD 4F 4D 45 4E 54 20 42 49 54 54 45 2E 2E |N .OMENT BITTE..|
000014C0: 2E 20 20 20 20 20 22 00 CD 1C 75 03 8E 00 EA 1C |. "...u.....|
000014D0: 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 |... ** SET UP VA|
000014E0: 52 49 41 42 4C 45 53 20 2A 2A 00 35 1D 85 03 55 |RIABLES **.5...U|
000014F0: 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 |X$."H":.UQ%(1000|
00001500: 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 |):UB.32768:U1.19|
00001510: 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A |6:U2.197:U3.198:|
00001520: 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 |U4.216:UC.167:UU|
00001530: B2 31 30 32 34 00 73 1D 86 03 55 54 B2 35 39 34 |.1024.s...UT.594|
00001540: 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 |68:UU%.12:UL%.14|
00001550: 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 |:UP%.1146:UM.327|
00001560: 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 |68:UO.158:. 5000|
00001570: 33 2C 30 00 B6 1D 87 03 8B C2 28 35 30 30 30 33 |3,0.......(50003|
00001580: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2|
00001590: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211|
000015A0: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U|
000015B0: 55 B2 32 30 34 38 00 F5 1D 88 03 8B C2 28 35 30 |U.2048.......(50|
000015C0: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:|
000015D0: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP|
000015E0: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U|
000015F0: 4F B2 31 39 38 00 19 1E 89 03 55 44 24 B2 22 13 |O.198.....UD$.".|
00001600: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001610: 11 11 11 11 11 11 11 11 22 00 4B 1E 8A 03 55 50 |........".K...UP|
00001620: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001640: 20 20 20 20 20 20 20 20 20 20 22 00 65 1E 8B 03 | ".e...|
00001650: 55 54 24 B2 22 20 D3 C3 C8 D2 2E 20 C1 C4 C4 C9 |UT$." ..... ....|
00001660: D4 C9 CF CE 22 00 75 1E 8C 03 86 41 28 31 30 2C |....".u....A(10,|
00001670: 31 30 29 3A 8E 00 8F 1E 8E 03 8F 20 2A 2A 20 53 |10):....... ** S|
00001680: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
00001690: 98 1E 93 03 8D 39 30 30 00 B3 1E 98 03 8F 20 2A |.....900...... *|
000016A0: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
000016B0: 20 2A 2A 00 D1 1E 9D 03 99 22 93 22 3A 99 22 A0 | **......".":.".|
000016C0: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
000016D0: 45 00 E8 1E A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E.......(UB.40).|
000016E0: B1 39 36 A7 8D 37 30 30 00 01 1F A3 03 8F 20 2A |.96..700...... *|
000016F0: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
00001700: 2A 00 15 1F A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*...... .(0).200|
00001710: 30 A7 39 33 37 00 43 1F A5 03 99 22 93 11 11 05 |0.937.C...."....|
00001720: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001730: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
00001740: 48 11 22 00 67 1F A6 03 99 22 4D 45 4D 4F 52 59 |H.".g...."MEMORY|
00001750: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
00001760: 47 52 41 4D 20 21 22 00 72 1F A7 03 9E 55 55 AA |GRAM !".r....UU.|
00001770: 37 31 00 78 1F A8 03 80 00 92 1F A9 03 99 22 93 |71.x..........".|
00001780: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
00001790: 36 32 00 C1 1F AC 03 8F 20 2A 2A 20 42 41 53 49 |62...... ** BASI|
000017A0: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
000017B0: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
000017C0: 2A 00 FF 1F AD 03 97 31 30 37 35 2C 31 33 33 3A |*......1075,133:|
000017D0: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
000017E0: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
000017F0: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
00001800: 35 20 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |5 ...1091,155:.1|
00001810: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001820: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001830: 33 2C 31 33 33 00 57 20 AF 03 97 31 31 30 34 2C |3,133.W ...1104,|
00001840: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001850: 30 38 32 2C 32 33 34 00 6E 20 B1 03 8B C2 28 35 |082,234.n ....(5|
00001860: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 9D |0003)..160.955..|
00001870: 20 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 | ...1093,88:.109|
00001880: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
00001890: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 B2 20 |1102,228:.965.. |
000018A0: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
000018B0: 39 30 00 E1 20 C0 03 97 31 30 39 33 2C 34 39 3A |90.. ...1093,49:|
000018C0: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
000018D0: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
000018E0: 35 00 1B 21 C2 03 97 32 30 39 39 2C 31 34 31 3A |5..!...2099,141:|
000018F0: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
00001900: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
00001910: 34 31 3A 97 32 31 30 35 2C 32 31 00 57 21 C3 03 |41:.2105,21.W!..|
00001920: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001930: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001940: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001950: 31 32 32 2C 31 34 31 00 91 21 C4 03 97 32 31 32 |122,141..!...212|
00001960: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001970: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001980: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001990: 33 00 AF 21 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3..!...UU.48:. D|
000019A0: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
000019B0: C0 21 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |.!...800:. TITLE|
000019C0: 00 D0 21 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |..!...300:. MENU|
000019D0: 00 01 22 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |.."...".THE PGM |
000019E0: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
000019F0: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
00001A00: 80 00 36 22 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |..6"...UZ.1..UP%|
00001A10: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001A20: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001A30: 45 52 45 20 2A 2A 00 62 22 E9 03 99 22 93 05 22 |ERE **.b"...".."|
00001A40: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001A50: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001A60: 31 34 00 73 22 D0 07 99 22 93 22 3A 97 55 54 2C |14.s"...".":.UT,|
00001A70: 55 4C 25 00 9C 22 DA 07 8F 20 50 47 4D 20 43 4F |UL%.."... PGM CO|
00001A80: 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 39 |PYRIGHT (C) 1979|
00001A90: 20 44 4F 4E 41 4C 44 20 52 4F 53 53 00 B9 22 E4 | DONALD ROSS..".|
00001AA0: 07 8F 20 43 55 52 53 4F 52 20 23 38 2C 20 4D 41 |.. CURSOR #8, MA|
00001AB0: 52 43 48 2C 20 31 39 37 39 00 DA 22 EE 07 8F 20 |RCH, 1979.."... |
00001AC0: 42 4F 58 20 35 35 30 2C 20 47 4F 4C 45 54 41 2C |BOX 550, GOLETA,|
00001AD0: 20 43 41 2E 20 39 33 30 31 37 00 E0 22 F8 07 3A | CA. 93017.."..:|
00001AE0: 00 F7 22 3E 08 52 B2 AB 31 3A 43 B2 AB 31 3A 41 |..">.R..1:C..1:A|
00001AF0: B2 31 36 3A 45 B2 30 00 1A 23 48 08 55 50 B2 30 |.16:E.0..#H.UP.0|
00001B00: 3A 55 47 24 B2 22 D3 C3 C8 D2 2E 20 C1 C4 C4 C9 |:UG$."..... ....|
00001B10: D4 C9 CF CE 22 3A 8D 38 35 30 00 4A 23 66 08 99 |....":.850.J#f..|
00001B20: 22 11 11 11 11 11 11 20 20 20 20 D7 49 45 20 56 |"...... .IE V|
00001B30: 49 45 4C 45 20 DA 41 48 4C 45 4E 20 53 4F 4C 4C |IELE .AHLEN SOLL|
00001B40: 45 4E 20 49 4E 20 44 45 52 22 00 67 23 6B 08 99 |EN IN DER".g#k..|
00001B50: 22 20 20 20 20 C1 55 46 47 41 42 45 20 53 54 45 |" .UFGABE STE|
00001B60: 48 45 4E 3F 20 22 3B 00 94 23 70 08 55 53 24 B2 |HEN? ";..#p.US$.|
00001B70: 22 48 32 33 34 35 36 37 38 39 22 3A 55 4C B2 31 |"H23456789":UL.1|
00001B80: 3A 8D 33 35 3A 52 24 B2 55 52 24 3A 52 B2 C5 28 |:.35:R$.UR$:R..(|
00001B90: 55 52 24 29 00 C3 23 84 08 99 22 11 11 11 20 20 |UR$)..#..."... |
00001BA0: 20 20 D7 49 45 20 56 49 45 4C 45 20 D3 54 45 4C | .IE VIELE .TEL|
00001BB0: 4C 45 4E 20 53 4F 4C 4C 20 4A 45 44 45 20 DA 41 |LEN SOLL JEDE .A|
00001BC0: 48 4C 22 00 D7 23 89 08 99 22 20 20 20 20 48 41 |HL"..#..." HA|
00001BD0: 42 45 4E 3F 20 22 3B 00 05 24 8E 08 55 53 24 B2 |BEN? ";..$..US$.|
00001BE0: 22 48 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 |"H123456789":UL.|
00001BF0: 31 3A 8D 33 35 3A 43 24 B2 55 52 24 3A 43 B2 C5 |1:.35:C$.UR$:C..|
00001C00: 28 55 52 24 29 00 22 24 98 08 8D 38 37 35 3A 57 |(UR$)."$...875:W|
00001C10: B2 30 3A 81 58 B2 31 A4 43 3A 53 28 58 29 B2 30 |.0:.X.1.C:S(X).0|
00001C20: 3A 82 00 2D 24 A2 08 81 58 B2 31 A4 52 00 44 24 |:..-$...X.1.R.D$|
00001C30: AC 08 41 28 58 2C 31 29 B2 B5 28 BB 28 31 29 AC |..A(X,1)..(.(1).|
00001C40: 39 29 AA 31 00 65 24 B6 08 42 28 58 29 B2 41 28 |9).1.e$..B(X).A(|
00001C50: 58 2C 31 29 3A 53 28 31 29 B2 53 28 31 29 AA 41 |X,1):S(1).S(1).A|
00001C60: 28 58 2C 31 29 00 73 24 C0 08 8B 43 B3 32 A7 32 |(X,1).s$...C.2.2|
00001C70: 33 30 30 00 7E 24 CA 08 81 59 B2 32 A4 43 00 94 |300.~$...Y.2.C..|
00001C80: 24 D4 08 41 28 58 2C 59 29 B2 B5 28 BB 28 31 29 |$..A(X,Y)..(.(1)|
00001C90: AC 31 30 29 00 AC 24 DE 08 42 28 58 29 B2 31 30 |.10)..$..B(X).10|
00001CA0: AC 42 28 58 29 AA 41 28 58 2C 59 29 00 C1 24 E8 |.B(X).A(X,Y)..$.|
00001CB0: 08 53 28 59 29 B2 53 28 59 29 AA 41 28 58 2C 59 |.S(Y).S(Y).A(X,Y|
00001CC0: 29 00 C8 24 F2 08 82 59 00 CF 24 FC 08 82 58 00 |)..$...Y..$...X.|
00001CD0: E9 24 06 09 8D 38 35 30 3A 99 C8 28 55 44 24 2C |.$...850:..(UD$,|
00001CE0: 31 31 2E 35 AB 52 AD 32 29 00 F4 24 10 09 81 58 |11.5.R.2)..$...X|
00001CF0: B2 31 A4 52 00 09 25 1A 09 99 A3 31 39 2E 35 AB |.1.R..%....19.5.|
00001D00: 43 AD 32 29 3B 42 28 58 29 00 10 25 24 09 82 58 |C.2);B(X)..%$..X|
00001D10: 00 39 25 2E 09 99 A3 31 38 2E 35 AB 43 AD 32 29 |.9%....18.5.C.2)|
00001D20: 3B C8 28 22 91 2B 11 9D C0 C0 C0 C0 C0 C0 C0 C0 |;.(".+..........|
00001D30: C0 C0 C0 22 2C 43 AA 36 29 00 41 25 38 09 4B B2 |...",C.6).A%8.K.|
00001D40: 30 00 49 25 4C 09 5A B2 43 00 59 25 56 09 53 28 |0.I%L.Z.C.Y%V.S(|
00001D50: 5A 29 B2 53 28 5A 29 AA 4B 00 76 25 60 09 4B B2 |Z).S(Z).K.v%`.K.|
00001D60: B5 28 53 28 5A 29 AD 31 30 29 3A 42 B2 53 28 5A |.(S(Z).10):B.S(Z|
00001D70: 29 AB 4B AC 31 30 00 9E 25 6A 09 99 C8 28 55 44 |).K.10..%j...(UD|
00001D80: 24 2C 31 33 2E 35 AA 52 AD 32 29 3B A3 31 39 2E |$,13.5.R.2);.19.|
00001D90: 35 AB 43 AD 32 AA 5A 29 3B 22 20 9D 22 3B 00 A8 |5.C.2.Z);" .";..|
00001DA0: 25 74 09 8D 33 30 30 30 00 BB 25 7E 09 8B C5 28 |%t..3000..%~...(|
00001DB0: 55 49 24 29 B2 42 A7 32 34 35 30 00 F8 25 88 09 |UI$).B.2450..%..|
00001DC0: 57 B2 57 AA 31 3A 99 22 13 22 A3 35 29 22 11 11 |W.W.1:.".".5)"..|
00001DD0: 11 12 20 CE 45 49 4E 21 20 D6 45 52 53 55 43 48 |.. .EIN! .ERSUCH|
00001DE0: 27 53 20 4E 4F 43 48 20 45 49 4E 4D 41 4C 2E 20 |'S NOCH EINMAL. |
00001DF0: 92 22 3A 89 32 34 31 30 00 38 26 92 09 99 22 13 |.":.2410.8&...".|
00001E00: 22 A3 35 29 22 11 11 11 20 20 20 20 20 20 20 20 |".5)"... |
00001E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8B | ":.|
00001E30: 5A B2 31 A7 32 36 30 30 00 60 26 9C 09 99 C8 28 |Z.1.2600.`&....(|
00001E40: 55 44 24 2C 31 31 2E 35 AB 52 AD 32 29 3B 22 20 |UD$,11.5.R.2);" |
00001E50: 20 20 20 20 CD 45 52 4B 45 20 2D 2D 2D 3E 22 3B | .ERKE --->";|
00001E60: 00 7D 26 A1 09 99 A3 31 38 2E 35 AB 43 AD 32 AA |.}&....18.5.C.2.|
00001E70: 5A 29 3B 22 20 9D 22 3B 3A 52 56 B2 31 00 87 26 |Z);" .";:RV.1..&|
00001E80: A6 09 8D 33 30 30 30 00 9A 26 BA 09 8B C5 28 55 |...3000..&....(U|
00001E90: 49 24 29 B2 4B A7 32 35 31 30 00 D7 26 C4 09 57 |I$).K.2510..&..W|
00001EA0: B2 57 AA 31 3A 99 22 13 22 A3 35 29 22 11 11 11 |.W.1:.".".5)"...|
00001EB0: 12 A0 CE 45 49 4E 21 20 D6 45 52 53 55 43 48 27 |...EIN! .ERSUCH'|
00001EC0: 53 20 4E 4F 43 48 20 45 49 4E 4D 41 4C 2E 20 92 |S NOCH EINMAL. .|
00001ED0: 22 3A 89 32 34 36 30 00 FF 26 CE 09 99 C8 28 55 |":.2460..&....(U|
00001EE0: 44 24 2C 31 31 2E 35 AB 52 AD 32 29 3B 22 92 20 |D$,11.5.R.2);". |
00001EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001F00: 40 27 D8 09 99 22 13 22 A3 35 29 22 11 11 11 20 |@'...".".5)"... |
00001F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F30: 20 20 11 22 3A 5A B2 5A AB 31 3A 89 32 33 39 30 | .":Z.Z.1:.2390|
00001F40: 00 4E 27 28 0A 8B 4B B2 30 A7 32 36 35 35 00 74 |.N'(..K.0.2655.t|
00001F50: 27 2D 0A 99 C8 28 55 44 24 2C 31 33 2E 35 AA 52 |'-...(UD$,13.5.R|
00001F60: AD 32 29 3B A3 31 39 2E 35 AB 43 AD 32 29 3B 22 |.2);.19.5.C.2);"|
00001F70: 20 9D 22 3B 00 7E 27 32 0A 8D 33 30 30 30 00 91 | .";.~'2..3000..|
00001F80: 27 46 0A 8B C5 28 55 49 24 29 B2 4B A7 32 36 35 |'F...(UI$).K.265|
00001F90: 30 00 CE 27 50 0A 57 B2 57 AA 31 3A 99 22 13 22 |0..'P.W.W.1:."."|
00001FA0: A3 35 29 22 11 11 11 12 A0 CE 45 49 4E 21 20 D6 |.5)"......EIN! .|
00001FB0: 45 52 53 55 43 48 27 53 20 4E 4F 43 48 20 45 49 |ERSUCH'S NOCH EI|
00001FC0: 4E 4D 41 4C 2E 20 92 22 3A 89 32 36 30 30 00 03 |NMAL. .":.2600..|
00001FD0: 28 5A 0A 99 22 13 22 A3 35 29 22 11 11 11 20 20 |(Z..".".5)"... |
00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002000: 20 20 22 00 11 28 5F 0A 8B 57 B1 33 A7 32 36 36 | "..(_..W.3.266|
00002010: 32 00 39 28 64 0A 99 C8 28 55 44 24 2C 32 30 29 |2.9(d...(UD$,20)|
00002020: 3B A3 31 34 29 22 C7 D5 D4 C5 20 C1 D2 C2 C5 C9 |;.14)".... .....|
00002030: D4 21 22 3A 89 32 36 36 35 00 63 28 66 0A 99 C8 |.!":.2665.c(f...|
00002040: 28 55 44 24 2C 32 30 29 3B A3 31 30 29 22 C4 55 |(UD$,20);.10)".U|
00002050: 20 4D 55 53 53 54 20 4E 4F 43 48 20 55 45 42 45 | MUSST NOCH UEBE|
00002060: 4E 21 22 00 88 28 69 0A 99 A3 37 29 22 11 C4 55 |N!"..(i...7)"..U|
00002070: 20 48 41 53 54 22 57 22 C6 45 48 4C 45 52 20 47 | HAST"W".EHLER G|
00002080: 45 4D 41 43 48 54 2E 22 00 9B 28 6A 0A 8D 38 33 |EMACHT."..(j..83|
00002090: 35 3A 55 48 B2 31 3A 8D 38 35 30 00 D0 28 6E 0A |5:UH.1:.850..(n.|
000020A0: 99 22 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |."......... |
000020B0: 20 20 20 20 CD 4F 45 43 48 54 45 53 54 20 44 55 | .OECHTEST DU|
000020C0: 20 45 53 20 4E 4F 43 48 20 45 49 4E 4D 41 4C 22 | ES NOCH EINMAL"|
000020D0: 00 0A 29 78 0A 99 22 20 20 20 20 20 20 20 20 20 |..)x.." |
000020E0: 56 45 52 53 55 43 48 45 4E 3F 20 22 3B 3A 55 53 |VERSUCHEN? ";:US|
000020F0: 24 B2 22 4A 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A |$."JN":UL.1:.35:|
00002100: 8B 55 52 24 B2 22 4E 22 A7 8E 00 14 29 82 0A 89 |.UR$."N"....)...|
00002110: 32 32 30 30 00 31 29 B8 0B 97 55 43 2C 30 3A 55 |2200.1)...UC,0:U|
00002120: 49 24 B2 22 22 3A 8B 52 56 B2 31 A7 99 22 12 22 |I$."":.RV.1.."."|
00002130: 3B 00 45 29 C2 0B A1 49 24 3A 8B 49 24 B2 22 22 |;.E)...I$:.I$.""|
00002140: A7 33 30 31 30 00 60 29 C7 0B 8B 49 24 B2 C7 28 |.3010.`)...I$..(|
00002150: 31 33 29 AF 55 49 24 B3 B1 22 22 A7 33 30 38 30 |13).UI$.."".3080|
00002160: 00 82 29 CC 0B 8B 49 24 B3 B1 22 48 22 AF 28 49 |..)...I$.."H".(I|
00002170: 24 B3 22 30 22 B0 49 24 B1 22 39 22 29 A7 33 30 |$."0".I$."9").30|
00002180: 31 30 00 9C 29 D6 0B 55 49 24 B2 49 24 3A 99 55 |10..)..UI$.I$:.U|
00002190: 49 24 22 9D 22 3B 3A 89 33 30 31 30 00 BD 29 08 |I$".";:.3010..).|
000021A0: 0C 97 55 43 2C 31 3A 99 55 49 24 3B 3A 8B 55 49 |..UC,1:.UI$;:.UI|
000021B0: 24 B3 B1 22 48 22 A7 52 56 B2 30 3A 8E 00 D1 29 |$.."H".RV.0:...)|
000021C0: 12 0C 46 4C B2 31 3A 8D 31 39 35 3A 89 33 30 30 |..FL.1:.195:.300|
000021D0: 30 00 00 00 |0... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:..."."M31 GHCD ADDIERE" PRG.
..#.. +++ INPUT SECTION +++.#.(..UO,0:UR
$."":UI$."".3.*..UL.0.UL.80.=.-..UC,0.Q.
2..UI$:.UI$."".50.{.7..UI$.G(13).C(UR$).
.1..UC,1:." .";:.85...<..UI$.G(20).105..
.>.. C(UR$)..UL.50.G.A..120:. CHECK FOR
VALID CHARACTER.W.F.UR$.UR$.UI$...K..UI$
;...P..50...U.. +++ CHECK FOR HELP REQUE
ST +++.6.Z..UR$.UX$.195:. EXIT TO HELP R
OUTINE.E._..UF.1..240.R.D.UF.0:.:..K.F..
++ CHECK DELETE ++.|.I..C(UR$).1.50...N
.UR$.H(UR$,C(UR$).1)...S..". ..";:.50.M
.X.. ++ CHECK FOR VALID CHARACTERS ++...
}..C(US$).0.150......US.1.C(US$)......UI
$.J(US$,US,1).............UI$."":..5....
** STANDARD INPUT **.F....F(UI$).46...W
....UI$.G(32)...T. ..F(UI$).48.F(UI$).57
.170.Z..........F(UI$).65.F(UI$).90.180.
......A....F(UI$).193.F(UI$).218.UI$."":
.......B(UT).UU%.UI$.G(F(UI$).128):.....
.......UI$."":..#.C.UF.1:.". ";:. +++ HE
LP ROUTINE EXIT +++.,.E..250.5.H..245.K.
M..UQ.UB.240.UB.720.G.R.UQ%(UQ.UB).B(UQ)
:.:.".".Z.W.UZ.1:UV%.B(UT)...X..300.G.Y.
UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK:.B(5000
3).0..53281,6:.53280,14.....UT$.UL$:."."
;:.UT,UV%:.855......UQ.UB.240.UB.720....
..UQ,UQ%(UQ.UB):.......U1,U1%.)....U2,U2
%.5....U4,U4%.C....U3,U3%.1.P....FL.0.35
.[...FL.0:......UD%.((U2%.256.U1%.U3%).U
B).40:.H(UD$,UD%.1):..H....H(UD$,24);"
. HILFE KOMMT . ":.
.....U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B
(U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:U
K.UL.".....3.,.. ** MENU **.9.-.:.H...."
.":.UT,UU%:.B(50003).0..53281,9:.53280,8
.N./.:...1..". MENU"...6.
." -------------------------------------
-"...;..".. 1. BEGINN 'SCHRIFTL.
ADDIEREN'"...@..".. 2. SCHUELER
ANLEITUNG".7.E..".. 3. LEHRERANL
EITUNG".S.O..".. 4. ENDE.."...T.
." -------------------------------------
-"...Y..".. TASTE 1-4 DRUECKEN ";.
O.^.UL.1:US$."1234":.35:. INPUT ROUTINE.
Z.`.US$.""...C..E(UR$).1000,400,500,396.
..H..300.'.... ** RE-ENABLE STOP KEY AND
END **.V....B(50003)..1.B(50003)..160.B
(50003)..0.399......UU.71:.B(50003).0..5
3281,6:.53280,14......"..":.......875:..
..... ** STUDENT INSTRUCTIONS **......".
":.UT,UL%:.B(50003).0..53281,0:.53280,0.
....UP.0:UG$."SCHUELERANL.":.850.8....".
. DIESES PROGRAMM UEBT MIT DIR SCHRIFT-"
.G...." LICHES ADDIEREN. DU KANNST MIT G
ROSSEN". . .." ODER KLEINEN ZAHLEN BZW.
AUFGABEN RECHNEN.".K....". GIB BIT
TE JEDE ZIFFER EINZELN VON"......" RECHT
S NACH LINKS EIN, WIE IM FOLGEN-"......"
DEN BEISPIEL GEZEIGT:".8...."...
987654.V...." +
543210.T...." ............
.." . "......"
^ ^.R...."
ENDE START......835:.850...B..".. VERGIS
S NICHT NACH JEDER ZIFFEREINGABE".:.D.."
.<RETURN> ZU DRUECKEN. ERST DANN".J.F..
" .NIMMT DER COMPUTER DEINE EINGABE AN..
."...J.." .WENN DU IRGENDWANN HILFE BRAU
CHST,".B.L.." .KOMMST DU MIT 'H' INS MEN
U. DU GE-"...N.." .LANGST (NACH DEM LESE
N DER ANLEITUNG)".!.P.." .AUTOMATISCH WI
EDER ZU DER AUFGABE, BEI".G.R.." .DER DU
UNTERBROCHEN HATTEST.".P....835.D....UZ
.1..UP%:.217.J.......... ** TEACHER INST
RUCTIONS **......".":.UT,UL%:.B(50003).0
..53281,2:.53280,10.....UP.0:UG$."LEHRER
ANLEIT.":.850......".. TO THE BEST
OF OUR KNOWLEDGE,.".4...." THIS PROGRA
M IS IN THE PUBLIC.".`...." DOMAIN. I
F THIS IS NOT THE CASE.".}...." PLEASE
CONTACT:..."......" COMMODORE BUSI
NESS MACHINES.".J...." 3370 PHA
RMACY AVE......." AGINCOURT, ON
TARIO"......" CANADA M1W 2K4"
.0...." (416) 499-4292".?.@..83
5:.850:.J.B.." ..PROGRAM NAME: ADDIT
ION DRILL....D.." WRITTEN BY : DONA
LD ROSS 1979.".B.F.." UPGRADED BY :
QUINCY LEE 1982....H..". UEBERSETZ
T UND BEARBEITET VON ";.%.J..".
C W S WUERZBURG ".N.
L.." BASIC 2/4.0 PET COMPUTER..P
.N.." 8032 CBM COMPUTER....P.."
COMMODORE 64 COMPUTER...R..835..
.T..UZ.1..UP%:.217...V.....X.. ** PROGRA
M MODIFICATION INST **...Y..".":.UT,UL%.
..].UP.0:UG$."PROGRAM MOD":.850......835
.,....UZ.1..UP%:.217.2.....W.... ** TO U
SE 8032 LOAD CBM4032 **...F..".....BEFOR
E RUNNING THIS PROGRAM ON AN 8032 ...C.
P.." LOAD THE 'CBM 4032' PROGRAM...
..........".N.Z..UU.71.T....... .. ** T
I T L E P A G E **.(.".."....";:.UT,UU
%:.B(50003).0..53280,14:.53281,6.>.$..I.
1.38:."...";:..V.&..I.1.22:.".....";:..N
.(..I.1.37:.".....";:....*..I.1.22:."...
..";:....,.."...........................
..M...."................... . . .....
0.."................... . ......2.."...
................. ..4.4..".............
.C O M M O D O R E...X.6..".............
..LERNSOFTWARE...}.8.."............C W S
WUERZBURG"...:.. ** COMMODORE LOGO **
.S.;..H(UD$,24);"......LEERTASTE DRUECKE
N ODER WARTEN.":I.0...<..A$:.A$.." ".I.I
.1:.I.250.828...>.T1$."":T2$."":T3$."":T
4$."":I.0.".@..300.>.C.. ** SPACE BAR PR
ESS **.{.H..UO,0:.H(UD$,24);"...... .
LEERTASTE DRUECKEN . "...L..UI$:.UI
$.." ".844...N.....R.. ** PAGE DESIGN RO
UTINE **.D.T.UP.UP.1...W.."."H(UT$.UP$,2
1);I(UP$.UG$.D(UP),18)...\.." ----------
----------------------------".,.`..UH..0
.870.`.A..H(UD$,24);H(UP$,7);"HILFE H <R
ETURN> DRUECKEN".Q.F.UH.0:."..":....K..
** PLEASE WAIT REMARK **.G.P..H(UD$,24);
" EINEN MOMENT BITTE... ".
M.U........ ** SET UP VARIABLES **.5...U
X$."H":.UQ%(1000):UB.32768:U1.196:U2.197
:U3.198:U4.216:UC.167:UU.1024.S...UT.594
68:UU%.12:UL%.14:UP%.1146:UM.32768:UO.15
8:. 50003,0......B(50003).0.UB.1024:U1.2
09:U2.210:U3.211:U4.214:UC.204:UU.2048..
....B(50003).0.UT.53272:UU%.21:UL%.23:UP
%.2139:UM.1024:UO.198.....UD$.".........
................".K...UP$."
".E...UT$." SC
HR. ADDITION".U....A(10,10):....... ** S
ET VARIABLES **......900...... ** CHECK
FOR 8032 **.Q....".":." ":. SHIFTED SPAC
E......B(UB.40)..96..700...... ** MEMORY
CHECK **...... .(0).2000.937.C...."....
THIS MACHINE DOES NOT HAVE ENOUGH.".G...
."MEMORY TO RUN THIS PROGRAM !".R....UU.
71.X.........."..":.B(50003).0.962.A....
** BASIC 2.0 OR 4.0 OR C-64 SETUP *
*......1075,133:.1076,144:.1077,234:.107
9,4:.1080,133:.1081,145.5 ...1091,155:.1
098,133:.1099,144:.1100,234:.1103,133.W
...1104,145:.1105,234:.1082,234.N ...B(5
0003)..160.955.. ...1093,88:.1094,228:.1
097,85:.1102,228:.965.. ...B(50003)..1.9
90.. ...1093,49:.1094,230:.1097,46:.1102
,230:.965..!B..2099,141:.2100,20:.2101,3
:.2103,8:.2104,141:.2105,21.W!C..2106,3:
.2115,145:.2117,52:.2118,234:.2121,49:.2
122,141..!D..2123,20:.2124,3:.2126,234:.
2127,141:.2128,21:.2129,3..!E..UU.48:. D
ISABLE STOP KEY..!J..800:. TITLE.P!T..30
0:. MENU.."...".THE PGM WILL NOT WORK ON
THIS MACHINE!":..6"...UZ.1..UP%:.UP%:UZ
.0:. ** PROGRAM STARTS HERE **.B"...".."
;:.:.B(50003).0..53281,6:.53280,14.S"P..
".":.UT,UL%.."Z.. PGM COPYRIGHT (C) 1979
DONALD ROSS.."... CURSOR #8, MARCH, 197
9.Z"... BOX 550, GOLETA, CA. 93017.."..:
..">.R..1:C..1:A.16:E.0..#H.UP.0:UG$."SC
HR. ADDITION":.850.J#F.."...... WIE V
IELE ZAHLEN SOLLEN IN DER".G#K.." AUF
GABE STEHEN? ";..#P.US$."H23456789":UL.1
:.35:R$.UR$:R.E(UR$).C#..."... WIE VI
ELE STELLEN SOLL JEDE ZAHL".W#..." HA
BEN? ";..$..US$."H123456789":UL.1:.35:C$
.UR$:C.E(UR$)."$...875:W.0:.X.1.C:S(X).0
:..-$...X.1.R.D$..A(X,1)..(.(1).9).1.E$.
.B(X).A(X,1):S(1).S(1).A(X,1).S$...C.2.2
300.~$J..Y.2.C..$T.A(X,Y)..(.(1).10)..$.
.B(X).10.B(X).A(X,Y).A$..S(Y).S(Y).A(X,Y
).H$...Y.O$...X..$...850:.H(UD$,11.5.R.2
)..$...X.1.R..%....19.5.C.2);B(X)..%$..X
.9%....18.5.C.2);H(".+.............",C.6
).A%8.K.0.I%L.Z.C.Y%V.S(Z).S(Z).K.V%`.K.
.(S(Z).10):B.S(Z).K.10..%J..H(UD$,13.5.R
.2);.19.5.C.2.Z);" .";..%T..3000..%~..E(
UI$).B.2450..%..W.W.1:.".".5)".... NEIN!
VERSUCH'S NOCH EINMAL. .":.2410.8&...".
".5)"...
":.Z.1.2600.`&...H(UD$,11.5.R.2);"
MERKE --->";.}&....18.5.C.2.Z);" .";
:RV.1..&...3000..&...E(UI$).K.2510.W&D.W
.W.1:.".".5)".... NEIN! VERSUCH'S NOCH E
INMAL. .":.2460..&N..H(UD$,11.5.R.2);".
".@'X..".".5)"...
.":Z.Z.1:.2390
.N'(..K.0.2655.T'-..H(UD$,13.5.R.2);.19.
5.C.2);" .";.~'2..3000..'F..E(UI$).K.265
0.N'P.W.W.1:.".".5)".... NEIN! VERSUCH'S
NOCH EINMAL. .":.2600..(Z..".".5)"...
"..(_.
.W.3.2662.9(D..H(UD$,20);.14)"GUTE ARBEI
T!":.2665.C(F..H(UD$,20);.10)"DU MUSST N
OCH UEBEN!"..(I...7)".DU HAST"W"FEHLER G
EMACHT."..(J..835:UH.1:.850.P(N.."......
... MOECHTEST DU ES NOCH EINMAL"
..)X.." VERSUCHEN? ";:US$."JN":U
L.1:.35:.UR$."N"....)...2200.1)...UC,0:U
I$."":.RV.1..".";.E)B..I$:.I$."".3010.`)
G..I$.G(13).UI$.."".3080..)L..I$.."H".(I
$."0".I$."9").3010..)V.UI$.I$:.UI$".";:.
3010..)...UC,1:.UI$;:.UI$.."H".RV.0:..Q)
..FL.1:.195:.3000...
> CLICK IMAGE PREVIEW FOR FULL MODAL