VERGELIJKING 2
FILE INFORMATION
FILENAME(S): VERGELIJKING 2
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-11-30 21:15:47
APPEARS ON: 1 disk(s)
FILE HASH
032454d018d7b9bb719bbad24af0b39c3b9d1ceba3cecf908a851e17fd8c031d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN EDUCA 02 | VERGELIJKING 2 | PRG | DuncanTwain | 17 | 1 | 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 AE 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 17 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 E3 |81,6:.53280,14..|
000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B |...UT$.UL$:.".";|
000004C0: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004D0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004E0: AB 33 29 00 F8 0C E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004F0: 55 51 AB 55 42 29 3A 82 00 04 0D E6 00 97 55 31 |UQ.UB):.......U1|
00000500: 2C 55 31 25 00 10 0D E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
00000510: 00 1C 0D E9 00 97 55 34 2C 55 34 25 00 2A 0D EA |......U4,U4%.*..|
00000520: 00 97 55 33 2C 55 33 25 AB 31 00 32 0D EB 00 89 |..U3,U3%.1.2....|
00000530: 33 35 00 64 0D F0 00 55 44 25 B2 28 28 55 32 25 |35.d...UD%.((U2%|
00000540: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000550: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000560: 31 29 3A 8E 00 9F 0D F5 00 99 C8 28 55 44 24 2C |1):........(UD$,|
00000570: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000590: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
000005A0: CB 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
000005B0: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
000005C0: 29 3A 55 34 25 B2 C2 28 55 34 29 00 F3 0D FB 00 |):U4%..(U4).....|
000005D0: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:|
000005E0: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK|
000005F0: B2 55 4C 00 F9 0D FF 00 8E 00 0A 0E 2C 01 8F 20 |.UL.........,.. |
00000600: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 10 0E 2D 01 3A |** MENU **...-.:|
00000610: 00 3F 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |.?....".":.UT,UU|
00000620: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000630: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.|
00000640: 45 0E 2F 01 3A 00 62 0E 31 01 99 22 13 20 20 20 |E./.:.b.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN|
00000660: 55 22 00 91 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...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 2D |----------------|
00000690: 22 00 BA 0E 3B 01 99 22 11 11 20 20 20 20 20 20 |"...;..".. |
000006A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 56 45 52 47 | 1. BEGIN VERG|
000006B0: 45 4C 49 4A 4B 49 49 4E 47 22 00 E4 0E 40 01 99 |ELIJKIING"...@..|
000006C0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 4C |".. 2. L|
000006D0: 45 45 52 4C 49 4E 47 20 49 4E 53 54 52 55 43 54 |EERLING INSTRUCT|
000006E0: 49 45 53 22 00 10 0F 45 01 99 22 11 11 20 20 20 |IES"...E..".. |
000006F0: 20 20 20 20 33 2E 20 20 20 4C 45 45 52 4B 52 41 | 3. LEERKRA|
00000700: 43 48 54 20 49 4E 53 54 52 55 43 54 49 45 53 22 |CHT INSTRUCTIES"|
00000710: 00 2C 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 |.,.O..".. |
00000720: 34 2E 20 20 20 53 54 4F 50 11 11 22 00 5B 0F 54 |4. STOP..".[.T|
00000730: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 86 0F 59 01 |----------"...Y.|
00000760: 19 22 11 11 20 20 20 20 20 20 20 54 4F 45 54 53 |.".. TOETS|
00000770: 20 45 45 4E 20 4E 55 4D 4D 45 52 20 20 20 28 31 | EEN NUMMER (1|
00000780: 2D 34 29 20 22 3B 00 AE 0F 5E 01 55 4C B2 31 3A |-4) ";...^.UL.1:|
00000790: 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F |US$."1234":.35:.|
000007A0: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 B9 | INPUT ROUTINE..|
000007B0: 0F 60 01 55 53 24 B2 22 22 00 D6 0F 63 01 91 C5 |.`.US$.""...c...|
000007C0: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5|
000007D0: 30 30 2C 33 39 36 00 DF 0F 68 01 89 33 30 30 00 |00,396...h..300.|
000007E0: 06 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |..... ** RE-ENAB|
000007F0: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
00000800: 45 4E 44 20 2A 2A 00 35 10 8C 01 8B C2 28 35 30 |END **.5.....(50|
00000810: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000820: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
00000830: 30 A7 33 39 39 00 5F 10 8D 01 9E 55 55 AA 37 31 |0.399._....UU.71|
00000840: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000850: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
00000860: 6B 10 8E 01 99 22 9A 93 22 3A 80 00 76 10 8F 01 |k...."..":..v...|
00000870: 8D 38 37 35 3A 8E 00 17 10 90 01 8F 20 2A 2A 20 |.875:....... ** |
00000880: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
00000890: 49 4F 4E 53 20 2A 2A 00 C6 10 95 01 99 22 93 22 |IONS **......"."|
000008A0: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
000008B0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5|
000008C0: 33 32 38 30 2C 30 00 ED 10 9A 01 55 48 B2 31 3A |3280,0.....UH.1:|
000008D0: 55 50 B2 30 3A 55 47 24 B2 22 CC 45 45 52 4C 49 |UP.0:UG$.".EERLI|
000008E0: 4E 47 20 C9 4E 53 54 22 3A 8D 38 35 30 00 18 11 |NG .NST":.850...|
000008F0: 9C 01 99 22 11 11 11 20 20 20 20 20 C5 52 20 5A |..."... .R Z|
00000900: 41 4C 20 4A 45 20 47 45 56 52 41 41 47 44 20 57 |AL JE GEVRAAGD W|
00000910: 4F 52 44 45 4E 22 3A 99 00 47 11 9E 01 99 22 20 |ORDEN":..G...." |
00000920: 56 45 52 47 45 4C 49 4A 4B 49 4E 47 45 4E 20 4D |VERGELIJKINGEN M|
00000930: 45 54 20 45 45 4E 20 56 45 52 41 4E 44 45 52 4C |ET EEN VERANDERL|
00000940: 49 4A 4B 45 22 3A 99 00 75 11 A0 01 99 22 20 56 |IJKE":..u...." V|
00000950: 41 4E 20 48 45 54 20 54 59 50 45 20 33 58 20 2D |AN HET TYPE 3X -|
00000960: 20 35 20 3D 20 37 20 4F 50 20 54 45 20 4C 4F 53 | 5 = 7 OP TE LOS|
00000970: 53 45 4E 2E 22 00 95 11 A2 01 99 22 20 20 20 20 |SEN."......" |
00000980: 20 20 20 20 20 20 20 20 20 20 A3 23 A3 A3 A3 A3 | .#....|
00000990: A3 A3 A3 A3 22 00 C5 11 A4 01 99 22 20 C4 45 20 |...."......" .E |
000009A0: 42 45 44 4F 45 4C 49 4E 47 20 49 53 20 44 41 54 |BEDOELING IS DAT|
000009B0: 20 4A 45 20 44 45 20 57 41 41 52 44 45 20 56 41 | JE DE WAARDE VA|
000009C0: 4E 20 22 3A 99 00 F1 11 A6 01 99 22 20 27 58 27 |N ":......." 'X'|
000009D0: 20 50 52 4F 42 45 45 52 54 20 54 45 20 56 49 4E | PROBEERT TE VIN|
000009E0: 44 45 4E 2C 20 44 49 45 20 44 45 20 20 20 20 20 |DEN, DIE DE |
000009F0: 22 00 18 12 A8 01 99 22 20 20 A3 20 20 20 20 20 |"......" . |
00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A10: 20 20 20 20 20 20 20 22 00 3B 12 AA 01 99 22 20 | ".;...." |
00000A20: 56 45 52 47 45 4C 49 4A 4B 49 4E 47 20 57 41 41 |VERGELIJKING WAA|
00000A30: 52 20 4D 41 41 4B 54 2E 22 3A 99 00 66 12 AC 01 |R MAAKT.":..f...|
00000A40: 99 22 20 20 20 20 20 CA 45 20 4B 52 49 4A 47 54 |." .E KRIJGT|
00000A50: 20 33 20 4B 41 4E 53 45 4E 2C 20 56 4F 4F 52 44 | 3 KANSEN, VOORD|
00000A60: 41 54 20 22 3A 99 00 9F 12 AE 01 99 22 20 49 4B |AT ":......." IK|
00000A70: 20 4A 45 20 44 45 20 47 4F 45 44 45 20 4F 50 4C | JE DE GOEDE OPL|
00000A80: 4F 53 53 49 4E 47 20 47 45 45 46 2E 22 3A 8D 20 |OSSING GEEF.":. |
00000A90: 32 36 31 30 3A 55 50 B2 32 3A 8D 20 38 35 30 00 |2610:UP.2:. 850.|
00000AA0: CB 12 B0 01 99 22 11 20 20 20 20 C1 4C 53 20 48 |.....". .LS H|
00000AB0: 45 54 20 4F 50 4C 4F 53 53 45 4E 20 49 4E 20 33 |ET OPLOSSEN IN 3|
00000AC0: 20 42 45 55 52 54 45 4E 22 3A 99 00 F9 12 B2 01 | BEURTEN":......|
00000AD0: 99 22 20 4E 49 45 54 20 49 53 20 47 45 4C 55 4B |." NIET IS GELUK|
00000AE0: 54 2C 20 4B 55 4E 20 4A 45 20 44 45 20 4F 50 4C |T, KUN JE DE OPL|
00000AF0: 4F 53 53 49 4E 47 22 3A 99 00 16 13 B4 01 99 22 |OSSING":......."|
00000B00: 20 44 4F 4F 52 20 4D 49 4A 20 4C 41 54 45 4E 20 | DOOR MIJ LATEN |
00000B10: 5A 49 45 4D 2E 22 00 43 13 B6 01 99 22 11 20 20 |ZIEM.".C....". |
00000B20: 20 20 20 C8 49 45 52 20 5A 49 45 20 4A 45 20 45 | .IER ZIE JE E|
00000B30: 45 4E 20 56 4F 4F 52 42 45 45 4C 44 20 56 41 4E |EN VOORBEELD VAN|
00000B40: 22 3A 99 00 5A 13 B8 01 99 22 20 45 45 4E 20 4F |":..Z...." EEN O|
00000B50: 50 4C 4F 53 53 49 4E 47 3A 22 00 7F 13 B9 01 99 |PLOSSING:"......|
00000B60: 22 11 20 D0 52 4F 42 4C 45 45 4D 3A 20 20 20 20 |". .ROBLEEM: |
00000B70: 20 20 33 58 20 2D 20 35 20 3D 20 37 22 3A 99 00 | 3X - 5 = 7":..|
00000B80: A1 13 BA 01 99 22 20 12 35 20 41 41 4E 20 45 4C |....." .5 AAN EL|
00000B90: 4B 45 20 4B 41 4E 54 20 45 52 42 49 4A 92 22 3A |KE KANT ERBIJ.":|
00000BA0: 99 00 C3 13 BB 01 99 22 20 D2 45 53 55 4C 54 41 |......." .ESULTA|
00000BB0: 41 54 3A 20 20 20 20 20 20 33 58 20 3D 20 31 32 |AT: 3X = 12|
00000BC0: 22 3A 99 00 E5 13 BC 01 99 22 20 12 C4 45 45 4C |":......." ..EEL|
00000BD0: 20 45 4C 4B 45 20 4B 41 4E 54 20 44 4F 4F 52 20 | ELKE KANT DOOR |
00000BE0: 33 92 22 3A 99 00 15 14 BD 01 99 22 20 D2 45 53 |3.":......." .ES|
00000BF0: 55 4C 54 41 41 54 3A 20 20 20 20 20 20 20 58 20 |ULTAAT: X |
00000C00: 3D 20 34 22 3A 8D 32 36 31 30 3A 55 50 B2 33 3A |= 4":.2610:UP.3:|
00000C10: 8D 20 38 35 30 00 48 14 BE 01 99 22 11 11 11 11 |. 850.H...."....|
00000C20: 11 20 20 20 20 20 D3 4F 4D 4D 49 47 45 20 4F 50 |. .OMMIGE OP|
00000C30: 47 41 56 45 4E 20 48 45 42 42 45 4E 20 44 45 20 |GAVEN HEBBEN DE |
00000C40: 56 45 52 2D 20 22 3A 99 00 79 14 BF 01 99 22 20 |VER- ":..y...." |
00000C50: 41 4E 44 45 52 4C 49 4A 4B 45 20 41 41 4E 20 44 |ANDERLIJKE AAN D|
00000C60: 45 20 52 45 43 48 54 45 52 4B 41 4E 54 20 53 54 |E RECHTERKANT ST|
00000C70: 41 41 4E 20 20 20 22 3A 99 00 A4 14 C0 01 99 22 |AAN ":......."|
00000C80: 20 45 4E 20 53 4F 4D 53 20 5A 45 4C 46 53 20 41 | EN SOMS ZELFS A|
00000C90: 41 4E 20 42 45 49 44 45 20 5A 49 4A 44 45 4E 21 |AN BEIDE ZIJDEN!|
00000CA0: 20 22 3A 99 00 D2 14 C1 01 99 22 20 D6 45 45 4C | ":......." .EEL|
00000CB0: 20 53 55 43 43 45 53 21 20 20 20 20 20 20 20 20 | SUCCES! |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000CD0: 3A 99 00 06 15 C2 01 99 22 20 20 20 20 20 CA 45 |:......." .E|
00000CE0: 20 45 49 4E 44 53 43 4F 52 45 20 49 53 20 48 45 | EINDSCORE IS HE|
00000CF0: 54 20 41 41 4E 54 41 4C 20 4F 50 47 41 56 45 4E |T AANTAL OPGAVEN|
00000D00: 20 20 20 20 20 22 00 34 15 C3 01 99 22 20 44 41 | ".4...." DA|
00000D10: 54 20 4A 45 20 49 4E 20 45 45 4E 20 45 45 52 53 |T JE IN EEN EERS|
00000D20: 54 45 20 50 4F 47 49 4E 47 20 47 4F 45 44 20 48 |TE POGING GOED H|
00000D30: 41 44 2E 22 00 48 15 C7 01 8D 32 36 31 30 3A 55 |AD.".H....2610:U|
00000D40: 50 B2 34 3A 8D 38 35 30 00 7D 15 CC 01 99 22 11 |P.4:.850.}....".|
00000D50: 11 11 11 20 CC 45 54 20 4F 50 3A 11 11 11 9D D6 |... .ET OP:.....|
00000D60: 45 52 47 45 45 54 20 4E 49 45 54 20 4F 50 20 44 |ERGEET NIET OP D|
00000D70: 45 20 53 50 41 54 49 45 42 41 4C 4B 22 00 A7 15 |E SPATIEBALK"...|
00000D80: D6 01 99 22 11 20 54 45 20 44 52 55 4B 4B 45 4E |...". TE DRUKKEN|
00000D90: 20 41 4C 53 20 44 49 54 20 4F 4E 44 45 52 41 41 | ALS DIT ONDERAA|
00000DA0: 4E 20 48 45 54 20 22 00 C7 15 DB 01 99 22 11 20 |N HET "......". |
00000DB0: 53 43 48 45 52 4D 20 47 45 56 52 41 41 47 44 20 |SCHERM GEVRAAGD |
00000DC0: 57 4F 52 44 54 2E 22 00 EC 15 E0 01 99 22 20 20 |WORDT."......" |
00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DE0: 20 20 20 20 20 20 20 20 20 20 20 22 00 F5 15 E5 | "....|
00000DF0: 01 8D 38 33 35 00 09 16 EA 01 8B 55 5A B2 31 A7 |..835......UZ.1.|
00000E00: 9E 55 50 25 3A 89 32 31 37 00 0F 16 F3 01 8E 00 |.UP%:.217.......|
00000E10: 30 16 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 |0.... ** TEACHER|
00000E20: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **|
00000E30: 00 60 16 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C |.`....".":.UT,UL|
00000E40: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000E50: 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 |3281,2:.53280,10|
00000E60: 00 86 16 F6 01 55 48 B2 31 3A 55 50 B2 30 3A 55 |.....UH.1:UP.0:U|
00000E70: 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 |G$.".EACHER .NST|
00000E80: 22 3A 8D 38 35 30 00 B4 16 F7 01 99 22 11 11 20 |":.850......".. |
00000E90: 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 | .O THE BEST|
00000EA0: 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 | OF OUR KNOWLEDG|
00000EB0: 45 2C 11 22 00 DD 16 F8 01 99 22 20 20 20 54 48 |E,."......" TH|
00000EC0: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E |IS PROGRAM IS IN|
00000ED0: 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 09 17 | THE PUBLIC."...|
00000EE0: F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 |..." DOMAIN. |
00000EF0: C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 |.F THIS IS NOT T|
00000F00: 48 45 20 43 41 53 45 11 22 00 26 17 FA 01 19 22 |HE CASE.".&...."|
00000F10: 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 | PLEASE CONTAC|
00000F20: 54 3A 11 11 11 22 00 50 17 FB 01 99 22 20 20 20 |T:...".P...." |
00000F30: 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 | .OMMODORE .US|
00000F40: 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 |INESS .ACHINES."|
00000F50: 00 73 17 FC 01 99 22 20 20 20 20 20 20 20 20 20 |.s...." |
00000F60: 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 | 3370 .HARMACY .|
00000F70: 56 45 2E 00 97 17 FD 01 99 22 20 20 20 20 20 20 |VE......." |
00000F80: 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF | .GINCOURT, .|
00000F90: 4E 54 41 52 49 4F 22 00 B9 17 FE 01 99 22 20 20 |NTARIO"......" |
00000FA0: 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 | .ANADA |
00000FB0: 20 CD 31 D7 20 32 CB 34 22 00 D9 17 FF 01 99 22 | .1. 2.4"......"|
00000FC0: 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 | (416) |
00000FD0: 34 39 39 2D 34 32 39 32 22 00 F4 17 00 02 55 48 |499-4292".....UH|
00000FE0: B2 31 3A 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 |.1:UP.1:. 835:. |
00000FF0: 38 35 30 3A 00 20 18 01 02 99 22 11 20 20 20 20 |850:. ....". |
00001000: CF 52 49 47 49 4E 41 4C 20 D0 52 4F 47 52 41 4D |.RIGINAL .ROGRAM|
00001010: 20 CE 41 4D 45 3A 20 C5 51 55 41 54 49 4F 4E 11 | .AME: .QUATION.|
00001020: 00 49 18 02 02 99 22 20 20 20 20 20 D7 52 49 54 |.I...." .RIT|
00001030: 54 45 4E 20 C2 59 20 20 3A 20 C3 2E 20 C7 2E 20 |TEN .Y : .. .. |
00001040: C1 4E 44 45 52 53 4F 4E 11 00 77 18 03 02 99 22 |.NDERSON..w...."|
00001050: 20 20 D6 45 52 54 41 41 4C 44 20 44 4F 4F 52 20 | .ERTAALD DOOR |
00001060: 20 3A 20 C1 2E 56 2F 44 20 CE 49 45 55 57 45 4E | : ..V/D .IEUWEN|
00001070: 48 55 49 5A 45 4E 11 00 A2 18 04 02 99 22 20 20 |HUIZEN......." |
00001080: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM|
00001090: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
000010A0: 11 11 00 C9 18 05 02 99 22 20 20 20 20 20 20 20 |........" |
000010B0: 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 | ......2.0 ... |
000010C0: C3 CF CD D0 D5 D4 C5 D2 11 00 F0 18 06 02 99 22 |..............."|
000010D0: 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 | ..... 4|
000010E0: 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 |.0 .............|
000010F0: 00 12 19 07 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00001100: 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 |8032 ... .......|
00001110: D2 11 00 37 19 08 02 99 22 20 20 20 20 20 20 20 |...7...." |
00001120: 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 | ......... 64 .|
00001130: CF CD D0 D5 D4 C5 D2 00 40 19 09 02 8D 38 33 35 |........@....835|
00001140: 00 54 19 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |.T.N..UZ.1..UP%:|
00001150: 89 32 31 37 00 5A 19 57 02 8E 00 80 19 58 02 8F |.217.Z.W.....X..|
00001160: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 | ** PROGRAM MODI|
00001170: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A |FICATION INST **|
00001180: 00 91 19 59 02 99 22 93 22 3A 97 55 54 2C 55 4C |...Y..".":.UT,UL|
00001190: 25 00 B6 19 5D 02 55 48 B2 31 3A 55 50 B2 30 3A |%...].UH.1:UP.0:|
000011A0: 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 |UG$.".ROGRAM .OD|
000011B0: 22 3A 8D 38 35 30 00 BF 19 94 02 8D 38 33 35 00 |":.850......835.|
000011C0: D3 19 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |.....UZ.1..UP%:.|
000011D0: 32 31 37 00 D9 19 BB 02 8E 00 FE 19 BC 02 8F 20 |217............ |
000011E0: 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C |** TO USE 8032 L|
000011F0: 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 34 |OAD CBM4032 **.4|
00001200: 1A C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 |....".....BEFORE|
00001210: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00001220: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00001230: 20 20 11 11 00 6A 1A D0 02 99 22 20 20 20 20 20 | ...j...." |
00001240: 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 | LOAD THE 'CBM 4|
00001250: 30 33 32 27 20 50 52 4E C7 52 41 4D 11 11 11 11 |032' PRN.RAM....|
00001260: 11 11 11 11 11 11 11 11 11 22 00 75 1A DA 02 9E |.........".u....|
00001270: 55 55 AA 37 31 00 7B 1A E4 02 80 00 9B 1A 20 03 |UU.71.{....... .|
00001280: 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 |. ** T I T L E |
00001290: 20 50 20 41 20 47 20 45 20 2A 2A 00 CF 1A 22 03 | P A G E **...".|
000012A0: 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 |."....";:.UT,UU%|
000012B0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
000012C0: 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 |280,14:.53281,6.|
000012D0: E5 1A 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 |..$..I.1.38:."..|
000012E0: 92 22 3B 3A 82 00 FD 1A 26 03 81 49 B2 31 A4 32 |.";:....&..I.1.2|
000012F0: 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 15 1B |2:.".....";:....|
00001300: 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 |(..I.1.37:."....|
00001310: 92 22 3B 3A 82 00 2D 1B 2A 03 81 49 B2 31 A4 32 |.";:..-.*..I.1.2|
00001320: 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 52 1B |2:.".....";:..R.|
00001330: 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1B |,.."............|
00001340: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 |............... |
00001350: 20 92 00 74 1B 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D | ..t....".......|
00001360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 |............ . |
00001370: 12 20 92 A9 00 95 1B 30 03 99 22 1D 1D 1D 1D 1D |. .....0..".....|
00001380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .|
00001390: 20 20 12 A3 DF 00 B3 1B 32 03 99 22 1D 1D 1D 1D | ......2.."....|
000013A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 |................|
000013B0: 20 20 92 00 DB 1B 34 03 19 22 11 11 1D 1D 1D 1D | ....4.."......|
000013C0: 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 |........C O M M |
000013D0: 4F 20 44 20 4F 20 52 20 45 11 11 00 FE 1B 36 03 |O D O R E.....6.|
000013E0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000013F0: 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 1D |.EDUCATIONAL....|
00001400: 1C 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.8.."...........|
00001410: 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 38 1C |.....SOFTWARE.8.|
00001420: 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 |:.. ** COMMODORE|
00001430: 20 4C 4F 47 4F 20 2A 2A 00 71 1C 3B 03 99 C8 28 | LOGO **.q.;...(|
00001440: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D |UD$,24);".......|
00001450: 1D 12 54 4F 45 54 53 20 53 50 41 54 49 45 42 41 |..TOETS SPATIEBA|
00001460: 4C 4B 20 4F 46 20 57 41 43 48 54 92 22 3A 49 B2 |LK OF WACHT.":I.|
00001470: 30 00 93 1C 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 |0...<..A$:.A$.."|
00001480: 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 | ".I.I.1:.I.250.|
00001490: 38 32 38 00 B7 1C 3E 03 54 31 24 B2 22 22 3A 54 |828...>.T1$."":T|
000014A0: 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 |2$."":T3$."":T4$|
000014B0: B2 22 22 3A 49 B2 30 00 C0 1C 40 03 89 33 30 30 |."":I.0...@..300|
000014C0: 00 DC 1C 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 |...C.. ** SPACE |
000014D0: 42 41 52 20 50 52 45 53 53 20 2A 2A 00 18 1D 48 |BAR PRESS **...H|
000014E0: 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 |..UO,0:..(UD$,24|
000014F0: 29 3B 22 1D 1D 1D 1D 1D 12 54 4F 45 54 53 20 53 |);"......TOETS S|
00001500: 50 41 54 49 45 42 41 4C 4B 20 56 4F 4F 52 20 56 |PATIEBALK VOOR V|
00001510: 45 52 56 4F 4C 47 92 22 00 2F 1D 4C 03 A1 55 49 |ERVOLG."./.L..UI|
00001520: 24 3A 8B 55 49 24 B3 31 22 20 22 A7 38 34 34 00 |$:.UI$.1" ".844.|
00001530: 35 1D 4E 03 8E 00 55 1D 52 03 8F 20 2A 2A 20 50 |5.N...U.R.. ** P|
00001540: 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 |AGE DESIGN ROUTI|
00001550: 4E 45 20 2A 2A 00 61 1D 54 03 55 50 B2 55 50 AA |NE **.a.T.UP.UP.|
00001560: 31 00 8B 1D 57 03 99 22 93 22 C8 28 55 54 24 AA |1...W..".".(UT$.|
00001570: 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 |UP$,21);.(UP$.UG|
00001580: 24 AA C4 28 55 50 29 2C 31 38 29 00 3A 1D 5C 03 |$..(UP),18).:.\.|
00001590: 19 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000015A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 C9 1D 60 03 8B |---------"...`..|
000015C0: 55 48 B3 B1 30 A7 38 37 30 00 10 1E 61 03 99 3A |UH..0.870...a..:|
000015D0: 8F 2A 2A 50 52 49 4E 54 4C 45 46 54 24 28 55 44 |.**PRINTLEFT$(UD|
000015E0: 24 2C 32 34 29 3B 4C 45 46 54 24 28 55 50 24 2C |$,24);LEFT$(UP$,|
000015F0: 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |7);"HELP - PRESS|
00001600: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 2A 2A | H <RETURN>"**|
00001610: 00 21 1E 66 03 55 48 B2 30 3A 99 22 13 11 22 3A |.!.f.UH.0:."..":|
00001620: 8E 00 40 1E 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 |..@.k.. ** PLEAS|
00001630: 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A |E WAIT REMARK **|
00001640: 00 74 1E 70 03 99 C8 28 55 44 24 2C 32 34 29 3B |.t.p...(UD$,24);|
00001650: 22 20 20 20 20 20 20 20 20 20 20 20 4D 4F 4D 45 |" MOME|
00001660: 4E 54 4A 45 20 41 2E 55 2E 42 2E 2E 2E 2E 20 20 |NTJE A.U.B.... |
00001670: 20 20 20 22 00 7A 1E 75 03 8E 00 97 1E 84 03 8F | ".z.u........|
00001680: 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 | ** SET UP VARIA|
00001690: 42 4C 45 53 20 2A 2A 00 E2 1E 85 03 55 58 24 B2 |BLES **.....UX$.|
000016A0: 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 |"H":.UQ%(1000):U|
000016B0: 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 |B.32768:U1.196:U|
000016C0: 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 |2.197:U3.198:U4.|
000016D0: 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 |216:UC.167:UU.10|
000016E0: 32 34 00 20 1F 86 03 55 54 B2 35 39 34 36 38 3A |24. ...UT.59468:|
000016F0: 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 |UU%.12:UL%.14:UP|
00001700: 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A |%.1146:UM.32768:|
00001710: 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 |UO.158:. 50003,0|
00001720: 00 63 1F 87 03 8B C2 28 35 30 30 28 33 29 B2 30 |.c.....(500(3).0|
00001730: A7 55 42 B2 31 30 32 34 3A 55 31 32 32 30 39 3A |.UB.1024:U12209:|
00001740: 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 |U2.210:U3.211:U4|
00001750: B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 |.214:UC.204:UU.2|
00001760: 30 34 38 00 A2 1F 88 03 8B C2 28 35 30 30 30 33 |048.......(50003|
00001770: 29 32 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 |)20.UT.53272:UU%|
00001780: B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 |.21:UL%.23:UP%.2|
00001790: 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 |139:UM.1024:UO.1|
000017A0: 39 38 00 C6 1F 89 03 55 44 24 B2 22 13 11 11 11 |98.....UD$."....|
000017B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000017C0: 11 11 11 11 11 22 00 F8 1F 8A 03 55 50 24 B2 22 |.....".....UP$."|
000017D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017F0: 20 20 20 20 20 20 20 22 00 46 20 8B 03 55 54 24 | ".F ..UT$|
00001800: B2 22 20 D6 C5 D2 C7 C5 CC C9 CA CB C9 CE C7 A0 |." .............|
00001810: A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 |.....":. PLACE P|
00001820: 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 |ROGRAM TITLE HER|
00001830: 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |E !!!!!!!!!!!!!!|
00001840: 21 21 21 2A 2A 2A 00 4C 20 8C 03 8E 00 66 20 8E |!!!***.L ....f .|
00001850: 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 |.. ** SET VARIAB|
00001860: 4C 45 53 20 2A 2A 00 6F 20 93 03 8D 39 30 30 00 |LES **.o ...900.|
00001870: 8A 20 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 |. ... ** CHECK F|
00001880: 4F 52 20 38 30 33 32 20 2A 2A 00 B3 20 9D 03 8F |OR 8032 **.. ...|
00001890: 50 52 49 4E 54 22 93 22 3A 50 52 49 4E 54 22 A0 |PRINT".":PRINT".|
000018A0: 22 3A 52 45 4D 20 53 48 49 46 54 45 44 20 53 50 |":REM SHIFTED SP|
000018B0: 41 43 45 00 D6 20 A2 03 8F 49 46 50 45 45 4B 28 |ACE.. ...IFPEEK(|
000018C0: 55 42 2B 34 30 29 3C 3E 39 36 54 48 45 4E 47 4F |UB+40)<>96THENGO|
000018D0: 53 55 42 37 30 30 00 EF 20 A3 03 8F 20 2A 2A 20 |SUB700.. ... ** |
000018E0: 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 |MEMORY CHECK **.|
000018F0: 03 21 A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 |.!... .(0).2000.|
00001900: 39 33 37 00 31 21 A5 03 99 22 93 11 11 05 54 48 |937.1!..."....TH|
00001910: 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 |IS MACHINE DOES |
00001920: 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 |NOT HAVE ENOUGH.|
00001930: 22 00 55 21 A6 03 99 22 4D 45 4D 4F 52 59 20 54 |".U!..."MEMORY T|
00001940: 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 |O RUN THIS PROGR|
00001950: 41 4D 20 21 22 00 60 21 A7 03 9E 55 55 AA 37 31 |AM !".`!...UU.71|
00001960: 00 66 21 A8 03 80 00 80 21 A9 03 99 22 93 05 22 |.f!.....!...".."|
00001970: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 |:..(50003).0.962|
00001980: 00 AF 21 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 |..!... ** BASIC |
00001990: 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 |2.0 OR 4.0 OR|
000019A0: 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 | C-64 SETUP **.|
000019B0: ED 21 AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 |.!...1075,133:.1|
000019C0: 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 |076,144:.1077,23|
000019D0: 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C |4:.1079,4:.1080,|
000019E0: 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 23 22 |133:.1081,145.#"|
000019F0: AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 |...1091,155:.109|
00001A00: 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A |8,133:.1099,144:|
00001A10: 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C |.1100,234:.1103,|
00001A20: 31 33 33 00 45 22 AF 03 97 31 31 30 34 2C 31 34 |133.E"...1104,14|
00001A30: 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 |5:.1105,234:.108|
00001A40: 32 2C 32 33 34 00 5C 22 B1 03 8B C2 28 35 30 30 |2,234.\"....(500|
00001A50: 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 8B 22 B6 |03)..160.955..".|
00001A60: 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C |..1093,88:.1094,|
00001A70: 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 |228:.1097,85:.11|
00001A80: 30 32 2C 32 32 38 3A 89 39 36 35 00 A0 22 BB 03 |02,228:.965.."..|
00001A90: 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 |..(50003)..1.990|
00001AA0: 00 CF 22 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 |.."...1093,49:.1|
00001AB0: 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 |094,230:.1097,46|
00001AC0: 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 |:.1102,230:.965.|
00001AD0: 09 23 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 |.#...2099,141:.2|
00001AE0: 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 |100,20:.2101,3:.|
00001AF0: 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 |2103,8:.2104,141|
00001B00: 3A 97 32 31 30 35 2C 32 31 00 45 23 C3 03 97 32 |:.2105,21.E#...2|
00001B10: 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A |106,3:.2115,145:|
00001B20: 17 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 |.2117,52:.2118,2|
00001B30: 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 |34:.2121,49:.212|
00001B40: 32 2C 31 34 31 00 7F 23 C4 03 97 32 31 32 33 2C |2,141..#...2123,|
00001B50: 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 |20:.2124,3:.2126|
00001B60: 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 |,234:.2127,141:.|
00001B70: 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 |2128,21:.2129,3.|
00001B80: 9D 23 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 |.#...UU.48:. DIS|
00001B90: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 AE 23 |ABLE STOP KEY..#|
00001BA0: CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 BE |...800:. TITLE..|
00001BB0: 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 F6 |#...300:. MENU..|
00001BC0: 23 DE 03 8F 50 52 49 4E 54 22 93 54 48 45 20 50 |#...PRINT".THE P|
00001BD0: 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B |GM WILL NOT WORK|
00001BE0: 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 | ON THIS MACHINE|
00001BF0: 21 22 3A 45 4E 44 00 2B 24 E8 03 8B 55 5A B2 31 |!":END.+$...UZ.1|
00001C00: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A |..UP%:.UP%:UZ.0:|
00001C10: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 |. ** PROGRAM STA|
00001C20: 52 54 53 20 48 45 52 45 20 2A 2A 00 57 24 E9 03 |RTS HERE **.W$..|
00001C30: 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 |."..";:.:..(5000|
00001C40: 33 29 32 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3)20..53281,6:.5|
00001C50: 33 32 38 30 2C 31 34 00 99 24 F2 03 8F 20 4D 4F |3280,14..$... MO|
00001C60: 44 49 46 49 45 44 20 46 4F 52 20 45 58 50 45 52 |DIFIED FOR EXPER|
00001C70: 49 45 4E 43 45 20 27 38 32 20 42 59 20 20 20 20 |IENCE '82 BY |
00001C80: 20 20 20 20 20 20 44 41 56 45 20 41 52 54 48 55 | DAVE ARTHU|
00001C90: 52 53 2C 53 41 52 4E 49 41 00 BC 24 FC 03 8F 20 |RS,SARNIA..$... |
00001CA0: 45 51 55 41 54 49 4F 4E 53 20 42 59 3A 20 20 43 |EQUATIONS BY: C|
00001CB0: 2E 47 2E 20 41 4E 44 45 52 53 4F 4E 00 E1 24 06 |.G. ANDERSON..$.|
00001CC0: 04 8F 20 44 45 56 45 4C 4F 50 45 44 20 41 54 3A |.. DEVELOPED AT:|
00001CD0: 20 20 52 4F 4D 45 4F 20 4D 49 43 52 4F 2D 4C 41 | ROMEO MICRO-LA|
00001CE0: 42 00 07 25 10 04 8F 20 43 4F 4E 54 52 49 42 55 |B..%... CONTRIBU|
00001CF0: 54 45 44 20 54 4F 20 50 55 42 4C 49 43 20 44 4F |TED TO PUBLIC DO|
00001D00: 4D 41 49 4E 20 42 59 00 2D 25 1A 04 8F 20 4C 4F |MAIN BY.-%... LO|
00001D10: 47 49 43 53 20 4F 4E 45 20 43 4F 4E 53 55 4C 54 |GICS ONE CONSULT|
00001D20: 41 4E 54 53 20 20 32 2F 31 30 2F 38 30 00 3A 25 |ANTS 2/10/80.:%|
00001D30: 24 04 97 20 55 54 2C 55 4C 25 00 6F 25 2E 04 81 |$.. UT,UL%.o%...|
00001D40: 4E B2 31 A4 36 3A 99 22 93 11 11 11 11 11 11 11 |N.1.6:."........|
00001D50: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001D60: 12 D6 C5 D2 C7 C5 CC C9 CA CB C9 CE C7 92 22 00 |..............".|
00001D70: 93 25 38 04 81 58 B2 31 A4 31 30 30 3A 82 58 3A |.%8..X.1.100:.X:|
00001D80: 99 22 93 22 3A 81 50 B2 31 A4 31 30 30 3A 82 50 |.".":.P.1.100:.P|
00001D90: 3A 82 4E 00 A1 25 46 05 99 22 93 22 3A 55 50 B2 |:.N..%F..".":UP.|
00001DA0: 30 00 D4 25 50 05 99 22 13 11 11 11 11 11 11 11 |0..%P.."........|
00001DB0: 11 11 11 11 20 20 20 20 20 20 C8 4F 45 56 45 45 |.... .OEVEE|
00001DC0: 4C 20 4F 50 47 41 56 45 4E 20 5A 4F 55 20 4A 45 |L OPGAVEN ZOU JE|
00001DD0: 20 22 3A 99 00 F9 25 5A 05 99 22 20 20 20 20 20 | ":...%Z.." |
00001DE0: 20 57 49 4C 4C 45 4E 20 50 52 4F 42 45 52 45 4E | WILLEN PROBEREN|
00001DF0: 20 3F 20 20 20 9D 9D 22 3B 00 21 26 69 05 55 53 | ? ..";.!&i.US|
00001E00: 24 B2 22 31 32 33 34 35 36 37 38 39 30 22 3A 55 |$."1234567890":U|
00001E10: 4C B2 32 3A 8D 20 33 35 3A 45 B2 C5 28 55 52 24 |L.2:. 35:E..(UR$|
00001E20: 29 00 2F 26 6E 05 8B 45 B1 30 A7 31 34 32 30 00 |)./&n..E.0.1420.|
00001E30: 5C 26 78 05 99 3A 99 3A 99 22 20 12 20 CA 41 20 |\&x..:.:." . .A |
00001E40: 4A 41 2C 20 57 45 4C 20 4D 45 45 52 20 44 41 4E |JA, WEL MEER DAN|
00001E50: 20 4E 55 4C 2C 20 41 55 42 2E 21 22 00 6C 26 7D | NUL, AUB.!".l&}|
00001E60: 05 81 49 B2 31 A4 31 30 30 30 3A 82 00 9C 26 80 |..I.1.1000:...&.|
00001E70: 05 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E90: 20 20 20 20 20 20 20 20 20 20 20 22 00 A6 26 82 | "..&.|
00001EA0: 05 89 31 33 36 30 00 AE 26 8C 05 52 B2 30 00 C3 |..1360..&..R.0..|
00001EB0: 26 96 05 81 49 B2 31 A4 45 3A 99 22 93 11 11 11 |&...I.1.E:."....|
00001EC0: 11 11 22 00 D7 26 A0 05 58 B2 B5 28 BB 28 31 29 |.."..&..X..(.(1)|
00001ED0: AC 32 31 29 AB 31 30 00 E5 26 AA 05 8B 58 B2 30 |.21).10..&...X.0|
00001EE0: A7 31 34 34 30 00 F9 26 B4 05 59 B2 B5 28 BB 28 |.1440..&..Y..(.(|
00001EF0: 31 29 AC 34 31 29 AB 32 30 00 0D 27 BE 05 5A B2 |1).41).20..'..Z.|
00001F00: B5 28 BB 28 31 29 AC 34 31 29 AB 32 28 00 20 27 |.(.(1).41).2(. '|
00001F10: C8 05 54 B2 B5 28 BB 28 31 29 2C 31 30 29 AA 31 |..T..(.(1),10).1|
00001F20: 00 36 27 D2 05 8B 54 AB 58 B2 30 B0 54 AA 58 B2 |.6'...T.X.0.T.X.|
00001F30: 30 A7 31 34 34 30 00 46 27 DC 05 44 B2 58 AA 54 |0.1440.F'..D.X.T|
00001F40: 3A 46 B2 58 AB 54 00 6A 27 E6 05 41 24 B2 C4 28 |:F.X.T.j'..A$..(|
00001F50: 58 29 3A 44 24 B2 C4 28 54 29 3A 45 24 B2 C4 28 |X):D$..(T):E$..(|
00001F60: 44 29 3A 46 24 B2 C4 28 46 29 00 74 27 F0 05 4C |D):F$..(F).t'..L|
00001F70: 24 B2 41 24 00 87 27 FA 05 8B 58 AB 54 B2 AB 31 |$.A$..'...X.T..1|
00001F80: A7 46 24 B2 22 2D 22 00 9A 27 04 06 8B 58 AA 54 |.F$."-"..'...X.T|
00001F90: B2 AB 31 A7 45 24 B2 22 2D 22 00 AC 27 0E 06 8B |..1.E$."-"..'...|
00001FA0: 58 AB 54 B2 31 A7 46 24 B2 22 20 22 00 BE 27 18 |X.T.1.F$." "..'.|
00001FB0: 06 8B 58 AA 54 B2 31 A7 45 24 B2 22 20 22 00 CF |..X.T.1.E$." "..|
00001FC0: 27 22 06 8B 58 B2 AB 31 A7 41 24 B2 22 2D 22 00 |'"..X..1.A$."-".|
00001FD0: DF 27 2C 06 8B 58 B2 31 A7 41 24 B2 22 20 22 00 |.',..X.1.A$." ".|
00001FE0: EF 27 36 06 8B 54 B2 31 A7 44 24 B2 22 20 22 00 |.'6..T.1.D$." ".|
00001FF0: 03 28 40 06 42 24 B2 C4 28 59 29 3A 43 24 B2 C4 |.(@.B$..(Y):C$..|
00002000: 28 5A 29 00 20 28 4A 06 8B 28 5A AB 59 29 AD 58 |(Z). (J..(Z.Y).X|
00002010: B2 B5 28 28 5A AB 59 29 AD 58 29 A7 31 36 33 30 |..((Z.Y).X).1630|
00002020: 00 2A 28 54 06 89 31 34 34 30 00 55 28 5E 06 55 |.*(T..1440.U(^.U|
00002030: 47 24 B2 22 D6 52 41 41 47 20 23 22 3A 55 50 B2 |G$.".RAAG #":UP.|
00002040: 49 AB 31 3A 8D 20 38 35 30 3A 99 20 22 11 11 11 |I.1:. 850:. "...|
00002050: 11 1D 1D 22 3B 00 67 28 68 06 42 B2 B5 28 BB 28 |...";.g(h.B..(.(|
00002060: 31 29 AC 33 29 AA 31 00 75 28 72 06 8B 59 B3 30 |1).3).1.u(r..Y.0|
00002070: A7 31 37 33 30 00 8B 28 7C 06 91 42 89 31 36 37 |.1730..(|..B.167|
00002080: 30 2C 31 36 39 30 2C 31 37 31 30 00 A5 28 86 06 |0,1690,1710..(..|
00002090: 99 41 24 3B 22 58 20 2B 22 3B 42 24 3B 22 20 3D |.A$;"X +";B$;" =|
000020A0: 22 3B 43 24 3B 00 AF 28 90 06 89 31 38 31 30 00 |";C$;..(...1810.|
000020B0: C9 28 9A 06 99 43 24 3B 22 20 3D 22 3B 41 24 3B |.(...C$;" =";A$;|
000020C0: 22 58 20 2B 22 3B 42 24 3B 00 D3 28 A4 06 89 31 |"X +";B$;..(...1|
000020D0: 38 31 30 00 F9 28 AE 06 99 45 24 3B 22 58 20 2B |810..(...E$;"X +|
000020E0: 22 3B 42 24 3B 22 20 3D 22 3B 43 24 3B 22 20 2B |";B$;" =";C$;" +|
000020F0: 22 3B 44 24 3B 22 58 22 3B 00 03 29 B8 06 89 31 |";D$;"X";..)...1|
00002100: 38 31 30 00 10 29 C2 06 42 24 B2 C4 28 AB 59 29 |810..)..B$..(.Y)|
00002110: 00 26 29 CC 06 91 42 89 31 37 35 30 2C 31 37 37 |.&)...B.1750,177|
00002120: 30 2C 31 37 39 30 00 40 29 D6 06 99 41 24 3B 22 |0,1790.@)...A$;"|
00002130: 58 20 2D 22 3B 42 24 3B 22 20 3D 22 3B 43 24 3B |X -";B$;" =";C$;|
00002140: 00 4A 29 E0 06 89 31 38 31 30 00 64 29 EA 06 99 |.J)...1810.d)...|
00002150: 43 24 3B 22 20 3D 22 3B 41 24 3B 22 58 20 2D 22 |C$;" =";A$;"X -"|
00002160: 3B 42 24 3B 00 6E 29 F4 06 89 31 38 31 30 00 94 |;B$;.n)...1810..|
00002170: 29 FE 06 99 46 24 3B 22 58 20 2D 22 3B 42 24 3B |)...F$;"X -";B$;|
00002180: 22 20 3D 22 3B 43 24 3B 22 20 2D 22 3B 44 24 3B |" =";C$;" -";D$;|
00002190: 22 58 22 3B 00 9E 29 08 07 89 31 38 31 30 00 A9 |"X";..)...1810..|
000021A0: 29 12 07 81 4D B2 31 A4 33 00 E7 29 1C 07 57 B2 |)...M.1.3..)..W.|
000021B0: 55 50 3A 99 20 A3 32 35 29 3B 22 58 20 3D 20 22 |UP:. .25);"X = "|
000021C0: 3B 3A 55 53 24 B2 22 31 32 33 34 35 36 37 38 39 |;:US$."123456789|
000021D0: 30 2D 48 22 3A 55 4C B2 33 3A 8D 20 33 35 3A 43 |0-H":UL.3:. 35:C|
000021E0: B2 C5 28 55 52 24 29 00 F0 29 21 07 55 50 B2 57 |..(UR$)..)!.UP.W|
000021F0: 00 F6 29 26 07 99 00 0B 2A 30 07 8B 43 B3 B1 28 |..)&....*0..C..(|
00002200: 5A AB 59 29 AD 58 A7 31 39 30 30 00 15 2A 3A 07 |Z.Y).X.1900..*:.|
00002210: 8D 32 30 33 30 00 4E 2A 44 07 99 22 13 11 11 11 |.2030.N*D.."....|
00002220: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... |
00002230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002240: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 69 | ".i|
00002250: 2A 49 07 99 22 91 22 3B A3 28 34 30 AB C3 28 52 |*I..".";.(40..(R|
00002260: 24 29 29 AD 32 29 3B 52 24 00 73 2A 4E 07 0D 32 |$)).2);R$.s*N..2|
00002270: 36 31 30 00 8C 2A 58 07 8B 43 B2 28 5A AB 59 29 |610..*X..C.(Z.Y)|
00002280: 2D 58 AF 4D B2 31 A7 52 B2 52 AA 31 00 96 2A 62 |-X.M.1.R.R.1..*b|
00002290: 07 89 31 39 37 30 00 A0 2A 6C 07 8D 32 31 32 30 |..1970..*l..2120|
000022A0: 00 D5 2A 76 07 99 22 13 11 11 11 11 11 11 11 11 |..*v..".........|
000022B0: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000022C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022D0: 20 20 20 20 22 00 F0 2A 77 07 99 22 91 22 3B A3 | "..*w..".";.|
000022E0: 28 34 30 AB C3 28 52 24 29 29 AD 32 29 3B 52 24 |(40..(R$)).2);R$|
000022F0: 00 2B 2B 78 07 81 54 54 B2 31 A4 35 30 30 3A 82 |.++x..TT.1.500:.|
00002300: 3A 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |:.". |
00002310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002320: 20 20 20 20 20 20 20 20 20 20 22 00 52 2B 7B 07 | ".R+{.|
00002330: 99 22 91 91 11 91 91 22 3B A3 32 36 29 3B 22 1D |.".....";.26);".|
00002340: 1D 20 20 20 20 20 20 9D 1D 9D 9D 9D 9D 9D 9D 9D |. .........|
00002350: 22 3B 00 59 2B 00 07 82 4D 00 9B 2B 8A 07 99 22 |";.Y+...M..+..."|
00002360: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 20 C8 |.............. .|
00002370: 45 54 20 47 4F 45 44 45 20 41 4E 54 57 4F 4F 52 |ET GOEDE ANTWOOR|
00002380: 44 20 49 53 20 22 3B 28 5A AB 59 29 AD 58 3B 22 |D IS ";(Z.Y).X;"|
00002390: 9D 2E 20 20 20 20 20 20 22 3A 99 00 C2 2B 94 07 |.. ":...+..|
000023A0: 99 3A 99 22 20 D7 49 4C 20 4A 45 20 44 45 20 4F |.:." .IL JE DE O|
000023B0: 50 4C 4F 53 53 49 4E 47 20 5A 49 45 4E 20 3F 20 |PLOSSING ZIEN ? |
000023C0: 22 3B 00 E0 2B 9A 07 55 53 24 B2 22 4A 4E 22 3A |";..+..US$."JN":|
000023D0: 55 4C B2 31 3A 8D 20 33 35 3A 4D 24 B2 55 52 24 |UL.1:. 35:M$.UR$|
000023E0: 00 F4 2B 9E 07 8B 20 4D 24 B2 22 4A 22 A7 20 8D |..+... M$."J". .|
000023F0: 32 32 31 30 00 FB 2B B2 07 82 49 00 22 2C B7 07 |2210..+...I.",..|
00002400: 55 47 24 B2 22 D3 43 4F 52 45 20 20 20 20 20 20 |UG$.".CORE |
00002410: 20 20 22 3A 55 50 B2 30 3A 55 48 B2 31 3A 8D 38 | ":UP.0:UH.1:.8|
00002420: 35 30 00 58 2C BC 07 99 22 11 11 11 11 11 11 11 |50.X,...".......|
00002430: 11 11 20 CA 45 20 48 45 42 54 20 45 52 22 3B 52 |.. .E HEBT ER";R|
00002440: 3B 22 47 4F 45 44 20 49 4E 22 3B 45 3B 22 50 4F |;"GOED IN";E;"PO|
00002450: 47 49 4E 47 45 4E 2E 22 00 8E 2C C6 07 99 22 13 |GINGEN."..,...".|
00002460: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 D7 49 |............. .I|
00002470: 4C 20 4A 45 20 48 45 54 20 4E 4F 47 20 45 45 4E |L JE HET NOG EEN|
00002480: 53 20 50 52 4F 42 45 52 45 4E 3F 20 22 3B 00 AC |S PROBEREN? ";..|
00002490: 2C CB 07 55 53 24 B2 22 4A 4E 22 3A 55 4C B2 31 |,..US$."JN":UL.1|
000024A0: 3A 8D 20 33 35 3A 58 24 B2 55 52 24 00 BE 2C D0 |:. 35:X$.UR$..,.|
000024B0: 07 8B 20 58 24 B2 22 4A 22 A7 31 33 35 30 00 C4 |.. X$."J".1350..|
000024C0: 2C DA 07 8E 00 D6 2C E4 07 8F 20 50 52 41 49 53 |,.....,... PRAIS|
000024D0: 45 20 4C 4F 4F 50 00 E9 2C EE 07 4B B2 B5 28 BB |E LOOP..,..K..(.|
000024E0: 28 31 29 AC 31 30 29 AA 31 00 F4 2C F8 07 81 4A |(1).10).1..,...J|
000024F0: B2 31 A4 4B 00 FC 2C 02 08 87 52 24 00 03 2D 0C |.1.K..,...R$..-.|
00002500: 08 82 4A 00 09 2D 16 08 8C 00 0F 2D 20 08 8E 00 |..J..-.....- ...|
00002510: 55 2D 2A 08 83 22 C8 45 45 4C 20 47 4F 45 44 22 |U-*..".EEL GOED"|
00002520: 2C 22 C4 41 54 20 49 53 20 4A 55 49 53 54 22 2C |,".AT IS JUIST",|
00002530: 22 C3 4F 52 52 45 43 54 22 2C 22 D0 52 49 4D 41 |".ORRECT",".RIMA|
00002540: 20 47 45 44 41 41 4E 22 2C 22 D5 49 54 53 54 45 | GEDAAN",".ITSTE|
00002550: 4B 45 4E 44 22 00 8E 2D 34 08 83 22 C6 4F 52 4D |KEND"..-4..".ORM|
00002560: 49 44 41 42 45 4C 22 2C 22 D3 55 50 45 52 22 2C |IDABEL",".UPER",|
00002570: 22 C6 41 4E 54 41 53 54 49 53 43 48 22 2C 22 D4 |".ANTASTISCH",".|
00002580: 45 20 47 45 4B 22 2C 22 CA 41 57 45 4C 22 00 A2 |E GEK",".AWEL"..|
00002590: 2D 3E 08 8F 20 55 4E 50 52 41 49 53 45 20 4C 4F |->.. UNPRAISE LO|
000025A0: 4F 50 00 B6 2D 48 08 4B B2 B5 28 BB 28 31 29 AC |OP..-H.K..(.(1).|
000025B0: 31 30 29 AA 31 31 00 C1 2D 52 08 81 4C B2 31 A4 |10).11..-R..L.1.|
000025C0: 4B 00 C9 2D 5C 08 87 52 24 00 D0 2D 66 08 82 4C |K..-\..R$..-f..L|
000025D0: 00 D6 2D 70 08 8C 00 DC 2D 7A 08 8E 00 13 2E 84 |..-p....-z......|
000025E0: 08 83 22 D3 4F 52 52 59 22 2C 22 CA 41 4D 4D 45 |..".ORRY",".AMME|
000025F0: 52 22 2C 22 CE 49 45 54 20 4A 55 49 53 54 22 2C |R",".IET JUIST",|
00002600: 22 CE 45 45 20 4E 45 45 22 2C 22 C6 4F 55 54 4A |".EE NEE",".OUTJ|
00002610: 45 21 22 00 5C 2E 8E 08 83 22 CD 49 53 53 45 52 |E!".\....".ISSER|
00002620: 22 2C 22 C4 41 54 20 47 49 4E 47 20 4E 49 45 54 |",".AT GING NIET|
00002630: 20 47 4F 45 44 22 2C 22 C7 52 41 50 4A 45 20 5A | GOED",".RAPJE Z|
00002640: 45 4B 45 52 2E 2E 2E 3F 22 2C 22 CF 48 20 4F 48 |EKER...?",".H OH|
00002650: 22 2C 22 C8 41 20 48 41 20 48 41 22 00 77 2E 98 |",".A HA HA".w..|
00002660: 08 8F 20 53 4F 4C 55 54 49 4F 4E 53 20 53 55 42 |.. SOLUTIONS SUB|
00002670: 52 4F 55 54 49 4E 45 00 97 2E A2 08 99 22 93 11 |ROUTINE......"..|
00002680: 11 11 11 11 22 3A 91 42 89 32 32 32 30 2C 32 33 |....":.B.2220,23|
00002690: 36 30 2C 32 35 30 30 00 A5 2E AC 08 8B 59 B3 30 |60,2500......Y.0|
000026A0: A7 32 32 36 30 00 D2 2E B6 08 99 22 20 20 D0 52 |.2260......" .R|
000026B0: 4F 42 4C 45 45 4D 3A 20 20 20 20 22 3B 41 24 3B |OBLEEM: ";A$;|
000026C0: 22 58 20 2B 22 3B 42 24 3B 22 20 3D 22 3B 43 24 |"X +";B$;" =";C$|
000026D0: 3A 99 00 01 2F C0 08 99 22 20 20 20 20 20 20 20 |:.../..." |
000026E0: 12 C8 41 41 4C 20 22 3B 42 24 3B 22 20 56 41 4E |..AAL ";B$;" VAN|
000026F0: 20 45 4C 4B 45 20 4B 41 4E 54 20 41 46 92 22 3A | ELKE KANT AF.":|
00002700: 99 00 0B 2F CA 08 89 32 32 39 30 00 18 2F D4 08 |.../...2290../..|
00002710: 42 24 B2 C4 28 AB 59 29 00 45 2F DE 08 99 22 20 |B$..(.Y).E/..." |
00002720: 20 D0 52 4F 42 4C 45 45 4D 3A 20 20 20 20 22 3B | .ROBLEEM: ";|
00002730: 41 24 3B 22 58 20 2D 22 3B 42 24 3B 22 20 3D 22 |A$;"X -";B$;" ="|
00002740: 3B 43 24 3A 99 00 74 2F E8 08 99 22 20 20 20 20 |;C$:..t/..." |
00002750: 20 12 C4 4F 45 20 22 3B 42 24 3B 22 20 41 41 4E | ..OE ";B$;" AAN|
00002760: 20 45 4C 4B 45 20 4B 41 4E 54 20 45 52 42 49 4A | ELKE KANT ERBIJ|
00002770: 92 22 3A 99 00 86 2F F2 08 57 B2 5A AB 59 3A 47 |.":.../..W.Z.Y:G|
00002780: 24 B2 C4 28 57 29 00 AD 2F FC 08 99 22 20 20 D2 |$..(W)../..." .|
00002790: 45 53 55 4C 54 41 41 54 3A 20 20 20 20 20 22 3B |ESULTAAT: ";|
000027A0: 41 24 3B 22 58 20 3D 22 3B 47 24 3A 99 00 BB 2F |A$;"X =";G$:.../|
000027B0: 06 09 8B 58 B2 31 A7 32 35 39 30 00 E6 2F 10 09 |...X.1.2590../..|
000027C0: 99 22 20 20 20 20 20 20 20 20 20 12 C4 45 45 4C |." ..EEL|
000027D0: 20 45 4C 4B 45 20 4B 41 4E 54 20 44 4F 4F 52 20 | ELKE KANT DOOR |
000027E0: 22 3B 4C 24 3A 99 00 F8 2F 1A 09 53 B2 57 AD 58 |";L$:.../..S.W.X|
000027F0: 3A 53 24 B2 C4 28 53 29 00 18 30 24 09 99 22 20 |:S$..(S)..0$.." |
00002800: 20 D2 45 53 55 4C 54 41 41 54 3A 20 20 20 20 20 | .ESULTAAT: |
00002810: 20 58 20 3D 22 3B 53 24 00 22 30 2E 09 89 32 35 | X =";S$."0...25|
00002820: 39 30 00 30 30 38 09 8B 59 B3 30 A7 32 34 30 30 |90.008..Y.0.2400|
00002830: 00 5D 30 42 09 99 22 20 20 D0 52 4F 42 4C 45 45 |.]0B.." .ROBLEE|
00002840: 4D 3A 20 20 20 20 22 3B 43 24 3B 22 20 3D 22 3B |M: ";C$;" =";|
00002850: 41 24 3B 22 58 20 2B 22 3B 42 24 3A 99 00 8C 30 |A$;"X +";B$:...0|
00002860: 4C 09 99 22 20 20 20 20 12 C8 41 41 4C 20 45 52 |L.." ..AAL ER|
00002870: 20 22 3B 42 24 3B 22 20 41 41 4E 20 45 4C 4B 45 | ";B$;" AAN ELKE|
00002880: 20 4B 41 4E 54 20 41 46 92 22 3A 99 00 96 30 56 | KANT AF.":...0V|
00002890: 09 09 32 34 33 30 00 A3 30 60 09 42 24 B2 C4 28 |..2430..0`.B$..(|
000028A0: AB 59 29 00 D0 30 6A 09 19 22 20 20 D0 52 4F 42 |.Y)..0j.." .ROB|
000028B0: 4C 45 45 4D 3A 20 20 20 20 22 3B 43 24 3B 22 20 |LEEM: ";C$;" |
000028C0: 3D 22 3B 41 24 3B 22 58 20 2D 22 3B 42 24 3A 99 |=";A$;"X -";B$:.|
000028D0: 00 FD 30 74 09 99 22 20 20 12 C4 4F 45 20 45 52 |..0t.." ..OE ER|
000028E0: 20 22 3B 42 24 3B 22 20 41 41 4E 20 45 4C 4B 45 | ";B$;" AAN ELKE|
000028F0: 20 4B 41 4E 54 20 42 49 4A 92 22 3A 99 00 0F 31 | KANT BIJ.":...1|
00002900: 7E 09 57 B2 5A AB 59 3A 47 24 B2 C4 28 57 29 00 |~.W.Z.Y:G$..(W).|
00002910: 39 31 88 09 99 22 20 20 D2 45 53 55 4C 54 41 41 |91..." .ESULTAA|
00002920: 54 3A 20 20 20 20 20 22 3B 47 24 3B 22 20 3D 22 |T: ";G$;" ="|
00002930: 3B 41 24 3B 22 58 22 3A 99 00 47 31 92 09 8B 58 |;A$;"X":..G1...X|
00002940: B2 31 A7 32 35 39 30 00 72 31 9C 09 99 22 20 20 |.1.2590.r1..." |
00002950: 20 20 20 20 20 20 20 12 C4 45 45 4C 20 45 4C 4B | ..EEL ELK|
00002960: 45 20 4B 41 4E 54 20 44 4F 4F 52 20 22 3B 4C 24 |E KANT DOOR ";L$|
00002970: 3A 99 00 84 31 A6 09 53 B2 57 AD 58 3A 53 24 B2 |:...1..S.W.X:S$.|
00002980: C4 28 33 29 00 A8 31 30 09 99 22 20 20 D2 45 53 |.(3)..10.." .ES|
00002990: 55 4C 54 41 41 54 3A 20 20 20 20 20 20 22 3B 53 |ULTAAT: ";S|
000029A0: 24 3B 22 20 3D 20 58 22 00 B2 31 BA 09 89 32 35 |$;" = X"..1...25|
000029B0: 39 30 00 C0 31 C4 09 8B 59 B3 30 A7 32 35 35 30 |90..1...Y.0.2550|
000029C0: 00 F6 31 CE 09 99 22 20 20 D0 52 4F 42 4C 45 45 |..1..." .ROBLEE|
000029D0: 4D 3A 20 22 3B 45 24 3B 22 58 20 2B 22 3B 42 24 |M: ";E$;"X +";B$|
000029E0: 3B 22 20 3D 22 3B 43 24 3B 22 20 2B 22 3B 44 24 |;" =";C$;" +";D$|
000029F0: 3B 22 58 22 3A 99 00 26 32 D8 09 99 22 20 20 20 |;"X":..&2..." |
00002A00: 20 20 12 C8 41 41 4C 20 22 3B 44 24 3B 22 58 20 | ..AAL ";D$;"X |
00002A10: 41 41 4E 20 45 4C 4B 45 20 4B 41 4E 54 20 45 52 |AAN ELKE KANT ER|
00002A20: 41 46 92 22 3A 99 00 51 32 E2 09 99 22 20 20 D2 |AF.":..Q2..." .|
00002A30: 45 53 55 4C 54 41 41 54 3A 20 22 3B 41 24 3B 22 |ESULTAAT: ";A$;"|
00002A40: 58 20 2B 22 3B 42 24 3B 22 20 3D 22 3B 43 24 3A |X +";B$;" =";C$:|
00002A50: 99 00 5B 32 EC 09 89 32 32 34 30 00 91 32 F6 09 |..[2...2240..2..|
00002A60: 99 22 20 20 D0 52 4F 42 4C 45 45 4D 3A 20 22 3B |." .ROBLEEM: ";|
00002A70: 46 24 3B 22 58 20 2D 22 3B 42 24 3B 22 20 3D 22 |F$;"X -";B$;" ="|
00002A80: 3B 43 24 3B 22 20 2D 22 3B 44 24 3B 22 58 22 3A |;C$;" -";D$;"X":|
00002A90: 99 00 BE 32 00 0A 99 22 20 20 20 12 C4 4F 45 20 |...2..." ..OE |
00002AA0: 22 3B 44 24 3B 22 58 20 41 41 4E 20 45 4C 4B 45 |";D$;"X AAN ELKE|
00002AB0: 20 4B 41 4E 54 20 45 52 42 49 4A 22 3A 99 00 E9 | KANT ERBIJ":...|
00002AC0: 32 0A 0A 99 22 20 20 D2 45 53 55 4C 54 41 41 54 |2..." .ESULTAAT|
00002AD0: 3A 20 22 3B 41 24 3B 22 58 20 2D 22 3B 42 24 3B |: ";A$;"X -";B$;|
00002AE0: 22 20 3D 22 3B 43 24 3A 99 00 F3 32 14 0A 89 32 |" =";C$:...2...2|
00002AF0: 32 38 30 00 FE 32 1E 0A 8D 38 33 35 3A 8E 00 12 |280..2...835:...|
00002B00: 33 28 0A 8F 20 50 41 55 53 45 20 52 4F 55 54 49 |3(.. PAUSE ROUTI|
00002B10: 4E 45 00 1B 33 32 0A 8D 38 33 35 00 21 33 50 0A |NE..32..835.!3P.|
00002B20: 8E 00 2B 33 5A 0A 8D 20 33 30 30 00 00 00 01 52 |..+3Z.. 300....R|
.......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,14..
...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1
,U1%......U2,U2%......U4,U4%.*....U3,U3%
.1.2....35.D...UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..
K...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(
U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK
.UL.........,.. ** MENU **...-.:.?....".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
E./.:.B.1..". MENU"...6..
" --------------------------------------
"...;..".. 1. BEGIN VERGELIJKIIN
G"...@..".. 2. LEERLING INSTRUCT
IES"...E..".. 3. LEERKRACHT INST
RUCTIES".,.O..".. 4. STOP..".[.T
.." ------------------------------------
--"...Y..".. TOETS EEN NUMMER (1
-4) ";...^.UL.1:US$."1234":.35:. INPUT R
OUTINE...`.US$."".V.C..E(UR$).1000,400,5
00,396...H..300...... ** RE-ENABLE STOP
KEY AND END **.5....B(50003)..1.B(50003)
..160.B(50003)..0.399._....UU.71:.B(5000
3).0..53281,6:.53280,14.K...."..":..V...
.875:....... ** STUDENT INSTRUCTIONS **.
F....".":.UT,UL%:.B(50003).0..53281,0:.5
3280,0.....UH.1:UP.0:UG$."LEERLING INST"
:.850......"... ER ZAL JE GEVRAAGD W
ORDEN":..G...." VERGELIJKINGEN MET EEN V
ERANDERLIJKE":..U. .." VAN HET TYPE 3X -
5 = 7 OP TE LOSSEN."......"
.#........".E...." DE BEDOELING IS DAT
JE DE WAARDE VAN ":......." 'X' PROBEER
T TE VINDEN, DIE DE "......" .
".;...." VERGELIJ
KING WAAR MAAKT.":..F...." JE KRIJGT
3 KANSEN, VOORDAT ":......." IK JE DE G
OEDE OPLOSSING GEEF.":. 2610:UP.2:. 850.
K....". ALS HET OPLOSSEN IN 3 BEURTEN
":......." NIET IS GELUKT, KUN JE DE OPL
OSSING":......." DOOR MIJ LATEN ZIEM.".C
....". HIER ZIE JE EEN VOORBEELD VAN
":..Z...." EEN OPLOSSING:".....". PROBL
EEM: 3X - 5 = 7":......." .5 AAN EL
KE KANT ERBIJ.":..C...." RESULTAAT:
3X = 12":......." .DEEL ELKE KANT DOOR
3.":......." RESULTAAT: X = 4":.26
10:UP.3:. 850.H...."..... SOMMIGE OP
GAVEN HEBBEN DE VER- ":..Y...." ANDERLIJ
KE AAN DE RECHTERKANT STAAN ":......."
EN SOMS ZELFS AAN BEIDE ZIJDEN! ":..R.A
.." VEEL SUCCES! "
:....B.." JE EINDSCORE IS HET AANTAL
OPGAVEN ".4.C.." DAT JE IN EEN EERS
TE POGING GOED HAD.".H.G..2610:UP.4:.850
.}.L..".... LET OP:....VERGEET NIET OP D
E SPATIEBALK"...V..". TE DRUKKEN ALS DIT
ONDERAAN HET ".G....". SCHERM GEVRAAGD
WORDT."......"
"......835......UZ.1..UP%:.217.......
0.... ** TEACHER INSTRUCTIONS **.`....".
":.UT,UL%:.B(50003).0..53281,2:.53280,10
.....UH.1:UP.0:UG$."TEACHER INST":.850..
....".. TO THE BEST OF OUR KNOWLEDG
E,."......" THIS PROGRAM IS IN THE PUB
LIC."......" DOMAIN. IF THIS IS NOT T
HE CASE.".&...." PLEASE CONTACT:...".P
...." COMMODORE BUSINESS MACHINES."
.S...." 3370 PHARMACY AVE......
." AGINCOURT, ONTARIO"......"
CANADA M1W 2K4".Y...."
(416) 499-4292".....UH.1:UP.1:. 835:.
850:. ....". ORIGINAL PROGRAM NAME: E
QUATION..I...." WRITTEN BY : C. G.
ANDERSON..W...." VERTAALD DOOR : A.V/D
NIEUWENHUIZEN......." .THIS PROGRAM
WILL RUN ON ANY...I...." BASIC
2.0 PET COMPUTER......." BASIC 4
.0 PET COMPUTER......." 8032 CBM
COMPUTER..7...." COMMODORE 64 C
OMPUTER.@....835.T.N..UZ.1..UP%:.217.Z.W
.....X.. ** PROGRAM MODIFICATION INST **
...Y..".":.UT,UL%...].UH.1:UP.0:UG$."PRO
GRAM MOD":.850......835.S....UZ.1..UP%:.
217.Y.......... ** TO USE 8032 LOAD CBM4
032 **.4.F..".....BEFORE RUNNING THIS PR
OGRAM ON AN 8032 ...J.P.." LOAD TH
E 'CBM 4032' PRNGRAM.............".U.Z..
UU.71.{....... .. ** T I T L E P A G E
**.O.".."....";:.UT,UU%:.B(50003).0..53
280,14:.53281,6...$..I.1.38:."...";:....
&..I.1.22:.".....";:....(..I.1.37:."....
.";:..-.*..I.1.22:.".....";:..R.,.."....
....................... ..T....".......
............ . . .....0..".............
...... . ......2.."....................
....4.."..............C O M M O D O R
E.....6.."...............EDUCATIONAL....
.8.."................SOFTWARE.8.:.. ** C
OMMODORE LOGO **.Q.;..H(UD$,24);".......
..TOETS SPATIEBALK OF WACHT.":I.0...<..A
$:.A$.." ".I.I.1:.I.250.828...>.T1$."":T
2$."":T3$."":T4$."":I.0...@..300...C.. *
* SPACE BAR PRESS **...H..UO,0:.H(UD$,24
);"......TOETS SPATIEBALK VOOR VERVOLG."
./.L..UI$:.UI$.1" ".844.5.N...U.R.. ** P
AGE DESIGN ROUTINE **.A.T.UP.UP.1...W.."
."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).:.\.
." -------------------------------------
-".I.`..UH..0.870...A..:.**PRINTLEFT$(UD
$,24);LEFT$(UP$,7);"HELP - PRESS H <RE
TURN>"**.!.F.UH.0:."..":..@.K.. ** PLEAS
E WAIT REMARK **.T.P..H(UD$,24);"
MOMENTJE A.U.B.... ".Z.U........
** SET UP VARIABLES **.....UX$."H":.UQ%
(1000):UB.32768:U1.196:U2.197:U3.198:U4.
216:UC.167:UU.1024. ...UT.59468:UU%.12:U
L%.14:UP%.1146:UM.32768:UO.158:. 50003,0
.C....B(500(3).0.UB.1024:U12209:U2.210:U
3.211:U4.214:UC.204:UU.2048......B(50003
)20.UT.53272:UU%.21:UL%.23:UP%.2139:UM.1
024:UO.198.F...UD$."....................
.....".....UP$."
".F ..UT$." VERGELIJKING
":. PLACE PROGRAM TITLE HERE !!!!!!
!!!!!!!!!!!***.L ....F ... ** SET VARIAB
LES **.O ...900.. ... ** CHECK FOR 8032
**.. ...PRINT".":PRINT" ":REM SHIFTED SP
ACE.V ...IFPEEK(UB+40)<>96THENGOSUB700..
... ** MEMORY CHECK **..!... .(0).2000.
937.1!..."....THIS MACHINE DOES NOT HAVE
ENOUGH.".U!..."MEMORY TO RUN THIS PROGR
AM !".`!...UU.71.F!.....!..."..":.B(5000
3).0.962..!... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **..!...1075,133:.1076,144:
.1077,234:.1079,4:.1080,133:.1081,145.#"
...1091,155:.1098,133:.1099,144:.1100,23
4:.1103,133.E"...1104,145:.1105,234:.108
2,234.\"...B(50003)..160.955.."...1093,8
8:.1094,228:.1097,85:.1102,228:.965. "..
.B(50003)..1.990.O"...1093,49:.1094,230:
.1097,46:.1102,230:.965..#B..2099,141:.2
100,20:.2101,3:.2103,8:.2104,141:.2105,2
1.E#C..2106,3:.2115,145:.2117,52:.2118,2
34:.2121,49:.2122,141.#D..2123,20:.2124
,3:.2126,234:.2127,141:.2128,21:.2129,3.
.#E..UU.48:. DISABLE STOP KEY..#J..800:.
TITLE..#T..300:. MENU..#...PRINT".THE P
GM WILL NOT WORK ON THIS MACHINE!":END.+
$...UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM STA
RTS HERE **.W$..."..";:.:.B(50003)20..53
281,6:.53280,14..$... MODIFIED FOR EXPER
IENCE '82 BY DAVE ARTHURS,SARNI
A..$... EQUATIONS BY: C.G. ANDERSON..$.
.. DEVELOPED AT: ROMEO MICRO-LAB..%...
CONTRIBUTED TO PUBLIC DOMAIN BY.-%... LO
GICS ONE CONSULTANTS 2/10/80.:%$.. UT,U
L%.O%...N.1.6:."........................
.VERGELIJKING."..%8..X.1.100:.X:.".":.P.
1.100:.P:.N..%F..".":UP.0.T%P.."........
.... HOEVEEL OPGAVEN ZOU JE ":...%Z
.." WILLEN PROBEREN ? ..";.!&I.US
$."1234567890":UL.2:. 35:E.E(UR$)./&N..E
.0.1420.\&X..:.:." . JA JA, WEL MEER DAN
NUL, AUB.!".L&}..I.1.1000:...&...".
"..&.
..1360..&..R.0.C&...I.1.E:."......".W& .
X..(.(1).21).10..&...X.0.1440..&..Y..(.(
1).41).20..'..Z..(.(1).41).2(. 'H.T..(.(
1),10).1.6'R..T.X.0.T.X.0.1440.F'..D.X.T
:F.X.T.J'..A$.D(X):D$.D(T):E$.D(D):F$.D(
F).T'..L$.A$..'...X.T..1.F$."-"..'...X.T
..1.E$."-"..'...X.T.1.F$." "..'...X.T.1.
E$." ".O'"..X..1.A$."-"..',..X.1.A$." ".
.'6..T.1.D$." "..(@.B$.D(Y):C$.D(Z). (J.
.(Z.Y).X..((Z.Y).X).1630.*(T..1440.U(^.U
G$."VRAAG #":UP.I.1:. 850:. "......";.G(
H.B..(.(1).3).1.U(R..Y.0.1730..(|..B.167
0,1690,1710..(...A$;"X +";B$;" =";C$;..(
...1810.I(...C$;" =";A$;"X +";B$;.S(...1
810..(...E$;"X +";B$;" =";C$;" +";D$;"X"
;..)...1810..)B.B$.D(.Y).&)L..B.1750,177
0,1790.@)V..A$;"X -";B$;" =";C$;.J)...18
10.D)...C$;" =";A$;"X -";B$;.N)...1810..
)...F$;"X -";B$;" =";C$;" -";D$;"X";..).
..1810..)...M.1.3..)..W.UP:. .25);"X = "
;:US$."1234567890-H":UL.3:. 35:C.E(UR$).
.)!.UP.W..)&....*0..C..(Z.Y).X.1900..*:.
.2030.N*D.."...........
".I*I..".";.(40.C(R
$)).2);R$.S*N..2610..*X..C.(Z.Y)-X.M.1.R
.R.1..*B..1970. *L..2120.U*V..".........
.. "..*
W..".";.(40.C(R$)).2);R$.++X..TT.1.500:.
:.".
".R+{..".....";.26);".. .........
";.Y+...M..+...".............. HET GOEDE
ANTWOORD IS ";(Z.Y).X;".. ":..B+..
.:." WIL JE DE OPLOSSING ZIEN ? ";..+..U
S$."JN":UL.1:. 35:M$.UR$..+... M$."J". .
2210..+...I.",..UG$."SCORE ":UP.0
:UH.1:.850.X,..."......... JE HEBT ER";R
;"GOED IN";E;"POGINGEN."..,F..".........
..... WIL JE HET NOG EENS PROBEREN? ";..
,K.US$."JN":UL.1:. 35:X$.UR$..,P.. X$."J
".1350.D,Z...V,... PRAISE LOOP..,..K..(.
(1).10).1..,...J.1.K..,...R$..-...J..-..
...- ...U-*.."HEEL GOED","DAT IS JUIST",
"CORRECT","PRIMA GEDAAN","UITSTEKEND"..-
4.."FORMIDABEL","SUPER","FANTASTISCH","T
E GEK","JAWEL"..->.. UNPRAISE LOOP..-H.K
..(.(1).10).11.A-R..L.1.K.I-\..R$.P-F..L
.V-P....-Z........"SORRY","JAMMER","NIET
JUIST","NEE NEE","FOUTJE!".\...."MISSER
","DAT GING NIET GOED","GRAPJE ZEKER...?
","OH OH","HA HA HA".W.... SOLUTIONS SUB
ROUTINE......"......":.B.2220,2360,2500.
.....Y.0.2260.R...." PROBLEEM: ";A$;
"X +";B$;" =";C$:.../..." .HAAL ";
B$;" VAN ELKE KANT AF.":.../J..2290../T.
B$.D(.Y).E/..." PROBLEEM: ";A$;"X -"
;B$;" =";C$:..T/..." .DOE ";B$;" AAN
ELKE KANT ERBIJ.":.../..W.Z.Y:G$.D(W)..
/..." RESULTAAT: ";A$;"X =";G$:.../
...X.1.2590../..." .DEEL ELKE KA
NT DOOR ";L$:.../..S.W.X:S$.D(S)..0$.."
RESULTAAT: X =";S$."0...2590.008..
Y.0.2400.]0B.." PROBLEEM: ";C$;" =";
A$;"X +";B$:...0L.." .HAAL ER ";B$;"
AAN ELKE KANT AF.":...0V..2430..0`.B$.D(
.Y).P0J.." PROBLEEM: ";C$;" =";A$;"X
-";B$:...0T.." .DOE ER ";B$;" AAN ELKE
KANT BIJ.":...1~.W.Z.Y:G$.D(W).91..."
RESULTAAT: ";G$;" =";A$;"X":..G1...X
.1.2590.R1..." .DEEL ELKE KANT D
OOR ";L$:...1..S.W.X:S$.D(3)..10.." RES
ULTAAT: ";S$;" = X"..1...2590..1D..
Y.0.2550..1N.." PROBLEEM: ";E$;"X +";B$
;" =";C$;" +";D$;"X":..&2X.." .HAAL
";D$;"X AAN ELKE KANT ERAF.":..Q2..." R
ESULTAAT: ";A$;"X +";B$;" =";C$:..[2...2
240..2..." PROBLEEM: ";F$;"X -";B$;" ="
;C$;" -";D$;"X":...2..." .DOE ";D$;"X
AAN ELKE KANT ERBIJ":...2..." RESULTAAT
: ";A$;"X -";B$;" =";C$:...2...2280..2..
.835:...3(.. PAUSE ROUTINE..32..835.!3P.
..+3Z.. 300....R
> CLICK IMAGE PREVIEW FOR FULL MODAL