BIG MULTIPLY /DT
FILE INFORMATION
FILENAME(S): BIG MULTIPLY /DT
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 4 disk(s)
FILE HASH
0b36136914e7c5f1416c81358befe8cedb4f126c481ec612ea5b995cae46914d
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | BIG MULTIPLY /DT | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 5 | DOWNLOAD FILE |
| FREESOFT DISK NR | BIG MULTIPLY /DT | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 5 | DOWNLOAD FILE |
| FREEWARE DISK NR | BIG MULTIPLY /DT | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 5 | DOWNLOAD FILE |
| L EHRNEN | BIG MULTIPLY /DT | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 5 | 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 F0 08 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 09 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 09 2A 00 8B 55 4C |":UI$.""...*..UL| 00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC| 00000120: 2C 30 00 36 09 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 09 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 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).| 00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)| 00000180: B2 B1 55 4C A7 35 30 00 AC 09 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 09 46 |ID CHARACTER...F| 000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K| 000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..| 000001D0: 09 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 0A 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 0A 5F 00 |ELP ROUTINE.*._.| 00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U| 00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 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 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5| 00000260: 30 00 79 0A 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 0A 73 00 99 22 |.(UR$).1)...s.."| 00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 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 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0| 000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..| 000002D0: 28 55 53 24 29 00 EC 0A 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 0A 8C |(US$,US,1)......| 000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..| 00000300: 1A 0B 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 0B 98 00 8B |D INPUT **.+....| 00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...| 00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B 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 0B A5 00 8E 00 |$).57.170._.....| 00000360: 7C 0B 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 0B AF |(UI$).90.180....| 00000380: 00 8E 00 A6 0B 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 0B 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 0B BB 00 8E 00 |$).128):........| 000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C 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 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......| 00000410: 32 34 35 00 32 0C 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 0C 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: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT| 00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AD 0C D9 00 55 |).j....300.....U| 00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.| 00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 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 0C |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 0C 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 0D E6 00 97 55 31 2C |Q.UB):.......U1,| 00000500: 55 31 25 00 0F 0D E8 00 97 55 32 2C 55 32 25 00 |U1%......U2,U2%.| 00000510: 1B 0D E9 00 97 55 34 2C 55 34 25 00 29 0D EA 00 |.....U4,U4%.)...| 00000520: 97 55 33 2C 55 33 25 AB 31 00 31 0D EB 00 89 33 |.U3,U3%.1.1....3| 00000530: 35 00 63 0D 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 0D 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: 0D 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 0D 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 0D FF 00 8E 00 09 0E 2C 01 8F 20 2A |UL.........,.. *| 00000600: 2A 20 4D 45 4E 55 20 2A 2A 00 0F 0E 2D 01 3A 00 |* MENU **...-.:.| 00000610: 3E 0E 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: 0E 2F 01 3A 00 61 0E 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 0E 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 BA 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. | 000006A0: 31 2E 20 20 20 42 45 47 49 4E 4E 20 27 47 52 4F |1. BEGINN 'GRO| 000006B0: 53 53 45 53 20 31 58 31 27 22 00 E1 0E 40 01 99 |SSES 1X1'"...@..| 000006C0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S| 000006D0: 43 48 55 45 4C 45 52 41 4E 4C 45 49 54 55 4E 47 |CHUELERANLEITUNG| 000006E0: 22 00 06 0F 45 01 99 22 11 11 20 20 20 20 20 20 |"...E..".. | 000006F0: 20 33 2E 20 20 20 4C 45 48 52 45 52 41 4E 4C 45 | 3. LEHRERANLE| 00000700: 49 54 55 4E 47 22 00 22 0F 4F 01 99 22 11 11 20 |ITUNG".".O..".. | 00000710: 20 20 20 20 20 20 34 2E 20 20 20 45 4E 44 45 11 | 4. ENDE.| 00000720: 11 22 00 51 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D |.".Q.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: 22 00 76 0F 59 01 99 22 11 11 20 20 20 20 20 20 |".v.Y..".. | 00000760: 20 54 41 53 54 45 20 31 2D 34 20 44 52 55 45 43 | TASTE 1-4 DRUEC| 00000770: 4B 45 4E 20 22 3B 00 9E 0F 5E 01 55 4C B2 31 3A |KEN ";...^.UL.1:| 00000780: 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F |US$."1234":.35:.| 00000790: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 A9 | INPUT ROUTINE..| 000007A0: 0F 60 01 55 53 24 B2 22 22 00 C6 0F 63 01 91 C5 |.`.US$.""...c...| 000007B0: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5| 000007C0: 30 30 2C 33 39 36 00 CF 0F 68 01 89 33 30 30 00 |00,396...h..300.| 000007D0: F6 0F 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |..... ** RE-ENAB| 000007E0: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND | 000007F0: 45 4E 44 20 2A 2A 00 25 10 8C 01 8B C2 28 35 30 |END **.%.....(50| 00000800: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)| 00000810: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..| 00000820: 30 A7 33 39 39 00 4F 10 8D 01 9E 55 55 AA 37 31 |0.399.O....UU.71| 00000830: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53| 00000840: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.| 00000850: 5B 10 8E 01 99 22 9A 93 22 3A 80 00 66 10 8F 01 |[...."..":..f...| 00000860: 8D 38 37 35 3A 8E 00 87 10 90 01 8F 20 2A 2A 20 |.875:....... ** | 00000870: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT| 00000880: 49 4F 4E 53 20 2A 2A 00 B6 10 95 01 99 22 93 22 |IONS **......"."| 00000890: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000| 000008A0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5| 000008B0: 33 32 38 30 2C 30 00 EB 10 9A 01 55 54 24 B2 22 |3280,0.....UT$."| 000008C0: 20 C7 52 4F 53 53 45 53 20 31 58 31 20 22 3A 55 | .ROSSES 1X1 ":U| 000008D0: 50 B2 30 3A 55 47 24 B2 22 D3 43 48 55 45 4C 45 |P.0:UG$.".CHUELE| 000008E0: 52 41 4E 4C 2E 22 3A 8D 38 35 30 00 16 11 A0 01 |RANL.":.850.....| 000008F0: 99 22 11 11 20 D7 45 4E 4E 20 44 55 20 5A 55 4D |.".. .ENN DU ZUM| 00000900: 20 27 CD C5 CE D5 27 20 5A 55 52 55 45 43 4B 4B | '....' ZURUECKK| 00000910: 45 48 52 45 4E 22 00 43 11 A2 01 99 22 11 20 57 |EHREN".C....". W| 00000920: 49 4C 4C 53 54 2C 20 44 52 55 45 43 4B 45 20 3C |ILLST, DRUECKE <| 00000930: D2 C5 D4 D5 D2 CE 3E 2E 20 C1 55 43 48 20 4E 41 |......>. .UCH NA| 00000940: 43 48 22 00 6D 11 A4 01 99 22 11 20 4A 45 44 45 |CH".m....". JEDE| 00000950: 52 20 C1 4E 54 57 4F 52 54 20 3C D2 C5 D4 D5 D2 |R .NTWORT <.....| 00000960: CE 3E 20 45 49 4E 47 45 42 45 4E 21 22 00 9B 11 |.> EINGEBEN!"...| 00000970: A6 01 99 22 11 11 20 D7 C9 C3 C8 D4 C9 C7 3A 20 |...".. .......: | 00000980: C4 45 52 20 C3 4F 4D 50 55 54 45 52 20 53 54 45 |.ER .OMPUTER STE| 00000990: 4C 4C 54 20 55 4E 45 4E 44 2D 22 00 C6 11 A8 01 |LLT UNEND-".....| 000009A0: 99 22 11 20 4C 49 43 48 20 56 49 45 4C 45 20 C1 |.". LICH VIELE .| 000009B0: 55 46 47 41 42 45 4E 21 20 C4 55 20 4D 55 53 53 |UFGABEN! .U MUSS| 000009C0: 54 20 27 48 27 22 00 F3 11 AA 01 99 22 11 20 44 |T 'H'"......". D| 000009D0: 52 55 45 43 4B 45 4E 2C 20 57 45 4E 4E 20 44 55 |RUECKEN, WENN DU| 000009E0: 20 41 55 46 48 4F 45 52 45 4E 20 57 49 4C 4C 53 | AUFHOEREN WILLS| 000009F0: 54 2E 22 00 2F 12 AC 01 99 22 11 20 28 C4 41 4E |T."./....". (.AN| 00000A00: 4E 20 4B 41 4E 4E 53 54 20 44 55 20 4D 49 54 20 |N KANNST DU MIT | 00000A10: CD 45 4E 55 50 55 4E 4B 54 20 34 11 20 20 20 20 |.ENUPUNKT 4. | 00000A20: 20 20 20 20 20 42 45 45 4E 44 45 4E 2E 29 22 00 | BEENDEN.)".| 00000A30: 38 12 E5 01 8D 38 33 35 00 4C 12 EA 01 8B 55 5A |8....835.L....UZ| 00000A40: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 52 12 F3 |.1..UP%:.217.R..| 00000A50: 01 8E 00 73 12 F4 01 8F 20 2A 2A 20 54 45 41 43 |...s.... ** TEAC| 00000A60: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS| 00000A70: 20 2A 2A 00 A3 12 F5 01 99 22 93 22 3A 97 55 54 | **......".":.UT| 00000A80: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0| 00000A90: A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 |..53281,2:.53280| 00000AA0: 2C 31 30 00 D9 12 F6 01 55 54 24 B2 22 20 C7 52 |,10.....UT$." .R| 00000AB0: 4F 53 53 45 53 20 31 58 31 20 22 3A 55 50 B2 30 |OSSES 1X1 ":UP.0| 00000AC0: 3A 55 47 24 B2 22 CC 45 48 52 45 52 41 4E 4C 45 |:UG$.".EHRERANLE| 00000AD0: 49 54 2E 22 3A 8D 38 35 30 00 07 13 F7 01 99 22 |IT.":.850......"| 00000AE0: 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 |.. .O THE B| 00000AF0: 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C |EST OF OUR KNOWL| 00000B00: 45 44 47 45 2C 11 22 00 30 13 F8 01 99 22 20 20 |EDGE,.".0...." | 00000B10: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS| 00000B20: 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 | IN THE PUBLIC."| 00000B30: 00 5C 13 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E |.\...." DOMAIN| 00000B40: 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F |. .F THIS IS NO| 00000B50: 54 20 54 48 45 20 43 41 53 45 11 22 00 79 13 FA |T THE CASE.".y..| 00000B60: 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E |.." PLEASE CON| 00000B70: 54 41 43 54 3A 11 11 11 22 00 A3 13 FB 01 99 22 |TACT:..."......"| 00000B80: 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | .OMMODORE | 00000B90: C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 |.USINESS .ACHINE| 00000BA0: 53 11 22 00 C6 13 FC 01 99 22 20 20 20 20 20 20 |S."......" | 00000BB0: 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 | 3370 .HARMAC| 00000BC0: 59 20 C1 56 45 2E 00 EA 13 FD 01 99 22 20 20 20 |Y .VE......." | 00000BD0: 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 | .GINCOURT| 00000BE0: 2C 20 CF 4E 54 41 52 49 4F 22 00 0C 14 FE 01 99 |, .NTARIO"......| 00000BF0: 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 |" .ANAD| 00000C00: 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 2C 14 FF |A .1. 2.4".,..| 00000C10: 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 |.." (41| 00000C20: 36 29 20 34 39 39 2D 34 32 39 32 22 00 42 14 00 |6) 499-4292".B..| 00000C30: 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 |.UP.1:. 835:. 85| 00000C40: 30 3A 00 6B 14 01 02 99 22 20 20 20 20 20 11 11 |0:.k...." ..| 00000C50: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C2 49 |.ROGRAM .AME: .I| 00000C60: 47 20 CD 55 4C 54 49 50 4C 59 11 00 93 14 02 02 |G .ULTIPLY......| 00000C70: 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 |." .RITTEN .| 00000C80: 59 20 20 3A 20 D2 2E 20 CD 41 43 CE 41 55 47 54 |Y : .. .AC.AUGT| 00000C90: 4F 4E 11 00 C7 14 03 02 99 22 11 11 12 20 20 20 |ON......."... | 00000CA0: 20 20 D5 45 42 45 52 53 45 54 5A 54 20 55 4E 44 | .EBERSETZT UND| 00000CB0: 20 42 45 41 52 42 45 49 54 45 54 20 56 4F 4E 20 | BEARBEITET VON | 00000CC0: 20 20 20 20 20 22 3B 00 F8 14 04 02 99 22 20 20 | ";......" | 00000CD0: 20 20 20 20 20 20 20 20 20 20 20 C3 20 D7 20 D3 | . . .| 00000CE0: 20 20 D7 55 45 52 5A 42 55 52 47 20 20 20 20 20 | .UERZBURG | 00000CF0: 20 20 20 20 20 20 11 11 00 1F 15 05 02 99 22 20 | ........" | 00000D00: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E | ......2.| 00000D10: 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ... ..........| 00000D20: 46 15 06 02 99 22 20 20 20 20 20 20 20 20 20 C2 |F...." .| 00000D30: C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD |.... 4.0 .......| 00000D40: D0 D5 D4 C5 D2 11 00 68 15 07 02 99 22 20 20 20 |.......h...." | 00000D50: 20 20 20 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 | 8032 ... .| 00000D60: CF CD D0 D5 D4 C5 D2 11 00 8D 15 08 02 99 22 20 |.............." | 00000D70: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........| 00000D80: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 96 15 |. 64 ...........| 00000D90: 09 02 8D 38 33 35 00 AA 15 4E 02 8B 55 5A B2 31 |...835...N..UZ.1| 00000DA0: A7 9E 55 50 25 3A 89 32 31 37 00 B0 15 57 02 8E |..UP%:.217...W..| 00000DB0: 00 D6 15 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 |...X.. ** PROGRA| 00000DC0: 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 |M MODIFICATION I| 00000DD0: 4E 53 54 20 2A 2A 00 E7 15 59 02 99 22 93 22 3A |NST **...Y..".":| 00000DE0: 97 55 54 2C 55 4C 25 00 07 16 5D 02 55 50 B2 30 |.UT,UL%...].UP.0| 00000DF0: 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F |:UG$.".ROGRAM .O| 00000E00: 44 22 3A 8D 38 35 30 00 10 16 94 02 8D 38 33 35 |D":.850......835| 00000E10: 00 24 16 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |.$....UZ.1..UP%:| 00000E20: 89 32 31 37 00 2A 16 BB 02 8E 00 4F 16 BC 02 8F |.217.*.....O....| 00000E30: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 | 00000E40: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.| 00000E50: 85 16 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 |.....".....BEFOR| 00000E60: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P| 00000E70: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803| 00000E80: 32 20 20 11 11 00 BB 16 D0 02 99 22 20 20 20 20 |2 ........" | 00000E90: 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 | LOAD THE 'CBM | 00000EA0: 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 |4032' PROGRAM...| 00000EB0: 11 11 11 11 11 11 11 11 11 11 22 00 C6 16 DA 02 |..........".....| 00000EC0: 9E 55 55 AA 37 31 00 CC 16 E4 02 80 00 EC 16 20 |.UU.71......... | 00000ED0: 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 |.. ** T I T L E | 00000EE0: 20 20 50 20 41 20 47 20 45 20 2A 2A 00 20 17 22 | P A G E **. ."| 00000EF0: 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 |.."....";:.UT,UU| 00000F00: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5| 00000F10: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6| 00000F20: 00 36 17 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 |.6.$..I.1.38:.".| 00000F30: A6 92 22 3B 3A 82 00 4E 17 26 03 81 49 B2 31 A4 |..";:..N.&..I.1.| 00000F40: 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 66 |22:.".....";:..f| 00000F50: 17 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 |.(..I.1.37:."...| 00000F60: A6 92 22 3B 3A 82 00 7E 17 2A 03 81 49 B2 31 A4 |..";:..~.*..I.1.| 00000F70: 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 A3 |22:.".....";:...| 00000F80: 17 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D |.,.."...........| 00000F90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 |................| 00000FA0: 20 20 92 00 C5 17 2E 03 99 22 1D 1D 1D 1D 1D 1D | ......."......| 00000FB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . | 00000FC0: 20 12 20 92 A9 00 E6 17 30 03 99 22 1D 1D 1D 1D | . .....0.."....| 00000FD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... | 00000FE0: 92 20 20 12 A3 DF 00 04 18 32 03 99 22 1D 1D 1D |. ......2.."...| 00000FF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF |................| 00001000: 12 20 20 92 00 2C 18 34 03 99 22 11 11 1D 1D 1D |. ..,.4..".....| 00001010: 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D |.........C O M M| 00001020: 20 4F 20 44 20 4F 20 52 20 45 11 11 00 50 18 36 | O D O R E...P.6| 00001030: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............| 00001040: 1D 1D 4C 45 52 4E 50 52 4F 47 52 41 4D 4D 11 11 |..LERNPROGRAMM..| 00001050: 00 74 18 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.t.8..".........| 00001060: 1D 1D 1D 1D 43 20 57 20 53 20 20 57 55 45 52 5A |....C W S WUERZ| 00001070: 42 55 52 47 00 8F 18 3A 03 8F 20 2A 2A 20 43 4F |BURG...:.. ** CO| 00001080: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.| 00001090: CB 18 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..;...(UD$,24);"| 000010A0: 1D 1D 1D 1D 12 20 4C 45 45 52 54 41 53 54 45 20 |..... LEERTASTE | 000010B0: 44 52 55 45 43 4B 45 4E 20 4F 44 45 52 20 57 41 |DRUECKEN ODER WA| 000010C0: 52 54 45 4E 20 92 22 3A 49 B2 30 00 ED 18 3C 03 |RTEN .":I.0...<.| 000010D0: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I| 000010E0: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 11 19 |.1:.I.250.828...| 000010F0: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":| 00001100: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.| 00001110: 30 00 1A 19 40 03 89 33 30 30 00 36 19 43 03 8F |0...@..300.6.C..| 00001120: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR| 00001130: 45 53 53 20 2A 2A 00 75 19 48 03 97 55 4F 2C 30 |ESS **.u.H..UO,0| 00001140: 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 |:..(UD$,24);" | 00001150: 20 20 20 20 20 12 20 4C 45 45 52 54 41 53 54 45 | . LEERTASTE| 00001160: 20 44 52 55 45 43 4B 45 4E 20 92 20 20 20 20 20 | DRUECKEN . | 00001170: 20 20 20 20 22 00 8C 19 4C 03 A1 55 49 24 3A 8B | "...L..UI$:.| 00001180: 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 92 19 4E |UI$.." ".844...N| 00001190: 03 8E 00 B2 19 52 03 8F 20 2A 2A 20 50 41 47 45 |.....R.. ** PAGE| 000011A0: 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 | DESIGN ROUTINE | 000011B0: 2A 2A 00 BE 19 54 03 55 50 B2 55 50 AA 31 00 E8 |**...T.UP.UP.1..| 000011C0: 19 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 |.W..".".(UT$.UP$| 000011D0: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 |,21);.(UP$.UG$..| 000011E0: 28 55 50 29 2C 31 38 29 00 17 1A 5C 03 99 22 20 |(UP),18)...\.." | 000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001210: 2D 2D 2D 2D 2D 2D 22 00 26 1A 60 03 8B 55 48 B3 |------".&.`..UH.| 00001220: B1 30 A7 38 37 30 00 66 1A 61 03 8F 20 20 4C 45 |.0.870.f.a.. LE| 00001230: 46 54 24 28 55 44 24 2C 32 34 29 3B 4C 45 46 54 |FT$(UD$,24);LEFT| 00001240: 24 28 55 50 24 2C 34 29 3B 22 48 49 4C 46 45 20 |$(UP$,4);"HILFE | 00001250: 2D 20 48 20 3C 52 45 54 55 52 4E 3E 20 44 52 55 |- H <RETURN> DRU| 00001260: 45 43 4B 45 4E 22 00 77 1A 66 03 55 48 B2 30 3A |ECKEN".w.f.UH.0:| 00001270: 99 22 13 11 22 3A 8E 00 96 1A 6B 03 8F 20 2A 2A |."..":....k.. **| 00001280: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM| 00001290: 41 52 4B 20 2A 2A 00 CC 1A 70 03 99 C8 28 55 44 |ARK **...p...(UD| 000012A0: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" | 000012B0: 20 45 49 4E 45 4E 20 4D 4F 4D 45 4E 54 20 42 49 | EINEN MOMENT BI| 000012C0: 54 54 45 2E 2E 2E 20 20 20 20 20 22 00 D2 1A 75 |TTE... "...u| 000012D0: 03 8E 00 EF 1A 84 03 8F 20 2A 2A 20 53 45 54 20 |........ ** SET | 000012E0: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.| 000012F0: 3A 1B 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 |:...UX$."H":.UQ%| 00001300: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:| 00001310: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3| 00001320: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1| 00001330: 36 37 3A 55 55 B2 31 30 32 34 00 78 1B 86 03 55 |67:UU.1024.x...U| 00001340: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U| 00001350: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U| 00001360: 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 |M.32768:UO.158:.| 00001370: 20 35 30 30 30 33 2C 30 00 BB 1B 87 03 8B C2 28 | 50003,0.......(| 00001380: 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 |50003).0.UB.1024| 00001390: 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 |:U1.209:U2.210:U| 000013A0: 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 |3.211:U4.214:UC.| 000013B0: 32 30 34 3A 55 55 B2 32 30 34 38 00 FA 1B 88 03 |204:UU.2048.....| 000013C0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 |..(50003).0.UT.5| 000013D0: 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 |3272:UU%.21:UL%.| 000013E0: 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 |23:UP%.2139:UM.1| 000013F0: 30 32 34 3A 55 4F B2 31 39 38 00 1E 1C 89 03 55 |024:UO.198.....U| 00001400: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............| 00001410: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 50 |.............".P| 00001420: 1C 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 |...UP$." | 00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00001450: 00 9E 1C 8B 03 55 54 24 B2 22 20 D0 D2 CF C7 D2 |.....UT$." .....| 00001460: C1 CD A0 CE C1 CD C5 A0 A0 A0 A0 A0 A0 22 3A 8F |.............":.| 00001470: 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 | PLACE PROGRAM T| 00001480: 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 |ITLE HERE !!!!!!| 00001490: 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 A4 |!!!!!!!!!!!***..| 000014A0: 1C 8C 03 8E 00 BE 1C 8E 03 8F 20 2A 2A 20 53 45 |.......... ** SE| 000014B0: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 C7 |T VARIABLES **..| 000014C0: 1C 93 03 8D 39 30 30 00 E2 1C 98 03 8F 20 2A 2A |....900...... **| 000014D0: 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 | CHECK FOR 8032 | 000014E0: 2A 2A 00 00 1D 9D 03 99 22 93 22 3A 99 22 A0 22 |**......".":."."| 000014F0: 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 |:. SHIFTED SPACE| 00001500: 00 17 1D A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 |.......(UB.40)..| 00001510: 39 36 A7 8D 37 30 30 00 30 1D A3 03 8F 20 2A 2A |96..700.0.... **| 00001520: 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A | MEMORY CHECK **| 00001530: 00 44 1D A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 |.D.... .(0).2000| 00001540: A7 39 33 37 00 72 1D A5 03 99 22 93 11 11 05 54 |.937.r...."....T| 00001550: 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 |HIS MACHINE DOES| 00001560: 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 | NOT HAVE ENOUGH| 00001570: 11 22 00 96 1D A6 03 99 22 4D 45 4D 4F 52 59 20 |."......"MEMORY | 00001580: 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 |TO RUN THIS PROG| 00001590: 52 41 4D 20 21 22 00 A1 1D A7 03 9E 55 55 AA 37 |RAM !"......UU.7| 000015A0: 31 00 A7 1D A8 03 80 00 C1 1D A9 03 99 22 93 05 |1............"..| 000015B0: 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 |":..(50003).0.96| 000015C0: 32 00 F0 1D AC 03 8F 20 2A 2A 20 42 41 53 49 43 |2...... ** BASIC| 000015D0: 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F | 2.0 OR 4.0 O| 000015E0: 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A |R C-64 SETUP **| 000015F0: 00 2E 1E AD 03 97 31 30 37 35 2C 31 33 33 3A 97 |......1075,133:.| 00001600: 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 |1076,144:.1077,2| 00001610: 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 |34:.1079,4:.1080| 00001620: 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 64 |,133:.1081,145.d| 00001630: 1E AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 |....1091,155:.10| 00001640: 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 |98,133:.1099,144| 00001650: 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 |:.1100,234:.1103| 00001660: 2C 31 33 33 00 86 1E AF 03 97 31 31 30 34 2C 31 |,133......1104,1| 00001670: 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 |45:.1105,234:.10| 00001680: 38 32 2C 32 33 34 00 9D 1E B1 03 8B C2 28 35 30 |82,234.......(50| 00001690: 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 CC 1E |003)..160.955...| 000016A0: B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 |...1093,88:.1094| 000016B0: 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 |,228:.1097,85:.1| 000016C0: 31 30 32 2C 32 32 38 3A 89 39 36 35 00 E1 1E BB |102,228:.965....| 000016D0: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 |...(50003)..1.99| 000016E0: 30 00 10 1F C0 03 97 31 30 39 33 2C 34 39 3A 97 |0......1093,49:.| 000016F0: 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 |1094,230:.1097,4| 00001700: 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 |6:.1102,230:.965| 00001710: 00 4A 1F C2 03 97 32 30 39 39 2C 31 34 31 3A 97 |.J....2099,141:.| 00001720: 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A |2100,20:.2101,3:| 00001730: 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 |.2103,8:.2104,14| 00001740: 31 3A 97 32 31 30 35 2C 32 31 00 86 1F C3 03 97 |1:.2105,21......| 00001750: 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 |2106,3:.2115,145| 00001760: 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C |:.2117,52:.2118,| 00001770: 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 |234:.2121,49:.21| 00001780: 32 32 2C 31 34 31 00 C0 1F C4 03 97 32 31 32 33 |22,141......2123| 00001790: 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 |,20:.2124,3:.212| 000017A0: 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A |6,234:.2127,141:| 000017B0: 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 |.2128,21:.2129,3| 000017C0: 00 DE 1F C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 |......UU.48:. DI| 000017D0: 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 EF |SABLE STOP KEY..| 000017E0: 1F CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 |....800:. TITLE.| 000017F0: FF 1F D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 |.....300:. MENU.| 00001800: 30 20 DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 |0 ...".THE PGM W| 00001810: 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 |ILL NOT WORK ON | 00001820: 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 |THIS MACHINE!":.| 00001830: 00 65 20 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A |.e ...UZ.1..UP%:| 00001840: 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 |.UP%:UZ.0:. ** P| 00001850: 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 |ROGRAM STARTS HE| 00001860: 52 45 20 2A 2A 00 90 20 E9 03 99 22 93 05 22 3B |RE **.. ..."..";| 00001870: 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |:.:..(50003).0..| 00001880: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 |53281,6:.53280,6| 00001890: 00 A8 20 F2 03 55 54 24 B2 22 20 47 52 4F 53 53 |.. ..UT$." GROSS| 000018A0: 45 53 20 31 58 31 20 22 00 BB 20 FC 03 8F 20 42 |ES 1X1 ".. ... B| 000018B0: 49 47 20 4D 55 4C 54 49 50 4C 59 00 E3 20 06 04 |IG MULTIPLY.. ..| 000018C0: 8F 20 4D 55 4C 54 49 50 4C 59 49 4E 47 20 57 49 |. MULTIPLYING WI| 000018D0: 54 48 20 4C 41 52 47 45 20 43 48 41 52 41 43 54 |TH LARGE CHARACT| 000018E0: 45 52 53 00 F7 20 10 04 8F 20 52 20 4D 41 43 4E |ERS.. ... R MACN| 000018F0: 41 55 47 48 54 4F 4E 00 02 21 1A 04 8F 20 57 48 |AUGHTON..!... WH| 00001900: 43 49 00 25 21 24 04 8F 20 4C 4E 20 4C 49 4E 45 |CI.%!$.. LN LINE| 00001910: 20 57 48 45 52 45 20 4E 55 4D 42 45 52 53 20 41 | WHERE NUMBERS A| 00001920: 50 50 45 41 52 00 4A 21 2E 04 8F 20 43 4C 20 43 |PPEAR.J!... CL C| 00001930: 4F 4C 55 4D 4E 20 57 48 45 52 45 20 4E 55 4D 42 |OLUMN WHERE NUMB| 00001940: 45 52 53 20 41 50 50 45 41 52 00 6C 21 38 04 8F |ERS APPEAR.l!8..| 00001950: 20 4D 58 20 4D 41 58 20 4E 55 4D 42 45 52 20 4F | MX MAX NUMBER O| 00001960: 46 20 43 48 41 52 41 43 54 45 52 53 00 8D 21 42 |F CHARACTERS..!B| 00001970: 04 8F 20 4F 4E 4C 59 20 31 30 20 57 49 4C 4C 20 |.. ONLY 10 WILL | 00001980: 46 49 54 20 4F 4E 20 41 20 4C 49 4E 45 00 A8 21 |FIT ON A LINE..!| 00001990: 4C 04 99 22 93 22 3A 8D 31 32 37 30 3A 8F 20 52 |L..".":.1270:. R| 000019A0: 45 41 44 20 44 41 54 41 00 C6 21 56 04 8F 20 47 |EAD DATA..!V.. G| 000019B0: 45 4E 45 52 41 54 45 20 52 41 4E 44 4F 4D 20 4E |ENERATE RANDOM N| 000019C0: 55 4D 42 45 52 53 00 EA 21 60 04 8F 20 4D 53 20 |UMBERS..!`.. MS | 000019D0: 49 53 20 4D 49 4E 49 4D 55 4D 20 2D 20 4D 4C 20 |IS MINIMUM - ML | 000019E0: 49 53 20 4D 41 58 49 4D 55 4D 00 09 22 6A 04 4D |IS MAXIMUM.."j.M| 000019F0: 53 B2 35 3A 4D 4C B2 32 30 3A 54 42 B2 31 34 3A |S.5:ML.20:TB.14:| 00001A00: 4E 43 B2 30 3A 4E 57 B2 30 00 1D 22 74 04 8D 31 |NC.0:NW.0.."t..1| 00001A10: 36 37 30 3A 41 B2 4E 3A 41 24 B2 4E 24 00 31 22 |670:A.N:A$.N$.1"| 00001A20: 7E 04 8D 31 36 37 30 3A 42 B2 4E 3A 42 24 B2 4E |~..1670:B.N:B$.N| 00001A30: 24 00 40 22 83 04 8B 42 B1 31 30 A7 31 31 34 30 |$.@"...B.10.1140| 00001A40: 00 63 22 88 04 55 47 24 B2 22 41 55 46 47 41 42 |.c"..UG$."AUFGAB| 00001A50: 45 20 22 3A 4E 50 B2 4E 50 AA 31 3A 55 50 B2 4E |E ":NP.NP.1:UP.N| 00001A60: 50 AB 31 00 6C 22 8D 04 8D 38 35 30 00 8A 22 92 |P.1.l"...850..".| 00001A70: 04 53 24 B2 41 24 AA 22 2A 22 AA 42 24 AA 22 3D |.S$.A$."*".B$."=| 00001A80: 22 3A 4C 51 B2 C3 28 53 24 29 00 9F 22 9C 04 43 |":LQ..(S$).."..C| 00001A90: 4C B2 30 3A 4C 4E B2 31 30 3A 8D 31 34 35 30 00 |L.0:LN.10:.1450.| 00001AA0: B8 22 A6 04 99 3A 99 3A 99 A3 54 42 29 22 20 20 |."...:.:..TB)" | 00001AB0: 20 20 20 20 20 20 20 22 00 CF 22 B0 04 8F 20 49 | ".."... I| 00001AC0: 4E 50 55 54 20 54 48 45 20 41 4E 53 57 45 52 00 |NPUT THE ANSWER.| 00001AD0: D9 22 BA 04 8D 31 35 35 30 00 F5 22 C4 04 8F 20 |."...1550.."... | 00001AE0: 57 48 41 54 20 57 41 53 20 54 48 45 20 41 4E 53 |WHAT WAS THE ANS| 00001AF0: 57 45 52 20 3F 00 FF 22 CE 04 8D 31 36 33 30 00 |WER ?.."...1630.| 00001B00: 16 23 D8 04 45 52 B2 B6 28 41 4E AB B5 28 41 AC |.#..ER..(AN..(A.| 00001B10: 42 AA 2E 35 29 29 00 36 23 E2 04 8B 45 52 B3 2E |B..5)).6#...ER..| 00001B20: 31 A7 99 3A 99 3A 99 A3 54 42 29 22 20 20 52 49 |1..:.:..TB)" RI| 00001B30: 43 48 54 49 47 22 00 55 23 E7 04 8B 45 52 B3 2E |CHTIG".U#...ER..| 00001B40: 31 A7 4E 43 B2 4E 43 AA 31 3A 8D 31 37 32 30 3A |1.NC.NC.1:.1720:| 00001B50: 89 31 31 34 30 00 89 23 EC 04 8B 45 52 B1 2E 31 |.1140..#...ER..1| 00001B60: A7 99 3A 99 3A 99 A3 54 42 29 22 20 20 46 41 4C |..:.:..TB)" FAL| 00001B70: 53 43 48 20 22 3A 4E 57 B2 4E 57 AA 31 3A 8D 31 |SCH ":NW.NW.1:.1| 00001B80: 37 32 30 3A 89 31 31 36 35 00 A0 23 F6 04 8F 20 |720:.1165..#... | 00001B90: 4C 41 52 47 45 20 43 48 41 52 41 43 54 45 52 53 |LARGE CHARACTERS| 00001BA0: 00 C4 23 00 05 44 4E 24 B2 22 13 11 11 11 11 11 |..#..DN$."......| 00001BB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001BC0: 11 11 11 22 00 E5 23 0A 05 5A 4E B2 31 36 3A 86 |..."..#..ZN.16:.| 00001BD0: 20 5A 4E 24 28 35 29 2C 5A 28 31 32 38 29 2C 53 | ZN$(5),Z(128),S| 00001BE0: 4E 24 28 35 29 00 0D 24 14 05 83 20 22 20 22 2C |N$(5)..$... " ",| 00001BF0: 30 2C 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C |0,1,2,3,4,5,6,7,| 00001C00: 38 2C 39 2C 2A 2C 2B 2C 2D 2C 2F 2C 3D 00 35 24 |8,9,*,+,-,/,=.5$| 00001C10: 1E 05 83 22 20 20 20 D5 C0 C9 20 AE 20 D5 C0 C9 |..." ... . ...| 00001C20: D5 C0 C9 20 20 DD B0 C0 AE D5 C0 C9 B0 C0 AE D5 |... ...........| 00001C30: C0 C9 D5 C0 C9 00 5D 24 28 05 83 22 20 20 20 DD |......]$(.." .| 00001C40: A0 DD A0 DD A0 A0 A0 DD A0 A0 DD DD A0 DD DD A0 |................| 00001C50: A0 DD A0 A0 A0 A0 DD DD A0 DD DD A0 DD 00 85 24 |...............$| 00001C60: 32 05 83 22 20 20 20 DD A0 DD A0 DD A0 D5 C0 CB |2.." .........| 00001C70: A0 C0 B3 AD C0 DB AD C0 C9 AB C0 C9 A0 A0 DD AB |................| 00001C80: C0 B3 CA C0 B3 00 AD 24 3C 05 83 22 20 20 20 DD |.......$<.." .| 00001C90: A0 DD A0 DD A0 DD A0 A0 A0 A0 DD A0 A0 DD A0 A0 |................| 00001CA0: DD DD A0 DD A0 A0 DD DD A0 DD A0 A0 DD 00 D5 24 |...............$| 00001CB0: 46 05 83 22 20 20 20 CA C0 CB A0 B1 A0 AD C0 BD |F.." .........| 00001CC0: CA C0 CB A0 A0 B1 CA C0 CB CA C0 CB A0 A0 B1 CA |................| 00001CD0: C0 CB CA C0 CB 00 EC 24 50 05 83 22 20 20 20 20 |.......$P.." | 00001CE0: 20 20 20 20 20 20 20 20 20 20 20 22 00 03 25 5A | "..%Z| 00001CF0: 05 83 22 20 20 20 20 DD 20 20 20 20 20 D1 20 20 |.." . . | 00001D00: 20 20 22 00 1A 25 64 05 83 22 20 D1 20 C0 DB C0 | "..%d.." . ...| 00001D10: C0 C0 C0 20 20 20 C5 C5 C5 22 00 31 25 6E 05 83 |... ...".1%n..| 00001D20: 22 20 20 20 20 DD 20 20 20 20 20 D1 20 A3 A3 A3 |" . . ...| 00001D30: 22 00 48 25 78 05 83 22 20 20 20 20 20 20 20 20 |".H%x.." | 00001D40: 20 20 20 20 20 20 20 22 00 66 25 82 05 81 49 B2 | ".f%...I.| 00001D50: 31 A4 5A 4E 3A 87 20 4A 24 3A 5A 28 C6 28 4A 24 |1.ZN:. J$:Z(.(J$| 00001D60: 29 29 B2 49 3A 82 00 7C 25 8C 05 81 49 B2 31 A4 |)).I:..|%...I.1.| 00001D70: 35 3A 87 20 5A 31 24 28 49 29 3A 82 00 A4 25 96 |5:. Z1$(I):...%.| 00001D80: 05 81 49 B2 31 A4 35 3A 87 20 5A 24 28 49 29 3A |..I.1.5:. Z$(I):| 00001D90: 5A 24 28 49 29 B2 5A 31 24 28 49 29 AA 5A 24 28 |Z$(I).Z1$(I).Z$(| 00001DA0: 49 29 3A 82 00 AA 25 A0 05 8E 00 C1 25 AA 05 8F |I):...%.....%...| 00001DB0: 20 50 52 49 4E 54 20 43 48 41 52 41 43 54 45 52 | PRINT CHARACTER| 00001DC0: 53 00 D1 25 B4 05 99 C8 28 44 4E 24 2C 4C 4E 29 |S..%....(DN$,LN)| 00001DD0: 3B 00 DE 25 BE 05 4E 4E B2 C3 28 53 24 29 00 F3 |;..%..NN..(S$)..| 00001DE0: 25 C8 05 81 49 B2 31 A4 35 3A 53 4E 24 28 49 29 |%...I.1.5:SN$(I)| 00001DF0: B2 22 22 00 FF 25 D2 05 81 4A B2 31 A4 4E 4E 00 |.""..%...J.1.NN.| 00001E00: 3E 26 DC 05 4E 4A B2 C6 28 CA 28 53 24 2C 4A 2C |>&..NJ..(.(S$,J,| 00001E10: 31 29 29 3A 53 4E 24 28 49 29 B2 53 4E 24 28 49 |1)):SN$(I).SN$(I| 00001E20: 29 AA CA 28 5A 24 28 49 29 2C 28 5A 28 4E 4A 29 |)..(Z$(I),(Z(NJ)| 00001E30: AB 31 29 AC 33 AA 31 2C 33 29 AA 22 20 22 00 44 |.1).3.1,3)." ".D| 00001E40: 26 E6 05 82 00 85 26 F0 05 99 A3 43 4C 29 C8 28 |&.....&....CL).(| 00001E50: 53 4E 24 28 49 29 AA 22 20 20 20 20 20 20 20 20 |SN$(I)." | 00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00001E80: 2C 34 30 29 3B 00 8D 26 FA 05 82 3A 8E 00 97 26 |,40);..&...:...&| 00001E90: 04 06 53 24 B2 22 22 00 D7 26 0E 06 8D 36 30 30 |..S$.""..&...600| 00001EA0: 30 3A 99 C8 28 55 44 24 2C 31 35 29 3A 55 53 24 |0:..(UD$,15):US$| 00001EB0: B2 22 48 31 32 33 34 35 36 37 38 39 30 2D 2F 2A |."H1234567890-/*| 00001EC0: 2B 3D 20 22 3A 55 4C B2 35 3A 8D 33 35 3A 53 24 |+= ":UL.5:.35:S$| 00001ED0: B2 53 24 AA 55 52 24 00 F9 26 54 06 99 22 91 20 |.S$.UR$..&T..". | 00001EE0: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 37 30 30 | ":.700| 00001EF0: 30 3A 8D 31 34 35 30 3A 8E 00 13 27 5E 06 8F 20 |0:.1450:...'^.. | 00001F00: 57 48 41 54 20 49 53 20 54 48 45 20 41 4E 53 57 |WHAT IS THE ANSW| 00001F10: 45 52 3F 00 35 27 68 06 81 49 B2 31 A4 C3 28 53 |ER?.5'h..I.1..(S| 00001F20: 24 29 3A 8B CA 28 53 24 2C 49 2C 31 29 B2 22 3D |$):..(S$,I,1)."=| 00001F30: 22 A7 4A B2 49 00 3B 27 72 06 82 00 51 27 7C 06 |".J.I.;'r...Q'|.| 00001F40: 41 4E B2 C5 28 CA 28 53 24 2C 4A AA 31 29 29 3A |AN..(.(S$,J.1)):| 00001F50: 8E 00 6F 27 86 06 8F 20 52 41 4E 44 4F 4D 20 4E |..o'... RANDOM N| 00001F60: 55 4D 42 45 52 20 47 45 4E 45 52 41 54 4F 52 00 |UMBER GENERATOR.| 00001F70: 84 27 90 06 4E B2 B5 28 BB 28 31 29 AC 4D 4C 29 |.'..N..(.(1).ML)| 00001F80: 20 20 20 20 00 93 27 9A 06 8B 4E B3 4D 53 A7 31 | ..'...N.MS.1| 00001F90: 36 38 30 00 A4 27 A4 06 4E 24 B2 CA 28 C4 28 4E |680..'..N$..(.(N| 00001FA0: 29 2C 32 29 00 AA 27 AE 06 8E 00 C5 27 B8 06 8F |),2)..'.....'...| 00001FB0: 20 50 52 49 4E 54 20 4E 55 4D 42 45 52 20 43 4F | PRINT NUMBER CO| 00001FC0: 52 52 45 43 54 00 F7 27 C2 06 99 22 13 11 11 11 |RRECT..'..."....| 00001FD0: 11 11 22 C4 28 4E 43 29 22 20 52 49 43 48 54 49 |..".(NC)" RICHTI| 00001FE0: 47 20 56 4F 4E 22 4E 57 AA 4E 43 3B 22 56 45 52 |G VON"NW.NC;"VER| 00001FF0: 53 55 43 48 45 4E 22 00 0C 28 CC 06 8D 38 33 35 |SUCHEN"..(...835| 00002000: 20 20 20 20 20 20 20 20 20 20 20 20 00 12 28 D6 | ..(.| 00002010: 06 8E 00 48 28 70 17 99 C8 28 55 44 24 2C 32 34 |...H(p...(UD$,24| 00002020: 29 3B C8 28 55 50 24 2C 35 29 3B 22 48 49 4C 46 |);.(UP$,5);"HILF| 00002030: 45 20 2D 20 48 20 3C 52 45 54 55 52 4E 3E 20 44 |E - H <RETURN> D| 00002040: 52 55 45 43 4B 45 4E 22 00 4E 28 7A 17 8E 00 82 |RUECKEN".N(z....| 00002050: 28 58 1B 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |(X...(UD$,24);.(| 00002060: 55 50 24 2C 37 29 3B 22 20 20 20 20 20 20 20 20 |UP$,7);" | 00002070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002080: 20 22 00 88 28 62 1B 8E 00 00 00 | "..(b..... |
.......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...:...#.. +++ 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. BEGINN 'GROSSES 1X1
'"...@..".. 2. SCHUELERANLEITUNG
"...E..".. 3. LEHRERANLEITUNG"."
.O..".. 4. ENDE..".Q.T.." ------
--------------------------------".V.Y.."
.. TASTE 1-4 DRUECKEN ";...^.UL.1:
US$."1234":.35:. INPUT ROUTINE...`.US$."
".F.C..E(UR$).1000,400,500,396.O.H..300.
..... ** RE-ENABLE STOP KEY AND END **.%
....B(50003)..1.B(50003)..160.B(50003)..
0.399.O....UU.71:.B(50003).0..53281,6:.5
3280,14.[...."..":..F....875:....... **
STUDENT INSTRUCTIONS **......".":.UT,UL%
:.B(50003).0..53281,0:.53280,0.....UT$."
GROSSES 1X1 ":UP.0:UG$."SCHUELERANL.":.
850... ..".. WENN DU ZUM 'MENU' ZURUECKK
EHREN".C....". WILLST, DRUECKE <RETURN>.
AUCH NACH".M....". JEDER ANTWORT <RETUR
N> EINGEBEN!"......".. WICHTIG: DER COMP
UTER STELLT UNEND-".F....". LICH VIELE A
UFGABEN! DU MUSST 'H'"......". DRUECKEN,
WENN DU AUFHOEREN WILLST."./....". (DAN
N KANNST DU MIT MENUPUNKT 4. BEE
NDEN.)".8....835.L....UZ.1..UP%:.217.R..
...S.... ** TEACHER INSTRUCTIONS **.....
.".":.UT,UL%:.B(50003).0..53281,2:.53280
,10.Y...UT$." GROSSES 1X1 ":UP.0:UG$."LE
HRERANLEIT.":.850......".. TO THE B
EST OF OUR KNOWLEDGE,.".0...." THIS PR
OGRAM IS IN THE PUBLIC.".\...." DOMAIN
. IF THIS IS NOT THE CASE.".Y...." PL
EASE CONTACT:..."......" COMMODORE
BUSINESS MACHINES.".F...." 3370
PHARMACY AVE......." AGINCOURT
, ONTARIO"......" CANADA M1W
2K4".,...." (416) 499-4292".B..
.UP.1:. 835:. 850:.K...." ..PROGRAM
NAME: BIG MULTIPLY......." WRITTEN B
Y : R. MACNAUGTON..G...."... UEBERS
ETZT UND BEARBEITET VON ";......"
C W S WUERZBURG ..
......" BASIC 2.0 PET COMPUTER..
F...." BASIC 4.0 PET COMPUTER..H
...." 8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER......835..
.N..UZ.1..UP%:.217...W...V.X.. ** PROGRA
M MODIFICATION INST **...Y..".":.UT,UL%.
..].UP.0:UG$."PROGRAM MOD":.850......835
.$....UZ.1..UP%:.217.*.....O.... ** TO U
SE 8032 LOAD CBM4032 **...F..".....BEFOR
E RUNNING THIS PROGRAM ON AN 8032 .....
P.." LOAD THE 'CBM 4032' PROGRAM...
..........".F.Z..UU.71.L....... .. ** T
I T L E P A G E **. .".."....";:.UT,UU
%:.B(50003).0..53280,14:.53281,6.6.$..I.
1.38:."...";:..N.&..I.1.22:.".....";:..F
.(..I.1.37:.".....";:..~.*..I.1.22:."...
..";:....,.."...........................
..E...."................... . . .....
0.."................... . ......2.."...
................. ..,.4..".............
.C O M M O D O R E...P.6..".............
..LERNPROGRAMM...T.8..".............C W
S WUERZBURG...:.. ** COMMODORE LOGO **.
K.;..H(UD$,24);"..... LEERTASTE DRUECKEN
ODER WARTEN .":I.0...<..A$:.A$.." ".I.I
.1:.I.250.828...>.T1$."":T2$."":T3$."":T
4$."":I.0...@..300.6.C.. ** SPACE BAR PR
ESS **.U.H..UO,0:.H(UD$,24);" . L
EERTASTE DRUECKEN . "...L..UI$:.
UI$.." ".844...N.....R.. ** PAGE DESIGN
ROUTINE **...T.UP.UP.1...W.."."H(UT$.UP$
,21);I(UP$.UG$.D(UP),18)...\.." --------
------------------------------".&.`..UH.
.0.870.F.A.. LEFT$(UD$,24);LEFT$(UP$,4)
;"HILFE - H <RETURN> DRUECKEN".W.F.UH.0:
."..":....K.. ** PLEASE WAIT REMARK **.L
.P..H(UD$,24);" EINEN MOMENT BI
TTE... ".R.U........ ** SET UP VARIA
BLES **.:...UX$."H":.UQ%(1000):UB.32768:
U1.196:U2.197:U3.198:U4.216:UC.167:UU.10
24.X...UT.59468:UU%.12:UL%.14:UP%.1146:U
M.32768:UO.158:. 50003,0......B(50003).0
.UB.1024:U1.209: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.....U
D$.".........................".P...UP$."
"
.....UT$." PROGRAM NAME ":. PLACE P
ROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***..
.......... ** SET VARIABLES **.G....900.
..... ** CHECK FOR 8032 **......".":." "
:. SHIFTED SPACE......B(UB.40)..96..700.
0.... ** MEMORY CHECK **.D.... .(0).2000
.937.R...."....THIS MACHINE DOES NOT HAV
E ENOUGH."......"MEMORY TO RUN THIS PROG
RAM !"......UU.71.......A...."..":.B(500
03).0.962...... ** BASIC 2.0 OR 4.0 O
R C-64 SETUP **......1075,133:.1076,144
:.1077,234:.1079,4:.1080,133:.1081,145.D
....1091,155:.1098,133:.1099,144:.1100,2
34:.1103,133......1104,145:.1105,234:.10
82,234......B(50003)..160.955.L....1093,
88:.1094,228:.1097,85:.1102,228:.965....
..B(50003)..1.990......1093,49:.1094,230
:.1097,46:.1102,230:.965.J.B..2099,141:.
2100,20:.2101,3:.2103,8:.2104,141:.2105,
21...C..2106,3:.2115,145:.2117,52:.2118,
234:.2121,49:.2122,141...D..2123,20:.212
4,3:.2126,234:.2127,141:.2128,21:.2129,3
...E..UU.48:. DISABLE STOP KEY...J..800:
. TITLE...T..300:. MENU.0 ...".THE PGM W
ILL NOT WORK ON THIS MACHINE!":..E ...UZ
.1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS HE
RE **.. ..."..";:.:.B(50003).0..53281,6:
.53280,6.. ..UT$." GROSSES 1X1 ".. ... B
IG MULTIPLY.. ... MULTIPLYING WITH LARGE
CHARACTERS.. ... R MACNAUGHTON..!... WH
CI.%!$.. LN LINE WHERE NUMBERS APPEAR.J!
... CL COLUMN WHERE NUMBERS APPEAR.L!8..
MX MAX NUMBER OF CHARACTERS..!B.. ONLY
10 WILL FIT ON A LINE..!L..".":.1270:. R
EAD DATA.F!V.. GENERATE RANDOM NUMBERS..
!`.. MS IS MINIMUM - ML IS MAXIMUM.."J.M
S.5:ML.20:TB.14:NC.0:NW.0.."T..1670:A.N:
A$.N$.1"~..1670:B.N:B$.N$.@"...B.10.1140
.C"..UG$."AUFGABE ":NP.NP.1:UP.NP.1.L"..
.850.."..S$.A$."*".B$."=":LQ.C(S$).."..C
L.0:LN.10:.1450.."...:.:..TB)" "
.O"... INPUT THE ANSWER.Y"...1550.."D..
WHAT WAS THE ANSWER ?.."N..1630..#X.ER..
(AN..(A.B..5)).6#...ER..1..:.:..TB)" RI
CHTIG".U#...ER..1.NC.NC.1:.1720:.1140..#
...ER..1..:.:..TB)" FALSCH ":NW.NW.1:.1
720:.1165. #... LARGE CHARACTERS.D#..DN$
."........................."..#..ZN.16:.
ZN$(5),Z(128),SN$(5)..$... " ",0,1,2,3,
4,5,6,7,8,9,*,+,-,/,=.5$..." U.I . U.I
U.I ....U.I...U.IU.I.]$(.." . . . .
.. .. . .. .. ...$2.." . . . U.K
.......I..I ....J....$<.." . . . .
. . .. . .. . ..U$F.." J.K . ...
J.K .J.KJ.K .J.KJ.K..$P.."
"..%Z.." . Q "..%D.." Q ...
... EEE".1%N.." . Q ...".H%X.."
".F%...I.1.ZN:. J$:Z(F(J$
)).I:..|%...I.1.5:. Z1$(I):...%...I.1.5:
. Z$(I):Z$(I).Z1$(I).Z$(I):...% ...A%...
PRINT CHARACTERS.Q%...H(DN$,LN);..%..NN
.C(S$)..%H..I.1.5:SN$(I).""..%R..J.1.NN.
>&..NJ.F(J(S$,J,1)):SN$(I).SN$(I).J(Z$(I
),(Z(NJ).1).3.1,3)." ".D&.....&....CL)H(
SN$(I)."
",40);..&...:...&..S$."".W&...600
0:.H(UD$,15):US$."H1234567890-/*+= ":UL.
5:.35:S$.S$.UR$..&T..". ":.700
0:.1450:...'^.. WHAT IS THE ANSWER?.5'H.
.I.1.C(S$):.J(S$,I,1)."=".J.I.;'R...Q'|.
AN.E(J(S$,J.1)):..O'... RANDOM NUMBER GE
NERATOR..'..N..(.(1).ML) ..'...N.MS.1
680..'..N$.J(D(N),2)..'....E'... PRINT N
UMBER CORRECT..'B.."......"D(NC)" RICHTI
G VON"NW.NC;"VERSUCHEN"..(L..835
..(V...H(P..H(UD$,24);H(UP$,5);"HILF
E - H <RETURN> DRUECKEN".N(Z....(X..H(UD
$,24);H(UP$,7);"
"..(B.....
> CLICK IMAGE PREVIEW FOR FULL MODAL