LIFE#1-6
FILE INFORMATION
FILENAME(S): LIFE#1-6
FILE TYPE(S): PRG
FILE SIZE: 11.2K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
70e30ceb2fd9ce6472f90e01d6d30080d9d0bd2fcfc944f71ec20cbe7d3d641f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | LIFE#1-6 | PRG | DuncanTwain | 11 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 89 20 31 30 30 30 00 16 08 64 |....... 1000...d|
00000010: 00 43 4C 53 3A 8E 00 35 08 6E 00 56 45 B2 56 45 |.CLS:..5.n.VE.VE|
00000020: 20 4D 4F 44 20 32 35 3A 8B 20 56 45 B2 30 20 A7 | MOD 25:. VE.0 .|
00000030: 20 56 45 B2 31 00 54 08 70 00 48 4F B2 48 4F 20 | VE.1.T.p.HO.HO |
00000040: 4D 4F 44 20 38 31 3A 8B 20 48 4F B2 30 20 A7 20 |MOD 81:. HO.0 . |
00000050: 48 4F B2 31 00 67 08 72 00 4C 4F 43 41 54 45 20 |HO.1.g.r.LOCATE |
00000060: 56 45 2C 48 4F 3A 8E 00 76 08 D2 00 49 4E 24 B2 |VE,HO:..v...IN$.|
00000070: 49 4E 4B 45 59 24 00 90 08 DC 00 57 48 49 4C 45 |INKEY$.....WHILE|
00000080: 20 49 4E 24 B2 22 22 3A 89 20 32 31 30 3A 57 80 | IN$."":. 210:W.|
00000090: 00 96 08 E0 00 8E 00 AB 08 58 02 3A 27 48 45 52 |.........X.:'HER|
000000A0: 53 54 45 4C 20 53 43 48 45 52 4D 00 CA 08 E8 03 |STEL SCHERM.....|
000000B0: 8F 20 2A 2A 2A 2A 20 48 4F 4F 46 44 50 52 4F 47 |. **** HOOFDPROG|
000000C0: 52 41 4D 4D 41 20 2A 2A 2A 2A 00 D0 08 F2 03 27 |RAMMA ****.....'|
000000D0: 00 E2 08 FC 03 4B 45 59 20 4F 46 46 3A 8D 20 31 |.....KEY OFF:. 1|
000000E0: 30 30 00 F4 08 4C 04 8D 20 31 30 30 30 30 3A 27 |00...L.. 10000:'|
000000F0: 49 4E 49 54 00 0C 09 60 04 8D 20 32 30 30 30 3A |INIT...`.. 2000:|
00000100: 27 4C 45 45 53 20 43 4F 4D 4D AF 4F 00 12 09 6A |'LEES COMM.O...j|
00000110: 04 27 00 20 09 B0 04 27 48 4F 4F 46 44 4C 55 53 |.'. ...'HOOFDLUS|
00000120: 00 26 09 BA 04 27 00 3A 09 CE 04 57 48 49 4C 45 |.&...'.:...WHILE|
00000130: 20 43 4F 4D 4D AF 4F B3 B1 34 00 56 09 D8 04 8D | COMM.O..4.V....|
00000140: 20 33 30 30 30 3A 27 56 4F 45 52 20 43 4F 4D 4D | 3000:'VOER COMM|
00000150: AF 4F 20 55 49 54 00 6E 09 E2 04 8D 20 32 30 30 |.O UIT.n.... 200|
00000160: 30 3A 27 4C 45 45 53 20 43 4F 4D 4D AF 4F 00 75 |0:'LEES COMM.O.u|
00000170: 09 EC 04 57 80 00 7B 09 F6 04 27 00 94 09 14 05 |...W..{...'.....|
00000180: 8D 20 31 37 30 30 30 3A 27 42 45 AB 45 49 4E 44 |. 17000:'BE.EIND|
00000190: 49 47 45 4E 00 AB 09 1E 05 8B 20 43 4F 4D 4D AF |IGEN...... COMM.|
000001A0: 4F B3 B1 34 20 A7 20 31 32 30 30 00 B1 09 28 05 |O..4 . 1200...(.|
000001B0: 27 00 BB 09 78 05 8D 20 31 30 30 00 CD 09 82 05 |'...x.. 100.....|
000001C0: 99 20 22 54 4F 54 20 5A 49 45 4E 53 22 00 D3 09 |. "TOT ZIENS"...|
000001D0: CF 07 80 00 F1 09 D0 07 8F 20 2A 2A 2A 2A 20 4C |......... **** L|
000001E0: 45 45 53 20 43 4F 4D 4D 41 4E 44 4F 20 2A 2A 2A |EES COMMANDO ***|
000001F0: 2A 00 F7 09 DA 07 27 00 11 0A E4 07 8D 20 32 35 |*.....'...... 25|
00000200: 30 30 3A 27 49 4E 49 54 20 43 4F 4D 52 45 47 45 |00:'INIT COMREGE|
00000210: 4C 00 1B 0A EE 07 8D 20 32 31 30 00 30 0A F8 07 |L...... 210.0...|
00000220: 50 B2 49 4E 53 54 52 28 43 4D 24 2C 49 4E 24 29 |P.INSTR(CM$,IN$)|
00000230: 00 3E 0A 02 08 57 48 49 4C 45 20 50 B2 30 00 59 |.>...WHILE P.0.Y|
00000240: 0A 0C 08 8D 20 32 31 30 3A 50 B2 49 4E 53 54 52 |.... 210:P.INSTR|
00000250: 28 43 4D 24 2C 49 4E 24 29 00 60 0A 16 08 57 80 |(CM$,IN$).`...W.|
00000260: 00 6B 0A 20 08 99 20 49 4E 24 3B 00 75 0A 2A 08 |.k. .. IN$;.u.*.|
00000270: 8D 20 32 31 30 00 94 0A 34 08 57 48 49 4C 45 20 |. 210...4.WHILE |
00000280: 49 4E 53 54 52 28 52 54 24 AA 42 53 24 2C 49 4E |INSTR(RT$.BS$,IN|
00000290: 24 29 B2 30 00 9E 0A 3E 08 8D 20 32 31 30 00 A5 |$).0...>.. 210..|
000002A0: 0A 48 08 57 80 00 BA 0A 5C 08 8B 20 49 4E 24 B2 |.H.W....\.. IN$.|
000002B0: 42 53 24 20 A7 20 32 30 32 30 00 CD 0A 61 08 56 |BS$ . 2020...a.V|
000002C0: B0 49 47 43 4F 4D B2 43 4F 4D 4D AF 4F 00 E0 0A |.IGCOM.COMM.O...|
000002D0: 66 08 43 4F 4D 4D AF 4F B2 28 50 AA 31 29 B3 32 |f.COMM.O.(P.1).2|
000002E0: 00 17 0B 70 08 8B 20 56 B0 49 47 43 4F 4D B2 37 |...p.. V.IGCOM.7|
000002F0: 20 A7 20 8B 20 28 43 4F 4D 4D AF 4F B2 32 20 B0 | . . (COMM.O.2 .|
00000300: 20 43 4F 4D 4D AF 4F B2 33 20 B0 20 43 4F 4D 4D | COMM.O.3 . COMM|
00000310: AF 4F B2 38 29 3A 8F 00 46 0B 71 08 52 45 4E 54 |.O.8):..F.q.RENT|
00000320: 4D 20 56 45 52 56 4F 4C 47 20 32 31 36 30 20 A7 |M VERVOLG 2160 .|
00000330: 20 8D 32 36 30 30 3A 27 48 45 52 53 54 45 4C 20 | .2600:'HERSTEL |
00000340: 53 43 48 45 52 4D 00 4C 0B 8E 08 8E 00 6A 0B C4 |SCHERM.L.....j..|
00000350: 09 8F 20 2A 2A 2A 2A 20 49 4E 49 54 20 43 4F 4D |.. **** INIT COM|
00000360: 52 45 47 45 4C 20 2A 2A 2A 2A 00 70 0B CE 09 27 |REGEL ****.p...'|
00000370: 00 8B 0B D8 09 48 4F B2 31 3A 56 45 B2 43 4F 4D |.....HO.1:VE.COM|
00000380: 52 45 47 45 4C 3A 8D 20 31 31 30 00 9F 0B E2 09 |REGEL:. 110.....|
00000390: 99 20 53 50 41 43 45 24 28 48 4D AB 31 29 3B 00 |. SPACE$(HM.1);.|
000003A0: A9 0B EC 09 8D 20 31 31 30 00 B8 0B F6 09 99 20 |..... 110...... |
000003B0: 50 52 4F 4D 50 54 24 3B 00 BE 0B 1E 0A 8E 00 E3 |PROMPT$;........|
000003C0: 0B 28 0A 8F 20 2A 2A 2A 2A 20 48 45 52 53 54 45 |.(.. **** HERSTE|
000003D0: 4C 20 4E 41 20 4F 56 45 52 5A 49 43 48 54 20 2A |L NA OVERZICHT *|
000003E0: 2A 2A 2A 00 11 0C 32 0A 27 20 20 20 20 20 20 20 |***...2.' |
000003F0: 20 4E 49 45 54 20 41 4C 53 20 53 43 48 49 4A 46 | NIET ALS SCHIJF|
00000400: AB 4F 50 45 52 41 54 49 45 53 20 56 4F 4C 47 45 |.OPERATIES VOLGE|
00000410: 4E 00 4D 0C 3C 0A 27 20 20 20 20 20 20 20 20 41 |N.M.<.' A|
00000420: 4C 53 20 45 52 20 5A 49 4A 4E 2C 20 44 41 4E 20 |LS ER ZIJN, DAN |
00000430: 4E 55 4C AB 20 45 4E 20 4C 41 41 54 53 54 45 20 |NUL. EN LAATSTE |
00000440: 47 45 4E 20 41 46 44 52 55 4B 4B 45 4E 00 53 0C |GEN AFDRUKKEN.S.|
00000450: 46 0A 27 00 6D 0C 50 0A 8D 20 32 31 35 30 30 3A |F.'.m.P.. 21500:|
00000460: 27 53 43 48 45 52 4D 20 53 43 48 4F 91 00 A2 0C |'SCHERM SCHO....|
00000470: 5A 0A 8B 20 28 4F 55 44 AA 4E 49 45 55 57 29 B3 |Z.. (OUD.NIEUW).|
00000480: B1 30 20 A7 20 47 45 4E B2 30 3A 8D 20 31 34 30 |.0 . GEN.0:. 140|
00000490: 30 30 3A 47 45 4E B2 4F 55 44 3A 8D 20 31 34 30 |00:GEN.OUD:. 140|
000004A0: 30 30 00 A8 0C 82 0A 8E 00 CA 0C B8 0B 8F 20 2A |00............ *|
000004B0: 2A 2A 2A 20 56 4F 45 52 20 43 4F 4D 4D 41 4E 44 |*** VOER COMMAND|
000004C0: 4F 20 55 49 54 20 2A 2A 2A 2A 00 D0 0C C2 0B 27 |O UIT ****.....'|
000004D0: 00 0C 0D CC 0B 91 20 43 4F 4D 4D AF 4F 20 8D 20 |...... COMM.O . |
000004E0: 33 31 31 30 2C 33 31 32 30 2C 33 31 33 30 2C 33 |3110,3120,3130,3|
000004F0: 31 34 30 2C 33 31 35 30 2C 33 31 36 30 2C 33 31 |140,3150,3160,31|
00000500: 37 30 2C 33 31 38 30 2C 33 31 39 30 00 12 0D 12 |70,3180,3190....|
00000510: 0C 8E 00 2D 0D 1C 0C 8F 20 2A 2A 2A 2A 20 4F 50 |...-.... **** OP|
00000520: 44 52 41 43 48 54 45 4E 20 2A 2A 2A 2A 00 50 0D |DRACHTEN ****.P.|
00000530: 26 0C 8D 20 31 31 30 30 30 3A 8E 3A 27 4E 49 45 |&.. 11000:.:'NIE|
00000540: 55 57 45 20 57 45 52 45 4C 44 20 4D 41 4B 45 4E |UWE WERELD MAKEN|
00000550: 00 6F 0D 30 0C 8D 20 31 31 36 30 30 3A 8E 3A 27 |.o.0.. 11600:.:'|
00000560: 57 45 52 45 4C 44 20 57 49 4A 5A 49 47 45 4E 00 |WERELD WIJZIGEN.|
00000570: 9A 0D 3A 0C 8D 20 31 32 30 30 30 3A 8E 3A 27 4E |..:.. 12000:.:'N|
00000580: 49 45 55 57 45 20 47 45 4E 45 52 41 54 49 45 53 |IEUWE GENERATIES|
00000590: 20 42 45 52 45 4B 45 4E 45 4E 00 B5 0D 44 0C 8D | BEREKENEN...D..|
000005A0: 20 31 37 30 30 30 3A 8E 3A 27 42 45 AB 45 49 4E | 17000:.:'BE.EIN|
000005B0: 44 49 47 45 4E 00 D0 0D 4E 0C 8D 20 31 36 34 30 |DIGEN...N.. 1640|
000005C0: 30 3A 8E 3A 27 4E 41 41 52 20 53 43 48 49 4A 46 |0:.:'NAAR SCHIJF|
000005D0: 00 EA 0D 58 0C 8D 20 31 36 31 30 30 3A 8E 3A 27 |...X.. 16100:.:'|
000005E0: 56 41 4E 20 53 43 48 49 4A 46 00 0E 0E 62 0C 8D |VAN SCHIJF...b..|
000005F0: 20 31 36 37 30 30 3A 8E 3A 27 4F 56 45 52 5A 49 | 16700:.:'OVERZI|
00000600: 43 48 54 20 56 41 4E 20 53 43 48 49 4A 46 00 26 |CHT VAN SCHIJF.&|
00000610: 0E 6C 0C 8D 20 31 35 30 30 30 3A 8E 3A 27 4E 41 |.l.. 15000:.:'NA|
00000620: 41 52 20 99 45 52 00 44 0E 76 0C 8D 20 31 32 35 |AR .ER.D.v.. 125|
00000630: 30 30 3A 8E 3A 27 4D 4F 44 45 4C 20 57 49 4A 5A |00:.:'MODEL WIJZ|
00000640: 49 47 45 4E 00 61 0E 10 27 8F 20 2A 2A 2A 2A 20 |IGEN.a..'. **** |
00000650: 49 4E 49 54 49 41 4C 49 53 45 45 52 20 2A 2A 2A |INITIALISEER ***|
00000660: 2A 00 67 0E 1A 27 27 00 89 0E 24 27 48 4D B2 38 |*.g..''...$'HM.8|
00000670: 30 3A 56 4D B2 32 34 3A 27 4D 41 58 20 56 4F B0 |0:VM.24:'MAX VO.|
00000680: 20 48 4F 20 45 4E 20 56 45 00 AF 0E 2E 27 4D 41 | HO EN VE....'MA|
00000690: 58 48 4F 4F 47 54 45 B2 56 4D AB 31 31 3A 4D 41 |XHOOGTE.VM.11:MA|
000006A0: 58 42 52 45 45 44 54 45 B2 48 4D B3 33 AB 33 00 |XBREEDTE.HM.3.3.|
000006B0: D5 0E 38 27 86 20 57 45 52 45 4C 44 24 28 32 2C |..8'. WERELD$(2,|
000006C0: 4D 41 58 42 52 45 45 44 54 45 2C 4D 41 58 48 4F |MAXBREEDTE,MAXHO|
000006D0: 4F 47 54 45 29 00 EB 0E 42 27 53 54 41 52 54 58 |OGTE)...B'STARTX|
000006E0: B2 31 3A 53 54 41 52 54 59 B2 34 00 09 0F 4C 27 |.1:STARTY.4...L'|
000006F0: 4F 55 44 B2 30 3A 4E 49 45 55 57 B2 30 3A 47 45 |OUD.0:NIEUW.0:GE|
00000700: 4E 4E 55 4D 4D 45 52 B2 30 00 0F 0F 56 27 27 00 |NNUMMER.0...V''.|
00000710: 25 0F 74 27 27 53 50 45 43 49 41 4C 45 20 53 54 |%.t''SPECIALE ST|
00000720: 52 49 4E 47 53 00 41 0F 7E 27 8D 20 31 30 35 30 |RINGS.A.~'. 1050|
00000730: 30 3A 27 4B 4F 50 24 20 41 41 4E 50 41 53 53 45 |0:'KOP$ AANPASSE|
00000740: 4E 00 65 0F 88 27 53 43 48 45 49 44 49 4E 47 24 |N.e..'SCHEIDING$|
00000750: B2 53 54 52 49 4E 47 24 28 48 4D AB 31 2C C6 28 |.STRING$(HM.1,.(|
00000760: 22 3D 22 29 29 00 76 0F 92 27 50 52 4F 4D 50 54 |"=")).v..'PROMPT|
00000770: 24 B2 22 3E 3E 22 00 90 0F 9C 27 4C 45 45 47 24 |$.">>"....'LEEG$|
00000780: B2 22 20 22 3A 42 45 57 4F 91 44 24 B2 22 2A 22 |." ":BEWO.D$."*"|
00000790: 00 B5 0F A6 27 4C 49 4E 4B 53 24 B2 C7 28 30 29 |....'LINKS$..(0)|
000007A0: AA 22 4B 22 3A 52 45 43 48 54 53 24 B2 C7 28 30 |."K":RECHTS$..(0|
000007B0: 29 AA 22 4D 22 00 DB 0F B0 27 42 4F 56 45 4E 24 |)."M"....'BOVEN$|
000007C0: B2 C7 28 30 29 AA 22 48 22 3A 42 45 4E 45 44 45 |..(0)."H":BENEDE|
000007D0: 4E 24 B2 C7 28 30 29 AA 22 50 22 00 04 10 BA 27 |N$..(0)."P"....'|
000007E0: 50 49 4A 4C 24 B2 4C 49 4E 4B 53 24 AA 42 4F 56 |PIJL$.LINKS$.BOV|
000007F0: 45 4E 24 AA 52 45 43 48 54 53 24 AA 42 45 4E 45 |EN$.RECHTS$.BENE|
00000800: 44 45 4E 24 00 18 10 C4 27 4B 4C 41 41 52 24 B2 |DEN$....'KLAAR$.|
00000810: C7 28 30 29 AA 22 4F 22 00 49 10 D8 27 43 4D 24 |.(0)."O".I..'CM$|
00000820: B2 22 4E 4E 57 57 42 42 45 45 53 53 4C 4C 4F 4F |."NNWWBBEESSLLOO|
00000830: 50 50 4D 4D 22 3A 27 4D 4F 47 45 4C 49 4A 4B 45 |PPMM":'MOGELIJKE|
00000840: 20 43 4F 4D 4D AF 4F 27 53 00 60 10 E2 27 52 54 | COMM.O'S.`..'RT|
00000850: 24 B2 C7 28 31 33 29 3A 42 53 24 B2 C7 28 38 29 |$..(13):BS$..(8)|
00000860: 00 87 10 EC 27 41 4C 46 41 24 B2 22 41 42 43 44 |....'ALFA$."ABCD|
00000870: 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 |EFGHIJKLMNOPQRST|
00000880: 55 56 57 58 59 5A 22 00 B4 10 F6 27 41 4C 46 41 |UVWXYZ"....'ALFA|
00000890: 24 B2 41 4C 46 41 24 AA 22 41 42 43 44 45 46 47 |$.ALFA$."ABCDEFG|
000008A0: 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 |HIJKLMNOPQRSTUVW|
000008B0: 58 59 5A 22 00 CD 10 00 28 43 49 4A 46 45 52 24 |XYZ"....(CIJFER$|
000008C0: B2 22 30 31 32 33 34 35 36 37 38 39 22 00 E4 10 |."0123456789"...|
000008D0: 3C 28 27 53 50 45 43 49 41 4C 45 20 46 55 4E 43 |<('SPECIALE FUNC|
000008E0: 54 49 45 53 00 08 11 46 28 96 20 A5 4D 41 58 28 |TIES...F(. .MAX(|
000008F0: 58 2C 59 29 B2 28 AB 28 58 B1 B2 59 29 AC 58 AB |X,Y).(.(X..Y).X.|
00000900: 28 59 B1 58 29 AC 59 29 00 2C 11 50 28 96 20 A5 |(Y.X).Y).,.P(. .|
00000910: 4D 49 4E 28 58 2C 59 29 B2 28 AB 28 58 B3 B2 59 |MIN(X,Y).(.(X..Y|
00000920: 29 AC 58 AB 28 59 B3 58 29 AC 59 29 00 43 11 A0 |).X.(Y.X).Y).C..|
00000930: 28 8D 20 32 31 33 30 30 3A 27 4B 4F 50 20 4D 41 |(. 21300:'KOP MA|
00000940: 4B 45 4E 00 61 11 AA 28 8D 20 32 31 30 30 30 3A |KEN.a..(. 21000:|
00000950: 27 48 55 4C 50 53 43 48 45 52 4D 20 4D 41 4B 45 |'HULPSCHERM MAKE|
00000960: 4E 00 67 11 FA 28 8E 00 86 11 04 29 8F 20 2A 2A |N.g..(.....). **|
00000970: 2A 2A 20 4B 4F 50 24 20 41 41 4E 50 41 53 53 45 |** KOP$ AANPASSE|
00000980: 4E 20 2A 2A 2A 2A 00 8C 11 0E 29 27 00 BC 11 18 |N ****....)'....|
00000990: 29 4B 4F 50 24 B2 22 4C 49 46 45 20 56 41 4E 20 |)KOP$."LIFE VAN |
000009A0: 43 4F 4E 57 41 59 20 4F 50 20 45 45 4E 20 50 4C |CONWAY OP EEN PL|
000009B0: 41 54 54 45 20 57 45 52 45 4C 44 22 00 C2 11 22 |ATTE WERELD"..."|
000009C0: 29 27 00 C8 11 5E 29 8E 00 EC 11 F8 2A 8F 20 2A |)'...^).....*. *|
000009D0: 2A 2A 2A 20 4E 49 45 55 57 45 20 57 45 52 45 4C |*** NIEUWE WEREL|
000009E0: 44 20 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 F2 11 02 |D MAKEN ****....|
000009F0: 2B 27 00 FF 11 0C 2B 53 54 41 52 54 58 B2 31 00 |+'....+STARTX.1.|
00000A00: 15 12 16 2B 47 45 4E B2 30 3A 47 45 4E 4E 55 4D |...+GEN.0:GENNUM|
00000A10: 4D 45 52 B2 30 00 2F 12 20 2B 8D 20 31 39 30 30 |MER.0./. +. 1900|
00000A20: 30 3A 27 4D 41 54 45 4E 20 56 52 41 47 45 4E 00 |0:'MATEN VRAGEN.|
00000A30: 4E 12 2A 2B 8D 20 32 31 36 30 30 3A 27 57 45 52 |N.*+. 21600:'WER|
00000A40: 45 4C 44 20 4C 45 45 47 20 4D 41 4B 45 4E 00 6B |ELD LEEG MAKEN.k|
00000A50: 12 34 2B 8D 20 31 34 32 30 30 3A 27 47 45 4E 4E |.4+. 14200:'GENN|
00000A60: 52 20 53 43 48 52 49 4A 56 45 4E 00 84 12 3E 2B |R SCHRIJVEN...>+|
00000A70: 8D 20 31 34 33 30 30 3A 27 4B 41 44 45 52 20 4D |. 14300:'KADER M|
00000A80: 41 4B 45 4E 00 9F 12 48 2B 8D 20 32 35 30 30 20 |AKEN...H+. 2500 |
00000A90: 3A 27 49 4E 49 54 20 43 4F 4D 52 45 47 45 4C 00 |:'INIT COMREGEL.|
00000AA0: E0 12 52 2B 99 20 22 49 4E 56 4F 45 52 45 4E 20 |..R+. "INVOEREN |
00000AB0: 4D 42 56 20 50 49 4A 4C 45 4E 2C 53 50 41 54 49 |MBV PIJLEN,SPATI|
00000AC0: 45 20 45 4E 20 2A 2E 20 4B 4C 41 41 52 2C 20 44 |E EN *. KLAAR, D|
00000AD0: 41 4E 20 27 45 4E 44 27 2D 54 4F 45 54 53 22 3B |AN 'END'-TOETS";|
00000AE0: 00 F2 12 5C 2B 27 57 45 52 45 4C 44 20 44 4F B0 |...\+'WERELD DO.|
00000AF0: 4C 9F 00 25 13 66 2B 4B 53 45 54 24 B2 50 49 4A |L..%.f+KSET$.PIJ|
00000B00: 4C 24 AA 4C 45 45 47 24 AA 4C 45 45 47 24 AA 42 |L$.LEEG$.LEEG$.B|
00000B10: 45 57 4F 91 44 24 AA 42 45 57 4F 91 44 24 AA 4B |EWO.D$.BEWO.D$.K|
00000B20: 4C 41 41 52 24 00 44 13 70 2B 49 4E 24 B2 22 40 |LAAR$.D.p+IN$."@|
00000B30: 22 3A 48 B0 B2 31 3A 56 45 52 B2 31 3A 8D 20 31 |":H..1:VER.1:. 1|
00000B40: 31 35 30 30 00 5A 13 7A 2B 57 48 49 4C 45 20 49 |1500.Z.z+WHILE I|
00000B50: 4E 24 B3 B1 4B 4C 41 41 52 24 00 64 13 84 2B 8D |N$..KLAAR$.d..+.|
00000B60: 20 32 31 30 00 81 13 8E 2B 50 B2 28 49 4E 53 54 | 210....+P.(INST|
00000B70: 52 28 4B 53 45 54 24 2C 49 4E 24 29 AA 31 29 B3 |R(KSET$,IN$).1).|
00000B80: 32 00 B7 13 98 2B 8B 20 50 B1 30 20 A7 20 91 20 |2....+. P.0 . . |
00000B90: 50 20 8D 20 31 31 33 30 30 2C 31 31 33 33 30 2C |P . 11300,11330,|
00000BA0: 31 31 33 36 30 2C 31 31 33 39 30 2C 31 31 34 32 |11360,11390,1142|
00000BB0: 30 2C 31 31 34 36 30 00 BE 13 A2 2B 57 80 00 DD |0,11460....+W...|
00000BC0: 13 AC 2B 8D 20 31 31 39 30 30 3A 27 49 4E 56 4F |..+. 11900:'INVO|
00000BD0: 45 52 20 42 45 56 45 53 54 49 47 45 4E 00 01 14 |ER BEVESTIGEN...|
00000BE0: B6 2B 8B 20 50 B1 32 20 A7 20 31 31 30 37 30 3A |.+. P.2 . 11070:|
00000BF0: 27 49 4E 56 4F 45 52 20 41 41 4E 50 41 53 53 45 |'INVOER AANPASSE|
00000C00: 4E 00 07 14 C0 2B 27 00 32 14 CA 2B 27 31 53 54 |N....+'.2..+'1ST|
00000C10: 45 20 47 45 4E 45 52 41 54 49 45 20 42 45 52 45 |E GENERATIE BERE|
00000C20: 4B 45 4E 45 4E 20 45 4E 20 41 46 44 52 55 4B 4B |KENEN EN AFDRUKK|
00000C30: 45 4E 00 4C 14 D4 2B 4F 55 44 B2 30 3A 4E 49 45 |EN.L..+OUD.0:NIE|
00000C40: 55 57 B2 31 3A 8D 20 31 32 30 30 30 00 5E 14 DE |UW.1:. 12000.^..|
00000C50: 2B 4F 55 44 B2 31 3A 4E 49 45 55 57 B2 32 00 64 |+OUD.1:NIEUW.2.d|
00000C60: 14 1A 2C 8E 00 7F 14 24 2C 8F 20 2A 2A 2A 2A 20 |..,....$,. **** |
00000C70: 4E 41 41 52 20 4C 49 4E 4B 53 20 2A 2A 2A 2A 00 |NAAR LINKS ****.|
00000C80: 9B 14 2E 2C 48 B0 B2 A5 4D 41 58 28 31 2C 48 B0 |...,H...MAX(1,H.|
00000C90: AB 31 29 3A 8D 20 31 31 35 30 30 00 A1 14 38 2C |.1):. 11500...8,|
00000CA0: 8E 00 BC 14 42 2C 8F 20 2A 2A 2A 2A 20 4E 41 41 |....B,. **** NAA|
00000CB0: 52 20 42 4F 56 45 4E 20 2A 2A 2A 2A 00 DA 14 4C |R BOVEN ****...L|
00000CC0: 2C 56 45 52 B2 A5 4D 41 58 28 31 2C 56 45 52 AB |,VER..MAX(1,VER.|
00000CD0: 31 29 3A 8D 20 31 31 35 30 30 00 E0 14 56 2C 8E |1):. 11500...V,.|
00000CE0: 00 FC 14 60 2C 8F 20 2A 2A 2A 2A 20 4E 41 41 52 |...`,. **** NAAR|
00000CF0: 20 52 45 43 48 54 53 20 2A 2A 2A 2A 00 1E 15 6A | RECHTS ****...j|
00000D00: 2C 48 B0 B2 A5 4D 49 4E 28 42 52 45 45 44 54 45 |,H...MIN(BREEDTE|
00000D10: 2C 48 B0 AA 31 29 3A 8D 20 31 31 35 30 30 00 24 |,H..1):. 11500.$|
00000D20: 15 74 2C 8E 00 41 15 7E 2C 8F 20 2A 2A 2A 2A 20 |.t,..A.~,. **** |
00000D30: 4E 41 41 52 20 42 45 4E 45 44 45 4E 20 2A 2A 2A |NAAR BENEDEN ***|
00000D40: 2A 00 64 15 88 2C 56 45 52 B2 A5 4D 49 4E 28 48 |*.d..,VER..MIN(H|
00000D50: 4F 4F 47 54 45 2C 56 45 52 AA 31 29 3A 8D 20 31 |OOGTE,VER.1):. 1|
00000D60: 31 35 30 30 00 6A 15 92 2C 8E 00 89 15 9C 2C 8F |1500.j..,.....,.|
00000D70: 20 2A 2A 2A 2A 20 43 45 4C 20 4C 45 45 47 20 4D | **** CEL LEEG M|
00000D80: 41 4B 45 4E 20 2A 2A 2A 2A 00 AE 15 A6 2C 99 20 |AKEN ****....,. |
00000D90: 4C 45 45 47 24 3B 3A 57 45 52 45 4C 44 24 28 30 |LEEG$;:WERELD$(0|
00000DA0: 2C 48 B0 2C 56 45 52 29 B2 4C 45 45 47 24 00 C7 |,H.,VER).LEEG$..|
00000DB0: 15 B0 2C 8D 20 31 31 33 36 30 3A 27 4E 41 41 52 |..,. 11360:'NAAR|
00000DC0: 20 52 45 43 48 54 53 00 CD 15 BA 2C 8E 00 EF 15 | RECHTS....,....|
00000DD0: C4 2C 8F 20 2A 2A 2A 2A 20 43 45 4C 20 42 45 57 |.,. **** CEL BEW|
00000DE0: 4F 4F 4E 44 20 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 |OOND MAKEN ****.|
00000DF0: 18 16 CE 2C 99 20 42 45 57 4F 91 44 24 3B 3A 57 |...,. BEWO.D$;:W|
00000E00: 45 52 45 4C 44 24 28 30 2C 48 B0 2C 56 45 52 29 |ERELD$(0,H.,VER)|
00000E10: B2 42 45 57 4F 91 44 24 00 31 16 D8 2C 8D 20 31 |.BEWO.D$.1..,. 1|
00000E20: 31 33 36 30 3A 27 4E 41 41 52 20 52 45 43 48 54 |1360:'NAAR RECHT|
00000E30: 53 00 37 16 E2 2C 8E 00 64 16 EC 2C 8F 20 2A 2A |S.7..,..d..,. **|
00000E40: 2A 2A 20 43 55 52 53 4F 52 20 56 45 52 50 4C 41 |** CURSOR VERPLA|
00000E50: 41 54 53 45 4E 20 49 4E 20 57 45 52 45 4C 44 20 |ATSEN IN WERELD |
00000E60: 2A 2A 2A 2A 00 6A 16 F6 2C 27 00 8F 16 00 2D 48 |****.j..,'....-H|
00000E70: 4F B2 53 54 41 52 54 58 AA 48 B0 3A 56 45 B2 53 |O.STARTX.H.:VE.S|
00000E80: 54 41 52 54 59 AA 56 45 52 3A 8D 20 31 31 30 00 |TARTY.VER:. 110.|
00000E90: 95 16 0A 2D 8E 00 B5 16 50 2D 8F 20 2A 2A 2A 2A |...-....P-. ****|
00000EA0: 20 57 45 52 45 4C 44 20 57 49 4A 5A 49 47 45 4E | WERELD WIJZIGEN|
00000EB0: 20 2A 2A 2A 2A 00 BB 16 5A 2D 27 00 E7 16 5F 2D | ****...Z-'..._-|
00000EC0: 8B 20 4F 55 44 AA 4E 49 45 55 57 B2 30 20 A7 20 |. OUD.NIEUW.0 . |
00000ED0: 8D 20 31 32 34 30 30 3A 8E 20 27 57 41 41 52 53 |. 12400:. 'WAARS|
00000EE0: 43 48 55 57 49 4E 47 00 01 17 64 2D 8D 20 32 35 |CHUWING...d-. 25|
00000EF0: 30 30 3A 27 49 4E 49 54 20 43 4F 4D 52 45 47 45 |00:'INIT COMREGE|
00000F00: 4C 00 1C 17 6E 2D 99 20 22 57 49 4A 5A 49 47 45 |L...n-. "WIJZIGE|
00000F10: 4E 20 49 4E 20 47 45 4E 20 30 22 3B 00 47 17 73 |N IN GEN 0";.G.s|
00000F20: 2D 8B 20 47 45 4E 4E 55 4D 4D 45 52 B1 31 20 A7 |-. GENNUMMER.1 .|
00000F30: 20 99 20 22 2C 20 22 3B C4 28 47 45 4E 4E 55 4D | . ", ";.(GENNUM|
00000F40: 4D 45 52 AB 31 29 3B 00 6D 17 78 2D 99 20 22 20 |MER.1);.m.x-. " |
00000F50: 4F 46 22 3B C4 28 47 45 4E 4E 55 4D 4D 45 52 29 |OF";.(GENNUMMER)|
00000F60: 3B 22 20 22 3B 50 52 4F 4D 50 54 24 3B 00 87 17 |;" ";PROMPT$;...|
00000F70: 82 2D 4B 53 45 54 24 B2 43 49 4A 46 45 52 24 3A |.-KSET$.CIJFER$:|
00000F80: 41 4E 54 57 C3 B2 33 00 9C 17 8C 2D 48 4F B2 48 |ANTW..3....-HO.H|
00000F90: 4F AA 33 34 3A 8D 20 32 30 30 30 30 00 B3 17 96 |O.34:. 20000....|
00000FA0: 2D 8B 20 41 4E 54 57 24 B2 22 22 20 A7 20 31 31 |-. ANTW$."" . 11|
00000FB0: 36 36 30 00 C2 17 A0 2D 41 B2 C5 28 41 4E 54 57 |660....-A..(ANTW|
00000FC0: 24 29 00 FB 17 AA 2D 8B 20 28 41 B3 B1 30 29 20 |$)....-. (A..0) |
00000FD0: AF 20 28 41 B3 B1 47 45 4E 4E 55 4D 4D 45 52 29 |. (A..GENNUMMER)|
00000FE0: 20 AF 20 28 41 B3 B1 47 45 4E 4E 55 4D 4D 45 52 | . (A..GENNUMMER|
00000FF0: AB 31 29 20 A7 20 31 31 36 32 30 00 0E 18 B4 2D |.1) . 11620....-|
00001000: 53 57 41 50 20 4F 55 44 2C 4E 49 45 55 57 00 28 |SWAP OUD,NIEUW.(|
00001010: 18 BE 2D 8B 20 47 45 4E 4E 55 4D 4D 45 52 B2 31 |..-. GENNUMMER.1|
00001020: 20 A7 20 4F 55 44 B2 30 00 44 18 C8 2D 8B 20 41 | . OUD.0.D..-. A|
00001030: B2 47 45 4E 4E 55 4D 4D 45 52 AB 31 20 A7 20 41 |.GENNUMMER.1 . A|
00001040: B2 4F 55 44 00 62 18 D2 2D 8B 20 41 B2 47 45 4E |.OUD.b..-. A.GEN|
00001050: 4E 55 4D 4D 45 52 20 20 20 A7 20 41 B2 4E 49 45 |NUMMER . A.NIE|
00001060: 55 57 00 83 18 DC 2D 8B 20 41 B1 30 20 A7 20 8D |UW....-. A.0 . .|
00001070: 20 31 32 33 30 30 3A 27 45 56 45 4E 20 47 45 44 | 12300:'EVEN GED|
00001080: 55 4C 44 00 AE 18 E6 2D 8B 20 41 B1 30 20 A7 20 |ULD....-. A.0 . |
00001090: 4E 49 45 55 57 B2 30 3A 4F 55 44 B2 41 3A 8D 20 |NIEUW.0:OUD.A:. |
000010A0: 31 33 30 30 30 3A 27 4B 4F 50 49 45 45 52 00 CC |13000:'KOPIEER..|
000010B0: 18 F0 2D 53 54 41 52 54 58 B2 41 AC 28 4D 41 58 |..-STARTX.A.(MAX|
000010C0: 42 52 45 45 44 54 45 AA 33 29 AA 31 00 F9 18 FA |BREEDTE.3).1....|
000010D0: 2D 47 45 4E 4E 55 4D 4D 45 52 B2 30 3A 8D 20 31 |-GENNUMMER.0:. 1|
000010E0: 34 32 30 30 3A 27 47 45 4E 4E 55 4D 4D 45 52 20 |4200:'GENNUMMER |
000010F0: 53 43 48 52 49 4A 56 45 4E 00 1A 19 04 2E 8D 20 |SCHRIJVEN...... |
00001100: 31 31 30 37 30 3A 27 4E 49 45 55 57 45 20 57 45 |11070:'NIEUWE WE|
00001110: 52 45 4C 44 20 4D 41 4B 45 4E 00 3F 19 0E 2E 8B |RELD MAKEN.?....|
00001120: 20 41 B1 30 20 A7 20 47 45 4E B2 30 3A 8D 20 31 | A.0 . GEN.0:. 1|
00001130: 34 30 30 30 3A 27 41 46 44 52 55 4B 4B 45 4E 00 |4000:'AFDRUKKEN.|
00001140: 65 19 18 2E 8D 20 31 34 35 30 30 3A 27 52 45 43 |e.... 14500:'REC|
00001150: 48 54 45 52 53 43 48 45 52 4D 20 53 43 48 4F 91 |HTERSCHERM SCHO.|
00001160: 4D 41 4B 45 4E 00 6B 19 72 2E 8E 00 8D 19 7C 2E |MAKEN.k.r.....|.|
00001170: 8F 20 2A 2A 2A 2A 20 49 4E 56 4F 45 52 20 42 45 |. **** INVOER BE|
00001180: 56 45 53 54 49 47 45 4E 20 2A 2A 2A 2A 00 93 19 |VESTIGEN ****...|
00001190: 86 2E 27 00 AD 19 90 2E 8D 20 32 35 30 30 3A 27 |..'...... 2500:'|
000011A0: 49 4E 49 54 20 43 4F 4D 52 45 47 45 4C 00 C8 19 |INIT COMREGEL...|
000011B0: 9A 2E 99 20 22 5A 4F 20 47 4F 45 44 20 3F 20 3C |... "ZO GOED ? <|
000011C0: 4A 2F 4E 3E 20 4A 22 3B 00 EB 19 A4 2E 4B 53 45 |J/N> J";.....KSE|
000011D0: 54 24 B2 22 4A 4A 4E 4E 22 3A 41 4E 54 57 C3 B2 |T$."JJNN":ANTW..|
000011E0: 31 3A 41 4E 54 57 24 B2 22 4A 22 00 00 1A AE 2E |1:ANTW$."J".....|
000011F0: 48 4F B2 48 4F AA 31 38 3A 8D 20 32 30 30 30 30 |HO.HO.18:. 20000|
00001200: 00 17 1A B8 2E 8B 20 41 4E 54 57 24 B2 22 22 20 |...... ANTW$."" |
00001210: A7 20 31 31 39 32 30 00 30 1A C2 2E 50 B2 49 4E |. 11920.0...P.IN|
00001220: 53 54 52 28 4B 53 45 54 24 2C 41 4E 54 57 24 29 |STR(KSET$,ANTW$)|
00001230: 00 36 1A D6 2E 8E 00 62 1A E0 2E 8F 20 2A 2A 2A |.6.....b.... ***|
00001240: 2A 20 4E 49 45 55 57 45 20 47 45 4E 45 52 41 54 |* NIEUWE GENERAT|
00001250: 49 45 53 20 42 45 52 45 4B 45 4E 45 4E 20 2A 2A |IES BEREKENEN **|
00001260: 2A 2A 00 68 1A EA 2E 27 00 94 1A EF 2E 8B 20 4F |**.h...'...... O|
00001270: 55 44 AA 4E 49 45 55 57 B2 30 20 A7 20 8D 20 31 |UD.NIEUW.0 . . 1|
00001280: 32 34 30 30 3A 8E 20 27 57 41 41 52 53 43 48 55 |2400:. 'WAARSCHU|
00001290: 57 49 4E 47 00 A8 1A F4 2E 8D 20 31 32 33 30 30 |WING...... 12300|
000012A0: 3A 27 47 45 44 55 4C 44 00 BD 1A FE 2E 81 20 48 |:'GEDULD...... H|
000012B0: B0 B2 31 20 A4 20 42 52 45 45 44 54 45 00 D2 1A |..1 . BREEDTE...|
000012C0: 08 2F 81 20 56 45 52 B2 31 20 A4 20 48 4F 4F 47 |./. VER.1 . HOOG|
000012D0: 54 45 00 E9 1A 12 2F 8D 20 31 32 32 30 30 3A 27 |TE..../. 12200:'|
000012E0: 54 45 4C 20 42 55 52 45 4E 00 09 1B 1C 2F 57 45 |TEL BUREN..../WE|
000012F0: 52 45 4C 44 24 28 4E 49 45 55 57 2C 48 B0 2C 56 |RELD$(NIEUW,H.,V|
00001300: 45 52 29 B2 4C 45 45 47 24 00 49 1B 26 2F 8B 20 |ER).LEEG$.I.&/. |
00001310: 41 41 4E 54 41 4C 42 55 52 45 4E B2 32 20 A7 20 |AANTALBUREN.2 . |
00001320: 57 45 52 45 4C 44 24 28 4E 49 45 55 57 2C 48 B0 |WERELD$(NIEUW,H.|
00001330: 2C 56 45 52 29 B2 57 45 52 45 4C 44 24 28 4F 55 |,VER).WERELD$(OU|
00001340: 44 2C 48 B0 2C 56 45 52 29 00 7D 1B 30 2F 8B 20 |D,H.,VER).}.0/. |
00001350: 41 41 4E 54 41 4C 42 55 52 45 4E B2 33 20 A7 20 |AANTALBUREN.3 . |
00001360: 57 45 52 45 4C 44 24 28 4E 49 45 55 57 2C 48 B0 |WERELD$(NIEUW,H.|
00001370: 2C 56 45 52 29 B2 42 45 57 4F 91 44 24 00 87 1B |,VER).BEWO.D$...|
00001380: 3A 2F 82 20 56 45 52 00 90 1B 44 2F 82 20 48 B0 |:/. VER...D/. H.|
00001390: 00 AA 1B 58 2F 47 45 4E 4E 55 4D 4D 45 52 B2 47 |...X/GENNUMMER.G|
000013A0: 45 4E 4E 55 4D 4D 45 52 AA 31 00 C0 1B 62 2F 47 |ENNUMMER.1...b/G|
000013B0: 45 4E B2 4E 49 45 55 57 3A 8D 20 31 34 30 30 30 |EN.NIEUW:. 14000|
000013C0: 00 D3 1B 6C 2F 53 57 41 50 20 4F 55 44 2C 4E 49 |...l/SWAP OUD,NI|
000013D0: 45 55 57 00 D9 1B 9E 2F 8E 00 08 1C A8 2F 8F 20 |EUW..../...../. |
000013E0: 2A 2A 2A 2A 20 54 45 4C 20 42 55 52 45 4E 20 4F |**** TEL BUREN O|
000013F0: 50 20 45 45 4E 20 50 4C 41 54 54 45 20 57 45 52 |P EEN PLATTE WER|
00001400: 45 4C 44 20 2A 2A 2A 2A 00 0E 1C B2 2F 27 00 20 |ELD ****..../'. |
00001410: 1C BC 2F 41 41 4E 54 41 4C 42 55 52 45 4E B2 30 |../AANTALBUREN.0|
00001420: 00 4A 1C C6 2F 81 20 48 B2 A5 4D 41 58 28 31 2C |.J../. H..MAX(1,|
00001430: 48 B0 AB 31 29 20 A4 20 A5 4D 49 4E 28 42 52 45 |H..1) . .MIN(BRE|
00001440: 45 44 54 45 2C 48 B0 AA 31 29 00 75 1C D0 2F 81 |EDTE,H..1).u../.|
00001450: 20 56 B2 A5 4D 41 58 28 31 2C 56 45 52 AB 31 29 | V..MAX(1,VER.1)|
00001460: 20 A4 20 A5 4D 49 4E 28 48 4F 4F 47 54 45 2C 56 | . .MIN(HOOGTE,V|
00001470: 45 52 AA 31 29 00 B0 1C DA 2F 8B 20 57 45 52 45 |ER.1)..../. WERE|
00001480: 4C 44 24 28 4F 55 44 2C 48 2C 56 29 B2 42 45 57 |LD$(OUD,H,V).BEW|
00001490: 4F 91 44 24 20 A7 20 41 41 4E 54 41 4C 42 55 52 |O.D$ . AANTALBUR|
000014A0: 45 4E B2 41 41 4E 54 41 4C 42 55 52 45 4E AA 31 |EN.AANTALBUREN.1|
000014B0: 00 B8 1C E4 2F 82 20 56 00 C0 1C EE 2F 82 20 48 |..../. V..../. H|
000014C0: 00 FE 1C F8 2F 8B 20 57 45 52 45 4C 44 24 28 4F |..../. WERELD$(O|
000014D0: 55 44 2C 48 B0 2C 56 45 52 29 B2 42 45 57 4F 91 |UD,H.,VER).BEWO.|
000014E0: 44 24 20 A7 20 41 41 4E 54 41 4C 42 55 52 45 4E |D$ . AANTALBUREN|
000014F0: B2 41 41 4E 54 41 4C 42 55 52 45 4E AB 31 00 04 |.AANTALBUREN.1..|
00001500: 1D 02 30 8E 00 1B 1D 0C 30 8F 20 2A 2A 2A 2A 20 |..0.....0. **** |
00001510: 47 45 44 55 4C 44 20 2A 2A 2A 2A 00 21 1D 16 30 |GEDULD ****.!..0|
00001520: 27 00 3B 1D 20 30 8D 20 32 35 30 30 3A 27 49 4E |'.;. 0. 2500:'IN|
00001530: 49 54 20 43 4F 4D 52 45 47 45 4C 00 50 1D 2A 30 |IT COMREGEL.P.*0|
00001540: 99 20 22 45 56 45 4E 20 47 45 44 55 4C 44 22 3B |. "EVEN GEDULD";|
00001550: 00 56 1D 66 30 8E 00 73 1D 70 30 8F 20 2A 2A 2A |.V.f0..s.p0. ***|
00001560: 2A 20 57 41 41 52 53 43 48 55 57 49 4E 47 20 2A |* WAARSCHUWING *|
00001570: 2A 2A 2A 00 79 1D 7A 30 27 00 93 1D 84 30 8D 20 |***.y.z0'....0. |
00001580: 32 35 30 30 3A 27 49 4E 49 54 20 43 4F 4D 52 45 |2500:'INIT COMRE|
00001590: 47 45 4C 00 BF 1D 8E 30 99 20 22 45 45 52 53 54 |GEL....0. "EERST|
000015A0: 20 4E 49 45 55 57 45 20 57 45 52 45 4C 44 20 4D | NIEUWE WERELD M|
000015B0: 41 4B 45 4E 21 20 3C 54 4F 45 54 53 3E 22 3B 00 |AKEN! <TOETS>";.|
000015C0: C9 1D 98 30 8D 20 32 31 30 00 CF 1D CA 30 8E 00 |...0. 210....0..|
000015D0: FC 1D D4 30 8F 20 2A 2A 2A 2A 20 4D 4F 44 45 4C |...0. **** MODEL|
000015E0: 20 56 41 4E 20 44 45 20 57 45 52 45 4C 44 20 57 | VAN DE WERELD W|
000015F0: 49 4A 5A 49 47 45 4E 20 2A 2A 2A 2A 00 02 1E DE |IJZIGEN ****....|
00001600: 30 27 00 15 1E E8 30 91 20 45 52 52 B0 20 89 20 |0'....0. ERR. . |
00001610: 31 32 37 39 35 00 55 1E F2 30 4B 49 45 53 24 B2 |12795.U..0KIES$.|
00001620: 22 4B 49 45 53 20 55 49 54 3A 20 31 29 20 50 4C |"KIES UIT: 1) PL|
00001630: 41 54 20 20 32 29 20 43 49 4C 49 4E 44 45 52 20 |AT 2) CILINDER |
00001640: 20 33 29 20 42 4F 4C 20 34 29 20 54 4F 52 55 53 | 3) BOL 4) TORUS|
00001650: 20 3A 20 31 22 00 6F 1E FC 30 8D 20 32 35 30 30 | : 1".o..0. 2500|
00001660: 3A 27 49 4E 49 54 20 43 4F 4D 52 45 47 45 4C 00 |:'INIT COMREGEL.|
00001670: 7C 1E 06 31 99 20 4B 49 45 53 24 3B 00 9F 1E 10 ||..1. KIES$;....|
00001680: 31 4B 53 45 54 24 B2 22 31 32 33 34 22 3A 41 4E |1KSET$."1234":AN|
00001690: 54 57 C3 B2 32 3A 41 4E 54 57 24 B2 22 31 22 00 |TW..2:ANTW$."1".|
000016A0: C4 1E 1A 31 48 4F B2 48 4F AA C3 28 50 52 4F 4D |...1HO.HO..(PROM|
000016B0: 50 54 24 AA 4B 49 45 53 24 29 AB 31 3A 8D 20 32 |PT$.KIES$).1:. 2|
000016C0: 30 30 30 30 00 D7 1E 24 31 4D 4F 44 45 4C B2 C5 |0000...$1MODEL..|
000016D0: 28 41 4E 54 57 24 29 00 F7 1E 2E 31 8B 20 4D 4F |(ANTW$)....1. MO|
000016E0: 44 45 4C B3 31 20 B0 20 4D 4F 44 45 4C B1 34 20 |DEL.1 . MODEL.4 |
000016F0: A7 20 31 32 35 32 30 00 1D 1F 38 31 91 20 4D 4F |. 12520...81. MO|
00001700: 44 45 4C 20 89 20 31 32 36 31 30 2C 31 32 36 32 |DEL . 12610,1262|
00001710: 30 2C 31 32 36 33 30 2C 31 32 36 34 30 00 3F 1F |0,12630,12640.?.|
00001720: 42 31 57 B0 4C 44 24 B2 22 50 4C 41 54 31 2D 36 |B1W.LD$."PLAT1-6|
00001730: 2E 42 41 53 22 20 20 3A 89 20 31 32 36 35 30 00 |.BAS" :. 12650.|
00001740: 61 1F 4C 31 57 B0 4C 44 24 B2 22 43 49 4C 49 4E |a.L1W.LD$."CILIN|
00001750: 44 31 2D 36 2E 42 41 53 22 3A 89 20 31 32 36 35 |D1-6.BAS":. 1265|
00001760: 30 00 83 1F 56 31 57 B0 4C 44 24 B2 22 42 4F 4C |0...V1W.LD$."BOL|
00001770: 31 2D 36 2E 42 41 53 22 20 20 20 3A 89 20 31 32 |1-6.BAS" :. 12|
00001780: 36 35 30 00 9C 1F 60 31 57 B0 4C 44 24 B2 22 54 |650...`1W.LD$."T|
00001790: 4F 52 55 53 31 2D 36 2E 42 41 53 22 00 A2 1F 6A |ORUS1-6.BAS"...j|
000017A0: 31 27 00 D3 1F 74 31 43 48 41 49 4E 20 4D 45 52 |1'...t1CHAIN MER|
000017B0: 47 45 20 57 B0 4C 44 24 2C 31 32 36 37 30 2C 41 |GE W.LD$,12670,A|
000017C0: 4C 4C 2C 44 45 88 45 20 31 32 32 30 30 AB 31 32 |LL,DE.E 12200.12|
000017D0: 32 39 30 00 EF 1F 7E 31 8D 20 31 30 35 30 30 3A |290...~1. 10500:|
000017E0: 27 4B 4F 50 24 20 41 41 4E 50 41 53 53 45 4E 00 |'KOP$ AANPASSEN.|
000017F0: 11 20 88 31 48 4F B2 31 3A 56 45 B2 31 3A 8D 20 |. .1HO.1:VE.1:. |
00001800: 31 31 30 3A 99 20 53 50 41 43 45 24 28 48 4D 29 |110:. SPACE$(HM)|
00001810: 3B 00 27 20 92 31 8D 20 32 31 33 30 30 3A 27 4B |;.' .1. 21300:'K|
00001820: 4F 50 4D 41 4B 45 4E 00 63 20 9C 31 89 20 31 31 |OPMAKEN.c .1. 11|
00001830: 32 30 3A 27 56 45 52 44 45 52 20 4D 45 54 20 4E |20:'VERDER MET N|
00001840: 49 45 55 57 20 4D 4F 44 45 4C 2C 20 41 4C 53 20 |IEUW MODEL, ALS |
00001850: 4D 45 52 47 45 20 CB 45 44 20 49 53 20 47 45 47 |MERGE .ED IS GEG|
00001860: 41 41 4E 00 69 20 F6 31 8E 00 89 20 FB 31 46 4F |AAN.i .1... .1FO|
00001870: 55 54 B2 34 3A 8D 20 31 38 30 30 30 3A 52 45 53 |UT.4:. 18000:RES|
00001880: 55 4D 45 20 31 32 37 39 30 00 AE 20 C8 32 8F 20 |UME 12790.. .2. |
00001890: 2A 2A 2A 2A 20 4B 4F 50 49 45 45 52 20 4F 55 44 |**** KOPIEER OUD|
000018A0: 20 49 4E 20 4E 49 45 55 57 20 2A 2A 2A 2A 00 B4 | IN NIEUW ****..|
000018B0: 20 D2 32 27 00 C8 20 DC 32 81 20 48 B2 31 20 A4 | .2'.. .2. H.1 .|
000018C0: 20 42 52 45 45 44 54 45 00 DB 20 E6 32 81 20 56 | BREEDTE.. .2. V|
000018D0: B2 31 20 A4 20 48 4F 4F 47 54 45 00 03 21 F0 32 |.1 . HOOGTE..!.2|
000018E0: 57 45 52 45 4C 44 24 28 4E 49 45 55 57 2C 48 2C |WERELD$(NIEUW,H,|
000018F0: 56 29 B2 57 45 52 45 4C 44 24 28 4F 55 44 2C 48 |V).WERELD$(OUD,H|
00001900: 2C 56 29 00 0B 21 FA 32 82 20 56 00 13 21 04 33 |,V)..!.2. V..!.3|
00001910: 82 20 48 00 19 21 22 33 8E 00 3A 21 B0 36 8F 20 |. H..!"3..:!.6. |
00001920: 2A 2A 2A 2A 20 57 45 52 45 4C 44 20 41 46 44 52 |**** WERELD AFDR|
00001930: 55 4B 4B 45 4E 20 2A 2A 2A 2A 00 5A 21 BA 36 53 |UKKEN ****.Z!.6S|
00001940: 54 41 52 54 58 B2 47 45 4E AC 28 4D 41 58 42 52 |TARTX.GEN.(MAXBR|
00001950: 45 45 44 54 45 AA 33 29 AA 31 00 8E 21 C4 36 8D |EEDTE.3).1..!.6.|
00001960: 20 31 34 32 30 30 3A 8D 20 31 34 33 30 30 3A 27 | 14200:. 14300:'|
00001970: 47 45 4E 4E 52 20 53 43 48 52 49 4A 56 45 4E 20 |GENNR SCHRIJVEN |
00001980: 45 4E 20 4B 41 44 45 52 20 4D 41 4B 45 4E 00 A1 |EN KADER MAKEN..|
00001990: 21 CE 36 81 20 56 B2 31 20 A4 20 48 4F 4F 47 54 |!.6. V.1 . HOOGT|
000019A0: 45 00 B5 21 D8 36 81 20 48 B2 31 20 A4 20 42 52 |E..!.6. H.1 . BR|
000019B0: 45 45 44 54 45 00 D7 21 E2 36 48 4F B2 53 54 41 |EEDTE..!.6HO.STA|
000019C0: 52 54 58 AA 48 3A 56 45 B2 53 54 41 52 54 59 AA |RTX.H:VE.STARTY.|
000019D0: 56 3A 8D 20 31 31 30 00 EF 21 EC 36 99 20 57 45 |V:. 110..!.6. WE|
000019E0: 52 45 4C 44 24 28 47 45 4E 2C 48 2C 56 29 3B 00 |RELD$(GEN,H,V);.|
000019F0: F7 21 F6 36 82 20 48 00 FF 21 00 37 82 20 56 00 |.!.6. H..!.7. V.|
00001A00: 05 22 0A 37 8E 00 2F 22 78 37 8F 20 2A 2A 2A 2A |.".7../"x7. ****|
00001A10: 20 47 45 4E 45 52 41 54 49 45 4E 55 4D 4D 45 52 | GENERATIENUMMER|
00001A20: 20 53 43 48 52 49 4A 56 45 4E 20 2A 2A 2A 2A 00 | SCHRIJVEN ****.|
00001A30: 35 22 82 37 27 00 48 22 8C 37 8B 20 47 45 4E B2 |5".7'.H".7. GEN.|
00001A40: 30 20 A7 20 47 47 B2 30 00 63 22 96 37 8B 20 47 |0 . GG.0.c".7. G|
00001A50: 45 4E B1 30 20 A7 20 47 47 B2 47 45 4E 4E 55 4D |EN.0 . GG.GENNUM|
00001A60: 4D 45 52 00 83 22 A0 37 48 4F B2 53 54 41 52 54 |MER..".7HO.START|
00001A70: 58 3A 56 45 B2 53 54 41 52 54 59 AB 31 3A 8D 20 |X:VE.STARTY.1:. |
00001A80: 31 31 30 00 98 22 AA 37 99 22 47 45 4E 45 52 41 |110..".7."GENERA|
00001A90: 54 49 45 22 3B 47 47 3B 00 9E 22 D2 37 8E 00 BA |TIE";GG;..".7...|
00001AA0: 22 DC 37 8F 20 2A 2A 2A 2A 20 4B 41 44 45 52 20 |".7. **** KADER |
00001AB0: 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 C0 22 E6 37 27 |MAKEN ****..".7'|
00001AC0: 00 EC 22 F0 37 53 54 52 45 45 50 24 B2 22 2B 22 |..".7STREEP$."+"|
00001AD0: AA 53 54 52 49 4E 47 24 28 42 52 45 45 44 54 45 |.STRING$(BREEDTE|
00001AE0: 2C C6 28 22 2D 22 29 29 AA 22 2B 22 00 10 23 FA |,.("-"))."+"..#.|
00001AF0: 37 56 4F B0 B2 53 54 41 52 54 58 3A 41 43 48 54 |7VO..STARTX:ACHT|
00001B00: 45 52 B2 56 4F B0 AA 42 52 45 45 44 54 45 AA 31 |ER.VO..BREEDTE.1|
00001B10: 00 2B 23 04 38 48 4F B2 56 4F B0 3A 56 45 B2 53 |.+#.8HO.VO.:VE.S|
00001B20: 54 41 52 54 59 3A 8D 20 31 31 30 00 39 23 0E 38 |TARTY:. 110.9#.8|
00001B30: 99 20 53 54 52 45 45 50 24 00 45 23 18 38 56 45 |. STREEP$.E#.8VE|
00001B40: B2 56 45 AA 31 00 58 23 22 38 81 20 49 B2 31 20 |.VE.1.X#"8. I.1 |
00001B50: A4 20 48 4F 4F 47 54 45 00 70 23 2C 38 48 4F B2 |. HOOGTE.p#,8HO.|
00001B60: 56 4F B0 3A 8D 20 31 31 30 3A 99 20 22 5C 22 3B |VO.:. 110:. "\";|
00001B70: 00 8B 23 36 38 48 4F B2 41 43 48 54 45 52 3A 8D |..#68HO.ACHTER:.|
00001B80: 20 31 31 30 3A 99 20 22 5C 22 3B 00 97 23 40 38 | 110:. "\";..#@8|
00001B90: 56 45 B2 56 45 AA 31 00 9F 23 4A 38 82 20 49 00 |VE.VE.1..#J8. I.|
00001BA0: BA 23 54 38 48 4F B2 56 4F B0 3A 8D 20 31 31 30 |.#T8HO.VO.:. 110|
00001BB0: 3A 99 20 53 54 52 45 45 50 24 00 C0 23 9A 38 8E |:. STREEP$..#.8.|
00001BC0: 00 E6 23 A4 38 8F 20 2A 2A 20 52 45 43 48 54 45 |..#.8. ** RECHTE|
00001BD0: 52 53 43 48 45 52 4D 20 53 43 48 4F 4F 4E 56 45 |RSCHERM SCHOONVE|
00001BE0: 47 45 4E 20 2A 2A 00 EC 23 AE 38 27 00 0A 24 B8 |GEN **..#.8'..$.|
00001BF0: 38 53 54 41 52 54 58 B2 32 AC 28 4D 41 58 42 52 |8STARTX.2.(MAXBR|
00001C00: 45 45 44 54 45 AA 33 29 AA 31 00 18 24 C2 38 48 |EEDTE.3).1..$.8H|
00001C10: 4F B2 53 54 41 52 54 58 00 36 24 CC 38 57 49 53 |O.STARTX.6$.8WIS|
00001C20: 24 B2 53 50 41 43 45 24 28 4D 41 58 42 52 45 45 |$.SPACE$(MAXBREE|
00001C30: 44 54 45 AA 32 29 00 5A 24 D6 38 81 20 56 45 B2 |DTE.2).Z$.8. VE.|
00001C40: 53 54 41 52 54 59 AB 31 20 A4 20 53 54 41 52 54 |STARTY.1 . START|
00001C50: 59 AA 48 4F 4F 47 54 45 AA 31 00 6C 24 E0 38 8D |Y.HOOGTE.1.l$.8.|
00001C60: 20 31 31 30 3A 99 20 57 49 53 24 3B 00 75 24 EA | 110:. WIS$;.u$.|
00001C70: 38 82 20 56 45 00 7B 24 F4 38 27 00 81 24 FE 38 |8. VE.{$.8'..$.8|
00001C80: 8E 00 9E 24 98 3A 8F 20 2A 2A 2A 2A 20 4E 41 41 |...$.:. **** NAA|
00001C90: 52 20 50 52 49 4E 54 45 52 20 2A 2A 2A 2A 00 A4 |R PRINTER ****..|
00001CA0: 24 A2 3A 27 00 B7 24 AC 3A 91 20 45 52 52 B0 20 |$.:'..$.:. ERR. |
00001CB0: 89 20 31 35 32 39 30 00 C9 24 FC 3A 4C 99 20 53 |. 15290..$.:L. S|
00001CC0: 43 48 45 49 44 49 4E 47 24 00 E7 24 06 3B 4C 99 |CHEIDING$..$.;L.|
00001CD0: 20 4B 4F 50 24 3B 22 20 5C 20 22 3B 4E 41 41 4D | KOP$;" \ ";NAAM|
00001CE0: 24 3B 22 20 5C 20 22 00 F9 24 10 3B 4C 99 20 53 |$;" \ "..$.;L. S|
00001CF0: 43 48 45 49 44 49 4E 47 24 00 0E 25 60 3B 81 20 |CHEIDING$..%`;. |
00001D00: 56 B2 33 20 A4 20 48 4F 4F 47 54 45 AA 35 00 2B |V.3 . HOOGTE.5.+|
00001D10: 25 6A 3B 81 20 48 B2 31 20 A4 20 33 AC 28 4D 41 |%j;. H.1 . 3.(MA|
00001D20: 58 42 52 45 45 44 54 45 AA 33 29 00 42 25 74 3B |XBREEDTE.3).B%t;|
00001D30: 4C 99 20 C7 28 53 43 52 45 45 4E 28 56 2C 48 29 |L. .(SCREEN(V,H)|
00001D40: 29 3B 00 4A 25 7E 3B 82 20 48 00 51 25 88 3B 4C |);.J%~;. H.Q%.;L|
00001D50: 99 00 59 25 92 3B 82 20 56 00 6B 25 9C 3B 4C 99 |..Y%.;. V.k%.;L.|
00001D60: 20 53 43 48 45 49 44 49 4E 47 24 00 80 25 A6 3B | SCHEIDING$..%.;|
00001D70: 81 20 49 B2 31 20 A4 20 33 3A 4C 99 3A 82 20 49 |. I.1 . 3:L.:. I|
00001D80: 00 86 25 B0 3B 8E 00 A6 25 BA 3B 46 4F 55 54 B2 |..%.;...%.;FOUT.|
00001D90: 37 3A 8D 20 31 38 30 30 30 3A 52 45 53 55 4D 45 |7:. 18000:RESUME|
00001DA0: 20 31 35 32 38 30 00 C5 25 80 3E 8F 20 2A 2A 2A | 15280..%.>. ***|
00001DB0: 2A 20 42 45 53 54 41 4E 44 53 42 45 48 45 45 52 |* BESTANDSBEHEER|
00001DC0: 20 2A 2A 2A 2A 00 CB 25 8A 3E 27 00 EB 25 E4 3E | ****..%.>'..%.>|
00001DD0: 8F 20 2A 2A 2A 2A 20 4C 45 45 53 20 56 41 4E 20 |. **** LEES VAN |
00001DE0: 53 43 48 49 4A 46 20 2A 2A 2A 2A 00 F1 25 EE 3E |SCHIJF ****..%.>|
00001DF0: 27 00 0A 26 F8 3E 8D 20 31 36 39 30 30 3A 27 4E |'..&.>. 16900:'N|
00001E00: 41 41 4D 20 56 52 41 47 45 4E 00 29 26 02 3F 8D |AAM VRAGEN.)&.?.|
00001E10: 20 32 31 35 30 30 3A 27 57 45 52 45 4C 44 20 53 | 21500:'WERELD S|
00001E20: 43 48 4F 91 4D 41 4B 45 4E 00 40 26 0C 3F 4E 41 |CHO.MAKEN.@&.?NA|
00001E30: 41 4D 24 B2 41 4E 54 57 24 AA 22 2E 4C 49 46 22 |AM$.ANTW$.".LIF"|
00001E40: 00 53 26 16 3F 91 20 45 52 52 B0 20 89 20 31 36 |.S&.?. ERR. . 16|
00001E50: 33 39 30 00 69 26 48 3F 9F 20 4E 41 41 4D 24 20 |390.i&H?. NAAM$ |
00001E60: 81 20 85 20 41 53 20 23 31 00 7B 26 52 3F 45 52 |. . AS #1.{&R?ER|
00001E70: 41 53 45 20 57 45 52 45 4C 44 24 00 93 26 5C 3F |ASE WERELD$..&\?|
00001E80: 85 20 23 31 2C 42 52 45 45 44 54 45 2C 48 4F 4F |. #1,BREEDTE,HOO|
00001E90: 47 54 45 00 B3 26 66 3F 86 20 57 45 52 45 4C 44 |GTE..&f?. WERELD|
00001EA0: 24 28 32 2C 42 52 45 45 44 54 45 2C 48 4F 4F 47 |$(2,BREEDTE,HOOG|
00001EB0: 54 45 29 00 C8 26 70 3F 81 20 56 45 52 B2 31 20 |TE)..&p?. VER.1 |
00001EC0: A4 20 48 4F 4F 47 54 45 00 DD 26 7A 3F 81 20 48 |. HOOGTE..&z?. H|
00001ED0: B0 B2 31 20 A4 20 42 52 45 45 44 54 45 00 F8 26 |..1 . BREEDTE..&|
00001EE0: 84 3F 85 20 23 31 2C 57 45 52 45 4C 44 24 28 30 |.?. #1,WERELD$(0|
00001EF0: 2C 48 B0 2C 56 45 52 29 00 01 27 8E 3F 82 20 48 |,H.,VER)..'.?. H|
00001F00: B0 00 0B 27 98 3F 82 20 56 45 52 00 11 27 A2 3F |...'.?. VER..'.?|
00001F10: A0 00 17 27 AC 3F 27 00 34 27 B6 3F 47 45 4E B2 |...'.?'.4'.?GEN.|
00001F20: 30 3A 8D 20 31 34 30 30 30 3A 27 41 46 44 52 55 |0:. 14000:'AFDRU|
00001F30: 4B 4B 45 4E 00 5F 27 C0 3F 8D 20 31 31 32 30 30 |KKEN._'.?. 11200|
00001F40: 3A 27 31 45 20 47 45 4E 20 42 45 52 45 4B 45 4E |:'1E GEN BEREKEN|
00001F50: 45 4E 20 45 4E 20 41 46 44 52 55 4B 4B 45 4E 00 |EN EN AFDRUKKEN.|
00001F60: 65 27 FC 3F 8E 00 85 27 06 40 46 4F 55 54 B2 35 |e'.?...'.@FOUT.5|
00001F70: 3A 8D 20 31 38 30 30 30 3A 52 45 53 55 4D 45 20 |:. 18000:RESUME |
00001F80: 31 36 33 38 30 00 A1 27 10 40 8F 20 2A 2A 2A 2A |16380..'.@. ****|
00001F90: 20 4E 41 41 52 20 53 43 48 49 4A 46 20 2A 2A 2A | NAAR SCHIJF ***|
00001FA0: 2A 00 A7 27 1A 40 27 00 D3 27 1F 40 8B 20 4F 55 |*..'.@'..'.@. OU|
00001FB0: 44 AA 4E 49 45 55 57 B2 30 20 A7 20 8D 20 31 32 |D.NIEUW.0 . . 12|
00001FC0: 34 30 30 3A 8E 20 27 57 41 41 52 53 43 48 55 57 |400:. 'WAARSCHUW|
00001FD0: 49 4E 47 00 EC 27 24 40 8D 20 31 36 39 30 30 3A |ING..'$@. 16900:|
00001FE0: 27 4E 41 41 4D 20 56 52 41 47 45 4E 00 03 28 2E |'NAAM VRAGEN..(.|
00001FF0: 40 4E 41 41 4D 24 B2 41 4E 54 57 24 AA 22 2E 4C |@NAAM$.ANTW$.".L|
00002000: 49 46 22 00 16 28 38 40 91 20 45 52 52 B0 20 89 |IF"..(8@. ERR. .|
00002010: 20 31 36 35 39 30 00 31 28 74 40 9F 20 4E 41 41 | 16590.1(t@. NAA|
00002020: 4D 24 20 81 20 4F 55 54 50 55 54 20 41 53 20 23 |M$ . OUTPUT AS #|
00002030: 31 00 4D 28 7E 40 57 52 49 54 45 20 23 31 2C 42 |1.M(~@WRITE #1,B|
00002040: 52 45 45 44 54 45 2C 48 4F 4F 47 54 45 00 62 28 |REEDTE,HOOGTE.b(|
00002050: 88 40 81 20 56 45 52 B2 31 20 A4 20 48 4F 4F 47 |.@. VER.1 . HOOG|
00002060: 54 45 00 77 28 92 40 81 20 48 B0 B2 31 20 A4 20 |TE.w(.@. H..1 . |
00002070: 42 52 45 45 44 54 45 00 96 28 9C 40 57 52 49 54 |BREEDTE..(.@WRIT|
00002080: 45 20 23 31 2C 57 45 52 45 4C 44 24 28 30 2C 48 |E #1,WERELD$(0,H|
00002090: B0 2C 56 45 52 29 00 9F 28 A6 40 82 20 48 B0 00 |.,VER)..(.@. H..|
000020A0: A9 28 B0 40 82 20 56 45 52 00 AF 28 BA 40 A0 00 |.(.@. VER..(.@..|
000020B0: B5 28 C4 40 8E 00 D5 28 CE 40 46 4F 55 54 B2 34 |.(.@...(.@FOUT.4|
000020C0: 3A 8D 20 31 38 30 30 30 3A 52 45 53 55 4D 45 20 |:. 18000:RESUME |
000020D0: 31 36 35 38 30 00 03 29 3C 41 8F 20 2A 2A 2A 2A |16580..)<A. ****|
000020E0: 20 4F 56 45 52 5A 49 43 48 54 20 42 45 53 54 41 | OVERZICHT BESTA|
000020F0: 4E 44 45 4E 20 4F 50 20 53 43 48 49 4A 46 20 2A |NDEN OP SCHIJF *|
00002100: 2A 2A 2A 00 09 29 46 41 27 00 28 29 50 41 8D 20 |***..)FA'.()PA. |
00002110: 32 31 35 30 30 3A 27 57 45 52 45 4C 44 20 53 43 |21500:'WERELD SC|
00002120: 48 4F 91 4D 41 4B 45 4E 00 41 29 5A 41 48 4F B2 |HO.MAKEN.A)ZAHO.|
00002130: 31 3A 56 45 B2 53 54 41 52 54 59 3A 8D 20 31 31 |1:VE.STARTY:. 11|
00002140: 30 00 70 29 64 41 99 20 22 4F 56 45 52 5A 49 43 |0.p)dA. "OVERZIC|
00002150: 48 54 20 56 41 4E 20 4C 49 46 45 2D 42 45 53 54 |HT VAN LIFE-BEST|
00002160: 41 4E 44 45 4E 20 4F 50 20 53 43 48 49 4A 46 22 |ANDEN OP SCHIJF"|
00002170: 00 7C 29 6E 41 56 45 B2 56 45 AA 32 00 8F 29 78 |.|)nAVE.VE.2..)x|
00002180: 41 91 20 45 52 52 B0 20 89 20 31 36 37 39 30 00 |A. ERR. . 16790.|
00002190: A1 29 82 41 46 49 4C 45 53 20 22 2A 2E 4C 49 46 |.).AFILES "*.LIF|
000021A0: 22 00 A7 29 8C 41 8E 00 C7 29 96 41 46 4F 55 54 |"..).A...).AFOUT|
000021B0: B2 36 3A 8D 20 31 38 30 30 30 3A 52 45 53 55 4D |.6:. 18000:RESUM|
000021C0: 45 20 31 36 37 38 30 00 E3 29 04 42 8F 20 2A 2A |E 16780..).B. **|
000021D0: 2A 2A 20 4E 41 41 4D 20 56 52 41 47 45 4E 20 2A |** NAAM VRAGEN *|
000021E0: 2A 2A 2A 00 E9 29 0E 42 27 00 0E 2A 18 42 8D 20 |***..).B'..*.B. |
000021F0: 31 31 30 3A 99 20 22 4E 41 41 4D 20 42 45 53 54 |110:. "NAAM BEST|
00002200: 41 4E 44 3A 22 3B 50 52 4F 4D 50 54 24 3B 00 1B |AND:";PROMPT$;..|
00002210: 2A 22 42 48 4F B2 48 4F AA 31 36 00 43 2A 2C 42 |*"BHO.HO.16.C*,B|
00002220: 41 4E 54 57 C3 B2 38 3A 4B 53 45 54 24 B2 41 4C |ANTW..8:KSET$.AL|
00002230: 46 41 24 AA 43 49 4A 46 45 52 24 3A 8D 20 32 30 |FA$.CIJFER$:. 20|
00002240: 30 30 30 00 49 2A 5E 42 8E 00 65 2A 68 42 8F 20 |000.I*^B..e*hB. |
00002250: 2A 2A 2A 2A 20 42 45 2D 45 49 4E 44 49 47 45 4E |**** BE-EINDIGEN|
00002260: 20 2A 2A 2A 2A 00 6B 2A 72 42 27 00 85 2A 7C 42 | ****.k*rB'..*|B|
00002270: 8D 20 32 35 30 30 3A 27 49 4E 49 54 20 43 4F 4D |. 2500:'INIT COM|
00002280: 52 45 47 45 4C 00 A8 2A 86 42 99 20 22 57 49 4C |REGEL..*.B. "WIL|
00002290: 20 4A 45 20 53 54 4F 50 50 45 4E 20 3F 20 3C 4A | JE STOPPEN ? <J|
000022A0: 2F 4E 3E 20 20 4E 22 3B 00 CB 2A 90 42 4B 53 45 |/N> N";..*.BKSE|
000022B0: 54 24 B2 22 4A 4A 4E 4E 22 3A 41 4E 54 57 C3 B2 |T$."JJNN":ANTW..|
000022C0: 31 3A 41 4E 54 57 24 B2 22 4E 22 00 E0 2A 9A 42 |1:ANTW$."N"..*.B|
000022D0: 48 4F B2 48 4F AA 32 36 3A 8D 20 32 30 30 30 30 |HO.HO.26:. 20000|
000022E0: 00 F7 2A 9F 42 8B 20 41 4E 54 57 24 B2 22 22 20 |..*.B. ANTW$."" |
000022F0: A7 20 31 37 30 32 30 00 2A 2B A4 42 8B 20 49 4E |. 17020.*+.B. IN|
00002300: 53 54 52 28 4B 53 45 54 24 2C 41 4E 54 57 24 29 |STR(KSET$,ANTW$)|
00002310: B1 32 20 A7 20 8D 20 32 30 30 30 3A 8E 20 27 4C |.2 . . 2000:. 'L|
00002320: 45 45 53 20 43 4F 4D 4D AF 4F 00 4C 2B AE 42 91 |EES COMM.O.L+.B.|
00002330: 20 45 52 52 B0 20 89 20 30 20 27 45 52 52 B0 20 | ERR. . 0 'ERR. |
00002340: 54 52 41 50 50 49 4E 47 20 55 49 54 00 56 2B B8 |TRAPPING UIT.V+.|
00002350: 42 4B 45 59 20 91 00 5C 2B C2 42 8E 00 86 2B 50 |BKEY ..\+.B...+P|
00002360: 46 8F 20 2A 2A 2A 2A 20 53 59 53 54 45 45 4D 46 |F. **** SYSTEEMF|
00002370: 4F 55 54 45 4E 20 41 46 48 41 4E 44 45 4C 45 4E |OUTEN AFHANDELEN|
00002380: 20 2A 2A 2A 2A 2A 00 8C 2B 5A 46 27 00 98 2B 64 | *****..+ZF'..+d|
00002390: 46 8C 20 32 35 33 30 30 00 AB 2B 6E 46 87 20 46 |F. 25300..+nF. F|
000023A0: 4F 55 54 4E 52 2C 46 4F 55 54 24 00 C2 2B 78 46 |OUTNR,FOUT$..+xF|
000023B0: 57 48 49 4C 45 20 46 4F 55 54 4E 52 B3 B1 46 4F |WHILE FOUTNR..FO|
000023C0: 55 54 00 D5 2B 82 46 87 20 46 4F 55 54 4E 52 2C |UT..+.F. FOUTNR,|
000023D0: 46 4F 55 54 24 00 DC 2B 8C 46 57 80 00 ED 2B 96 |FOUT$..+.FW...+.|
000023E0: 46 8D 20 32 35 30 30 3A 8D 20 31 31 30 00 15 2C |F. 2500:. 110..,|
000023F0: A0 46 99 20 46 4F 55 54 24 3B 22 2E 20 54 4F 45 |.F. FOUT$;". TOE|
00002400: 54 53 20 4F 4D 20 44 4F 4F 52 20 54 45 20 47 41 |TS OM DOOR TE GA|
00002410: 41 4E 2E 22 3B 00 1F 2C AA 46 8D 20 32 31 30 00 |AN.";..,.F. 210.|
00002420: 2A 2C B4 46 46 4F 55 54 B2 30 00 30 2C 0E 47 8E |*,.FFOUT.0.0,.G.|
00002430: 00 53 2C 38 4A 8F 20 2A 2A 2A 2A 20 57 45 52 45 |.S,8J. **** WERE|
00002440: 4C 44 4D 41 54 45 4E 20 56 52 41 47 45 4E 20 2A |LDMATEN VRAGEN *|
00002450: 2A 2A 2A 00 59 2C 42 4A 27 00 78 2C 4C 4A 8D 20 |***.Y,BJ'.x,LJ. |
00002460: 32 31 35 30 30 3A 27 57 45 52 45 4C 44 20 53 43 |21500:'WERELD SC|
00002470: 48 4F 91 4D 41 4B 45 4E 00 92 2C 56 4A 8D 20 32 |HO.MAKEN..,VJ. 2|
00002480: 35 30 30 3A 27 49 4E 49 54 20 43 4F 4D 52 45 47 |500:'INIT COMREG|
00002490: 45 4C 00 BC 2C 60 4A 99 20 22 47 45 45 46 20 42 |EL..,`J. "GEEF B|
000024A0: 52 45 45 44 54 45 2C 20 4D 41 58 3A 22 3B C4 28 |REEDTE, MAX:";.(|
000024B0: 4D 41 58 42 52 45 45 44 54 45 29 3B 00 EA 2C 6A |MAXBREEDTE);..,j|
000024C0: 4A 4B 53 45 54 24 B2 43 49 4A 46 45 52 24 3A 41 |JKSET$.CIJFER$:A|
000024D0: 4E 54 57 C3 B2 33 3A 41 4E 54 57 24 B2 C4 28 4D |NTW..3:ANTW$..(M|
000024E0: 41 58 42 52 45 45 44 54 45 29 00 08 2D 74 4A 48 |AXBREEDTE)..-tJH|
000024F0: 4F B2 48 4F AA 32 31 3A 8D 20 32 30 30 30 30 3A |O.HO.21:. 20000:|
00002500: 20 27 49 4E 56 4F 45 52 00 1D 2D 7E 4A 42 52 45 | 'INVOER..-~JBRE|
00002510: 45 44 54 45 B2 C5 28 41 4E 54 57 24 29 00 4A 2D |EDTE..(ANTW$).J-|
00002520: 88 4A 8B 20 42 52 45 45 44 54 45 B1 4D 41 58 42 |.J. BREEDTE.MAXB|
00002530: 52 45 45 44 54 45 20 B0 20 42 52 45 45 44 54 45 |REEDTE . BREEDTE|
00002540: B2 30 20 A7 20 31 39 30 33 30 00 70 2D 92 4A 48 |.0 . 19030.p-.JH|
00002550: 4F B2 48 4F AA 36 3A 8D 20 31 31 30 3A 99 20 53 |O.HO.6:. 110:. S|
00002560: 50 41 43 45 24 28 32 32 29 3B 3A 8D 20 31 31 30 |PACE$(22);:. 110|
00002570: 00 9C 2D 9C 4A 99 20 22 47 45 45 46 20 48 4F 4F |..-.J. "GEEF HOO|
00002580: 47 54 45 2C 20 4D 41 58 3A 22 3B C4 28 4D 41 58 |GTE, MAX:";.(MAX|
00002590: 48 4F 4F 47 54 45 29 3B 22 20 22 3B 00 B3 2D A6 |HOOGTE);" ";..-.|
000025A0: 4A 41 4E 54 57 24 B2 C4 28 4D 41 58 48 4F 4F 47 |JANTW$..(MAXHOOG|
000025B0: 54 45 29 00 C8 2D B0 4A 48 4F B2 48 4F AA 31 38 |TE)..-.JHO.HO.18|
000025C0: 3A 8D 20 32 30 30 30 30 00 DC 2D BA 4A 48 4F 4F |:. 20000..-.JHOO|
000025D0: 47 54 45 B2 C5 28 41 4E 54 57 24 29 00 11 2E C4 |GTE..(ANTW$)....|
000025E0: 4A 8B 20 48 4F 4F 47 54 45 B1 4D 41 58 48 4F 4F |J. HOOGTE.MAXHOO|
000025F0: 47 54 45 20 B0 20 48 4F 4F 47 54 45 B2 30 20 A7 |GTE . HOOGTE.0 .|
00002600: 20 48 4F B2 48 4F AB 32 34 3A 89 20 31 39 30 39 | HO.HO.24:. 1909|
00002610: 30 00 23 2E EC 4A 45 52 41 53 45 20 57 45 52 45 |0.#..JERASE WERE|
00002620: 4C 44 24 00 43 2E F6 4A 86 20 57 45 52 45 4C 44 |LD$.C..J. WERELD|
00002630: 24 28 32 2C 42 52 45 45 44 54 45 2C 48 4F 4F 47 |$(2,BREEDTE,HOOG|
00002640: 54 45 29 00 61 2E 00 4B 47 45 4E 4E 55 4D 4D 45 |TE).a..KGENNUMME|
00002650: 52 B2 30 3A 4F 55 44 B2 30 3A 4E 49 45 55 57 B2 |R.0:OUD.0:NIEUW.|
00002660: 30 00 67 2E 5A 4B 8E 00 86 2E 20 4E 8F 20 2A 2A |0.g.ZK.... N. **|
00002670: 2A 2A 20 49 4E 56 4F 45 52 20 52 4F 55 54 49 4E |** INVOER ROUTIN|
00002680: 45 20 2A 2A 2A 2A 00 8C 2E 2A 4E 27 00 A4 2E 34 |E ****...*N'...4|
00002690: 4E 8D 20 32 31 30 3A 8B 20 49 4E 24 B2 52 54 24 |N. 210:. IN$.RT$|
000026A0: 20 A7 20 8E 00 B6 2E 3E 4E 41 4B B2 30 3A 41 4E | . ....>NAK.0:AN|
000026B0: 54 57 24 B2 22 22 00 D7 2E 52 4E 8D 20 31 31 30 |TW$.""...RN. 110|
000026C0: 3A 99 20 53 50 41 43 45 24 28 41 4E 54 57 C3 29 |:. SPACE$(ANTW.)|
000026D0: 3B 3A 8D 20 31 31 30 00 F5 2E 5C 4E 57 48 49 4C |;:. 110...\NWHIL|
000026E0: 45 20 41 4B B3 41 4E 54 57 C3 20 AF 20 49 4E 24 |E AK.ANTW. . IN$|
000026F0: B3 B1 52 54 24 00 07 2F 66 4E 57 48 49 4C 45 20 |..RT$../fNWHILE |
00002700: 49 4E 24 B2 42 53 24 00 22 2F 70 4E 8D 20 31 31 |IN$.BS$."/pN. 11|
00002710: 30 3A 99 20 53 50 41 43 45 24 28 41 4E 54 57 C3 |0:. SPACE$(ANTW.|
00002720: 29 3B 00 3A 2F 7A 4E 8D 20 31 31 30 3A 41 4E 54 |);.:/zN. 110:ANT|
00002730: 57 24 B2 22 22 3A 41 4B B2 30 00 44 2F 84 4E 8D |W$."":AK.0.D/.N.|
00002740: 20 32 31 30 00 4B 2F 8E 4E 57 80 00 85 2F 98 4E | 210.K/.NW.../.N|
00002750: 8B 20 49 4E 53 54 52 28 4B 53 45 54 24 2C 49 4E |. INSTR(KSET$,IN|
00002760: 24 29 B1 30 20 A7 20 99 20 49 4E 24 3B 3A 41 4E |$).0 . . IN$;:AN|
00002770: 54 57 24 B2 41 4E 54 57 24 AA 49 4E 24 3A 41 4B |TW$.ANTW$.IN$:AK|
00002780: B2 41 4B AA 31 00 8F 2F A2 4E 8D 20 32 31 30 00 |.AK.1../.N. 210.|
00002790: 96 2F AC 4E 57 80 00 9C 2F DE 4E 8E 00 BD 2F 08 |./.NW.../.N.../.|
000027A0: 52 8F 20 2A 2A 2A 2A 20 48 55 4C 50 53 43 48 45 |R. **** HULPSCHE|
000027B0: 52 4D 20 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 C3 2F |RM MAKEN ****../|
000027C0: 12 52 27 00 CF 2F 1C 52 8C 20 32 35 31 30 30 00 |.R'../.R. 25100.|
000027D0: DE 2F 26 52 87 20 4D 41 58 49 4E 44 45 58 00 F3 |./&R. MAXINDEX..|
000027E0: 2F 30 52 81 20 49 B2 30 20 A4 20 4D 41 58 49 4E |/0R. I.0 . MAXIN|
000027F0: 44 45 58 00 FF 2F 3A 52 87 20 43 24 28 49 29 00 |DEX../:R. C$(I).|
00002800: 07 30 44 52 82 20 49 00 0D 30 62 52 27 00 29 30 |.0DR. I..0bR'.)0|
00002810: 6C 52 41 41 4E 54 52 45 47 45 4C 53 B2 4D 41 58 |lRAANTREGELS.MAX|
00002820: 49 4E 44 45 58 B3 33 AA 31 00 48 30 76 52 43 4F |INDEX.3.1.H0vRCO|
00002830: 4D 52 45 47 45 4C B2 56 4D AB 28 41 41 4E 54 52 |MREGEL.VM.(AANTR|
00002840: 45 47 45 4C 53 AA 31 29 00 65 30 80 52 48 4F B2 |EGELS.1).e0.RHO.|
00002850: 31 3A 56 45 B2 43 4F 4D 52 45 47 45 4C AA 31 3A |1:VE.COMREGEL.1:|
00002860: 8D 20 31 31 30 00 77 30 8A 52 99 20 53 43 48 45 |. 110.w0.R. SCHE|
00002870: 49 44 49 4E 47 24 3B 00 7D 30 94 52 27 00 94 30 |IDING$;.}0.R'..0|
00002880: 9E 52 27 54 45 4B 53 54 45 4E 20 41 46 44 52 55 |.R'TEKSTEN AFDRU|
00002890: 4B 4B 45 4E 00 A9 30 A8 52 81 20 49 B2 30 20 A4 |KKEN..0.R. I.0 .|
000028A0: 20 4D 41 58 49 4E 44 45 58 00 E9 30 B2 52 48 4F | MAXINDEX..0.RHO|
000028B0: B2 28 49 B3 41 41 4E 54 52 45 47 45 4C 53 29 AC |.(I.AANTREGELS).|
000028C0: 28 48 4D B3 33 29 AA 31 3A 56 45 B2 43 4F 4D 52 |(HM.3).1:VE.COMR|
000028D0: 45 47 45 4C AA 32 AA 28 49 20 4D 4F 44 20 41 41 |EGEL.2.(I MOD AA|
000028E0: 4E 54 52 45 47 45 4C 53 29 00 FC 30 BC 52 8D 20 |NTREGELS)..0.R. |
000028F0: 31 31 30 3A 99 20 43 24 28 49 29 3B 00 04 31 C6 |110:. C$(I);..1.|
00002900: 52 82 20 49 00 33 31 D0 52 27 50 4C 41 41 54 53 |R. I.31.R'PLAATS|
00002910: 20 56 45 52 54 49 43 41 4C 45 20 4C 49 4A 4E 45 | VERTICALE LIJNE|
00002920: 4E 20 54 55 53 53 45 4E 20 33 20 4B 4F 4C 4F 4D |N TUSSEN 3 KOLOM|
00002930: 4D 45 4E 00 4A 31 DA 52 81 20 49 B2 31 20 A4 20 |MEN.J1.R. I.1 . |
00002940: 41 41 4E 54 52 45 47 45 4C 53 00 5E 31 E4 52 56 |AANTREGELS.^1.RV|
00002950: 45 B2 43 4F 4D 52 45 47 45 4C AA 31 AA 49 00 6D |E.COMREGEL.1.I.m|
00002960: 31 EE 52 81 20 49 49 B2 31 20 A4 20 32 00 7E 31 |1.R. II.1 . 2.~1|
00002970: F8 52 48 4F B2 49 49 AC 28 48 4D B3 33 29 00 8F |.RHO.II.(HM.3)..|
00002980: 31 02 53 8D 20 31 31 30 3A 99 20 22 5C 22 3B 00 |1.S. 110:. "\";.|
00002990: 98 31 0C 53 82 20 49 49 00 A0 31 16 53 82 20 49 |.1.S. II..1.S. I|
000029A0: 00 A6 31 2A 53 8E 00 C0 31 34 53 8F 20 2A 2A 2A |..1*S...14S. ***|
000029B0: 2A 20 4B 4F 50 20 4D 41 4B 45 4E 20 2A 2A 2A 2A |* KOP MAKEN ****|
000029C0: 00 C6 31 3E 53 27 00 D5 31 48 53 4C 4B B2 C3 28 |..1>S'..1HSLK..(|
000029D0: 4B 4F 50 24 29 00 F1 31 5C 53 48 4F B2 48 4D B3 |KOP$)..1\SHO.HM.|
000029E0: 32 AB 4C 4B B3 32 3A 56 45 B2 31 3A 8D 20 31 31 |2.LK.2:VE.1:. 11|
000029F0: 30 00 FC 31 66 53 99 20 4B 4F 50 24 00 0D 32 70 |0..1fS. KOP$..2p|
00002A00: 53 99 20 53 43 48 45 49 44 49 4E 47 24 00 13 32 |S. SCHEIDING$..2|
00002A10: 8E 53 8E 00 36 32 FC 53 8F 20 2A 2A 2A 2A 20 57 |.S..62.S. **** W|
00002A20: 45 52 45 4C 44 20 53 43 48 4F 4F 4E 4D 41 4B 45 |ERELD SCHOONMAKE|
00002A30: 4E 20 2A 2A 2A 2A 00 3C 32 06 54 27 00 4A 32 10 |N ****.<2.T'.J2.|
00002A40: 54 56 56 B2 31 3A 48 4F B2 31 00 6A 32 1A 54 81 |TVV.1:HO.1.j2.T.|
00002A50: 20 56 45 B2 53 54 41 52 54 59 AB 31 20 A4 20 56 | VE.STARTY.1 . V|
00002A60: 56 AA 48 4F 4F 47 54 45 AA 34 00 84 32 24 54 8D |V.HOOGTE.4..2$T.|
00002A70: 20 31 31 30 3A 99 20 53 50 41 43 45 24 28 48 4D | 110:. SPACE$(HM|
00002A80: AB 31 29 3B 00 8D 32 2E 54 82 20 56 45 00 93 32 |.1);..2.T. VE..2|
00002A90: 56 54 8E 00 B5 32 60 54 8F 20 2A 2A 2A 2A 20 57 |VT...2`T. **** W|
00002AA0: 45 52 45 4C 44 20 4C 45 45 47 20 4D 41 4B 45 4E |ERELD LEEG MAKEN|
00002AB0: 20 2A 2A 2A 2A 00 BB 32 6A 54 27 00 CF 32 74 54 | ****..2jT'..2tT|
00002AC0: 81 20 48 B2 31 20 A4 20 42 52 45 45 44 54 45 00 |. H.1 . BREEDTE.|
00002AD0: E2 32 7E 54 81 20 56 B2 31 20 A4 20 48 4F 4F 47 |.2~T. V.1 . HOOG|
00002AE0: 54 45 00 FD 32 88 54 57 45 52 45 4C 44 24 28 47 |TE..2.TWERELD$(G|
00002AF0: 45 4E 2C 48 2C 56 29 B2 4C 45 45 47 24 00 05 33 |EN,H,V).LEEG$..3|
00002B00: 92 54 82 20 56 00 0D 33 9C 54 82 20 48 00 13 33 |.T. V..3.T. H..3|
00002B10: BA 54 8E 00 2C 33 A8 61 8F 20 2A 2A 2A 2A 20 44 |.T..,3.a. **** D|
00002B20: 41 54 41 42 4C 4F 4B 20 2A 2A 2A 2A 00 32 33 B2 |ATABLOK ****.23.|
00002B30: 61 27 00 4D 33 0C 62 8F 20 2A 2A 2A 2A 20 43 4F |a'.M3.b. **** CO|
00002B40: 4D 4D 41 4E 44 4F 27 53 20 2A 2A 2A 2A 00 7B 33 |MMANDO'S ****.{3|
00002B50: 16 62 83 20 38 3A 27 4D 41 58 49 4D 55 4D AB 49 |.b. 8:'MAXIMUM.I|
00002B60: 4E 44 45 58 20 56 41 4E 20 41 52 52 41 59 20 4D |NDEX VAN ARRAY M|
00002B70: 45 54 20 43 4F 4D 4D AF 4F 27 53 00 97 33 20 62 |ET COMM.O'S..3 b|
00002B80: 83 20 4E 20 4E 49 45 55 57 45 20 57 45 52 45 4C |. N NIEUWE WEREL|
00002B90: 44 20 4D 41 4B 45 4E 00 AF 33 2A 62 83 20 57 20 |D MAKEN..3*b. W |
00002BA0: 57 45 52 45 4C 44 20 57 49 4A 5A 49 47 45 4E 00 |WERELD WIJZIGEN.|
00002BB0: D0 33 34 62 83 20 42 20 42 45 52 45 4B 45 4E 20 |.34b. B BEREKEN |
00002BC0: 4E 49 45 55 57 45 20 47 45 4E 45 52 41 54 49 45 |NIEUWE GENERATIE|
00002BD0: 00 E7 33 3E 62 83 20 4D 20 4D 4F 44 45 4C 20 57 |..3>b. M MODEL W|
00002BE0: 49 4A 5A 49 47 45 4E 00 FB 33 48 62 83 20 53 20 |IJZIGEN..3Hb. S |
00002BF0: 4E 41 41 52 20 53 43 48 49 4A 46 00 0E 34 52 62 |NAAR SCHIJF..4Rb|
00002C00: 83 20 4C 20 56 41 4E 20 53 43 48 49 4A 46 00 2B |. L VAN SCHIJF.+|
00002C10: 34 5C 62 83 20 4F 20 4F 56 45 52 5A 49 43 48 54 |4\b. O OVERZICHT|
00002C20: 20 56 41 4E 20 53 43 48 49 4A 46 00 40 34 66 62 | VAN SCHIJF.@4fb|
00002C30: 83 20 50 20 4E 41 41 52 20 50 52 49 4E 54 45 52 |. P NAAR PRINTER|
00002C40: 00 4E 34 70 62 83 20 45 20 45 49 4E 44 45 00 54 |.N4pb. E EINDE.T|
00002C50: 34 7A 62 27 00 72 34 D4 62 8F 20 2A 2A 2A 2A 20 |4zb'.r4.b. **** |
00002C60: 53 59 53 54 45 45 4D 46 4F 55 54 45 4E 20 2A 2A |SYSTEEMFOUTEN **|
00002C70: 2A 2A 00 78 34 DE 62 27 00 8E 34 E8 62 27 46 4F |**.x4.b'..4.b'FO|
00002C80: 55 54 4E 55 4D 4D 45 52 2C 46 4F 55 54 24 00 A8 |UTNUMMER,FOUT$..|
00002C90: 34 FC 62 83 20 34 2C 43 4F 4E 54 52 4F 4C 45 45 |4.b. 4,CONTROLEE|
00002CA0: 52 20 53 43 48 49 4A 46 00 BF 34 06 63 83 20 35 |R SCHIJF..4.c. 5|
00002CB0: 2C 4E 49 45 54 20 4F 50 20 53 43 48 49 4A 46 00 |,NIET OP SCHIJF.|
00002CC0: DC 34 10 63 83 20 36 2C 47 45 45 4E 20 53 43 48 |.4.c. 6,GEEN SCH|
00002CD0: 49 4A 46 20 49 4E 20 44 52 49 56 45 00 F7 34 1A |IJF IN DRIVE..4.|
00002CE0: 63 83 20 37 2C 43 4F 4E 54 52 4F 4C 45 45 52 20 |c. 7,CONTROLEER |
00002CF0: 50 52 49 4E 54 45 52 00 00 00 |PRINTER... |
....... 1000...D.CLS:..5.N.VE.VE MOD 25:
. VE.0 . VE.1.T.P.HO.HO MOD 81:. HO.0 .
HO.1.G.R.LOCATE VE,HO:..V.R.IN$.INKEY$..
...WHILE IN$."":. 210:W..........X.:'HER
STEL SCHERM.J.... **** HOOFDPROGRAMMA **
**.P...'.....KEY OFF:. 100...L.. 10000:'
INIT...`.. 2000:'LEES COMM.O...J.'. ...'
HOOFDLUS.&...'.:.N.WHILE COMM.O..4.V.X..
3000:'VOER COMM.O UIT.N.... 2000:'LEES
COMM.O.U...W..{...'...... 17000:'BE.EIND
IGEN...... COMM.O..4 . 1200...(.'...X..
100.M.... "TOT ZIENS".S.O.....P.. **** L
EES COMMANDO ****...Z.'...... 2500:'INIT
COMREGEL...... 210.0...P.INSTR(CM$,IN$)
.>...WHILE P.0.Y.... 210:P.INSTR(CM$,IN$
).`...W..K. .. IN$;.U.*.. 210...4.WHILE
INSTR(RT$.BS$,IN$).0...>.. 210...H.W....
\.. IN$.BS$ . 2020.M.A.V.IGCOM.COMM.O...
F.COMM.O.(P.1).2...P.. V.IGCOM.7 . . (CO
MM.O.2 . COMM.O.3 . COMM.O.8):..F.Q.RENT
M VERVOLG 2160 . .2600:'HERSTEL SCHERM.L
.....J.D.. **** INIT COMREGEL ****.P.N.'
...X.HO.1:VE.COMREGEL:. 110...... SPACE$
(HM.1);...... 110...... PROMPT$;........
.(.. **** HERSTEL NA OVERZICHT ****...2.
' NIET ALS SCHIJF.OPERATIES VOLGE
N.M.<.' ALS ER ZIJN, DAN NUL. EN
LAATSTE GEN AFDRUKKEN.S.F.'.M.P.. 21500:
'SCHERM SCHO....Z.. (OUD.NIEUW)..0 . GEN
.0:. 14000:GEN.OUD:. 14000.......J.... *
*** VOER COMMANDO UIT ****.P.B.'...L.. C
OMM.O . 3110,3120,3130,3140,3150,3160,31
70,3180,3190.......-.... **** OPDRACHTEN
****.P.&.. 11000:.:'NIEUWE WERELD MAKEN
.O.0.. 11600:.:'WERELD WIJZIGEN...:.. 12
000:.:'NIEUWE GENERATIES BEREKENEN...D..
17000:.:'BE.EINDIGEN.P.N.. 16400:.:'NAA
R SCHIJF...X.. 16100:.:'VAN SCHIJF...B..
16700:.:'OVERZICHT VAN SCHIJF.&.L.. 150
00:.:'NAAR .ER.D.V.. 12500:.:'MODEL WIJZ
IGEN.A..'. **** INITIALISEER ****.G..''.
..$'HM.80:VM.24:'MAX VO. HO EN VE....'MA
XHOOGTE.VM.11:MAXBREEDTE.HM.3.3.U.8'. WE
RELD$(2,MAXBREEDTE,MAXHOOGTE)...B'STARTX
.1:STARTY.4...L'OUD.0:NIEUW.0:GENNUMMER.
0...V''.%.T''SPECIALE STRINGS.A.~'. 1050
0:'KOP$ AANPASSEN.E..'SCHEIDING$.STRING$
(HM.1,F("=")).V..'PROMPT$.">>"....'LEEG$
." ":BEWO.D$."*"....'LINKS$.G(0)."K":REC
HTS$.G(0)."M"....'BOVEN$.G(0)."H":BENEDE
N$.G(0)."P"....'PIJL$.LINKS$.BOVEN$.RECH
TS$.BENEDEN$...D'KLAAR$.G(0)."O".I.X'CM$
."NNWWBBEESSLLOOPPMM":'MOGELIJKE COMM.O'
S.`..'RT$.G(13):BS$.G(8)....'ALFA$."ABCD
EFGHIJKLMNOPQRSTUVWXYZ"....'ALFA$.ALFA$.
"ABCDEFGHIJKLMNOPQRSTUVWXYZ".M..(CIJFER$
."0123456789"...<('SPECIALE FUNCTIES...F
(. .MAX(X,Y).(.(X..Y).X.(Y.X).Y).,.P(. .
MIN(X,Y).(.(X..Y).X.(Y.X).Y).C. (. 21300
:'KOP MAKEN.A..(. 21000:'HULPSCHERM MAKE
N.G..(.....). **** KOP$ AANPASSEN ****..
..)'....)KOP$."LIFE VAN CONWAY OP EEN PL
ATTE WERELD".B.")'.H.^).....*. **** NIEU
WE WERELD MAKEN ****....+'....+STARTX.1.
...+GEN.0:GENNUMMER.0./. +. 19000:'MATEN
VRAGEN.N.*+. 21600:'WERELD LEEG MAKEN.K
.4+. 14200:'GENNR SCHRIJVEN...>+. 14300:
'KADER MAKEN...H+. 2500 :'INIT COMREGEL.
..R+. "INVOEREN MBV PIJLEN,SPATIE EN *.
KLAAR, DAN 'END'-TOETS";...\+'WERELD DO.
L..%.F+KSET$.PIJL$.LEEG$.LEEG$.BEWO.D$.B
EWO.D$.KLAAR$.D.P+IN$."@":H..1:VER.1:. 1
1500.Z.Z+WHILE IN$..KLAAR$.D..+. 210....
+P.(INSTR(KSET$,IN$).1).2....+. P.0 . .
P . 11300,11330,11360,11390,11420,11460.
...+W.....+. 11900:'INVOER BEVESTIGEN...
.+. P.2 . 11070:'INVOER AANPASSEN....+'.
2.J+'1STE GENERATIE BEREKENEN EN AFDRUKK
EN.L.T+OUD.0:NIEUW.1:. 12000.^..+OUD.1:N
IEUW.2.D..,...$,. **** NAAR LINKS ****.
...,H...MAX(1,H..1):. 11500...8,....B,.
**** NAAR BOVEN ****.Z.L,VER..MAX(1,VER.
1):. 11500...V,....`,. **** NAAR RECHTS
****...J,H...MIN(BREEDTE,H..1):. 11500.$
.T,..A.~,. **** NAAR BENEDEN ****.D..,VE
R..MIN(HOOGTE,VER.1):. 11500.J..,.....,.
**** CEL LEEG MAKEN ****....,. LEEG$;:W
ERELD$(0,H.,VER).LEEG$.G..,. 11360:'NAAR
RECHTS.M..,....D,. **** CEL BEWOOND MAK
EN ****...N,. BEWO.D$;:WERELD$(0,H.,VER)
.BEWO.D$.1.X,. 11360:'NAAR RECHTS.7..,..
D..,. **** CURSOR VERPLAATSEN IN WERELD
****.J..,'....-HO.STARTX.H.:VE.STARTY.VE
R:. 110....-....P-. **** WERELD WIJZIGEN
****...Z-'..._-. OUD.NIEUW.0 . . 12400:
. 'WAARSCHUWING...D-. 2500:'INIT COMREGE
L...N-. "WIJZIGEN IN GEN 0";.G.S-. GENNU
MMER.1 . . ", ";D(GENNUMMER.1);.M.X-. "
OF";D(GENNUMMER);" ";PROMPT$;....-KSET$.
CIJFER$:ANTWC.3....-HO.HO.34:. 20000....
-. ANTW$."" . 11660.B. -A.E(ANTW$)....-.
(A..0) . (A..GENNUMMER) . (A..GENNUMMER
.1) . 11620....-SWAP OUD,NIEUW.(..-. GEN
NUMMER.1 . OUD.0.D.H-. A.GENNUMMER.1 . A
.OUD.B.R-. A.GENNUMMER . A.NIEUW....-.
A.0 . . 12300:'EVEN GEDULD....-. A.0 .
NIEUW.0:OUD.A:. 13000:'KOPIEER.L..-START
X.A.(MAXBREEDTE.3).1....-GENNUMMER.0:. 1
4200:'GENNUMMER SCHRIJVEN...... 11070:'N
IEUWE WERELD MAKEN.?.... A.0 . GEN.0:. 1
4000:'AFDRUKKEN.E.... 14500:'RECHTERSCHE
RM SCHO.MAKEN.K.R.....|.. **** INVOER BE
VESTIGEN ****.....'...... 2500:'INIT COM
REGEL.H.... "ZO GOED ? <J/N> J";.....KSE
T$."JJNN":ANTWC.1:ANTW$."J".....HO.HO.18
:. 20000...... ANTW$."" . 11920.0.B.P.IN
STR(KSET$,ANTW$).6.V...B.... **** NIEUWE
GENERATIES BEREKENEN ****.H...'...... O
UD.NIEUW.0 . . 12400:. 'WAARSCHUWING....
.. 12300:'GEDULD...... H..1 . BREEDTE.R.
./. VER.1 . HOOGTE..../. 12200:'TEL BURE
N..../WERELD$(NIEUW,H.,VER).LEEG$.I.&/.
AANTALBUREN.2 . WERELD$(NIEUW,H.,VER).WE
RELD$(OUD,H.,VER).}.0/. AANTALBUREN.3 .
WERELD$(NIEUW,H.,VER).BEWO.D$...:/. VER.
..D/. H....X/GENNUMMER.GENNUMMER.1...B/G
EN.NIEUW:. 14000.S.L/SWAP OUD,NIEUW.Y../
...../. **** TEL BUREN OP EEN PLATTE WER
ELD ****..../'. ../AANTALBUREN.0.J.F/. H
..MAX(1,H..1) . .MIN(BREEDTE,H..1).U.P/.
V..MAX(1,VER.1) . .MIN(HOOGTE,VER.1)...
Z/. WERELD$(OUD,H,V).BEWO.D$ . AANTALBUR
EN.AANTALBUREN.1..../. V..../. H..../. W
ERELD$(OUD,H.,VER).BEWO.D$ . AANTALBUREN
.AANTALBUREN.1....0.....0. **** GEDULD *
***.!..0'.;. 0. 2500:'INIT COMREGEL.P.*0
. "EVEN GEDULD";.V.F0..S.P0. **** WAARSC
HUWING ****.Y.Z0'....0. 2500:'INIT COMRE
GEL....0. "EERST NIEUWE WERELD MAKEN! <T
OETS>";.I..0. 210.O.J0....T0. **** MODEL
VAN DE WERELD WIJZIGEN ****....0'....0.
ERR. . 12795.U..0KIES$."KIES UIT: 1) PL
AT 2) CILINDER 3) BOL 4) TORUS : 1".O.
.0. 2500:'INIT COMREGEL.|..1. KIES$;....
1KSET$."1234":ANTWC.2:ANTW$."1".D..1HO.H
O.C(PROMPT$.KIES$).1:. 20000.W.$1MODEL.E
(ANTW$)....1. MODEL.1 . MODEL.4 . 12520.
..81. MODEL . 12610,12620,12630,12640.?.
B1W.LD$."PLAT1-6.BAS" :. 12650.A.L1W.LD
$."CILIND1-6.BAS":. 12650...V1W.LD$."BOL
1-6.BAS" :. 12650...`1W.LD$."TORUS1-6.
BAS"...J1'.S.T1CHAIN MERGE W.LD$,12670,A
LL,DE.E 12200.12290...~1. 10500:'KOP$ AA
NPASSEN.. .1HO.1:VE.1:. 110:. SPACE$(HM)
;.' .1. 21300:'KOPMAKEN.C .1. 1120:'VERD
ER MET NIEUW MODEL, ALS MERGE KED IS GEG
AAN.I .1... .1FOUT.4:. 18000:RESUME 1279
0.. H2. **** KOPIEER OUD IN NIEUW ****..
R2'.H .2. H.1 . BREEDTE.. .2. V.1 . HOO
GTE..!.2WERELD$(NIEUW,H,V).WERELD$(OUD,H
,V)..!.2. V..!.3. H..!"3..:!.6. **** WER
ELD AFDRUKKEN ****.Z!.6STARTX.GEN.(MAXBR
EEDTE.3).1..!D6. 14200:. 14300:'GENNR SC
HRIJVEN EN KADER MAKEN..!N6. V.1 . HOOGT
E..!X6. H.1 . BREEDTE.W!.6HO.STARTX.H:VE
.STARTY.V:. 110..!.6. WERELD$(GEN,H,V);.
.!.6. H..!.7. V..".7../"X7. **** GENERAT
IENUMMER SCHRIJVEN ****.5".7'.H".7. GEN.
0 . GG.0.C".7. GEN.0 . GG.GENNUMMER.." 7
HO.STARTX:VE.STARTY.1:. 110..".7."GENERA
TIE";GG;.."R7...".7. **** KADER MAKEN **
**..".7'..".7STREEP$."+".STRING$(BREEDTE
,F("-"))."+"..#.7VO..STARTX:ACHTER.VO..B
REEDTE.1.+#.8HO.VO.:VE.STARTY:. 110.9#.8
. STREEP$.E#.8VE.VE.1.X#"8. I.1 . HOOGTE
.P#,8HO.VO.:. 110:. "\";..#68HO.ACHTER:.
110:. "\";..#@8VE.VE.1..#J8. I..#T8HO.V
O.:. 110:. STREEP$..#.8...#.8. ** RECHTE
RSCHERM SCHOONVEGEN **..#.8'..$.8STARTX.
2.(MAXBREEDTE.3).1..$B8HO.STARTX.6$L8WIS
$.SPACE$(MAXBREEDTE.2).Z$V8. VE.STARTY.1
. STARTY.HOOGTE.1.L$.8. 110:. WIS$;.U$.
8. VE.{$.8'..$.8...$.:. **** NAAR PRINTE
R ****..$.:'..$.:. ERR. . 15290.I$.:L. S
CHEIDING$..$.;L. KOP$;" \ ";NAAM$;" \ ".
.$.;L. SCHEIDING$..%`;. V.3 . HOOGTE.5.+
%J;. H.1 . 3.(MAXBREEDTE.3).B%T;L. G(SCR
EEN(V,H));.J%~;. H.Q%.;L..Y%.;. V.K%.;L.
SCHEIDING$..%.;. I.1 . 3:L.:. I..%.;...
%.;FOUT.7:. 18000:RESUME 15280.E%.>. ***
* BESTANDSBEHEER ****.K%.>'..%.>. **** L
EES VAN SCHIJF ****..%.>'..&.>. 16900:'N
AAM VRAGEN.)&.?. 21500:'WERELD SCHO.MAKE
N.@&.?NAAM$.ANTW$.".LIF".S&.?. ERR. . 16
390.I&H?. NAAM$ . . AS #1.{&R?ERASE WERE
LD$..&\?. #1,BREEDTE,HOOGTE..&F?. WERELD
$(2,BREEDTE,HOOGTE).H&P?. VER.1 . HOOGTE
..&Z?. H..1 . BREEDTE..&.?. #1,WERELD$(0
,H.,VER)..'.?. H...'.?. VER..'.? ..'.?'.
4'.?GEN.0:. 14000:'AFDRUKKEN._'.?. 11200
:'1E GEN BEREKENEN EN AFDRUKKEN.E'.?...'
.@FOUT.5:. 18000:RESUME 16380..'.@. ****
NAAR SCHIJF ****..'.@'.S'.@. OUD.NIEUW.
0 . . 12400:. 'WAARSCHUWING..'$@. 16900:
'NAAM VRAGEN..(.@NAAM$.ANTW$.".LIF"..(8@
. ERR. . 16590.1(T@. NAAM$ . OUTPUT AS #
1.M(~@WRITE #1,BREEDTE,HOOGTE.B(.@. VER.
1 . HOOGTE.W(.@. H..1 . BREEDTE..(.@WRIT
E #1,WERELD$(0,H.,VER)..(.@. H...(.@. VE
R..(.@ ..(D@..U(N@FOUT.4:. 18000:RESUME
16580..)<A. **** OVERZICHT BESTANDEN OP
SCHIJF ****..)FA'.()PA. 21500:'WERELD SC
HO.MAKEN.A)ZAHO.1:VE.STARTY:. 110.P)DA.
"OVERZICHT VAN LIFE-BESTANDEN OP SCHIJF"
.|)NAVE.VE.2..)XA. ERR. . 16790..).AFILE
S "*.LIF"..).A..G).AFOUT.6:. 18000:RESUM
E 16780..).B. **** NAAM VRAGEN ****..).B
'..*.B. 110:. "NAAM BESTAND:";PROMPT$;..
*"BHO.HO.16.C*,BANTWC.8:KSET$.ALFA$.CIJF
ER$:. 20000.I*^B..E*HB. **** BE-EINDIGEN
****.K*RB'..*|B. 2500:'INIT COMREGEL..*
.B. "WIL JE STOPPEN ? <J/N> N";.K*.BKSE
T$."JJNN":ANTWC.1:ANTW$."N"..*.BHO.HO.26
:. 20000..*.B. ANTW$."" . 17020.*+.B. IN
STR(KSET$,ANTW$).2 . . 2000:. 'LEES COMM
.O.L+.B. ERR. . 0 'ERR. TRAPPING UIT.V+.
BKEY ..\+BB...+PF. **** SYSTEEMFOUTEN AF
HANDELEN *****..+ZF'..+DF. 25300..+NF. F
OUTNR,FOUT$.B+XFWHILE FOUTNR..FOUT.U+.F.
FOUTNR,FOUT$..+.FW...+.F. 2500:. 110..,
F. FOUT$;". TOETS OM DOOR TE GAAN.";..,
.F. 210.*,.FFOUT.0.0,.G..S,8J. **** WERE
LDMATEN VRAGEN ****.Y,BJ'.X,LJ. 21500:'W
ERELD SCHO.MAKEN..,VJ. 2500:'INIT COMREG
EL..,`J. "GEEF BREEDTE, MAX:";D(MAXBREED
TE);..,JJKSET$.CIJFER$:ANTWC.3:ANTW$.D(M
AXBREEDTE)..-TJHO.HO.21:. 20000: 'INVOER
..-~JBREEDTE.E(ANTW$).J-.J. BREEDTE.MAXB
REEDTE . BREEDTE.0 . 19030.P-.JHO.HO.6:.
110:. SPACE$(22);:. 110..-.J. "GEEF HOO
GTE, MAX:";D(MAXHOOGTE);" ";..-.JANTW$.D
(MAXHOOGTE).H-.JHO.HO.18:. 20000..-.JHOO
GTE.E(ANTW$)...DJ. HOOGTE.MAXHOOGTE . HO
OGTE.0 . HO.HO.24:. 19090.#..JERASE WERE
LD$.C..J. WERELD$(2,BREEDTE,HOOGTE).A..K
GENNUMMER.0:OUD.0:NIEUW.0.G.ZK.... N. **
** INVOER ROUTINE ****...*N'...4N. 210:.
IN$.RT$ . ....>NAK.0:ANTW$."".W.RN. 110
:. SPACE$(ANTWC);:. 110...\NWHILE AK.ANT
WC . IN$..RT$../FNWHILE IN$.BS$."/PN. 11
0:. SPACE$(ANTWC);.:/ZN. 110:ANTW$."":AK
.0.D/.N. 210.K/.NW.../.N. INSTR(KSET$,IN
$).0 . . IN$;:ANTW$.ANTW$.IN$:AK.AK.1../
.N. 210../.NW.../.N.../.R. **** HULPSCHE
RM MAKEN ****.C/.R'.O/.R. 25100../&R. MA
XINDEX../0R. I.0 . MAXINDEX../:R. C$(I).
.0DR. I..0BR'.)0LRAANTREGELS.MAXINDEX.3.
1.H0VRCOMREGEL.VM.(AANTREGELS.1).E0.RHO.
1:VE.COMREGEL.1:. 110.W0.R. SCHEIDING$;.
}0.R'..0.R'TEKSTEN AFDRUKKEN..0.R. I.0 .
MAXINDEX..0.RHO.(I.AANTREGELS).(HM.3).1
:VE.COMREGEL.2.(I MOD AANTREGELS)..0.R.
110:. C$(I);..1FR. I.31PR'PLAATS VERTICA
LE LIJNEN TUSSEN 3 KOLOMMEN.J1ZR. I.1 .
AANTREGELS.^1.RVE.COMREGEL.1.I.M1.R. II.
1 . 2.~1.RHO.II.(HM.3)..1.S. 110:. "\";.
.1.S. II. 1.S. I..1*S...14S. **** KOP MA
KEN ****.F1>S'.U1HSLK.C(KOP$)..1\SHO.HM.
2.LK.2:VE.1:. 110..1FS. KOP$..2PS. SCHEI
DING$..2.S..62.S. **** WERELD SCHOONMAKE
N ****.<2.T'.J2.TVV.1:HO.1.J2.T. VE.STAR
TY.1 . VV.HOOGTE.4..2$T. 110:. SPACE$(HM
.1);..2.T. VE..2VT...2`T. **** WERELD LE
EG MAKEN ****..2JT'.O2TT. H.1 . BREEDTE.
.2~T. V.1 . HOOGTE..2.TWERELD$(GEN,H,V).
LEEG$..3.T. V..3.T. H..3.T..,3.A. **** D
ATABLOK ****.23.A'.M3.B. **** COMMANDO'S
****.{3.B. 8:'MAXIMUM.INDEX VAN ARRAY M
ET COMM.O'S..3 B. N NIEUWE WERELD MAKEN.
.3*B. W WERELD WIJZIGEN.P34B. B BEREKEN
NIEUWE GENERATIE..3>B. M MODEL WIJZIGEN.
.3HB. S NAAR SCHIJF..4RB. L VAN SCHIJF.+
4\B. O OVERZICHT VAN SCHIJF.@4FB. P NAAR
PRINTER.N4PB. E EINDE.T4ZB'.R4TB. ****
SYSTEEMFOUTEN ****.X4.B'..4.B'FOUTNUMMER
,FOUT$..4.B. 4,CONTROLEER SCHIJF..4.C. 5
,NIET OP SCHIJF..4.C. 6,GEEN SCHIJF IN D
RIVE..4.C. 7,CONTROLEER PRINTER...
> CLICK IMAGE PREVIEW FOR FULL MODAL