PARABOLEN
FILE INFORMATION
FILENAME(S): PARABOLEN
FILE TYPE(S): PRG
FILE SIZE: 14.6K
FIRST SEEN: 2025-11-30 21:14:56
APPEARS ON: 1 disk(s)
FILE HASH
93a0a38139459211d3b818e859cec038bf0dcf1e803bef06f72be8b326afad99
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN EDUCA 03 | PARABOLEN | 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 88 45 4C 45 54 45 20 2B 2B | CHECK .ELETE ++|
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 18 0C C3 |....UI$."":.....|
000003E0: 00 89 33 30 30 3A 8F 2A 2A 4E 41 41 52 20 4D 45 |..300:.**NAAR ME|
000003F0: 4E 55 2A 2A 2A 2A 55 46 3D 31 3A 52 45 4D 20 2B |NU****UF=1:REM +|
00000400: 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 |++ HELP ROUTINE |
00000410: 45 58 49 54 20 2B 2B 2B 00 21 0C C5 00 8D 32 35 |EXIT +++.!....25|
00000420: 30 00 2A 0C C8 00 8D 32 34 35 00 49 0C CD 00 81 |0.*....245.I....|
00000430: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
00000440: 31 25 AA 55 33 25 AB 32 29 00 65 0C D2 00 55 51 |1%.U3%.2).e...UQ|
00000450: 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 |%(UQ.UB)..(UQ):.|
00000460: 3A 99 22 93 22 00 78 0C D7 00 55 5A B2 31 3A 55 |:.".".x...UZ.1:U|
00000470: 56 25 B2 C2 28 55 54 29 00 81 0C D8 00 89 33 30 |V%..(UT)......30|
00000480: 30 00 C4 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 |0.....UZ.0:US$.U|
00000490: 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A |J$:UG$.UK$:UP.UJ|
000004A0: 3A 55 4C B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 |:UL.UK:..(50003)|
000004B0: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
000004C0: 38 30 2C 36 00 F9 0C DC 00 55 54 24 B2 55 4C 24 |80,6.....UT$.UL$|
000004D0: 3A 99 22 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 |:.".";:.UT,UV%:.|
000004E0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
000004F0: 31 25 AA 55 33 25 AB 33 29 00 0E 0D E1 00 97 55 |1%.U3%.3)......U|
00000500: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 1A |Q,UQ%(UQ.UB):...|
00000510: 0D E6 00 97 55 31 2C 55 31 25 00 26 0D E8 00 97 |....U1,U1%.&....|
00000520: 55 32 2C 55 32 25 00 32 0D E9 00 97 55 34 2C 55 |U2,U2%.2....U4,U|
00000530: 34 25 00 40 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.@....U3,U3%.1|
00000540: 00 48 0D EB 00 89 33 35 00 7A 0D F0 00 55 44 25 |.H....35.z...UD%|
00000550: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000560: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
00000570: 24 2C 55 44 25 AA 31 29 3A 8E 00 B5 0D F5 00 99 |$,UD%.1):.......|
00000580: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
000005B0: 20 20 22 3A 8E 00 E1 0D FA 00 55 31 25 B2 C2 28 | ":......U1%..(|
000005C0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3|
000005D0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4|
000005E0: 29 00 09 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).....UJ$.US$:UK|
000005F0: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ|
00000600: B2 55 50 3A 55 4B B2 55 4C 00 0F 0E FF 00 8E 00 |.UP:UK.UL.......|
00000610: 20 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A | .,.. ** MENU **|
00000620: 00 26 0E 2D 01 3A 00 55 0E 2E 01 99 22 93 22 3A |.&.-.:.U....".":|
00000630: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000640: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53|
00000650: 32 38 30 2C 38 00 5B 0E 2F 01 3A 00 78 0E 31 01 |280,8.[./.:.x.1.|
00000660: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000670: 20 20 20 4D 45 4E 55 22 00 A7 0E 36 01 99 22 20 | MENU"...6.." |
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 22 00 CC 0E 3B 01 99 22 11 11 |------"...;.."..|
000006B0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000006C0: 4E 20 50 41 52 41 42 4F 4C 45 4E 22 00 F6 0E 40 |N PARABOLEN"...@|
000006D0: 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 |..".. 2. |
000006E0: 20 4C 45 45 52 4C 49 4E 47 20 49 4E 53 54 52 55 | LEERLING INSTRU|
000006F0: 43 54 49 45 53 22 00 22 0F 45 01 99 22 11 11 20 |CTIES".".E..".. |
00000700: 20 20 20 20 20 20 33 2E 20 20 20 4C 45 45 52 4B | 3. LEERK|
00000710: 52 41 43 48 54 20 49 4E 53 54 52 55 43 54 49 45 |RACHT INSTRUCTIE|
00000720: 53 22 00 3E 0F 4F 01 99 22 11 11 20 20 20 20 20 |S".>.O..".. |
00000730: 20 20 34 2E 20 20 20 53 54 4F 50 11 11 22 00 6D | 4. STOP..".m|
00000740: 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.." ----------|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 96 0F |------------"...|
00000770: 59 01 99 22 11 11 20 20 20 20 20 20 20 54 4F 45 |Y..".. TOE|
00000780: 54 53 20 45 45 4E 20 4E 55 4D 4D 45 52 20 28 31 |TS EEN NUMMER (1|
00000790: 2D 34 29 20 22 3B 00 BE 0F 5E 01 55 4C B2 31 3A |-4) ";...^.UL.1:|
000007A0: 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F |US$."1234":.35:.|
000007B0: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 C9 | INPUT ROUTINE..|
000007C0: 0F 60 01 55 53 24 B2 22 22 00 E6 0F 63 01 91 C5 |.`.US$.""...c...|
000007D0: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5|
000007E0: 30 30 2C 33 39 36 00 EF 0F 68 01 89 33 30 30 00 |00,396...h..300.|
000007F0: 16 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |..... ** RE-ENAB|
00000800: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
00000810: 45 4E 44 20 2A 2A 00 45 10 8C 01 8B C2 28 35 30 |END **.E.....(50|
00000820: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000830: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
00000840: 30 A7 33 39 39 00 68 10 8D 01 8B C2 28 35 30 30 |0.399.h.....(500|
00000850: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00000860: 35 33 32 38 30 2C 31 34 00 74 10 8E 01 99 22 9A |53280,14.t....".|
00000870: 93 22 3A 80 00 7F 10 8F 01 8D 38 37 35 3A 8E 00 |.":.......875:..|
00000880: A0 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 |..... ** STUDENT|
00000890: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **|
000008A0: 00 CF 10 95 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
000008B0: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
000008C0: 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 |3281,0:.53280,0.|
000008D0: F6 10 9A 01 55 48 B2 31 3A 55 50 B2 30 3A 55 47 |....UH.1:UP.0:UG|
000008E0: 24 B2 22 CC 45 45 52 4C 49 4E 47 20 C9 4E 53 54 |$.".EERLING .NST|
000008F0: 22 3A 8D 38 35 30 00 25 11 9B 01 99 22 11 11 11 |":.850.%...."...|
00000900: 11 11 11 11 20 20 20 C4 49 54 20 50 52 4F 47 52 |.... .IT PROGR|
00000910: 41 4D 4D 41 20 57 49 4C 20 4A 45 20 48 45 54 20 |AMMA WIL JE HET |
00000920: 20 20 20 20 22 00 52 11 9D 01 99 22 11 20 45 46 | ".R....". EF|
00000930: 46 45 43 54 20 4C 41 54 45 4E 20 5A 49 45 4E 20 |FECT LATEN ZIEN |
00000940: 44 41 54 20 42 45 50 41 41 4C 44 45 20 43 4F 4E |DAT BEPAALDE CON|
00000950: 2D 22 00 7F 11 9E 01 99 22 11 20 53 54 41 4E 54 |-"......". STANT|
00000960: 45 4E 20 55 49 54 20 44 45 20 56 45 52 47 45 4C |EN UIT DE VERGEL|
00000970: 49 4A 4B 49 4E 47 20 56 41 4E 20 45 45 4E 22 00 |IJKING VAN EEN".|
00000980: AD 11 9F 01 99 22 11 20 50 41 52 41 42 4F 4F 4C |.....". PARABOOL|
00000990: 20 48 45 42 42 45 4E 20 4F 50 20 44 45 20 47 52 | HEBBEN OP DE GR|
000009A0: 41 46 49 45 4B 20 45 52 56 41 4E 2E 22 00 C1 11 |AFIEK ERVAN."...|
000009B0: A4 01 8D 38 33 35 3A 8D 38 35 30 3A 8D 31 35 30 |...835:.850:.150|
000009C0: 30 00 CA 11 E5 01 8D 38 33 35 00 D8 11 EA 01 8B |0......835......|
000009D0: 55 5A B2 31 A7 32 31 37 00 DE 11 F3 01 8E 00 FF |UZ.1.217........|
000009E0: 11 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 |.... ** TEACHER |
000009F0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000A00: 2F 12 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |/....".":.UT,UL%|
00000A10: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000A20: 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 |281,2:.53280,10.|
00000A30: 55 12 F6 01 55 48 B2 31 3A 55 50 B2 30 3A 55 47 |U...UH.1:UP.0:UG|
00000A40: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000A50: 3A 8D 38 35 30 00 83 12 F7 01 99 22 11 11 20 20 |:.850......".. |
00000A60: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000A70: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000A80: 2C 11 22 00 AC 12 F8 01 99 22 20 20 20 54 48 49 |,."......" THI|
00000A90: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000AA0: 54 48 45 20 50 55 42 4C 49 43 11 22 00 D8 12 F9 |THE PUBLIC."....|
00000AB0: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000AC0: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000AD0: 45 20 43 41 53 45 11 22 00 F5 12 FA 01 99 22 20 |E CASE."......" |
00000AE0: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000AF0: 3A 11 11 11 22 00 1F 13 FB 01 99 22 20 20 20 20 |:..."......" |
00000B00: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000B10: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000B20: 42 13 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |B...." |
00000B30: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000B40: 45 2E 00 66 13 FD 01 99 22 20 20 20 20 20 20 20 |E..f...." |
00000B50: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000B60: 54 41 52 49 4F 22 00 88 13 FE 01 99 22 20 20 20 |TARIO"......" |
00000B70: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000B80: CD 31 D7 20 32 CB 34 22 00 A8 13 FF 01 99 22 20 |.1. 2.4"......" |
00000B90: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000BA0: 39 39 2D 34 32 39 32 22 00 C3 13 00 02 55 48 B2 |99-4292".....UH.|
00000BB0: 31 3A 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 |1:UP.1:. 835:. 8|
00000BC0: 35 30 3A 00 E8 13 01 02 99 22 20 20 20 20 20 11 |50:......" .|
00000BD0: 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 D0 |..ROGRAM .AME: .|
00000BE0: 41 52 41 42 4F 4C 41 11 00 0F 14 02 02 99 22 20 |ARABOLA......." |
00000BF0: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000C00: 3A 20 D2 2E 20 D7 2E 20 D3 54 55 41 52 54 11 00 |: .. .. .TUART..|
00000C10: 57 14 03 02 99 22 20 20 20 D6 45 52 54 41 41 4C |W...." .ERTAAL|
00000C20: 44 20 44 4F 4F 52 20 3A 20 C1 2E 56 2F 44 20 CE |D DOOR : ..V/D .|
00000C30: 49 45 55 57 45 4E 48 55 49 5A 45 4E 11 20 20 20 |IEUWENHUIZEN. |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 56 4F 4F 52 20 | VOOR |
00000C50: 20 20 D6 C3 C7 CE 22 00 82 14 04 02 99 22 20 20 | ...."......" |
00000C60: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM|
00000C70: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
00000C80: 11 11 00 A9 14 05 02 99 22 20 20 20 20 20 20 20 |........" |
00000C90: 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 | ......2.0 ... |
00000CA0: C3 CF CD D0 D5 D4 C5 D2 11 00 D0 14 06 02 99 22 |..............."|
00000CB0: 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 | ..... 4|
00000CC0: 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 |.0 .............|
00000CD0: 00 F2 14 07 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000CE0: 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 |8032 ... .......|
00000CF0: D2 11 00 17 15 08 02 99 22 20 20 20 20 20 20 20 |........" |
00000D00: 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 | ......... 64 .|
00000D10: CF CD D0 D5 D4 C5 D2 00 20 15 09 02 8D 38 33 35 |........ ....835|
00000D20: 00 2E 15 4E 02 8B 55 5A B2 31 A7 32 31 37 00 34 |...N..UZ.1.217.4|
00000D30: 15 57 02 8E 00 5A 15 58 02 8F 20 2A 2A 20 50 52 |.W...Z.X.. ** PR|
00000D40: 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 |OGRAM MODIFICATI|
00000D50: 4F 4E 20 49 4E 53 54 20 2A 2A 00 6B 15 59 02 99 |ON INST **.k.Y..|
00000D60: 22 93 22 3A 97 55 54 2C 55 4C 25 00 90 15 5D 02 |".":.UT,UL%...].|
00000D70: 55 48 B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D0 |UH.1:UP.0:UG$.".|
00000D80: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000D90: 00 BE 15 62 02 99 22 11 20 C4 4F 43 55 4D 45 4E |...b..". .OCUMEN|
00000DA0: 54 41 54 49 4F 4E 20 49 53 20 50 52 4F 56 49 44 |TATION IS PROVID|
00000DB0: 45 44 20 57 49 54 48 49 4E 20 54 48 45 22 00 E6 |ED WITHIN THE"..|
00000DC0: 15 6C 02 99 22 11 20 50 52 4F 47 52 41 4D 20 46 |.l..". PROGRAM F|
00000DD0: 4F 52 20 45 41 53 59 20 4D 4F 44 49 46 49 43 41 |OR EASY MODIFICA|
00000DE0: 54 49 4F 4E 2E 22 00 EF 15 94 02 8D 38 33 35 00 |TION."......835.|
00000DF0: FD 15 B2 02 8B 55 5A B2 31 A7 32 31 37 00 03 16 |.....UZ.1.217...|
00000E00: BB 02 8E 00 28 16 BC 02 8F 20 2A 2A 20 54 4F 20 |....(.... ** TO |
00000E10: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00000E20: 4D 34 30 33 32 20 2A 2A 00 5E 16 C6 02 99 22 93 |M4032 **.^....".|
00000E30: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00000E40: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00000E50: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 94 |ON AN 8032 ....|
00000E60: 16 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
00000E70: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
00000E80: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
00000E90: 11 11 11 22 00 A2 16 DA 02 8F 53 59 53 55 55 2B |..."......SYSUU+|
00000EA0: 37 31 00 A8 16 E4 02 80 00 C8 16 20 03 8F 20 2A |71......... .. *|
00000EB0: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P |
00000EC0: 41 20 47 20 45 20 2A 2A 00 FC 16 22 03 99 22 93 |A G E **..."..".|
00000ED0: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..|
00000EE0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280|
00000EF0: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 12 17 24 |,14:.53281,6...$|
00000F00: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";|
00000F10: 3A 82 00 2A 17 26 03 81 49 B2 31 A4 32 32 3A 99 |:..*.&..I.1.22:.|
00000F20: 22 11 9D 12 A6 92 22 3B 3A 82 00 42 17 28 03 81 |".....";:..B.(..|
00000F30: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";|
00000F40: 3A 82 00 5A 17 2A 03 81 49 B2 31 A4 32 32 3A 99 |:..Z.*..I.1.22:.|
00000F50: 22 91 9D 12 A6 92 22 3B 3A 82 00 7F 17 2C 03 99 |".....";:....,..|
00000F60: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000F70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..|
00000F80: A1 17 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
00000F90: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .|
00000FA0: A9 00 C2 17 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....0.."........|
00000FB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
00000FC0: A3 DF 00 E0 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....2..".......|
00000FD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .|
00000FE0: 00 08 18 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........|
00000FF0: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D|
00001000: 20 4F 20 52 20 45 11 11 00 2B 18 36 03 99 22 1D | O R E...+.6..".|
00001010: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED|
00001020: 55 43 41 54 49 4F 4E 41 4C 11 11 00 4A 18 38 03 |UCATIONAL...J.8.|
00001030: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001040: 1D 1D 53 4F 46 54 57 41 52 45 00 65 18 3A 03 8F |..SOFTWARE.e.:..|
00001050: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO|
00001060: 47 4F 20 2A 2A 00 9E 18 3B 03 99 C8 28 55 44 24 |GO **...;...(UD$|
00001070: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 12 54 |,24);".........T|
00001080: 4F 45 54 53 20 53 50 41 54 49 45 42 41 4C 4B 20 |OETS SPATIEBALK |
00001090: 4F 46 20 57 41 43 48 54 92 22 3A 49 B2 30 00 C0 |OF WACHT.":I.0..|
000010A0: 18 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |.<..A$:.A$.." ".|
000010B0: 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 |I.I.1:.I.250.828|
000010C0: 00 E4 18 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 |...>.T1$."":T2$.|
000010D0: 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 |"":T3$."":T4$.""|
000010E0: 3A 49 B2 30 00 ED 18 40 03 89 33 30 30 00 09 19 |:I.0...@..300...|
000010F0: 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 |C.. ** SPACE BAR|
00001100: 20 50 52 45 53 53 20 2A 2A 00 45 19 48 03 97 55 | PRESS **.E.H..U|
00001110: 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 |O,0:..(UD$,24);"|
00001120: 1D 1D 1D 1D 1D 12 54 4F 45 54 53 20 53 50 41 54 |......TOETS SPAT|
00001130: 49 45 42 41 4C 4B 20 56 4F 4F 52 20 56 45 52 56 |IEBALK VOOR VERV|
00001140: 4F 4C 47 92 22 00 5C 19 4C 03 A1 55 49 24 3A 8B |OLG.".\.L..UI$:.|
00001150: 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 62 19 4E |UI$.." ".844.b.N|
00001160: 03 8E 00 82 19 52 03 8F 20 2A 2A 20 50 41 47 45 |.....R.. ** PAGE|
00001170: 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 | DESIGN ROUTINE |
00001180: 2A 2A 00 8E 19 54 03 55 50 B2 55 50 AA 31 00 B8 |**...T.UP.UP.1..|
00001190: 19 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 |.W..".".(UT$.UP$|
000011A0: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 |,21);.(UP$.UG$..|
000011B0: 28 55 50 29 2C 31 38 29 00 E7 19 5C 03 99 22 20 |(UP),18)...\.." |
000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011E0: 2D 2D 2D 2D 2D 2D 22 00 F6 19 60 03 8B 55 48 B3 |------"...`..UH.|
000011F0: B1 30 A7 38 37 30 00 2A 1A 61 03 99 C8 28 55 44 |.0.870.*.a...(UD|
00001200: 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 |$,24);.(UP$,7);"|
00001210: 4D 45 4E 55 20 2D 20 54 4F 45 54 53 20 20 20 4D |MENU - TOETS M|
00001220: 20 3C 52 45 54 55 52 4E 3E 22 00 3B 1A 66 03 55 | <RETURN>".;.f.U|
00001230: 48 B2 30 3A 99 22 13 11 22 3A 8E 00 5A 1A 6B 03 |H.0:."..":..Z.k.|
00001240: 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 |. ** PLEASE WAIT|
00001250: 20 52 45 4D 41 52 4B 20 2A 2A 00 8E 1A 70 03 99 | REMARK **...p..|
00001260: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00001270: 20 20 20 20 20 20 4D 4F 4D 45 4E 54 4A 45 20 41 | MOMENTJE A|
00001280: 2E 55 2E 42 2E 2E 2E 2E 20 20 20 20 20 22 00 94 |.U.B.... "..|
00001290: 1A 75 03 8E 00 B1 1A 84 03 8F 20 2A 2A 20 53 45 |.u........ ** SE|
000012A0: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *|
000012B0: 2A 00 FC 1A 85 03 55 58 24 B2 22 4D 22 3A 86 55 |*.....UX$."M":.U|
000012C0: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276|
000012D0: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:|
000012E0: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC|
000012F0: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 3A 1B 86 |.167:UU.1024.:..|
00001300: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12|
00001310: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146|
00001320: 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 |:UM.32768:UO.158|
00001330: 3A 97 20 35 30 30 30 33 2C 30 00 7D 1B 87 03 8B |:. 50003,0.}....|
00001340: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10|
00001350: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
00001360: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
00001370: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 C5 1B |C.204:UU.2048...|
00001380: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT|
00001390: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL|
000013A0: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM|
000013B0: B2 31 30 32 34 3A 55 4F B2 31 39 38 3A 42 53 B2 |.1024:UO.198:BS.|
000013C0: 35 35 32 39 36 00 E9 1B 89 03 55 44 24 B2 22 13 |55296.....UD$.".|
000013D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000013E0: 11 11 11 11 11 11 11 11 22 00 1B 1C 8A 03 55 50 |........".....UP|
000013F0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001410: 20 20 20 20 20 20 20 20 20 20 22 00 69 1C 8B 03 | ".i...|
00001420: 55 54 24 B2 22 20 D0 C1 D2 C1 C2 CF CC C5 CE 20 |UT$." ......... |
00001430: 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 | ......":. PLAC|
00001440: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE |
00001450: 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 21 |HERE !!!!!!!!!!!|
00001460: 21 21 21 21 21 21 2A 2A 2A 00 6F 1C 8C 03 8E 00 |!!!!!!***.o.....|
00001470: 89 1C 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |..... ** SET VAR|
00001480: 49 41 42 4C 45 53 20 2A 2A 00 92 1C 93 03 8D 39 |IABLES **......9|
00001490: 30 30 00 BB 1C 94 03 86 20 59 56 28 32 31 29 2C |00...... YV(21),|
000014A0: 59 53 28 32 32 29 2C 53 50 28 32 32 29 2C 50 50 |YS(22),SP(22),PP|
000014B0: 28 32 32 29 2C 50 4F 28 32 32 29 00 D6 1C 98 03 |(22),PO(22).....|
000014C0: 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 |. ** CHECK FOR 8|
000014D0: 30 33 32 20 2A 2A 00 FF 1C 9D 03 8F 50 52 49 4E |032 **......PRIN|
000014E0: 54 22 93 22 3A 50 52 49 4E 54 22 A0 22 3A 52 45 |T".":PRINT".":RE|
000014F0: 4D 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 |M SHIFTED SPACE.|
00001500: 22 1D A2 03 8F 49 46 50 45 45 4B 28 55 42 2B 34 |"....IFPEEK(UB+4|
00001510: 30 29 3C 3E 39 36 54 48 45 4E 47 4F 53 55 42 37 |0)<>96THENGOSUB7|
00001520: 30 30 00 3B 1D A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00.;.... ** MEMO|
00001530: 52 59 20 43 48 45 43 4B 20 2A 2A 00 4F 1D A4 03 |RY CHECK **.O...|
00001540: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
00001550: 7D 1D A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |}...."....THIS M|
00001560: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
00001570: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 A1 1D |HAVE ENOUGH."...|
00001580: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
00001590: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
000015A0: 22 00 AF 1D A7 03 8F 53 59 53 55 55 2B 37 31 00 |"......SYSUU+71.|
000015B0: B5 1D A8 03 80 00 CF 1D A9 03 99 22 93 05 22 3A |..........."..":|
000015C0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 |..(50003).0.962.|
000015D0: FE 1D AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 |..... ** BASIC 2|
000015E0: 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 |.0 OR 4.0 OR |
000015F0: 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 3C | C-64 SETUP **.<|
00001600: 1E AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 |....1075,133:.10|
00001610: 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 |76,144:.1077,234|
00001620: 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 |:.1079,4:.1080,1|
00001630: 33 33 3A 97 31 30 38 31 2C 31 34 35 00 72 1E AE |33:.1081,145.r..|
00001640: 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 |..1091,155:.1098|
00001650: 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 |,133:.1099,144:.|
00001660: 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 |1100,234:.1103,1|
00001670: 33 33 00 94 1E AF 03 97 31 31 30 34 2C 31 34 35 |33......1104,145|
00001680: 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 |:.1105,234:.1082|
00001690: 2C 32 33 34 00 AB 1E B1 03 8B C2 28 35 30 30 30 |,234.......(5000|
000016A0: 33 29 B3 B1 31 36 30 A7 39 35 35 00 DA 1E B6 03 |3)..160.955.....|
000016B0: 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 |.1093,88:.1094,2|
000016C0: 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 |28:.1097,85:.110|
000016D0: 32 2C 32 32 38 3A 89 39 36 35 00 EF 1E BB 03 8B |2,228:.965......|
000016E0: C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 |.(50003)..1.990.|
000016F0: 1E 1F C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 |.....1093,49:.10|
00001700: 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A |94,230:.1097,46:|
00001710: 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 58 |.1102,230:.965.X|
00001720: 1F C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 |....2099,141:.21|
00001730: 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 |00,20:.2101,3:.2|
00001740: 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A |103,8:.2104,141:|
00001750: 97 32 31 30 35 2C 32 31 00 94 1F C3 03 97 32 31 |.2105,21......21|
00001760: 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 |06,3:.2115,145:.|
00001770: 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 |2117,52:.2118,23|
00001780: 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 |4:.2121,49:.2122|
00001790: 2C 31 34 31 00 CE 1F C4 03 97 32 31 32 33 2C 32 |,141......2123,2|
000017A0: 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C |0:.2124,3:.2126,|
000017B0: 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 |234:.2127,141:.2|
000017C0: 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 E6 |128,21:.2129,3..|
000017D0: 1F C5 03 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 |...:. DISABLE ST|
000017E0: 4F 50 20 4B 45 59 00 F7 1F CA 03 8D 38 30 30 3A |OP KEY......800:|
000017F0: 8F 20 54 49 54 4C 45 00 07 20 D4 03 89 33 30 30 |. TITLE.. ...300|
00001800: 3A 8F 20 4D 45 4E 55 00 3F 20 DE 03 8F 50 52 49 |:. MENU.? ...PRI|
00001810: 4E 54 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |NT".THE PGM WILL|
00001820: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001830: 53 20 4D 41 43 48 49 4E 45 21 22 3A 45 4E 44 00 |S MACHINE!":END.|
00001840: 6A 20 E8 03 8B 55 5A B2 31 A7 55 5A B2 30 3A 8F |j ...UZ.1.UZ.0:.|
00001850: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001860: 54 53 20 48 45 52 45 20 2A 2A 00 95 20 E9 03 99 |TS HERE **.. ...|
00001870: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 |"..";:.:..(50003|
00001880: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
00001890: 32 38 30 2C 36 00 A3 20 ED 03 5A 5A B2 BB 28 AB |280,6.. ..ZZ..(.|
000018A0: 54 49 29 00 A9 20 F2 03 8C 00 B8 20 F7 03 8F 20 |TI).. ..... ... |
000018B0: 20 53 59 53 31 30 39 33 00 D9 20 FC 03 8F 20 20 | SYS1093.. ... |
000018C0: 20 20 20 20 20 44 49 53 4B 20 4E 41 4D 45 20 27 | DISK NAME '|
000018D0: 50 41 52 41 42 4F 4C 41 27 00 E0 20 06 04 20 3A |PARABOLA'.. .. :|
000018E0: 00 E7 20 10 04 20 3A 00 09 21 1A 04 8F 20 20 20 |.. .. :..!... |
000018F0: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *************|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 21 24 04 3A 00 |*********..!$.:.|
00001910: 31 21 2E 04 8F 20 20 20 20 20 20 50 41 52 41 42 |1!... PARAB|
00001920: 4F 4C 41 20 49 4E 56 45 53 54 49 47 41 54 49 4F |OLA INVESTIGATIO|
00001930: 4E 00 4C 21 38 04 8F 20 20 20 20 20 20 20 20 20 |N.L!8.. |
00001940: 20 56 45 52 53 49 4F 4E 20 34 2E 33 00 52 21 42 | VERSION 4.3.R!B|
00001950: 04 3A 00 72 21 4C 04 8F 20 20 20 20 20 20 20 20 |.:.r!L.. |
00001960: 55 53 49 4E 47 20 59 3D 41 28 58 2D 48 29 5E 32 |USING Y=A(X-H)^2|
00001970: 2B 4B 00 78 21 56 04 3A 00 9A 21 60 04 8F 20 20 |+K.x!V.:..!`.. |
00001980: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************|
00001990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 21 6A 04 3A |**********..!j.:|
000019A0: 00 BB 21 74 04 8F 20 20 20 20 20 20 20 20 20 46 |..!t.. F|
000019B0: 45 42 20 32 34 2C 20 31 39 38 32 00 C1 21 7E 04 |EB 24, 1982..!~.|
000019C0: 3A 00 DC 21 88 04 8F 20 20 20 20 20 20 20 20 20 |:..!... |
000019D0: 52 2E 20 57 2E 20 53 54 55 41 52 54 00 E2 21 8D |R. W. STUART..!.|
000019E0: 04 3A 00 07 22 92 04 8F 20 56 45 52 54 41 4C 49 |.:.."... VERTALI|
000019F0: 4E 47 3A 20 41 2E 56 2F 44 20 4E 49 45 55 57 45 |NG: A.V/D NIEUWE|
00001A00: 4E 48 55 49 5A 45 4E 00 0D 22 97 04 3A 00 34 22 |NHUIZEN.."..:.4"|
00001A10: 9C 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A30: 2A 2A 53 C3 00 3A 22 A6 04 3A 00 43 22 B0 04 99 |**S..:"..:.C"...|
00001A40: 22 93 22 00 65 22 BA 04 8F 20 20 20 20 44 49 4D |".".e"... DIM|
00001A50: 45 4E 53 49 4F 4E 20 26 20 52 45 41 44 20 53 59 |ENSION & READ SY|
00001A60: 4D 42 4F 4C 53 00 71 22 C4 04 97 55 54 2C 55 55 |MBOLS.q"...UT,UU|
00001A70: 25 00 7D 22 CE 04 8D 20 20 32 38 35 30 00 83 22 |%.}"... 2850.."|
00001A80: D8 04 3A 00 89 22 F6 04 3A 00 9D 22 00 05 8F 20 |..:.."..:.."... |
00001A90: 20 20 20 20 20 20 20 20 20 4C 4F 4F 50 00 B2 22 | LOOP.."|
00001AA0: 0A 05 81 20 44 4C 20 B2 20 31 20 A4 20 32 20 A9 |... DL . 1 . 2 .|
00001AB0: 20 30 00 BA 22 14 05 20 20 3A 00 D8 22 1E 05 20 | 0..".. :..".. |
00001AC0: 20 8F 20 20 20 20 20 49 4E 50 55 54 20 41 2C 20 | . INPUT A, |
00001AD0: 48 2C 20 41 4E 44 20 4B 00 E6 22 28 05 20 20 8D |H, AND K.."(. .|
00001AE0: 20 20 31 38 38 30 00 EE 22 32 05 20 20 3A 00 05 | 1880.."2. :..|
00001AF0: 23 3C 05 20 20 8F 20 20 20 20 20 50 4C 4F 54 20 |#<. . PLOT |
00001B00: 47 52 41 50 48 00 13 23 46 05 20 20 8D 20 20 32 |GRAPH..#F. . 2|
00001B10: 31 37 30 00 1B 23 50 05 20 20 3A 00 40 23 5A 05 |170..#P. :.@#Z.|
00001B20: 20 20 8F 20 20 20 20 20 43 48 41 4E 47 45 20 43 | . CHANGE C|
00001B30: 4F 4E 53 54 41 4E 54 53 20 4F 52 20 51 55 49 54 |ONSTANTS OR QUIT|
00001B40: 00 4E 23 64 05 20 20 8D 20 20 32 36 32 30 00 56 |.N#d. . 2620.V|
00001B50: 23 6E 05 20 20 3A 00 70 23 78 05 8B 20 51 55 49 |#n. :.p#x.. QUI|
00001B60: 54 24 B2 22 53 54 4F 50 22 20 A7 20 44 4C B2 32 |T$."STOP" . DL.2|
00001B70: 00 79 23 82 05 82 20 44 4C 00 7F 23 8C 05 8E 00 |.y#... DL..#....|
00001B80: 85 23 A0 05 3A 00 A9 23 AA 05 8F 20 2A 2A 2A 2A |.#..:..#... ****|
00001B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AF 23 B4 05 3A 00 |*********..#..:.|
00001BB0: D1 23 BE 05 8F 20 20 20 22 D2 D2 D2 D2 D2 D2 D2 |.#... ".......|
00001BC0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00001BD0: 22 00 F0 23 C8 05 8F 20 20 20 20 20 20 50 20 52 |"..#... P R|
00001BE0: 20 4F 20 43 20 45 20 44 20 55 20 52 20 45 20 53 | O C E D U R E S|
00001BF0: 00 12 24 D2 05 8F 20 20 20 22 C5 C5 C5 C5 C5 C5 |..$... "......|
00001C00: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00001C10: C5 22 00 18 24 DC 05 3A 00 3C 24 E6 05 8F 20 2A |."..$..:.<$... *|
00001C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 24 F0 |************.B$.|
00001C40: 05 3A 00 5F 24 FA 05 8F 20 20 20 20 20 20 20 44 |.:._$... D|
00001C50: 45 53 43 52 49 42 45 20 50 52 4F 47 52 41 4D 00 |ESCRIBE PROGRAM.|
00001C60: 65 24 04 06 3A 00 79 24 0E 06 8F 20 2D 2D 2D 2D |e$..:.y$... ----|
00001C70: 2D 2D 2D 20 BD 4C 41 49 4E 00 7F 24 18 06 3A 00 |--- .LAIN..$..:.|
00001C80: AD 24 2C 06 99 22 11 11 11 11 20 C8 45 54 20 50 |.$,..".... .ET P|
00001C90: 52 4F 47 52 41 4D 4D 41 20 57 45 52 4B 54 20 4D |ROGRAMMA WERKT M|
00001CA0: 45 54 20 50 41 52 41 42 4F 4F 4C 2D 22 00 D4 24 |ET PARABOOL-"..$|
00001CB0: 31 06 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |1.." |
00001CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001CD0: 20 20 32 22 00 FE 24 40 06 99 22 20 56 45 52 47 | 2"..$@.." VERG|
00001CE0: 45 4C 49 4A 4B 49 4E 47 45 4E 20 41 4C 53 20 3A |ELIJKINGEN ALS :|
00001CF0: 20 59 3D 41 28 58 2D 48 29 20 2B 4B 2E 22 00 2D | Y=A(X-H) +K.".-|
00001D00: 25 54 06 99 22 11 20 CB 49 45 53 20 44 41 44 45 |%T..". .IES DADE|
00001D10: 4C 49 4A 4B 20 5A 45 4C 46 20 57 41 41 52 44 45 |LIJK ZELF WAARDE|
00001D20: 4E 20 56 4F 4F 52 20 41 2C 20 48 2C 22 00 5C 25 |N VOOR A, H,".\%|
00001D30: 5E 06 99 22 11 20 41 4E 44 20 4B 2E 20 C5 45 4E |^..". AND K. .EN|
00001D40: 20 56 41 4E 20 44 45 5A 45 20 44 52 49 45 20 57 | VAN DEZE DRIE W|
00001D50: 41 41 52 44 45 4E 20 4B 55 4E 20 22 00 8B 25 68 |AARDEN KUN "..%h|
00001D60: 06 99 22 11 20 4A 45 20 44 41 4E 20 54 45 4C 4B |..". JE DAN TELK|
00001D70: 45 4E 53 20 4C 41 54 45 4E 20 56 45 52 41 4E 44 |ENS LATEN VERAND|
00001D80: 45 52 45 4E 20 5A 4F 44 41 54 22 00 B7 25 72 06 |EREN ZODAT"..%r.|
00001D90: 99 22 11 20 4A 45 20 48 45 54 20 45 46 46 45 43 |.". JE HET EFFEC|
00001DA0: 54 20 48 49 45 52 56 41 4E 20 4B 55 4E 54 20 5A |T HIERVAN KUNT Z|
00001DB0: 49 45 4E 20 49 4E 22 00 D6 25 86 06 99 22 11 20 |IEN IN"..%...". |
00001DC0: 44 45 20 47 45 54 45 4B 45 4E 44 45 20 47 52 41 |DE GETEKENDE GRA|
00001DD0: 46 49 45 4B 2E 22 00 E5 25 90 06 8D 20 38 33 35 |FIEK."..%... 835|
00001DE0: 3A 8D 38 35 30 00 14 26 9A 06 99 22 11 11 11 11 |:.850..&..."....|
00001DF0: 20 D7 49 4C 20 4A 45 20 4E 41 20 45 45 4E 20 54 | .IL JE NA EEN T|
00001E00: 45 4B 45 4E 49 4E 47 20 41 4E 44 45 52 45 20 20 |EKENING ANDERE |
00001E10: 20 20 20 22 00 41 26 A4 06 99 22 11 20 57 41 41 | ".A&...". WAA|
00001E20: 52 44 45 4E 20 49 4E 56 4F 45 52 45 4E 2C 20 54 |RDEN INVOEREN, T|
00001E30: 4F 45 54 53 20 44 41 4E 20 44 45 20 27 53 27 2E |OETS DAN DE 'S'.|
00001E40: 22 00 6D 26 AE 06 99 22 11 20 CF 4D 20 44 45 20 |".m&...". .M DE |
00001E50: 56 4F 4C 47 45 4E 44 45 20 56 45 52 41 4E 44 45 |VOLGENDE VERANDE|
00001E60: 52 49 4E 47 20 54 45 20 5A 49 45 4E 22 00 98 26 |RING TE ZIEN"..&|
00001E70: B3 06 99 22 11 20 4D 4F 45 54 20 4A 45 20 4F 50 |...". MOET JE OP|
00001E80: 20 44 45 20 D3 D0 C1 D4 C9 C5 C2 C1 CC CB 20 44 | DE .......... D|
00001E90: 52 55 4B 4B 45 4E 2E 22 00 C3 26 B5 06 99 22 11 |RUKKEN."..&...".|
00001EA0: 20 D7 49 4C 20 4A 45 20 48 45 4C 45 4D 41 41 4C | .IL JE HELEMAAL|
00001EB0: 20 53 54 4F 50 50 45 4E 2C 20 54 4F 45 54 53 20 | STOPPEN, TOETS |
00001EC0: 44 41 4E 00 F0 26 B8 06 99 22 11 20 27 4D 27 20 |DAN..&...". 'M' |
00001ED0: 2B 20 3C 52 45 54 55 52 4E 3E 2E 20 CA 45 20 4B |+ <RETURN>. .E K|
00001EE0: 4F 4D 54 20 44 41 4E 20 57 45 45 52 20 49 4E 22 |OMT DAN WEER IN"|
00001EF0: 00 03 27 BD 06 99 22 11 20 48 45 54 20 4D 45 4E |..'...". HET MEN|
00001F00: 55 2E 22 00 09 27 C2 06 8E 00 0F 27 12 07 3A 00 |U."..'.....'..:.|
00001F10: 33 27 1C 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |3'... **********|
00001F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F30: 2A 2A 2A 00 39 27 26 07 3A 00 49 27 30 07 8F 20 |***.9'&.:.I'0.. |
00001F40: 2D 2D 2D 2D 2D 2D 2D 20 85 00 4F 27 3A 07 3A 00 |------- ..O':.:.|
00001F50: 73 27 44 07 8F 20 20 20 20 20 20 47 45 54 20 56 |s'D.. GET V|
00001F60: 41 4C 55 45 53 20 46 4F 52 20 41 2C 20 48 2C 20 |ALUES FOR A, H, |
00001F70: 26 20 4B 00 79 27 4E 07 3A 00 A6 27 58 07 99 22 |& K.y'N.:..'X.."|
00001F80: 11 20 54 59 50 20 4E 55 20 44 45 20 57 41 41 52 |. TYP NU DE WAAR|
00001F90: 44 45 4E 20 49 4E 20 56 41 4E 20 41 2C 20 48 2C |DEN IN VAN A, H,|
00001FA0: 20 45 4E 20 4B 22 00 C2 27 62 07 99 22 20 20 20 | EN K"..'b.." |
00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FC0: 32 22 00 E2 27 6C 07 99 22 20 41 4C 53 20 20 20 |2"..'l.." ALS |
00001FD0: 20 20 59 20 3D 20 41 28 58 2D 48 29 20 2B 20 4B | Y = A(X-H) + K|
00001FE0: 2E 22 00 E8 27 76 07 99 00 02 28 7B 07 99 22 20 |."..'v....({.." |
00001FF0: 4B 49 45 53 20 20 2D 35 3C 41 3C 35 20 41 3C 3E |KIES -5<A<5 A<>|
00002000: 30 22 00 41 28 80 07 99 22 20 11 41 20 3D 20 20 |0".A(..." .A = |
00002010: 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D | .......|
00002020: 9D 9D 9D 22 3B 3A 55 4C B2 31 30 3A 55 53 24 B2 |...";:UL.10:US$.|
00002030: 22 45 2B 2D 2E 30 31 32 33 34 35 36 37 38 39 4D |"E+-.0123456789M|
00002040: 22 00 73 28 85 07 8D 33 35 3A 41 B2 C5 28 55 52 |".s(...35:A..(UR|
00002050: 24 29 3A 8B 28 41 B2 30 20 B0 20 41 B3 AB 35 20 |$):.(A.0 . A..5 |
00002060: B0 20 41 B1 35 29 A7 99 22 91 91 22 3B 3A 89 31 |. A.5).."..";:.1|
00002070: 39 32 30 00 8B 28 89 07 99 22 11 20 4B 49 45 53 |920..(...". KIES|
00002080: 20 20 2D 31 30 3C 48 3C 31 30 22 00 C8 28 8A 07 | -10<H<10"..(..|
00002090: 99 22 11 20 48 20 3D 20 20 20 20 20 20 20 20 20 |.". H = |
000020A0: 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 55 4C B2 | .........";:UL.|
000020B0: 35 20 3A 55 53 24 B2 22 45 2B 2D 2E 30 31 32 33 |5 :US$."E+-.0123|
000020C0: 34 35 36 37 38 39 4D 22 00 F6 28 8F 07 8D 33 35 |456789M"..(...35|
000020D0: 3A 48 B2 C5 28 55 52 24 29 3A 8B 28 48 B3 AB 31 |:H..(UR$):.(H..1|
000020E0: 30 20 B0 20 48 B1 31 30 29 A7 99 22 91 91 22 3B |0 . H.10).."..";|
000020F0: 3A 89 31 39 33 30 00 0E 29 93 07 99 22 11 20 4B |:.1930..)...". K|
00002100: 49 45 53 20 20 2D 32 30 3C 4B 3C 32 30 22 00 4B |IES -20<K<20".K|
00002110: 29 94 07 99 22 11 20 4B 20 3D 20 20 20 20 20 20 |)...". K = |
00002120: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A | .........";:|
00002130: 55 4C B2 31 30 3A 55 53 24 B2 22 45 2B 2D 2E 30 |UL.10:US$."E+-.0|
00002140: 31 32 33 34 35 36 37 38 39 4D 22 00 79 29 99 07 |123456789M".y)..|
00002150: 8D 33 35 3A 4B B2 C5 28 55 52 24 29 3A 8B 28 4B |.35:K..(UR$):.(K|
00002160: B3 AB 32 30 20 B0 20 4B B1 32 30 29 A7 99 22 91 |..20 . K.20)..".|
00002170: 91 22 3B 3A 89 31 39 34 30 00 A6 29 A8 07 99 22 |.";:.1940..)..."|
00002180: 93 11 11 20 48 45 54 20 50 52 4F 47 52 41 4D 4D |... HET PROGRAMM|
00002190: 41 20 5A 41 4C 20 54 45 4C 4B 45 4E 53 20 45 45 |A ZAL TELKENS EE|
000021A0: 4E 20 56 41 4E 22 00 D6 29 B2 07 99 22 11 20 44 |N VAN"..)...". D|
000021B0: 45 20 43 4F 4E 53 54 41 4E 54 45 4E 20 28 20 41 |E CONSTANTEN ( A|
000021C0: 2C 48 2C 20 4F 46 20 4B 20 29 20 56 45 52 41 4E |,H, OF K ) VERAN|
000021D0: 44 45 52 45 4E 22 00 04 2A BC 07 99 22 11 20 4D |DEREN"..*...". M|
000021E0: 45 54 20 44 45 20 44 4F 4F 52 20 4A 4F 55 20 47 |ET DE DOOR JOU G|
000021F0: 45 4B 4F 5A 45 4E 20 48 4F 45 56 45 45 4C 48 45 |EKOZEN HOEVEELHE|
00002200: 49 44 2E 22 00 0A 2A C6 07 99 00 52 2A D0 07 99 |ID."..*....R*...|
00002210: 22 20 57 45 4C 4B 45 20 43 4F 4E 53 54 41 4E 54 |" WELKE CONSTANT|
00002220: 45 20 4D 4F 45 54 20 44 41 54 20 57 4F 52 44 45 |E MOET DAT WORDE|
00002230: 4E 20 3F 20 20 20 20 20 20 20 11 28 4E 20 3D 20 |N ? .(N = |
00002240: 47 45 45 4E 20 56 45 52 41 4E 44 45 52 49 4E 47 |GEEN VERANDERING|
00002250: 29 22 00 67 2A DA 07 81 20 44 4C 20 B2 20 31 20 |)".g*... DL . 1 |
00002260: A4 20 32 20 A9 20 30 00 88 2A E4 07 55 4C B2 31 |. 2 . 0..*..UL.1|
00002270: 3A 55 53 24 B2 22 41 48 4B 4D 4E 22 3A 8D 33 35 |:US$."AHKMN":.35|
00002280: 3A 43 4F 24 B2 55 52 24 00 C1 2A EE 07 8B 20 43 |:CO$.UR$..*... C|
00002290: 4F 24 B2 22 41 22 20 B0 20 43 4F 24 B2 22 48 22 |O$."A" . CO$."H"|
000022A0: 20 B0 20 43 4F 24 B2 22 4B 22 20 B0 20 43 4F 24 | . CO$."K" . CO$|
000022B0: B2 22 4E 22 20 A7 20 44 4C B2 32 3A 89 32 30 35 |."N" . DL.2:.205|
000022C0: 30 00 E4 2A F8 07 99 22 4B 49 45 53 20 55 49 54 |0..*..."KIES UIT|
000022D0: 20 20 41 2C 20 48 2C 20 4F 46 20 4B 20 41 2E 55 | A, H, OF K A.U|
000022E0: 2E 42 21 22 00 ED 2A 02 08 82 20 44 4C 00 FF 2A |.B!"..*... DL..*|
000022F0: 0C 08 8B 43 4F 24 B2 22 4E 22 A7 32 30 39 30 00 |...CO$."N".2090.|
00002300: 37 2B 16 08 99 22 20 4D 45 54 20 48 4F 45 56 45 |7+..." MET HOEVE|
00002310: 45 4C 20 57 49 4C 20 4A 45 20 22 3B 43 4F 24 3B |EL WIL JE ";CO$;|
00002320: 22 1D 4C 41 54 45 4E 20 56 45 52 41 4E 44 45 52 |".LATEN VERANDER|
00002330: 45 4E 20 3F 20 22 3B 00 65 2B 20 08 55 4C B2 31 |EN ? ";.e+ .UL.1|
00002340: 30 3A 55 53 24 B2 22 45 2B 2D 2E 30 31 32 33 34 |0:US$."E+-.01234|
00002350: 35 36 37 38 39 4D 22 3A 8D 33 35 3A 43 56 B2 C5 |56789M":.35:CV..|
00002360: 28 55 52 24 29 00 6B 2B 2A 08 8E 00 71 2B 34 08 |(UR$).k+*...q+4.|
00002370: 3A 00 94 2B 3E 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:..+>.. ********|
00002380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002390: 2A 2A 2A 2A 00 9A 2B 48 08 3A 00 AD 2B 52 08 8F |****..+H.:..+R..|
000023A0: 20 2D 2D 2D 2D 2D 2D 2D 20 50 4C 4F 54 00 B3 2B | ------- PLOT..+|
000023B0: 5C 08 3A 00 C9 2B 66 08 8F 20 20 20 20 20 20 49 |\.:..+f.. I|
000023C0: 4E 49 54 49 41 4C 49 5A 45 00 CF 2B 70 08 3A 00 |NITIALIZE..+p.:.|
000023D0: D8 2B 7A 08 4C 56 B2 30 00 E1 2B 84 08 42 56 B2 |.+z.LV.0..+..BV.|
000023E0: 30 00 E7 2B 8E 08 3A 00 F3 2B 98 08 8D 20 20 33 |0..+..:..+... 3|
000023F0: 34 34 30 00 F9 2B A2 08 3A 00 0C 2C AC 08 8F 20 |440..+..:..,... |
00002400: 42 4C 41 4E 4B 20 53 43 52 45 45 4E 00 12 2C B6 |BLANK SCREEN..,.|
00002410: 08 3A 00 31 2C C0 08 8F 50 52 49 4E 54 22 13 12 |.:.1,...PRINT"..|
00002420: 53 50 41 54 49 45 92 20 56 45 52 56 4F 4C 47 44 |SPATIE. VERVOLGD|
00002430: 22 00 48 2C C5 08 8F 50 52 49 4E 54 22 12 53 92 |".H,...PRINT".S.|
00002440: 20 53 54 4F 50 54 11 22 00 4E 2C CA 08 3A 00 54 | STOPT.".N,..:.T|
00002450: 2C D4 08 3A 00 65 2C DE 08 8F 20 44 52 41 57 20 |,..:.e,... DRAW |
00002460: 47 52 41 50 48 00 6B 2C 24 09 3A 00 71 2C 2E 09 |GRAPH.k,$.:.q,..|
00002470: 3A 00 77 2C 38 09 3A 00 8A 2C 42 09 81 20 44 4C |:.w,8.:..,B.. DL|
00002480: B2 31 20 A4 20 32 20 A9 20 30 00 A4 2C 4C 09 3A |.1 . 2 . 0..,L.:|
00002490: 20 8D 20 20 33 37 31 30 3A 8F 20 44 52 41 57 20 | . 3710:. DRAW |
000024A0: 41 58 45 53 00 C0 2C 56 09 3A 20 8D 20 20 34 31 |AXES..,V.: . 41|
000024B0: 33 30 3A 8F 20 44 52 41 57 20 50 4F 49 4E 54 53 |30:. DRAW POINTS|
000024C0: 00 07 2D 60 09 20 20 8F 20 4F 55 54 50 55 54 20 |..-`. . OUTPUT |
000024D0: 45 51 55 41 54 49 4F 4E 2C 56 45 52 54 45 58 2C |EQUATION,VERTEX,|
000024E0: 41 58 49 53 20 20 20 20 20 20 20 20 20 20 20 20 |AXIS |
000024F0: 20 4F 46 20 53 59 4D 4D 45 54 52 59 2C 49 4E 54 | OF SYMMETRY,INT|
00002500: 45 52 43 45 50 54 53 00 0F 2D 6A 09 20 20 3A 00 |ERCEPTS..-j. :.|
00002510: 1D 2D 74 09 20 20 8D 20 20 33 30 32 30 00 25 2D |.-t. . 3020.%-|
00002520: 7E 09 20 20 3A 00 6F 2D 88 09 20 20 8F 20 55 53 |~. :.o-.. . US|
00002530: 45 20 4C 4F 47 49 43 41 4C 20 4D 55 4C 54 49 50 |E LOGICAL MULTIP|
00002540: 4C 49 45 52 20 54 4F 20 20 20 20 20 20 20 20 20 |LIER TO |
00002550: 20 20 20 20 20 20 49 4E 43 52 45 4D 45 4E 54 20 | INCREMENT |
00002560: 50 52 4F 50 45 52 20 56 41 52 49 41 42 4C 45 00 |PROPER VARIABLE.|
00002570: 77 2D 92 09 20 20 3A 00 8E 2D 9C 09 20 20 41 B2 |w-.. :..-.. A.|
00002580: 41 AB 43 56 AC 28 43 4F 24 B2 22 41 22 29 00 A5 |A.CV.(CO$."A")..|
00002590: 2D A6 09 20 20 48 B2 48 AB 43 56 AC 28 43 4F 24 |-.. H.H.CV.(CO$|
000025A0: B2 22 48 22 29 00 BC 2D B0 09 20 20 4B B2 4B AB |."H")..-.. K.K.|
000025B0: 43 56 AC 28 43 4F 24 B2 22 4B 22 29 00 C4 2D BA |CV.(CO$."K")..-.|
000025C0: 09 20 20 3A 00 DA 2D C4 09 20 20 8F 20 54 49 4D |. :..-.. . TIM|
000025D0: 45 20 54 4F 20 51 55 49 54 3F 00 E4 2D C9 09 97 |E TO QUIT?..-...|
000025E0: 55 4F 2C 30 00 FF 2D CE 09 99 22 13 12 90 53 50 |UO,0..-..."...SP|
000025F0: 41 54 49 45 92 20 56 45 52 56 4F 4C 47 44 22 00 |ATIE. VERVOLGD".|
00002600: 12 2E D3 09 99 22 12 53 92 20 53 54 4F 50 54 11 |.....".S. STOPT.|
00002610: 05 22 00 33 2E D8 09 20 20 A1 20 41 24 3A 8B 41 |.".3... . A$:.A|
00002620: 24 B3 B1 22 20 22 AF 41 24 B3 B1 22 53 22 A7 32 |$.." ".A$.."S".2|
00002630: 35 32 30 00 49 2E E2 09 8B 20 41 24 20 B2 20 22 |520.I.... A$ . "|
00002640: 53 22 20 A7 20 44 4C B2 32 00 7E 2E E7 09 99 22 |S" . DL.2.~...."|
00002650: 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00002660: 20 20 20 20 20 22 3A 99 22 20 20 20 20 20 20 20 | ":." |
00002670: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 87 | "..|
00002680: 2E EC 09 82 20 44 4C 00 8D 2E 00 0A 8E 00 93 2E |.... DL.........|
00002690: 0A 0A 3A 00 B7 2E 14 0A 8F 20 2A 2A 2A 2A 2A 2A |..:...... ******|
000026A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026B0: 2A 2A 2A 2A 2A 2A 2A 00 BD 2E 1E 0A 3A 00 D0 2E |*******.....:...|
000026C0: 28 0A 8F 20 2D 2D 2D 2D 2D 2D 2D 20 4D 45 4E 55 |(.. ------- MENU|
000026D0: 00 D6 2E 32 0A 3A 00 DC 2E 3C 0A 3A 00 FE 2E 46 |...2.:...<.:...F|
000026E0: 0A 99 22 93 11 11 11 11 11 20 20 20 20 20 20 20 |.."...... |
000026F0: 20 20 20 20 20 20 4D 20 45 20 4E 20 55 22 00 04 | M E N U"..|
00002700: 2F 50 0A 99 00 3E 2F 5A 0A 99 22 11 20 20 20 20 |/P...>/Z..". |
00002710: 20 20 20 20 4B 45 55 5A 45 53 20 3A 22 3A 99 22 | KEUZES :":."|
00002720: 11 11 20 20 20 20 20 20 20 20 20 31 2E 20 20 54 |.. 1. T|
00002730: 45 52 55 47 20 4E 41 41 52 20 4D 45 4E 55 00 69 |ERUG NAAR MENU.i|
00002740: 2F 64 0A 99 22 11 20 20 20 20 20 20 20 20 20 32 |/d..". 2|
00002750: 2E 20 20 56 45 52 41 4E 44 45 52 20 56 45 52 47 |. VERANDER VERG|
00002760: 45 4C 49 4A 4B 49 4E 47 22 00 6F 2F 6E 0A 99 00 |ELIJKING".o/n...|
00002770: 84 2F 78 0A 81 20 44 4C 20 B2 20 31 20 A4 20 32 |./x.. DL . 1 . 2|
00002780: 20 A9 20 30 00 BB 2F 82 0A 99 22 11 20 20 20 20 | . 0../...". |
00002790: 20 20 20 20 4B 45 55 5A 45 20 3F 20 22 3B 3A 55 | KEUZE ? ";:U|
000027A0: 4C B2 31 3A 55 53 24 B2 22 31 32 4D 22 3A 8D 33 |L.1:US$."12M":.3|
000027B0: 35 3A 43 48 B2 C5 28 55 52 24 29 00 DD 2F 8C 0A |5:CH..(UR$)../..|
000027C0: 20 20 8B 20 43 48 B2 31 20 B0 20 43 48 B2 32 20 | . CH.1 . CH.2 |
000027D0: A7 20 44 4C B2 32 3A 89 20 32 37 33 30 00 E5 2F |. DL.2:. 2730../|
000027E0: 96 0A 20 20 99 00 F8 2F A0 0A 99 22 31 20 4F 46 |.. .../..."1 OF|
000027F0: 20 32 20 41 55 42 21 22 00 01 30 AA 0A 82 20 44 | 2 AUB!"..0... D|
00002800: 4C 00 1B 30 B4 0A 8B 20 43 48 B2 31 20 A7 20 51 |L..0... CH.1 . Q|
00002810: 55 49 54 24 B2 22 53 54 4F 50 22 00 24 30 BE 0A |UIT$."STOP".$0..|
00002820: 99 22 93 22 00 2D 30 C8 0A 44 4C B2 30 00 33 30 |.".".-0..DL.0.30|
00002830: D2 0A 8E 00 39 30 DC 0A 3A 00 5D 30 E6 0A 8F 20 |....90..:.]0... |
00002840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 30 |*************.c0|
00002860: F0 0A 3A 00 7B 30 FA 0A 8F 20 20 20 20 20 20 20 |..:.{0... |
00002870: 20 49 4E 49 54 49 41 4C 49 5A 45 00 81 30 04 0B | INITIALIZE..0..|
00002880: 3A 00 9A 30 0E 0B 8F 20 2D 2D 2D 2D 2D 2D 2D 20 |:..0... ------- |
00002890: 49 4E 49 54 49 41 4C 49 5A 45 00 A0 30 18 0B 3A |INITIALIZE..0..:|
000028A0: 00 A6 30 22 0B 8F 00 B4 30 40 0B 81 20 49 B2 30 |..0"....0@.. I.0|
000028B0: 20 A4 20 38 00 C2 30 4A 0B 20 20 87 20 53 4D 28 | . 8..0J. . SM(|
000028C0: 49 29 00 CA 30 54 0B 82 20 49 00 D3 30 5E 0B 53 |I)..0T.. I..0^.S|
000028D0: B2 55 4D 00 D9 30 68 0B 8E 00 DF 30 72 0B 3A 00 |.UM..0h....0r.:.|
000028E0: 03 31 7C 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.1|.. **********|
000028F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002900: 2A 2A 2A 00 09 31 86 0B 3A 00 1E 31 90 0B 8F 20 |***..1..:..1... |
00002910: 43 55 52 52 45 4E 54 20 56 41 4C 55 45 53 00 24 |CURRENT VALUES.$|
00002920: 31 9A 0B 3A 00 3F 31 A4 0B 8F 20 2D 2D 2D 2D 2D |1..:.?1... -----|
00002930: 2D 2D 20 43 55 52 52 45 4E 54 20 C5 55 45 53 00 |-- CURRENT .UES.|
00002940: 47 31 AE 0B 20 20 3A 00 5D 31 B8 0B 20 20 8F 20 |G1.. :.]1.. . |
00002950: 47 49 56 45 20 45 51 55 41 54 49 4F 4E 00 65 31 |GIVE EQUATION.e1|
00002960: C2 0B 20 20 3A 00 78 31 CC 0B 20 20 48 B2 B5 28 |.. :.x1.. H..(|
00002970: 31 30 AC 48 29 AD 31 30 00 8B 31 D6 0B 20 20 4B |10.H).10..1.. K|
00002980: B2 B5 28 31 30 AC 4B 29 AD 31 30 00 9D 31 E0 0B |..(10.K).10..1..|
00002990: 99 22 13 11 11 11 54 4F 50 20 20 3A 22 00 A5 31 |."....TOP :"..1|
000029A0: EA 0B 20 20 3A 00 ED 31 F4 0B 20 20 8F 20 43 4C |.. :..1.. . CL|
000029B0: 45 41 52 20 50 52 45 56 49 4F 55 53 20 4C 49 4E |EAR PREVIOUS LIN|
000029C0: 45 20 54 4F 20 20 20 20 20 20 20 20 20 20 20 20 |E TO |
000029D0: 20 20 20 20 20 20 50 52 45 56 45 4E 54 20 4C 4F | PREVENT LO|
000029E0: 4E 47 20 4C 49 4E 45 53 20 46 52 4F 4D 00 24 32 |NG LINES FROM.$2|
000029F0: FE 0B 20 20 8F 20 46 52 4F 4D 20 4C 45 41 56 49 |.. . FROM LEAVI|
00002A00: 4E 47 20 54 48 45 49 52 20 45 4E 44 53 20 20 20 |NG THEIR ENDS |
00002A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 | BE|
00002A20: 48 49 4E 44 00 2C 32 08 0C 20 20 3A 00 44 32 12 |HIND.,2.. :.D2.|
00002A30: 0C 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00002A40: 20 20 91 22 00 5B 32 1C 0C 20 20 99 22 28 22 3B | .".[2.. ."(";|
00002A50: 48 3B 22 2C 22 3B 4B 3B 22 29 22 00 63 32 26 0C |H;",";K;")".c2&.|
00002A60: 20 20 99 00 7B 32 30 0C 99 22 41 53 20 56 41 4E | ..{20.."AS VAN|
00002A70: 20 53 59 4D 4D 45 54 52 59 3A 22 00 92 32 3A 0C | SYMMETRY:"..2:.|
00002A80: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00002A90: 20 22 00 9F 32 44 0C 99 22 58 20 3D 22 3B 48 00 | "..2D.."X =";H.|
00002AA0: A7 32 4E 0C 20 20 99 00 C4 32 58 0C 20 20 8B 20 |.2N. ...2X. . |
00002AB0: 4B AC 41 B3 B2 30 20 AF 20 41 B3 B1 30 20 A7 20 |K.A..0 . A..0 . |
00002AC0: 33 32 32 30 00 DB 32 62 0C 99 22 47 45 45 4E 20 |3220..2b.."GEEN |
00002AD0: 4E 55 4C 50 55 4E 54 45 4E 21 22 00 F9 32 6C 0C |NULPUNTEN!"..2l.|
00002AE0: 81 41 31 B2 31 A4 33 3A 20 99 22 20 20 20 20 20 |.A1.1.3: ." |
00002AF0: 20 20 20 20 20 20 20 20 22 00 01 33 76 0C 82 41 | "..3v..A|
00002B00: 31 00 1B 33 80 0C 99 22 20 20 20 20 20 20 20 20 |1..3..." |
00002B10: 20 20 20 20 20 20 20 20 20 91 22 00 28 33 8A 0C | .".(3..|
00002B20: 20 20 89 20 33 32 38 30 00 45 33 94 0C 99 22 20 | . 3280.E3..." |
00002B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B40: 20 20 20 91 22 00 5A 33 9E 0C 99 22 4E 55 4C 50 | .".Z3..."NULP|
00002B50: 55 4E 54 45 4E 20 20 20 3A 22 00 76 33 A8 0C 99 |UNTEN :".v3...|
00002B60: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00002B70: 20 20 20 20 20 22 00 A4 33 B2 0C 99 20 22 58 31 | "..3... "X1|
00002B80: 20 3D 22 3B B5 28 28 31 30 AC 28 48 AB BA 28 AB | =";.((10.(H..(.|
00002B90: 4B AD 41 29 29 29 AA 2E 35 29 AD 31 30 3B 22 20 |K.A)))..5).10;" |
00002BA0: 20 20 20 22 00 D2 33 BC 0C 99 20 22 58 32 20 3D | "..3... "X2 =|
00002BB0: 22 3B B5 28 28 31 30 AC 28 48 AA BA 28 AB 4B AD |";.((10.(H..(.K.|
00002BC0: 41 29 29 29 AA 2E 35 29 AD 31 30 3B 22 20 20 20 |A)))..5).10;" |
00002BD0: 20 22 00 D8 33 C6 0C 3A 00 E0 33 D0 0C 20 20 99 | "..3..:..3.. .|
00002BE0: 00 01 34 DA 0C 20 20 99 22 20 20 20 20 20 20 20 |..4.. ." |
00002BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
00002C00: 22 00 31 34 E4 0C 99 22 53 4E 59 50 55 4E 54 20 |".14..."SNYPUNT |
00002C10: 59 2D 41 53 3A 28 30 2C 22 3B B5 28 31 30 AC 28 |Y-AS:(0,";.(10.(|
00002C20: 41 AC 48 AE 32 AA 4B 29 29 AD 31 30 3B 22 9D 29 |A.H.2.K)).10;".)|
00002C30: 22 00 39 34 EE 0C 20 20 99 00 57 34 F8 0C 99 22 |".94.. ..W4..."|
00002C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C50: 20 20 20 20 20 20 22 00 63 34 02 0D 99 22 59 20 | ".c4..."Y |
00002C60: 3D 22 3B 00 79 34 07 0D 8B 41 B2 31 A7 99 22 20 |=";.y4...A.1.." |
00002C70: 20 22 3B 3A 89 33 33 34 31 00 8A 34 0C 0D 99 B5 | ";:.3341..4....|
00002C80: 28 31 30 AC 41 29 AD 31 30 3B 00 A3 34 0D 0D 99 |(10.A).10;..4...|
00002C90: 22 9D 28 58 2D 22 3B 3A 8B 48 B3 30 A7 99 22 9D |".(X-";:.H.0..".|
00002CA0: 2B 22 3B 00 B8 34 0E 0D 8B 48 B2 30 A7 99 22 9D |+";..4...H.0..".|
00002CB0: 22 3B 3A 89 33 33 34 35 00 D1 34 10 0D 99 CA 28 |";:.3345..4....(|
00002CC0: C4 28 B5 28 31 30 AC 48 29 AD 31 30 29 2C 32 29 |.(.(10.H).10),2)|
00002CD0: 3B 00 ED 34 11 0D 99 22 29 20 9D 91 32 11 2B 22 |;..4...") ..2.+"|
00002CE0: 3B 3A 8B 4B B3 30 A7 99 22 9D 2D 22 3B 00 08 35 |;:.K.0..".-";..5|
00002CF0: 12 0D 99 B6 28 B5 28 31 30 AC 4B 29 AD 31 30 29 |....(.(10.K).10)|
00002D00: 3B 22 9D 20 20 20 20 22 00 1F 35 16 0D 20 20 99 |;". "..5.. .|
00002D10: 22 91 91 91 91 91 91 91 91 91 91 91 91 91 22 00 |".............".|
00002D20: 25 35 20 0D 8E 00 2B 35 2A 0D 3A 00 4E 35 34 0D |%5 ...+5*.:.N54.|
00002D30: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00002D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 |**************.T|
00002D50: 35 3E 0D 3A 00 6E 35 48 0D 8F 20 2D 2D 2D 2D 2D |5>.:.n5H.. -----|
00002D60: 2D 2D 20 53 43 41 4C 45 20 47 52 41 50 48 00 74 |-- SCALE GRAPH.t|
00002D70: 35 52 0D 3A 00 98 35 5C 0D 8F 20 20 20 20 20 20 |5R.:..5\.. |
00002D80: 43 41 4C 43 55 4C 41 54 45 20 56 45 52 54 49 43 |CALCULATE VERTIC|
00002D90: 41 4C 20 53 43 41 4C 45 00 A2 35 66 0D 89 33 35 |AL SCALE..5f..35|
00002DA0: 37 30 00 B3 35 70 0D 81 20 58 B2 AB 35 20 20 A4 |70..5p.. X..5 .|
00002DB0: 20 20 35 00 CE 35 7A 0D 20 20 59 56 28 58 AA 31 | 5..5z. YV(X.1|
00002DC0: 31 29 B2 41 AC 28 58 AB 48 29 AE 32 AA 4B 00 D6 |1).A.(X.H).2.K..|
00002DD0: 35 84 0D 20 20 3A 00 F9 35 8E 0D 20 20 8F 20 20 |5.. :..5.. . |
00002DE0: 20 20 20 20 50 49 43 4B 20 4F 55 54 20 52 41 4E | PICK OUT RAN|
00002DF0: 47 45 20 4C 49 4D 49 54 53 00 01 36 98 0D 20 20 |GE LIMITS..6.. |
00002E00: 3A 00 23 36 A2 0D 20 20 8B 20 59 56 28 58 AA 31 |:.#6.. . YV(X.1|
00002E10: 31 29 B1 42 56 20 A7 20 42 56 B2 59 56 28 58 AA |1).BV . BV.YV(X.|
00002E20: 31 31 29 00 45 36 AC 0D 20 20 8B 20 59 56 28 58 |11).E6.. . YV(X|
00002E30: AA 31 31 29 B3 4C 56 20 A7 20 4C 56 B2 59 56 28 |.11).LV . LV.YV(|
00002E40: 58 AA 31 31 29 00 4D 36 B6 0D 82 20 58 00 53 36 |X.11).M6... X.S6|
00002E50: C0 0D 3A 00 73 36 CA 0D 8F 20 45 4E 53 55 52 45 |..:.s6... ENSURE|
00002E60: 20 58 2D 41 58 49 53 20 49 53 20 49 4E 43 4C 55 | X-AXIS IS INCLU|
00002E70: 44 45 44 00 79 36 D4 0D 3A 00 8B 36 DE 0D 8B 20 |DED.y6..:..6... |
00002E80: 42 56 B3 30 20 A7 20 42 56 B2 30 00 9D 36 E8 0D |BV.0 . BV.0..6..|
00002E90: 8B 20 4C 56 B1 30 20 A7 20 4C 56 B2 30 00 AE 36 |. LV.0 . LV.0..6|
00002EA0: F2 0D 42 56 B2 32 30 3A 4C 56 B2 AB 32 30 00 F3 |..BV.20:LV..20..|
00002EB0: 36 FC 0D 8F 20 43 41 4C 43 55 4C 41 54 45 20 56 |6... CALCULATE V|
00002EC0: 45 52 54 49 43 41 4C 20 53 43 41 4C 45 20 56 41 |ERTICAL SCALE VA|
00002ED0: 4C 55 45 20 20 20 20 20 20 20 20 20 20 46 4F 52 |LUE FOR|
00002EE0: 20 32 33 20 4C 49 4E 45 53 20 4F 46 20 53 43 52 | 23 LINES OF SCR|
00002EF0: 45 45 4E 00 F9 36 06 0E 3A 00 0B 37 10 0E 56 53 |EEN..6..:..7..VS|
00002F00: B2 28 42 56 AB 4C 56 29 AD 32 33 00 11 37 1A 0E |.(BV.LV).23..7..|
00002F10: 3A 00 24 37 24 0E 8F 20 42 4C 41 4E 4B 20 53 43 |:.$7$.. BLANK SC|
00002F20: 52 45 45 4E 00 2A 37 2E 0E 3A 00 33 37 38 0E 99 |REEN.*7..:.378..|
00002F30: 22 93 22 00 39 37 42 0E 8E 00 3F 37 4C 0E 3A 00 |".".97B...?7L.:.|
00002F40: 62 37 56 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |b7V.. **********|
00002F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002F60: 2A 2A 00 68 37 60 0E 3A 00 80 37 6A 0E 8F 20 2D |**.h7`.:..7j.. -|
00002F70: 2D 2D 2D 2D 2D 2D 20 44 52 41 57 20 41 58 45 53 |------ DRAW AXES|
00002F80: 00 86 37 74 0E 3A 00 95 37 7E 0E 81 20 49 B2 30 |..7t.:..7~.. I.0|
00002F90: 20 A4 20 32 32 00 A8 37 88 0E 97 20 53 AA 32 38 | . 22..7... S.28|
00002FA0: AA 49 AC 34 30 2C 36 36 00 BA 37 89 0E 97 42 53 |.I.40,66..7...BS|
00002FB0: AA 32 38 AA 49 AC 34 30 2C 37 00 C2 37 92 0E 82 |.28.I.40,7..7...|
00002FC0: 20 49 00 C8 37 9C 0E 3A 00 DF 37 A6 0E 8F 20 20 | I..7..:..7... |
00002FD0: 20 20 20 20 44 52 41 57 20 58 2D 41 58 49 53 00 | DRAW X-AXIS.|
00002FE0: E5 37 B0 0E 3A 00 FF 37 BA 0E 48 50 B2 B5 28 28 |.7..:..7..HP..((|
00002FF0: 42 56 AD 28 42 56 AB 4C 56 29 29 AC 32 33 29 00 |BV.(BV.LV)).23).|
00003000: 0E 38 C4 0E 81 20 49 B2 30 20 A4 20 32 30 00 24 |.8... I.0 . 20.$|
00003010: 38 CE 0E 97 20 53 AA 34 30 AC 48 50 AA 31 38 AA |8... S.40.HP.18.|
00003020: 49 2C 36 37 00 39 38 CF 0E 97 42 53 AA 34 30 AC |I,67.98...BS.40.|
00003030: 48 50 AA 31 38 AA 49 2C 37 00 41 38 D8 0E 82 20 |HP.18.I,7.A8... |
00003040: 49 00 47 38 E2 0E 3A 00 5F 38 EC 0E 8F 20 20 20 |I.G8..:._8... |
00003050: 20 20 20 53 43 41 4C 45 20 58 2D 41 58 49 53 00 | SCALE X-AXIS.|
00003060: 65 38 F6 0E 3A 00 7A 38 00 0F 81 20 58 B2 AB 31 |e8..:.z8... X..1|
00003070: 30 20 A4 20 31 30 20 A9 20 35 00 88 38 0A 0F 20 |0 . 10 . 5..8.. |
00003080: 20 56 24 B2 C4 28 58 29 00 9C 38 14 0F 20 20 81 | V$..(X)..8.. .|
00003090: 20 49 B2 31 20 A4 20 C3 28 56 24 29 00 A6 38 1E | I.1 . .(V$)..8.|
000030A0: 0F 20 20 20 20 3A 00 EC 38 28 0F 20 20 20 20 8F |. :..8(. .|
000030B0: 20 46 52 4F 4D 20 53 43 52 45 45 4E 20 53 54 41 | FROM SCREEN STA|
000030C0: 52 54 20 53 2C 20 44 4F 57 4E 20 20 20 20 20 20 |RT S, DOWN |
000030D0: 20 20 20 20 20 20 20 20 20 31 20 4C 49 4E 45 20 | 1 LINE |
000030E0: 42 45 4C 4F 57 20 58 2D 41 58 49 53 00 F6 38 32 |BELOW X-AXIS..82|
000030F0: 0F 20 20 20 20 3A 00 11 39 3C 0F 97 42 53 AA 34 |. :..9<..BS.4|
00003100: 30 AC 28 48 50 AA 31 29 AA 49 AA 58 AA 32 36 2C |0.(HP.1).I.X.26,|
00003110: 37 00 37 39 3D 0F 97 20 53 AA 34 30 AC 28 48 50 |7.79=.. S.40.(HP|
00003120: AA 31 29 AA 49 AA 58 AA 32 36 2C C6 28 CA 28 56 |.1).I.X.26,.(.(V|
00003130: 24 2C 49 2C 31 29 29 00 41 39 46 0F 20 20 82 20 |$,I,1)).A9F. . |
00003140: 49 00 49 39 50 0F 82 20 58 00 4F 39 5A 0F 3A 00 |I.I9P.. X.O9Z.:.|
00003150: 67 39 64 0F 8F 20 20 20 20 20 20 53 43 41 4C 45 |g9d.. SCALE|
00003160: 20 59 2D 41 58 49 53 00 6D 39 6E 0F 3A 00 8A 39 | Y-AXIS.m9n.:..9|
00003170: 78 0F 81 20 49 B2 42 56 20 A4 20 4C 56 20 A9 20 |x.. I.BV . LV . |
00003180: AB 28 42 56 AB 4C 56 29 AD 36 00 97 39 82 0F 20 |.(BV.LV).6..9.. |
00003190: 20 4E B2 B5 28 49 29 00 A5 39 8C 0F 20 20 56 24 | N..(I)..9.. V$|
000031A0: B2 C4 28 4E 29 00 B9 39 96 0F 20 20 81 20 4A B2 |..(N)..9.. . J.|
000031B0: 31 20 A4 20 C3 28 56 24 29 00 D8 39 A0 0F 97 42 |1 . .(V$)..9...B|
000031C0: 53 AA 32 38 AA 4A AA 34 30 AC B5 28 28 42 56 AB |S.28.J.40..((BV.|
000031D0: 49 29 AD 56 53 29 2C 37 00 02 3A A1 0F 97 20 53 |I).VS),7..:... S|
000031E0: AA 32 38 AA 4A AA 34 30 AC B5 28 28 42 56 AB 49 |.28.J.40..((BV.I|
000031F0: 29 AD 56 53 29 2C C6 28 CA 28 56 24 2C 4A 2C 31 |).VS),.(.(V$,J,1|
00003200: 29 29 00 0C 3A AA 0F 20 20 82 20 4A 00 14 3A B4 |))..:.. . J..:.|
00003210: 0F 82 20 49 00 1A 3A BE 0F 8E 00 20 3A C8 0F 3A |.. I..:.... :..:|
00003220: 00 3F 3A D2 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.?:... *********|
00003230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003240: 45 3A DC 0F 3A 00 5D 3A E6 0F 8F 20 2D 2D 2D 2D |E:..:.]:... ----|
00003250: 2D 2D 2D 20 50 4C 4F 54 20 50 4F B5 53 00 63 3A |--- PLOT PO.S.c:|
00003260: F0 0F 3A 00 84 3A FA 0F 8F 20 52 45 50 45 41 54 |..:..:... REPEAT|
00003270: 20 50 4C 4F 54 20 57 49 54 48 20 49 4E 43 52 45 | PLOT WITH INCRE|
00003280: 4D 45 4E 54 00 8A 3A 04 10 3A 00 AB 3A 0E 10 8F |MENT..:..:..:...|
00003290: 20 20 20 20 20 20 53 41 56 45 20 56 41 4C 55 45 | SAVE VALUE|
000032A0: 53 20 49 4E 20 41 52 52 41 59 53 00 B1 3A 18 10 |S IN ARRAYS..:..|
000032B0: 3A 00 C0 3A 22 10 81 20 49 B2 31 20 A4 20 32 31 |:..:".. I.1 . 21|
000032C0: 00 DD 3A 2C 10 20 20 59 56 28 49 29 B2 41 AC 28 |..:,. YV(I).A.(|
000032D0: 28 49 AB 31 31 29 AB 48 29 AE 32 AA 4B 00 F7 3A |(I.11).H).2.K..:|
000032E0: 36 10 20 20 59 53 28 49 29 B2 28 42 56 AB 59 56 |6. YS(I).(BV.YV|
000032F0: 28 49 29 29 AD 56 53 00 1F 3B 40 10 20 20 53 50 |(I)).VS..;@. SP|
00003300: 28 49 29 B2 53 4D 28 37 AB B5 28 38 AC 28 59 53 |(I).SM(7..(8.(YS|
00003310: 28 49 29 AB B5 28 59 53 28 49 29 29 29 29 29 00 |(I)..(YS(I))))).|
00003320: 46 3B 4A 10 20 20 50 50 28 49 29 B2 53 AA 31 37 |F;J. PP(I).S.17|
00003330: AA 34 30 AC B5 28 28 42 56 AB 59 56 28 49 29 29 |.40..((BV.YV(I))|
00003340: AD 56 53 29 AA 49 00 4E 3B 54 10 82 20 49 00 5E |.VS).I.N;T.. I.^|
00003350: 3B 5E 10 81 20 49 B2 20 31 20 A4 20 32 31 00 66 |;^.. I. 1 . 21.f|
00003360: 3B 68 10 20 20 3A 00 89 3B 72 10 20 20 8F 20 45 |;h. :..;r. . E|
00003370: 52 41 53 45 20 4F 4C 44 20 50 4F 49 4E 54 53 20 |RASE OLD POINTS |
00003380: 4F 4E 20 53 43 52 45 45 4E 00 91 3B 7C 10 20 20 |ON SCREEN..;|. |
00003390: 3A 00 CF 3B 86 10 8B 20 50 4F 28 49 29 B1 53 20 |:..;... PO(I).S |
000033A0: AF 20 50 4F 28 49 29 B3 53 AA 31 30 30 30 20 A7 |. PO(I).S.1000 .|
000033B0: 20 97 20 50 4F 28 49 29 2C 33 32 3A 97 35 35 32 | . PO(I),32:.552|
000033C0: 39 36 AB 31 30 32 34 AA 50 4F 28 49 29 2C 30 00 |96.1024.PO(I),0.|
000033D0: D7 3B 90 10 20 20 3A 00 F9 3B 9A 10 20 20 8F 20 |.;.. :..;.. . |
000033E0: 50 4C 4F 54 20 4E 45 57 20 50 4F 49 4E 54 53 20 |PLOT NEW POINTS |
000033F0: 4F 4E 20 53 43 52 45 45 4E 00 01 3C A4 10 20 20 |ON SCREEN..<.. |
00003400: 3A 00 3D 3C AE 10 8B 20 50 50 28 49 29 B1 53 20 |:.=<... PP(I).S |
00003410: AF 20 50 50 28 49 29 B3 53 AA 31 30 30 30 20 A7 |. PP(I).S.1000 .|
00003420: 20 97 20 50 50 28 49 29 2C 34 32 20 20 20 3A 97 | . PP(I),42 :.|
00003430: 35 34 32 37 32 AA 50 50 28 49 29 2C 31 00 43 3C |54272.PP(I),1.C<|
00003440: B8 10 3A 00 5B 3C C2 10 20 20 8F 20 53 54 4F 52 |..:.[<.. . STOR|
00003450: 45 20 4F 4C 44 20 50 4F 49 4E 54 00 63 3C CC 10 |E OLD POINT.c<..|
00003460: 20 20 3A 00 75 3C D6 10 20 20 50 4F 28 49 29 B2 | :.u<.. PO(I).|
00003470: 50 50 28 49 29 00 7D 3C E0 10 82 20 49 00 83 3C |PP(I).}<... I..<|
00003480: EA 10 8E 00 89 3C F4 10 3A 00 AD 3C FE 10 8F 20 |.....<..:..<... |
00003490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000034A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B3 3C |*************..<|
000034B0: 08 11 3A 00 D3 3C 12 11 8F 20 2D 2D 2D 2D 2D 2D |..:..<... ------|
000034C0: 2D 20 45 4E 44 20 4F 46 20 50 52 4F 43 45 44 55 |- END OF PROCEDU|
000034D0: 52 45 53 00 D9 3C 1C 11 3A 00 FD 3C 26 11 8F 20 |RES..<..:..<&.. |
000034E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000034F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 3D |*************..=|
00003500: 30 11 3A 00 25 3D 3A 11 8F 20 20 20 20 20 20 53 |0.:.%=:.. S|
00003510: 20 59 20 4D 20 42 20 4F 20 4C 20 20 54 20 41 20 | Y M B O L T A |
00003520: 42 20 4C 20 45 00 2B 3D 44 11 3A 00 4F 3D 4E 11 |B L E.+=D.:.O=N.|
00003530: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00003540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003550: 55 3D 58 11 3A 00 6B 3D 62 11 8F 20 20 59 56 28 |U=X.:.k=b.. YV(|
00003560: 58 29 20 2D 59 20 56 41 4C 55 45 00 8F 3D 6C 11 |X) -Y VALUE..=l.|
00003570: 8F 20 20 50 4F 28 58 29 20 2D 50 4F 4B 45 20 4F |. PO(X) -POKE O|
00003580: 55 54 20 4F 4C 44 20 50 4F 53 49 54 49 4F 4E 00 |UT OLD POSITION.|
00003590: AE 3D 76 11 8F 20 20 41 2C 48 2C 4B 20 2D 56 41 |.=v.. A,H,K -VA|
000035A0: 52 49 41 42 4C 45 53 20 49 4E 20 54 48 45 00 CF |RIABLES IN THE..|
000035B0: 3D 80 11 8F 20 20 41 24 20 20 20 20 2D 50 49 43 |=... A$ -PIC|
000035C0: 4B 53 20 55 50 20 4B 45 59 20 50 52 45 53 53 00 |KS UP KEY PRESS.|
000035D0: 0A 3E 8A 11 8F 20 20 43 4F 24 20 20 20 2D 43 4F |.>... CO$ -CO|
000035E0: 4E 53 54 41 4E 54 20 28 41 2C 48 2C 4B 29 20 54 |NSTANT (A,H,K) T|
000035F0: 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |O |
00003600: 20 20 20 20 20 20 56 41 52 59 00 55 3E 94 11 8F | VARY.U>...|
00003610: 20 20 43 56 20 20 20 20 2D 43 4F 4E 54 41 49 4E | CV -CONTAIN|
00003620: 53 20 54 48 45 20 41 4D 4F 55 4E 54 20 20 20 20 |S THE AMOUNT |
00003630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003640: 20 54 4F 20 56 41 52 59 20 54 48 45 20 43 4F 4E | TO VARY THE CON|
00003650: 53 54 41 4E 54 00 9A 3E 9E 11 8F 20 20 53 20 20 |STANT..>... S |
00003660: 20 20 20 2D 53 43 52 45 45 4E 20 53 54 41 52 54 | -SCREEN START|
00003670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003680: 20 20 20 20 20 20 20 20 20 20 20 20 28 50 4F 4B | (POK|
00003690: 45 20 41 44 44 52 45 53 53 29 00 D6 3E A8 11 8F |E ADDRESS)..>...|
000036A0: 20 20 4C 56 20 20 20 20 2D 4C 49 54 54 4C 45 53 | LV -LITTLES|
000036B0: 54 20 56 41 4C 55 45 20 49 4E 20 20 20 20 20 20 |T VALUE IN |
000036C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000036D0: 20 52 41 4E 47 45 00 12 3F B2 11 8F 20 20 42 56 | RANGE..?... BV|
000036E0: 20 20 20 20 2D 42 49 47 47 45 53 54 20 56 41 4C | -BIGGEST VAL|
000036F0: 55 45 20 49 4E 20 20 20 20 20 20 20 20 20 20 20 |UE IN |
00003700: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 4E | RAN|
00003710: 47 45 00 2F 3F BC 11 8F 20 20 56 53 20 20 20 20 |GE./?... VS |
00003720: 2D 56 45 52 54 49 43 41 4C 20 53 43 41 4C 45 00 |-VERTICAL SCALE.|
00003730: 6F 3F C6 11 8F 20 20 58 20 20 20 20 20 2D 58 20 |o?... X -X |
00003740: 56 41 4C 55 45 53 20 46 52 4F 4D 20 20 20 20 20 |VALUES FROM |
00003750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003760: 20 20 20 20 20 20 2D 31 30 20 54 4F 20 31 30 00 | -10 TO 10.|
00003770: AC 3F D0 11 8F 20 20 48 50 20 20 20 20 2D 48 45 |.?... HP -HE|
00003780: 49 47 48 54 20 50 4F 53 49 54 49 4F 4E 20 4F 46 |IGHT POSITION OF|
00003790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000037A0: 20 20 20 20 20 20 58 20 41 58 49 53 00 F4 3F DA | X AXIS..?.|
000037B0: 11 8F 20 20 56 24 20 20 20 20 2D 53 54 52 49 4E |.. V$ -STRIN|
000037C0: 47 20 4F 46 20 4E 55 4D 42 45 52 53 20 55 53 45 |G OF NUMBERS USE|
000037D0: 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |D |
000037E0: 20 20 20 54 4F 20 50 4F 4B 45 20 49 4E 20 53 43 | TO POKE IN SC|
000037F0: 41 4C 45 53 00 40 40 E4 11 8F 20 20 4E 20 20 20 |ALES.@@... N |
00003800: 20 20 2D 43 4F 4E 54 41 49 4E 53 20 49 4E 54 45 | -CONTAINS INTE|
00003810: 47 45 52 20 4F 46 20 20 20 20 20 20 20 20 20 20 |GER OF |
00003820: 20 20 20 20 20 20 20 20 20 20 20 56 45 52 54 49 | VERTI|
00003830: 43 41 4C 20 53 43 41 4C 45 20 56 41 4C 55 45 53 |CAL SCALE VALUES|
00003840: 00 85 40 EE 11 8F 20 20 4A 20 20 20 20 20 2D 43 |..@... J -C|
00003850: 4F 55 4E 54 20 4F 46 20 43 48 41 52 41 43 54 45 |OUNT OF CHARACTE|
00003860: 52 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |RS |
00003870: 20 20 20 20 20 20 20 54 4F 20 42 45 20 50 4F 4B | TO BE POK|
00003880: 45 44 20 49 4E 00 A2 40 F8 11 8F 20 20 43 48 20 |ED IN..@... CH |
00003890: 20 20 20 2D 43 48 4F 49 43 45 20 49 4E 20 4D 45 | -CHOICE IN ME|
000038A0: 4E 55 00 C5 40 02 12 8F 20 20 53 4D 28 49 29 20 |NU..@... SM(I) |
000038B0: 2D 53 59 4D 42 4F 4C 53 20 46 4F 52 20 50 4C 4F |-SYMBOLS FOR PLO|
000038C0: 54 54 49 4E 47 00 0E 41 0C 12 8F 20 20 59 53 28 |TTING..A... YS(|
000038D0: 49 29 20 2D 59 2D 53 4C 4F 54 20 28 4C 49 4E 45 |I) -Y-SLOT (LINE|
000038E0: 20 49 4E 20 57 48 49 43 48 20 20 20 20 20 20 20 | IN WHICH |
000038F0: 20 20 20 20 20 20 20 20 20 20 20 20 53 59 4D 42 | SYMB|
00003900: 4F 4C 20 57 49 4C 4C 20 41 50 50 45 41 52 00 30 |OL WILL APPEAR.0|
00003910: 41 16 12 8F 20 20 53 50 28 49 29 20 2D 53 59 4D |A... SP(I) -SYM|
00003920: 42 4F 4C 20 54 4F 20 50 4F 4B 45 2F 50 4C 4F 54 |BOL TO POKE/PLOT|
00003930: 00 50 41 20 12 8F 20 20 50 50 28 49 29 20 2D 50 |.PA .. PP(I) -P|
00003940: 52 45 53 45 4E 54 20 50 4F 4B 45 2F 50 4C 4F 54 |RESENT POKE/PLOT|
00003950: 00 7A 41 2A 12 8F 20 20 54 4D 20 20 20 20 2D 20 |.zA*.. TM - |
00003960: 54 49 4D 49 4E 47 20 46 4F 52 20 4C 4F 4F 50 20 |TIMING FOR LOOP |
00003970: 50 41 52 41 4D 45 4E 54 45 52 00 BB 41 34 12 8F |PARAMENTER..A4..|
00003980: 20 20 44 4C 20 20 20 20 2D 20 44 55 4D 4D 59 20 | DL - DUMMY |
00003990: 50 41 52 41 4D 45 54 45 52 20 49 4E 20 46 4F 52 |PARAMETER IN FOR|
000039A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039B0: 20 20 4E 45 58 54 20 4C 4F 4F 50 00 C1 41 3E 12 | NEXT LOOP..A>.|
000039C0: 3A 00 E5 41 48 12 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:..AH.. ********|
000039D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000039E0: 2A 2A 2A 2A 2A 00 EB 41 52 12 3A 00 01 42 5C 12 |*****..AR.:..B\.|
000039F0: 8F 20 20 20 20 20 20 20 20 20 44 20 41 20 54 20 |. D A T |
00003A00: 41 00 07 42 66 12 3A 00 2B 42 70 12 8F 20 2A 2A |A..Bf.:.+Bp.. **|
00003A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 60 42 7A 12 |***********.`Bz.|
00003A30: 83 20 31 30 30 2C 38 32 2C 37 30 2C 36 34 2C 36 |. 100,82,70,64,6|
00003A40: 37 2C 36 38 2C 36 39 2C 39 39 2C 31 30 30 2C 38 |7,68,69,99,100,8|
00003A50: 32 2C 37 30 2C 36 37 2C 36 38 2C 36 39 2C 39 39 |2,70,67,68,69,99|
00003A60: 00 00 00 FF 00 FD 14 |....... |
.......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 .ELETE ++.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..300:.*
*NAAR MENU****UF=1:REM +++ HELP ROUTINE
EXIT +++.!.E..250.*.H..245.I.M..UQ.UB.(U
2%.256.U1%.U3%.2).E.R.UQ%(UQ.UB).B(UQ):.
:.".".X.W.UZ.1:UV%.B(UT)...X..300.D.Y.UZ
.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK:.B(50003)
.0..53281,6:.53280,6.....UT$.UL$:.".";:.
UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)......U
Q,UQ%(UQ.UB):.......U1,U1%.&....U2,U2%.2
....U4,U4%.@....U3,U3%.1.H....35.Z...UD%
.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD%.1)
:.......H(UD$,24);"
. HELP COMING . ":......U1%.B(U1):U2%.
B(U2):U3%.B(U3):U4%.B(U4).....UJ$.US$:UK
$.UG$:UL$.UT$:UJ.UP:UK.UL....... .,.. **
MENU **.&.-.:.U....".":.UT,UU%:.B(50003
).0..53281,9:.53280,8.[./.:.X.1..".
MENU"...6.." ----------------
----------------------".L.;..".. 1
. BEGIN PARABOLEN"...@..".. 2.
LEERLING INSTRUCTIES".".E..".. 3.
LEERKRACHT INSTRUCTIES".>.O.."..
4. STOP..".M.T.." ------------------
--------------------"...Y..".. TOE
TS EEN NUMMER (1-4) ";...^.UL.1:US$."123
4":.35:. INPUT ROUTINE.I.`.US$.""...C..E
(UR$).1000,400,500,396...H..300...... **
RE-ENABLE STOP KEY AND END **.E....B(50
003)..1.B(50003)..160.B(50003)..0.399.H.
...B(50003).0..53281,6:.53280,14.T....".
.":......875:.. .... ** STUDENT INSTRUC
TIONS **.O....".":.UT,UL%:.B(50003).0..5
3281,0:.53280,0.....UH.1:UP.0:UG$."LEERL
ING INST":.850.%...."....... DIT PROGR
AMMA WIL JE HET ".R....". EFFECT LAT
EN ZIEN DAT BEPAALDE CON-".....". STANT
EN UIT DE VERGELIJKING VAN EEN"......".
PARABOOL HEBBEN OP DE GRAFIEK ERVAN.".A.
...835:.850:.1500.J....835.X....UZ.1.217
............ ** TEACHER INSTRUCTIONS **.
/....".":.UT,UL%:.B(50003).0..53281,2:.5
3280,10.U...UH.1:UP.0:UG$."TEACHER INST"
:.850......".. TO THE BEST OF OUR K
NOWLEDGE,."......" THIS PROGRAM IS IN
THE PUBLIC.".X...." DOMAIN. IF THIS I
S NOT THE CASE."......" PLEASE CONTACT
:..."......" COMMODORE BUSINESS MAC
HINES.".B...." 3370 PHARMACY AV
E..F...." AGINCOURT, ONTARIO"..
...." CANADA M1W 2K4"......"
(416) 499-4292".C...UH.1:UP.1:.
835:. 850:......" ..PROGRAM NAME: P
ARABOLA......." WRITTEN BY : R. W.
STUART..W...." VERTAALD DOOR : A.V/D N
IEUWENHUIZEN. VOOR VCGN".
....." .THIS PROGRAM WILL RUN ON ANY
........" BASIC 2.0 PET COMPUTER
..P...." BASIC 4.0 PET COMPUTER.
......" 8032 CBM COMPUTER.......
" COMMODORE 64 COMPUTER. ....835
...N..UZ.1.217.4.W...Z.X.. ** PROGRAM MO
DIFICATION INST **.K.Y..".":.UT,UL%...].
UH.1:UP.0:UG$."PROGRAM MOD":.850...B..".
DOCUMENTATION IS PROVIDED WITHIN THE"..
.L..". PROGRAM FOR EASY MODIFICATION."..
....835......UZ.1.217.......(.... ** TO
USE 8032 LOAD CBM4032 **.^.F..".....BEFO
RE RUNNING THIS PROGRAM ON AN 8032 ....
.P.." LOAD THE 'CBM 4032' PROGRAM..
..........."...Z..SYSUU+71.......H. .. *
* T I T L E P A G E **...".."....";:.U
T,UU%:.B(50003).0..53280,14:.53281,6...$
..I.1.38:."...";:..*.&..I.1.22:.".....";
:..B.(..I.1.37:.".....";:..Z.*..I.1.22:.
".....";:...,..".......................
.... ......."................... . . .
..B.0.."................... . ......2..
".................... ....4..".........
.....C O M M O D O R E...+.6..".........
......EDUCATIONAL...J.8.."..............
..SOFTWARE.E.:.. ** COMMODORE LOGO **...
;..H(UD$,24);".........TOETS SPATIEBALK
OF WACHT.":I.0...<..A$:.A$.." ".I.I.1:.I
.250.828...>.T1$."":T2$."":T3$."":T4$.""
:I.0...@..300...C.. ** SPACE BAR PRESS *
*.E.H..UO,0:.H(UD$,24);"......TOETS SPAT
IEBALK VOOR VERVOLG.".\.L..UI$:.UI$.." "
.844.B.N.....R.. ** PAGE DESIGN ROUTINE
**...T.UP.UP.1...W.."."H(UT$.UP$,21);I(U
P$.UG$.D(UP),18)...\.." ----------------
----------------------"...`..UH..0.870.*
.A..H(UD$,24);H(UP$,7);"MENU - TOETS M
<RETURN>".;.F.UH.0:."..":..Z.K.. ** PLE
ASE WAIT REMARK **...P..H(UD$,24);"
MOMENTJE A.U.B.... "...U......
.. ** SET UP VARIABLES **.....UX$."M":.U
Q%(1000):UB.32768:U1.196:U2.197:U3.198:U
4.216:UC.167:UU.1024.:...UT.59468:UU%.12
:UL%.14:UP%.1146:UM.32768:UO.158:. 50003
,0.}....B(50003).0.UB.1024:U1.209:U2.210
:U3.211:U4.214:UC.204:UU.2048.E....B(500
03).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM
.1024:UO.198:BS.55296.....UD$.".........
................".....UP$."
".I...UT$." PA
RABOLEN ":. PLACE PROGRAM TITLE
HERE !!!!!!!!!!!!!!!!!***.O.......... **
SET VARIABLES **......900...... YV(21),
YS(22),SP(22),PP(22),PO(22).V.... ** CHE
CK FOR 8032 **......PRINT".":PRINT" ":RE
M SHIFTED SPACE."....IFPEEK(UB+40)<>96TH
ENGOSUB700.;.... ** MEMORY CHECK **.O...
. .(0).2000.937.}...."....THIS MACHINE D
OES NOT HAVE ENOUGH."......"MEMORY TO RU
N THIS PROGRAM !"......SYSUU+71.......O.
..."..":.B(50003).0.962...... ** BASIC 2
.0 OR 4.0 OR C-64 SETUP **.<....1075
,133:.1076,144:.1077,234:.1079,4:.1080,1
33:.1081,145.R....1091,155:.1098,133:.10
99,144:.1100,234:.1103,133......1104,145
:.1105,234:.1082,234......B(50003)..160.
955.Z....1093,88:.1094,228:.1097,85:.110
2,228:.965......B(50003)..1.990......109
3,49:.1094,230:.1097,46:.1102,230:.965.X
.B..2099,141:.2100,20:.2101,3:.2103,8:.2
104,141:.2105,21...C..2106,3:.2115,145:.
2117,52:.2118,234:.2121,49:.2122,141.N.D
..2123,20:.2124,3:.2126,234:.2127,141:.2
128,21:.2129,3...E.:. DISABLE STOP KEY..
.J..800:. TITLE.. T..300:. MENU.? ...PRI
NT".THE PGM WILL NOT WORK ON THIS MACHIN
E!":END.J ...UZ.1.UZ.0:. ** PROGRAM STAR
TS HERE **.. ..."..";:.:.B(50003).0..532
81,6:.53280,6.. ..ZZ..(.TI).. ..... ...
SYS1093.Y ... DISK NAME 'PARABOLA
'.. .. :.. .. :..!... *************
*********..!$.:.1!... PARABOLA INVE
STIGATION.L!8.. VERSION 4.3.R!B
.:.R!L.. USING Y=A(X-H)^2+K.X!V.:
..!`.. **********************. !J.:
..!T.. FEB 24, 1982.A!~.:..!...
R. W. STUART..!..:.."... VERTALI
NG: A.V/D NIEUWENHUIZEN.."..:.4"... ****
**************************SC.:"..:.C"...
".".E"... DIMENSION & READ SYMBOLS.Q"
D..UT,UU%.}"N.. 2850.."X.:.."..:.."...
LOOP.."... DL . 1 . 2 . 0.."..
:.X".. . INPUT A, H, AND K.."(. .
1880.."2. :..#<. . PLOT GRAPH..#
F. . 2170..#P. :.@#Z. . CHANGE C
ONSTANTS OR QUIT.N#D. . 2620.V#N. :.P
#X.. QUIT$."STOP" . DL.2.Y#... DL.#....
.# .:..#... ****************************
*..#..:.Q#... "RRRRRRRRRRRRRRRRRRRRRRR
"..#H.. P R O C E D U R E S..$R..
"EEEEEEEEEEEEEEEEEEEEEEE"..$..:.<$... *
****************************.B$..:._$...
DESCRIBE PROGRAM.E$..:.Y$... ----
--- .LAIN.$..:..$,..".... HET PROGRAMMA
WERKT MET PARABOOL-".T$1.."
2"..$@.." VERGELIJKING
EN ALS : Y=A(X-H) +K.".-%T..". KIES DADE
LIJK ZELF WAARDEN VOOR A, H,".\%^..". AN
D K. EEN VAN DEZE DRIE WAARDEN KUN "..%H
..". JE DAN TELKENS LATEN VERANDEREN ZOD
AT"..%R..". JE HET EFFECT HIERVAN KUNT Z
IEN IN".V%...". DE GETEKENDE GRAFIEK."..
%... 835:.850..&...".... WIL JE NA EEN T
EKENING ANDERE ".A&...". WAARDEN INV
OEREN, TOETS DAN DE 'S'.".M&...". OM DE
VOLGENDE VERANDERING TE ZIEN"..&...". MO
ET JE OP DE SPATIEBALK DRUKKEN.".C&...".
WIL JE HELEMAAL STOPPEN, TOETS DAN..&..
.". 'M' + <RETURN>. JE KOMT DAN WEER IN"
..'...". HET MENU."..'B....'..:.3'... **
***************************.9'&.:.I'0..
------- ..O':.:.S'D.. GET VALUES FO
R A, H, & K.Y'N.:..'X..". TYP NU DE WAAR
DEN IN VAN A, H, EN K".B'B.."
2"..'L.." ALS Y = A(X-H) + K
."..'V....({.." KIES -5<A<5 A<>0".A(...
" .A = ..........";:UL.10:US$.
"E+-.0123456789M".S(...35:A.E(UR$):.(A.0
. A..5 . A.5).."..";:.1920..(...". KIES
-10<H<10".H(...". H = .......
..";:UL.5 :US$."E+-.0123456789M"..(...35
:H.E(UR$):.(H..10 . H.10).."..";:.1930..
)...". KIES -20<K<20".K)...". K =
.........";:UL.10:US$."E+-.012345678
9M".Y)...35:K.E(UR$):.(K..20 . K.20)..".
.";:.1940..)..."... HET PROGRAMMA ZAL TE
LKENS EEN VAN".V)...". DE CONSTANTEN ( A
,H, OF K ) VERANDEREN"..*...". MET DE DO
OR JOU GEKOZEN HOEVEELHEID."..*F...R*P..
" WELKE CONSTANTE MOET DAT WORDEN ?
.(N = GEEN VERANDERING)".G*Z.. DL . 1
. 2 . 0..*..UL.1:US$."AHKMN":.35:CO$.UR$
.A*... CO$."A" . CO$."H" . CO$."K" . CO$
."N" . DL.2:.2050..*..."KIES UIT A, H,
OF K A.U.B!"..*... DL..*...CO$."N".2090.
7+..." MET HOEVEEL WIL JE ";CO$;".LATEN
VERANDEREN ? ";.E+ .UL.10:US$."E+-.01234
56789M":.35:CV.E(UR$).K+*...Q+4.:..+>..
****************************..+H.:..+R..
------- PLOT..+\.:.I+F.. INITIALIZ
E.O+P.:.X+Z.LV.0..+..BV.0..+..:..+... 3
440..+..:..,... BLANK SCREEN..,..:.1,...
PRINT"..SPATIE. VERVOLGD".H,E..PRINT".S.
STOPT.".N,J.:.T,T.:.E,... DRAW GRAPH.K,
$.:.Q,..:.W,8.:..,B.. DL.1 . 2 . 0..,L.:
. 3710:. DRAW AXES..,V.: . 4130:. DRA
W POINTS..-`. . OUTPUT EQUATION,VERTEX,
AXIS OF SYMMETRY,INTERCEPTS.
.-J. :..-T. . 3020.%-~. :.O-.. . US
E LOGICAL MULTIPLIER TO IN
CREMENT PROPER VARIABLE.W-.. :..-.. A.
A.CV.(CO$."A")..-.. H.H.CV.(CO$."H")..-
.. K.K.CV.(CO$."K").D-.. :.Z-D. . TIM
E TO QUIT?..-I..UO,0..-N.."...SPATIE. VE
RVOLGD"...S..".S. STOPT..".3.X. . A$:.A
$.." ".A$.."S".2520.I.... A$ . "S" . DL.
2.~....". ":."
"...... DL...........:.....
. *****************************.....:.P.
(.. ------- MENU.V.2.:...<.:...F..".....
. M E N U"../P...>/Z..".
KEUZES :":.".. 1. TERUG NAA
R MENU.I/D..". 2. VERANDER VERG
ELIJKING".O/N..../X.. DL . 1 . 2 . 0../.
..". KEUZE ? ";:UL.1:US$."12M":.3
5:CH.E(UR$)../.. . CH.1 . CH.2 . DL.2:.
2730../.. .../ .."1 OF 2 AUB!"..0... D
L..0... CH.1 . QUIT$."STOP".$0...".".-0H
.DL.0.30R...90..:.]0... ****************
*************.C0..:.{0... INITIAL
IZE..0..:..0... ------- INITIALIZE. 0..:
..0"....0@.. I.0 . 8.B0J. . SM(I).J0T..
I.S0^.S.UM.Y0H....0R.:..1|.. **********
*******************..1..:..1... CURRENT
VALUES.$1..:.?1... ------- CURRENT EUES.
G1.. :.]1.. . GIVE EQUATION.E1B. :.X1
L. H..(10.H).10..1V. K..(10.K).10..1..
."....TOP :"..1.. :..1.. . CLEAR PREV
IOUS LINE TO PREVENT LO
NG LINES FROM.$2.. . FROM LEAVING THEIR
ENDS BEHIND.,2.. :.D2.
.." .".[2.. ."(";H;",";K;
")".C2&. ..{20.."AS VAN SYMMETRY:"..2:.
." "..2D.."X =";H..2N. ..
D2X. . K.A..0 . A..0 . 3220..2B.."GEEN
NULPUNTEN!"..2L..A1.1.3: ."
"..3V..A1..3..." .".(3..
. 3280.E3..." .".Z3
..."NULPUNTEN :".V3..."
"..3... "X1 =";.((10.(H..(.K.A)))..
5).10;" ".R3... "X2 =";.((10.(H..(.K.
A)))..5).10;" ".X3F.:..3P. ...4Z. .
" .".14..."SNYPUNT
Y-AS:(0,";.(10.(A.H.2.K)).10;".)".94..
..W4..." ".C4..."Y
=";.Y4...A.1.." ";:.3341..4....(10.A).1
0;..4...".(X-";:.H.0..".+";..4...H.0..".
";:.3345.Q4...J(D(.(10.H).10),2);..4..."
) ..2.+";:.K.0..".-";..5....(.(10.K).10)
;". "..5.. .".............".%5 ...+5
*.:.N54.. ****************************.T
5>.:.N5H.. ------- SCALE GRAPH.T5R.:..5\
.. CALCULATE VERTICAL SCALE..5F..35
70..5P.. X..5 . 5.N5Z. YV(X.11).A.(X.
H).2.K.V5.. :..5.. . PICK OUT RAN
GE LIMITS..6.. :.#6.. . YV(X.11).BV .
BV.YV(X.11).E6.. . YV(X.11).LV . LV.YV(
X.11).M6... X.S6..:.S6J.. ENSURE X-AXIS
IS INCLUDED.Y6T.:..6... BV.0 . BV.0..6..
. LV.0 . LV.0..6..BV.20:LV..20..6... CAL
CULATE VERTICAL SCALE VALUE FOR
23 LINES OF SCREEN..6..:..7..VS.(BV.LV)
.23..7..:.$7$.. BLANK SCREEN.*7..:.378..
".".97B...?7L.:.B7V.. ******************
**********.H7`.:..7J.. ------- DRAW AXES
..7T.:..7~.. I.0 . 22..7... S.28.I.40,66
..7...BS.28.I.40,7.B7... I.H7..:..7...
DRAW X-AXIS..7..:..7..HP..((BV.(BV.L
V)).23)..8D.. I.0 . 20.$8N.. S.40.HP.18.
I,67.98O..BS.40.HP.18.I,7.A8X.. I.G8..:.
_8... SCALE X-AXIS.E8..:.Z8... X..1
0 . 10 . 5..8.. V$.D(X)..8.. . I.1 . C
(V$)..8.. :..8(. . FROM SCREEN STA
RT S, DOWN 1 LINE BELOW X-
AXIS..82. :..9<..BS.40.(HP.1).I.X.26,
7.79=.. S.40.(HP.1).I.X.26,F(J(V$,I,1)).
A9F. . I.I9P.. X.O9Z.:.G9D.. SCALE
Y-AXIS.M9N.:..9X.. I.BV . LV . .(BV.LV)
.6..9.. N..(I)..9.. V$.D(N)..9.. . J.
1 . C(V$).X9 ..BS.28.J.40..((BV.I).VS),7
..:... S.28.J.40..((BV.I).VS),F(J(V$,J,1
))..:.. . J..:... I..:.... :H.:.?:R.. *
***********************.E:..:.]:... ----
--- PLOT PO.S.C:..:..:... REPEAT PLOT WI
TH INCREMENT..:..:..:... SAVE VALUE
S IN ARRAYS..:..:..:".. I.1 . 21..:,. Y
V(I).A.((I.11).H).2.K..:6. YS(I).(BV.YV
(I)).VS..;@. SP(I).SM(7..(8.(YS(I)..(YS
(I))))).F;J. PP(I).S.17.40..((BV.YV(I))
.VS).I.N;T.. I.^;^.. I. 1 . 21.F;H. :..
;R. . ERASE OLD POINTS ON SCREEN..;|.
:.O;... PO(I).S . PO(I).S.1000 . . PO(I)
,32:.55296.1024.PO(I),0.W;.. :..;.. .
PLOT NEW POINTS ON SCREEN..<.. :.=<...
PP(I).S . PP(I).S.1000 . . PP(I),42 :.
54272.PP(I),1.C<..:.[<B. . STORE OLD PO
INT.C<L. :.U<V. PO(I).PP(I).}<... I..<
.....<..:..<... ************************
*****..<..:.S<... ------- END OF PROCEDU
RES.Y<..:..<&.. ************************
*****..=0.:.%=:.. S Y M B O L T A
B L E.+=D.:.O=N.. **********************
*******.U=X.:.K=B.. YV(X) -Y VALUE..=L.
. PO(X) -POKE OUT OLD POSITION..=V.. A
,H,K -VARIABLES IN THE.O=... A$ -PIC
KS UP KEY PRESS..>... CO$ -CONSTANT (
A,H,K) TO VARY.U>...
CV -CONTAINS THE AMOUNT
TO VARY THE CONSTANT..>... S
-SCREEN START
(POKE ADDRESS).V>... LV -LITTLES
T VALUE IN RANGE..
?... BV -BIGGEST VALUE IN
RANGE./?... VS -VERTICA
L SCALE.O?F.. X -X VALUES FROM
-10 TO 10..?P.. H
P -HEIGHT POSITION OF
X AXIS..?Z.. V$ -STRING OF NUM
BERS USED TO POKE IN SC
ALES.@@... N -CONTAINS INTEGER OF
VERTICAL SCALE VALUES
..@... J -COUNT OF CHARACTERS
TO BE POKED IN..@... CH
-CHOICE IN MENU.E@... SM(I) -SYMBOLS
FOR PLOTTING..A... YS(I) -Y-SLOT (LINE
IN WHICH SYMBOL WILL
APPEAR.0A... SP(I) -SYMBOL TO POKE/PLOT
.PA .. PP(I) -PRESENT POKE/PLOT.ZA*..
TM - TIMING FOR LOOP PARAMENTER..A4..
DL - DUMMY PARAMETER IN FOR
NEXT LOOP.AA>.:..AH.. ********
*********************..AR.:..B\..
D A T A..BF.:.+BP.. ******************
***********.`BZ.. 100,82,70,64,67,68,69,
99,100,82,70,67,68,69,99.......
> CLICK IMAGE PREVIEW FOR FULL MODAL