LIFE#2-6
FILE INFORMATION
FILENAME(S): LIFE#2-6
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
f574d81afc9695f03037d39cb17bb4e8b50de4af77c9379d868a746f29f642a7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | LIFE#2-6 | PRG | DuncanTwain | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 08 08 0A 00 57 80 00 2C 08 2D 00 86 20 4C |......W..,.-.. L|
00000010: 49 4A 53 54 28 4D 41 58 42 52 45 45 44 54 45 AC |IJST(MAXBREEDTE.|
00000020: 4D 41 58 48 4F 4F 47 54 45 2C 31 29 00 36 08 64 |MAXHOOGTE,1).6.d|
00000030: 00 43 4C 53 3A 8E 00 55 08 6E 00 56 45 B2 56 45 |.CLS:..U.n.VE.VE|
00000040: 20 4D 4F 44 20 32 35 3A 8B 20 56 45 B2 30 20 A7 | MOD 25:. VE.0 .|
00000050: 20 56 45 B2 31 00 74 08 70 00 48 4F B2 48 4F 20 | VE.1.t.p.HO.HO |
00000060: 4D 4F 44 20 38 31 3A 8B 20 48 4F B2 30 20 A7 20 |MOD 81:. HO.0 . |
00000070: 48 4F B2 31 00 87 08 72 00 4C 4F 43 41 54 45 20 |HO.1...r.LOCATE |
00000080: 56 45 2C 48 4F 3A 8E 00 96 08 D2 00 49 4E 24 B2 |VE,HO:......IN$.|
00000090: 49 4E 4B 45 59 24 00 AA 08 DC 00 56 45 B2 43 4F |INKEY$.....VE.CO|
000000A0: 4D 52 45 47 45 4C AA 31 AA 49 00 B0 08 E0 00 8E |MREGEL.1.I......|
000000B0: 00 C5 08 58 02 3A 27 48 45 52 53 54 45 4C 20 53 |...X.:'HERSTEL S|
000000C0: 43 48 45 52 4D 00 E4 08 E8 03 8F 20 2A 2A 2A 2A |CHERM...... ****|
000000D0: 20 48 4F 4F 46 44 50 52 4F 47 52 41 4D 4D 41 20 | HOOFDPROGRAMMA |
000000E0: 2A 2A 2A 2A 00 EA 08 F2 03 27 00 FC 08 FC 03 4B |****.....'.....K|
000000F0: 45 59 20 4F 46 46 3A 8D 20 31 30 30 00 0E 09 4C |EY OFF:. 100...L|
00000100: 04 8D 20 31 30 30 30 30 3A 27 49 4E 49 54 00 14 |.. 10000:'INIT..|
00000110: 09 56 04 27 00 2C 09 60 04 8D 20 32 30 30 30 3A |.V.'.,.`.. 2000:|
00000120: 27 4C 45 45 53 20 43 4F 4D 4D AF 4F 00 32 09 6A |'LEES COMM.O.2.j|
00000130: 04 27 00 40 09 B0 04 27 48 4F 4F 46 44 4C 55 53 |.'.@...'HOOFDLUS|
00000140: 00 46 09 BA 04 27 00 5A 09 CE 04 57 48 49 4C 45 |.F...'.Z...WHILE|
00000150: 20 43 4F 4D 4D AF 4F B3 B1 34 00 76 09 D8 04 8D | COMM.O..4.v....|
00000160: 20 33 30 30 30 3A 27 56 4F 45 52 20 43 4F 4D 4D | 3000:'VOER COMM|
00000170: AF 4F 20 55 49 54 00 8E 09 E2 04 8D 20 32 30 30 |.O UIT...... 200|
00000180: 30 3A 27 4C 45 45 53 20 43 4F 4D 4D AF 4F 00 95 |0:'LEES COMM.O..|
00000190: 09 EC 04 57 80 00 9B 09 F6 04 27 00 B4 09 14 05 |...W......'.....|
000001A0: 8D 20 31 37 30 30 30 3A 27 42 45 AB 45 49 4E 44 |. 17000:'BE.EIND|
000001B0: 49 47 45 4E 00 CB 09 1E 05 8B 20 43 4F 4D 4D AF |IGEN...... COMM.|
000001C0: 4F B3 B1 34 20 A7 20 31 32 30 30 00 D1 09 28 05 |O..4 . 1200...(.|
000001D0: 27 00 F4 09 78 05 56 45 52 B2 A5 4D 49 4E 28 48 |'...x.VER..MIN(H|
000001E0: 4F 4F 47 54 45 2C 56 45 52 AA 31 29 3A 8D 20 31 |OOGTE,VER.1):. 1|
000001F0: 31 35 30 30 00 06 0A 82 05 99 20 22 54 4F 54 20 |1500...... "TOT |
00000200: 5A 49 45 4E 53 22 00 0C 0A CF 07 80 00 2A 0A D0 |ZIENS".......*..|
00000210: 07 8F 20 2A 2A 2A 2A 20 4C 45 45 53 20 43 4F 4D |.. **** LEES COM|
00000220: 4D 41 4E 44 4F 20 2A 2A 2A 2A 00 30 0A DA 07 27 |MANDO ****.0...'|
00000230: 00 4A 0A E4 07 8D 20 32 35 30 30 3A 27 49 4E 49 |.J.... 2500:'INI|
00000240: 54 20 43 4F 4D 52 45 47 45 4C 00 54 0A EE 07 8D |T COMREGEL.T....|
00000250: 20 32 31 30 00 69 0A F8 07 50 B2 49 4E 53 54 52 | 210.i...P.INSTR|
00000260: 28 43 4D 24 2C 49 4E 24 29 00 77 0A 02 08 57 48 |(CM$,IN$).w...WH|
00000270: 49 4C 45 20 50 B2 30 00 92 0A 0C 08 8D 20 32 31 |ILE P.0...... 21|
00000280: 30 3A 50 B2 49 4E 53 54 52 28 43 4D 24 2C 49 4E |0:P.INSTR(CM$,IN|
00000290: 24 29 00 99 0A 16 08 57 80 00 A4 0A 20 08 99 20 |$).....W.... .. |
000002A0: 49 4E 24 3B 00 AE 0A 2A 08 8D 20 32 31 30 00 CD |IN$;...*.. 210..|
000002B0: 0A 34 08 57 48 49 4C 45 20 49 4E 53 54 52 28 52 |.4.WHILE INSTR(R|
000002C0: 54 24 AA 42 53 24 2C 49 4E 24 29 B2 30 00 D7 0A |T$.BS$,IN$).0...|
000002D0: 3E 08 8D 20 32 31 30 00 DE 0A 48 08 57 80 00 F3 |>.. 210...H.W...|
000002E0: 0A 5C 08 8B 20 49 4E 24 B2 42 53 24 20 A7 20 32 |.\.. IN$.BS$ . 2|
000002F0: 30 32 30 00 06 0B 61 08 56 B0 49 47 43 4F 4D B2 |020...a.V.IGCOM.|
00000300: 43 4F 4D 4D AF 4F 00 19 0B 66 08 43 4F 4D 4D AF |COMM.O...f.COMM.|
00000310: 4F B2 28 50 AA 31 29 B3 32 00 4E 0B 70 08 8B 20 |O.(P.1).2.N.p.. |
00000320: 56 B0 49 47 43 4F 4D B2 37 20 A7 20 8B 20 28 43 |V.IGCOM.7 . . (C|
00000330: 4F 4D 4D AF 4F B2 32 20 B0 20 43 4F 4D 4D AF 4F |OMM.O.2 . COMM.O|
00000340: B2 33 20 B0 20 43 4F 4D 4D AF 4F B2 38 29 00 7E |.3 . COMM.O.8).~|
00000350: 0B 71 08 8F 20 56 45 52 56 4F 4C 47 20 32 31 36 |.q.. VERVOLG 216|
00000360: 30 20 54 48 45 4E 20 47 4F D3 32 36 30 30 3A 27 |0 THEN GO.2600:'|
00000370: 48 45 52 53 54 45 4C 20 53 43 48 45 52 4D 00 84 |HERSTEL SCHERM..|
00000380: 0B 8E 08 8E 00 A2 0B C4 09 8F 20 2A 2A 2A 2A 20 |.......... **** |
00000390: 49 4E 49 54 20 43 4F 4D 52 45 47 45 4C 20 2A 2A |INIT COMREGEL **|
000003A0: 2A 2A 00 A8 0B CE 09 27 00 B5 0B D8 09 41 41 4E |**.....'.....AAN|
000003B0: 54 41 4C B2 30 00 C9 0B E2 09 99 20 53 50 41 43 |TAL.0...... SPAC|
000003C0: 45 24 28 48 4D AB 31 29 3B 00 D3 0B EC 09 8D 20 |E$(HM.1);...... |
000003D0: 31 31 30 00 E2 0B F6 09 99 20 50 52 4F 4D 50 54 |110...... PROMPT|
000003E0: 24 3B 00 E8 0B 1E 0A 8E 00 0D 0C 28 0A 8F 20 2A |$;.........(.. *|
000003F0: 2A 2A 2A 20 48 45 52 53 54 45 4C 20 4E 41 20 4F |*** HERSTEL NA O|
00000400: 56 45 52 5A 49 43 48 54 20 2A 2A 2A 2A 00 2F 0C |VERZICHT ****./.|
00000410: 32 0A 27 20 20 20 20 20 20 20 20 4E 49 45 54 20 |2.' NIET |
00000420: 42 49 4A 20 53 43 48 49 4A 46 AB 4F 50 52 53 00 |BIJ SCHIJF.OPRS.|
00000430: 6A 0C 3C 0A 27 20 20 20 20 20 20 20 20 41 4C 53 |j.<.' ALS|
00000440: 20 5A 45 20 45 52 20 5A 49 4A 4E 2C 20 4E 55 4C | ZE ER ZIJN, NUL|
00000450: AB 20 45 4E 20 4C 41 41 54 53 54 45 20 47 45 4E |. EN LAATSTE GEN|
00000460: 20 41 46 44 52 55 4B 4B 45 4E 00 70 0C 46 0A 27 | AFDRUKKEN.p.F.'|
00000470: 00 8F 0C 50 0A 8D 20 32 31 35 30 30 3A 27 57 45 |...P.. 21500:'WE|
00000480: 52 45 4C 44 20 53 43 48 4F 91 4D 41 4B 45 4E 00 |RELD SCHO.MAKEN.|
00000490: A5 0C 5A 0A 8B 20 4F 55 44 AA 4E 49 45 55 57 B2 |..Z.. OUD.NIEUW.|
000004A0: 30 20 A7 20 8E 00 C8 0C 64 0A 4E 4E B2 4E 49 45 |0 . ....d.NN.NIE|
000004B0: 55 57 3A 4E 49 45 55 57 B2 30 3A 47 45 4E B2 30 |UW:NIEUW.0:GEN.0|
000004C0: 3A 8D 20 31 34 30 30 30 00 ED 0C 6E 0A 4E 49 45 |:. 14000...n.NIE|
000004D0: 55 57 B2 4F 55 44 3A 47 45 4E B2 31 3A 8D 20 31 |UW.OUD:GEN.1:. 1|
000004E0: 34 30 30 30 3A 4E 49 45 55 57 B2 4E 4E 00 F3 0C |4000:NIEUW.NN...|
000004F0: 82 0A 8E 00 15 0D B8 0B 8F 20 2A 2A 2A 2A 20 56 |......... **** V|
00000500: 4F 45 52 20 43 4F 4D 4D 41 4E 44 4F 20 55 49 54 |OER COMMANDO UIT|
00000510: 20 2A 2A 2A 2A 00 1B 0D C2 0B 27 00 52 0D CC 0B | ****.....'.R...|
00000520: 91 20 43 4F 4D 4D AF 4F 20 8D 20 33 31 31 30 2C |. COMM.O . 3110,|
00000530: 33 31 32 30 2C 33 31 33 30 2C 33 31 34 30 2C 33 |3120,3130,3140,3|
00000540: 31 35 30 2C 33 31 36 30 2C 33 31 37 30 2C 33 31 |150,3160,3170,31|
00000550: 38 30 00 58 0D 12 0C 8E 00 73 0D 1C 0C 8F 20 2A |80.X.....s.... *|
00000560: 2A 2A 2A 20 4F 50 44 52 41 43 48 54 45 4E 20 2A |*** OPDRACHTEN *|
00000570: 2A 2A 2A 00 96 0D 26 0C 8D 20 31 31 30 30 30 3A |***...&.. 11000:|
00000580: 8E 3A 27 4E 49 45 55 57 45 20 57 45 52 45 4C 44 |.:'NIEUWE WERELD|
00000590: 20 4D 41 4B 45 4E 00 B5 0D 30 0C 8D 20 31 31 36 | MAKEN...0.. 116|
000005A0: 30 30 3A 8E 3A 27 57 45 52 45 4C 44 20 57 49 4A |00:.:'WERELD WIJ|
000005B0: 5A 49 47 45 4E 00 E0 0D 3A 0C 8D 20 31 32 30 30 |ZIGEN...:.. 1200|
000005C0: 30 3A 8E 3A 27 4E 49 45 55 57 45 20 47 45 4E 45 |0:.:'NIEUWE GENE|
000005D0: 52 41 54 49 45 53 20 42 45 52 45 4B 45 4E 45 4E |RATIES BEREKENEN|
000005E0: 00 FB 0D 44 0C 8D 20 31 37 30 30 30 3A 8E 3A 27 |...D.. 17000:.:'|
000005F0: 42 45 AB 45 49 4E 44 49 47 45 4E 00 16 0E 4E 0C |BE.EINDIGEN...N.|
00000600: 8D 20 31 36 34 30 30 3A 8E 3A 27 4E 41 41 52 20 |. 16400:.:'NAAR |
00000610: 53 43 48 49 4A 46 00 30 0E 58 0C 8D 20 31 36 31 |SCHIJF.0.X.. 161|
00000620: 30 30 3A 8E 3A 27 56 41 4E 20 53 43 48 49 4A 46 |00:.:'VAN SCHIJF|
00000630: 00 54 0E 62 0C 8D 20 31 36 37 30 30 3A 8E 3A 27 |.T.b.. 16700:.:'|
00000640: 4F 56 45 52 5A 49 43 48 54 20 56 41 4E 20 53 43 |OVERZICHT VAN SC|
00000650: 48 49 4A 46 00 6C 0E 6C 0C 8D 20 31 35 30 30 30 |HIJF.l.l.. 15000|
00000660: 3A 8E 3A 27 4E 41 41 52 20 99 45 52 00 72 0E 8A |:.:'NAAR .ER.r..|
00000670: 11 8E 00 8B 0E 4A 1A 48 4F B2 31 3A 56 45 B2 53 |.....J.HO.1:VE.S|
00000680: 54 41 52 54 59 3A 8D 20 31 31 30 00 9E 0E 68 1A |TARTY:. 110...h.|
00000690: 91 20 45 52 52 B0 20 89 20 31 36 37 39 30 00 BB |. ERR. . 16790..|
000006A0: 0E 10 27 8F 20 2A 2A 2A 2A 20 49 4E 49 54 49 41 |..'. **** INITIA|
000006B0: 4C 49 53 45 45 52 20 2A 2A 2A 2A 00 C1 0E 1A 27 |LISEER ****....'|
000006C0: 27 00 E3 0E 24 27 48 4D B2 38 30 3A 56 4D B2 32 |'...$'HM.80:VM.2|
000006D0: 34 3A 27 4D 41 58 20 56 4F B0 20 48 4F 20 45 4E |4:'MAX VO. HO EN|
000006E0: 20 56 45 00 09 0F 2E 27 4D 41 58 48 4F 4F 47 54 | VE....'MAXHOOGT|
000006F0: 45 B2 56 4D AB 31 31 3A 4D 41 58 42 52 45 45 44 |E.VM.11:MAXBREED|
00000700: 54 45 B2 48 4D B3 33 AB 33 00 2E 0F 38 27 86 20 |TE.HM.3.3...8'. |
00000710: 57 45 52 45 4C 44 28 31 2C 4D 41 58 42 52 45 45 |WERELD(1,MAXBREE|
00000720: 44 54 45 2C 4D 41 58 48 4F 4F 47 54 45 29 00 44 |DTE,MAXHOOGTE).D|
00000730: 0F 42 27 53 54 41 52 54 58 B2 31 3A 53 54 41 52 |.B'STARTX.1:STAR|
00000740: 54 59 B2 34 00 6B 0F 4C 27 4F 55 44 B2 30 3A 4E |TY.4.k.L'OUD.0:N|
00000750: 49 45 55 57 B2 30 3A 47 45 4E 4E 55 4D 4D 45 52 |IEUW.0:GENNUMMER|
00000760: B2 30 3A 43 4F 4D 4D AF 4F B2 30 00 71 0F 56 27 |.0:COMM.O.0.q.V'|
00000770: 27 00 87 0F 74 27 27 53 50 45 43 49 41 4C 45 20 |'...t''SPECIALE |
00000780: 53 54 52 49 4E 47 53 00 A2 0F 7E 27 4B 4F 50 24 |STRINGS...~'KOP$|
00000790: B2 22 4C 49 46 45 20 56 41 4E 20 43 4F 4E 57 41 |."LIFE VAN CONWA|
000007A0: 59 22 00 C6 0F 88 27 53 43 48 45 49 44 49 4E 47 |Y"....'SCHEIDING|
000007B0: 24 B2 53 54 52 49 4E 47 24 28 48 4D AB 31 2C C6 |$.STRING$(HM.1,.|
000007C0: 28 22 3D 22 29 29 00 D7 0F 92 27 50 52 4F 4D 50 |("="))....'PROMP|
000007D0: 54 24 B2 22 3E 3E 22 00 F1 0F 9C 27 4C 45 45 47 |T$.">>"....'LEEG|
000007E0: 24 B2 22 20 22 3A 42 45 57 4F 91 44 24 B2 22 2A |$." ":BEWO.D$."*|
000007F0: 22 00 16 10 A6 27 4C 49 4E 4B 53 24 B2 C7 28 30 |"....'LINKS$..(0|
00000800: 29 AA 22 4B 22 3A 52 45 43 48 54 53 24 B2 C7 28 |)."K":RECHTS$..(|
00000810: 30 29 AA 22 4D 22 00 3C 10 B0 27 42 4F 56 45 4E |0)."M".<..'BOVEN|
00000820: 24 B2 C7 28 30 29 AA 22 48 22 3A 42 45 4E 45 44 |$..(0)."H":BENED|
00000830: 45 4E 24 B2 C7 28 30 29 AA 22 50 22 00 65 10 BA |EN$..(0)."P".e..|
00000840: 27 50 49 4A 4C 24 B2 4C 49 4E 4B 53 24 AA 42 4F |'PIJL$.LINKS$.BO|
00000850: 56 45 4E 24 AA 52 45 43 48 54 53 24 AA 42 45 4E |VEN$.RECHTS$.BEN|
00000860: 45 44 45 4E 24 00 79 10 C4 27 4B 4C 41 41 52 24 |EDEN$.y..'KLAAR$|
00000870: B2 C7 28 30 29 AA 22 4F 22 00 A8 10 D8 27 43 4D |..(0)."O"....'CM|
00000880: 24 B2 22 4E 4E 57 57 42 42 45 45 53 53 4C 4C 4F |$."NNWWBBEESSLLO|
00000890: 4F 50 50 22 3A 27 4D 4F 47 45 4C 49 4A 4B 45 20 |OPP":'MOGELIJKE |
000008A0: 43 4F 4D 4D AF 4F 27 53 00 BF 10 E2 27 52 54 24 |COMM.O'S....'RT$|
000008B0: B2 C7 28 31 33 29 3A 42 53 24 B2 C7 28 38 29 00 |..(13):BS$..(8).|
000008C0: E6 10 EC 27 41 4C 46 41 24 B2 22 41 42 43 44 45 |...'ALFA$."ABCDE|
000008D0: 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 |FGHIJKLMNOPQRSTU|
000008E0: 56 57 58 59 5A 22 00 13 11 F6 27 41 4C 46 41 24 |VWXYZ"....'ALFA$|
000008F0: B2 41 4C 46 41 24 AA 22 41 42 43 44 45 46 47 48 |.ALFA$."ABCDEFGH|
00000900: 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 |IJKLMNOPQRSTUVWX|
00000910: 59 5A 22 00 2C 11 00 28 43 49 4A 46 45 52 24 B2 |YZ".,..(CIJFER$.|
00000920: 22 30 31 32 33 34 35 36 37 38 39 22 00 43 11 3C |"0123456789".C.<|
00000930: 28 27 53 50 45 43 49 41 4C 45 20 46 55 4E 43 54 |('SPECIALE FUNCT|
00000940: 49 45 53 00 67 11 46 28 96 20 A5 4D 41 58 28 58 |IES.g.F(. .MAX(X|
00000950: 2C 59 29 B2 28 AB 28 58 B1 B2 59 29 AC 58 AB 28 |,Y).(.(X..Y).X.(|
00000960: 59 B1 58 29 AC 59 29 00 8B 11 50 28 96 20 A5 4D |Y.X).Y)...P(. .M|
00000970: 49 4E 28 58 2C 59 29 B2 28 AB 28 58 B3 B2 59 29 |IN(X,Y).(.(X..Y)|
00000980: AC 58 AB 28 59 B3 58 29 AC 59 29 00 A1 11 A0 28 |.X.(Y.X).Y)....(|
00000990: 8D 20 32 31 33 30 30 3A 27 4B 4F 50 4D 41 4B 45 |. 21300:'KOPMAKE|
000009A0: 4E 00 BF 11 AA 28 8D 20 32 31 30 30 30 3A 27 48 |N....(. 21000:'H|
000009B0: 55 4C 50 53 43 48 45 52 4D 20 4D 41 4B 45 4E 00 |ULPSCHERM MAKEN.|
000009C0: C5 11 FA 28 8E 00 E9 11 F8 2A 8F 20 2A 2A 2A 2A |...(.....*. ****|
000009D0: 20 4E 49 45 55 57 45 20 57 45 52 45 4C 44 20 4D | NIEUWE WERELD M|
000009E0: 41 4B 45 4E 20 2A 2A 2A 2A 00 EF 11 02 2B 27 00 |AKEN ****....+'.|
000009F0: FC 11 0C 2B 53 54 41 52 54 58 B2 31 00 12 12 16 |...+STARTX.1....|
00000A00: 2B 47 45 4E B2 30 3A 47 45 4E 4E 55 4D 4D 45 52 |+GEN.0:GENNUMMER|
00000A10: B2 30 00 2C 12 20 2B 8D 20 31 39 30 30 30 3A 27 |.0.,. +. 19000:'|
00000A20: 4D 41 54 45 4E 20 56 52 41 47 45 4E 00 4B 12 25 |MATEN VRAGEN.K.%|
00000A30: 2B 8D 20 32 31 36 30 30 3A 27 57 45 52 45 4C 44 |+. 21600:'WERELD|
00000A40: 20 4C 45 45 47 20 4D 41 4B 45 4E 00 68 12 2A 2B | LEEG MAKEN.h.*+|
00000A50: 8D 20 31 34 32 30 30 3A 27 47 45 4E 4E 52 20 53 |. 14200:'GENNR S|
00000A60: 43 48 52 49 4A 56 45 4E 00 81 12 34 2B 8D 20 31 |CHRIJVEN...4+. 1|
00000A70: 34 33 30 30 3A 27 4B 41 44 45 52 20 4D 41 4B 45 |4300:'KADER MAKE|
00000A80: 4E 00 9C 12 3E 2B 8D 20 32 35 30 30 20 3A 27 49 |N...>+. 2500 :'I|
00000A90: 4E 49 54 20 43 4F 4D 52 45 47 45 4C 00 E0 12 48 |NIT COMREGEL...H|
00000AA0: 2B 99 20 22 49 4E 56 4F 45 52 45 4E 20 4D 2E 42 |+. "INVOEREN M.B|
00000AB0: 2E 56 2E 20 50 49 4A 4C 45 4E 2C 53 50 41 54 49 |.V. 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 58 14 D4 2B 4F 55 44 B2 30 3A 4E 49 45 |EN.X..+OUD.0:NIE|
00000C40: 55 57 B2 31 3A 8D 20 31 33 30 30 30 3A 27 4B 4F |UW.1:. 13000:'KO|
00000C50: 50 49 45 AB 45 52 45 4E 00 6A 14 DE 2B 47 45 4E |PIE.EREN.j..+GEN|
00000C60: B2 31 3A 8D 20 31 32 30 30 30 00 7C 14 E8 2B 4F |.1:. 12000.|..+O|
00000C70: 55 44 B2 31 3A 4E 49 45 55 57 B2 32 00 82 14 1A |UD.1:NIEUW.2....|
00000C80: 2C 8E 00 9D 14 24 2C 8F 20 2A 2A 2A 2A 20 4E 41 |,....$,. **** NA|
00000C90: 41 52 20 4C 49 4E 4B 53 20 2A 2A 2A 2A 00 B9 14 |AR LINKS ****...|
00000CA0: 2E 2C 48 B0 B2 A5 4D 41 58 28 31 2C 48 B0 AB 31 |.,H...MAX(1,H..1|
00000CB0: 29 3A 8D 20 31 31 35 30 30 00 BF 14 38 2C 8E 00 |):. 11500...8,..|
00000CC0: DA 14 42 2C 8F 20 2A 2A 2A 2A 20 4E 41 41 52 20 |..B,. **** NAAR |
00000CD0: 42 4F 56 45 4E 20 2A 2A 2A 2A 00 F8 14 4C 2C 56 |BOVEN ****...L,V|
00000CE0: 45 52 B2 A5 4D 41 58 28 31 2C 56 45 52 AB 31 29 |ER..MAX(1,VER.1)|
00000CF0: 3A 8D 20 31 31 35 30 30 00 FE 14 56 2C 8E 00 04 |:. 11500...V,...|
00000D00: 15 60 2C 52 00 21 15 7E 2C 8F 20 2A 2A 2A 2A 20 |.`,R.!.~,. **** |
00000D10: 4E 41 41 52 20 42 45 4E 45 44 45 4E 20 2A 2A 2A |NAAR BENEDEN ***|
00000D20: 2A 00 27 15 92 2C 8E 00 46 15 9C 2C 8F 20 2A 2A |*.'..,..F..,. **|
00000D30: 2A 2A 20 43 45 4C 20 4C 45 45 47 20 4D 41 4B 45 |** CEL LEEG MAKE|
00000D40: 4E 20 2A 2A 2A 2A 00 53 15 A6 2C 99 20 4C 45 45 |N ****.S..,. LEE|
00000D50: 47 24 3B 00 5F 15 AB 2C 8D 20 32 32 30 30 30 00 |G$;._..,. 22000.|
00000D60: 78 15 B0 2C 8D 20 31 31 33 36 30 3A 27 4E 41 41 |x..,. 11360:'NAA|
00000D70: 52 20 52 45 43 48 54 53 00 7E 15 BA 2C 8E 00 A0 |R RECHTS.~..,...|
00000D80: 15 C4 2C 8F 20 2A 2A 2A 2A 20 43 45 4C 20 42 45 |..,. **** CEL BE|
00000D90: 57 4F 4F 4E 44 20 4D 41 4B 45 4E 20 2A 2A 2A 2A |WOOND MAKEN ****|
00000DA0: 00 AF 15 CE 2C 99 20 42 45 57 4F 91 44 24 3B 00 |....,. BEWO.D$;.|
00000DB0: BB 15 D3 2C 8D 20 32 32 32 30 30 00 D4 15 D8 2C |...,. 22200....,|
00000DC0: 8D 20 31 31 33 36 30 3A 27 4E 41 41 52 20 52 45 |. 11360:'NAAR RE|
00000DD0: 43 48 54 53 00 DA 15 E2 2C 8E 00 07 16 EC 2C 8F |CHTS....,.....,.|
00000DE0: 20 2A 2A 2A 2A 20 43 55 52 53 4F 52 20 56 45 52 | **** CURSOR VER|
00000DF0: 50 4C 41 41 54 53 45 4E 20 49 4E 20 57 45 52 45 |PLAATSEN IN WERE|
00000E00: 4C 44 20 2A 2A 2A 2A 00 0D 16 F6 2C 27 00 32 16 |LD ****....,'.2.|
00000E10: 00 2D 48 4F B2 53 54 41 52 54 58 AA 48 B0 3A 56 |.-HO.STARTX.H.:V|
00000E20: 45 B2 53 54 41 52 54 59 AA 56 45 52 3A 8D 20 31 |E.STARTY.VER:. 1|
00000E30: 31 30 00 38 16 0A 2D 8E 00 58 16 50 2D 8F 20 2A |10.8..-..X.P-. *|
00000E40: 2A 2A 2A 20 57 45 52 45 4C 44 20 57 49 4A 5A 49 |*** WERELD WIJZI|
00000E50: 47 45 4E 20 2A 2A 2A 2A 00 5E 16 5A 2D 27 00 78 |GEN ****.^.Z-'.x|
00000E60: 16 64 2D 8D 20 32 35 30 30 3A 27 49 4E 49 54 20 |.d-. 2500:'INIT |
00000E70: 43 4F 4D 52 45 47 45 4C 00 A4 16 69 2D 8B 20 4F |COMREGEL...i-. O|
00000E80: 55 44 AA 4E 49 45 55 57 B2 30 20 A7 20 8D 20 31 |UD.NIEUW.0 . . 1|
00000E90: 32 34 30 30 3A 8E 20 27 57 41 41 52 53 43 48 55 |2400:. 'WAARSCHU|
00000EA0: 57 49 4E 47 00 C0 16 6E 2D 99 20 22 57 49 4A 5A |WING...n-. "WIJZ|
00000EB0: 49 47 45 4E 20 49 4E 20 47 45 4E 20 30 2C 22 3B |IGEN IN GEN 0,";|
00000EC0: 00 E6 16 78 2D 99 20 22 20 4F 46 22 3B C4 28 47 |...x-. " OF";.(G|
00000ED0: 45 4E 4E 55 4D 4D 45 52 29 3B 22 20 22 3B 50 52 |ENNUMMER);" ";PR|
00000EE0: 4F 4D 50 54 24 3B 00 00 17 82 2D 4B 53 45 54 24 |OMPT$;....-KSET$|
00000EF0: B2 43 49 4A 46 45 52 24 3A 41 4E 54 57 C3 B2 33 |.CIJFER$:ANTW..3|
00000F00: 00 15 17 8C 2D 48 4F B2 48 4F AA 33 34 3A 8D 20 |....-HO.HO.34:. |
00000F10: 32 30 30 30 30 00 2C 17 96 2D 8B 20 41 4E 54 57 |20000.,..-. ANTW|
00000F20: 24 B2 22 22 20 A7 20 31 31 36 36 30 00 3B 17 A0 |$."" . 11660.;..|
00000F30: 2D 41 B2 C5 28 41 4E 54 57 24 29 00 61 17 AA 2D |-A..(ANTW$).a..-|
00000F40: 8B 20 28 41 B3 B1 30 29 20 AF 20 28 41 B3 B1 47 |. (A..0) . (A..G|
00000F50: 45 4E 4E 55 4D 4D 45 52 29 20 A7 20 31 31 36 32 |ENNUMMER) . 1162|
00000F60: 30 00 74 17 B4 2D 53 57 41 50 20 4E 49 45 55 57 |0.t..-SWAP NIEUW|
00000F70: 2C 4F 55 44 00 8E 17 BE 2D 8B 20 47 45 4E 4E 55 |,OUD....-. GENNU|
00000F80: 4D 4D 45 52 B2 31 20 A7 20 4F 55 44 B2 30 00 AC |MMER.1 . OUD.0..|
00000F90: 17 D2 2D 8B 20 41 B2 47 45 4E 4E 55 4D 4D 45 52 |..-. A.GENNUMMER|
00000FA0: 20 20 20 A7 20 41 B2 4E 49 45 55 57 00 CD 17 DC | . A.NIEUW....|
00000FB0: 2D 8B 20 41 B1 30 20 A7 20 8D 20 31 32 33 30 30 |-. A.0 . . 12300|
00000FC0: 3A 27 45 56 45 4E 20 47 45 44 55 4C 44 00 F8 17 |:'EVEN GEDULD...|
00000FD0: E6 2D 4E 49 45 55 57 B2 30 3A 4F 55 44 B2 31 3A |.-NIEUW.0:OUD.1:|
00000FE0: 8B 20 41 B1 30 20 A7 20 8D 20 31 33 30 30 30 3A |. A.0 . . 13000:|
00000FF0: 27 4B 4F 50 49 45 45 52 00 16 18 F0 2D 53 54 41 |'KOPIEER....-STA|
00001000: 52 54 58 B2 41 AC 28 4D 41 58 42 52 45 45 44 54 |RTX.A.(MAXBREEDT|
00001010: 45 AA 33 29 AA 31 00 43 18 FA 2D 47 45 4E 4E 55 |E.3).1.C..-GENNU|
00001020: 4D 4D 45 52 B2 30 3A 8D 20 31 34 32 30 30 3A 27 |MMER.0:. 14200:'|
00001030: 47 45 4E 4E 55 4D 4D 45 52 20 53 43 48 52 49 4A |GENNUMMER SCHRIJ|
00001040: 56 45 4E 00 6A 18 04 2E 47 45 4E B2 30 3A 8D 20 |VEN.j...GEN.0:. |
00001050: 31 31 30 37 30 3A 27 4E 49 45 55 57 45 20 57 45 |11070:'NIEUWE WE|
00001060: 52 45 4C 44 20 4D 41 4B 45 4E 00 9E 18 0E 2E 8B |RELD MAKEN......|
00001070: 20 41 B1 30 20 A7 20 53 54 41 52 54 58 B2 31 3A | A.0 . STARTX.1:|
00001080: 47 45 4E B2 30 3A 8D 20 31 34 30 33 30 3A 47 45 |GEN.0:. 14030:GE|
00001090: 4E B2 31 3A 27 41 46 44 52 55 4B 4B 45 4E 00 C4 |N.1:'AFDRUKKEN..|
000010A0: 18 18 2E 8D 20 31 34 35 30 30 3A 27 52 45 43 48 |.... 14500:'RECH|
000010B0: 54 45 52 53 43 48 45 52 4D 20 53 43 48 4F 91 4D |TERSCHERM SCHO.M|
000010C0: 41 4B 45 4E 00 CA 18 72 2E 8E 00 EC 18 7C 2E 8F |AKEN...r.....|..|
000010D0: 20 2A 2A 2A 2A 20 49 4E 56 4F 45 52 20 42 45 56 | **** INVOER BEV|
000010E0: 45 53 54 49 47 45 4E 20 2A 2A 2A 2A 00 F2 18 86 |ESTIGEN ****....|
000010F0: 2E 27 00 0C 19 90 2E 8D 20 32 35 30 30 3A 27 49 |.'...... 2500:'I|
00001100: 4E 49 54 20 43 4F 4D 52 45 47 45 4C 00 27 19 9A |NIT COMREGEL.'..|
00001110: 2E 99 20 22 5A 4F 20 47 4F 45 44 20 3F 20 3C 4A |.. "ZO GOED ? <J|
00001120: 2F 4E 3E 20 4A 22 3B 00 4A 19 A4 2E 4B 53 45 54 |/N> J";.J...KSET|
00001130: 24 B2 22 4A 4A 4E 4E 22 3A 41 4E 54 57 C3 B2 31 |$."JJNN":ANTW..1|
00001140: 3A 41 4E 54 57 24 B2 22 4A 22 00 5F 19 AE 2E 48 |:ANTW$."J"._...H|
00001150: 4F B2 48 4F AA 31 38 3A 8D 20 32 30 30 30 30 00 |O.HO.18:. 20000.|
00001160: 76 19 B8 2E 8B 20 41 4E 54 57 24 B2 22 22 20 A7 |v.... ANTW$."" .|
00001170: 20 31 31 39 32 30 00 8F 19 C2 2E 50 B2 49 4E 53 | 11920.....P.INS|
00001180: 54 52 28 4B 53 45 54 24 2C 41 4E 54 57 24 29 00 |TR(KSET$,ANTW$).|
00001190: 95 19 D6 2E 8E 00 C1 19 E0 2E 8F 20 2A 2A 2A 2A |........... ****|
000011A0: 20 4E 49 45 55 57 45 20 47 45 4E 45 52 41 54 49 | NIEUWE GENERATI|
000011B0: 45 53 20 42 45 52 45 4B 45 4E 45 4E 20 2A 2A 2A |ES BEREKENEN ***|
000011C0: 2A 00 C7 19 EA 2E 27 00 F3 19 EF 2E 8B 20 4F 55 |*.....'...... OU|
000011D0: 44 AA 4E 49 45 55 57 B2 30 20 A7 20 8D 20 31 32 |D.NIEUW.0 . . 12|
000011E0: 34 30 30 3A 8E 20 27 57 41 41 52 53 43 48 55 57 |400:. 'WAARSCHUW|
000011F0: 49 4E 47 00 07 1A F4 2E 8D 20 31 32 33 30 30 3A |ING...... 12300:|
00001200: 27 47 45 44 55 4C 44 00 31 1A F9 2E 8D 20 32 33 |'GEDULD.1.... 23|
00001210: 30 30 30 3A 27 41 4C 54 45 52 4E 2E 20 4E 49 45 |000:'ALTERN. NIE|
00001220: 55 57 45 20 47 45 4E 20 42 45 52 45 4B 45 4E 45 |UWE GEN BEREKENE|
00001230: 4E 00 4B 1A 58 2F 47 45 4E 4E 55 4D 4D 45 52 B2 |N.K.X/GENNUMMER.|
00001240: 47 45 4E 4E 55 4D 4D 45 52 AA 31 00 57 1A 62 2F |GENNUMMER.1.W.b/|
00001250: 8D 20 31 34 30 30 30 00 6A 1A 6C 2F 53 57 41 50 |. 14000.j.l/SWAP|
00001260: 20 4F 55 44 2C 4E 49 45 55 57 00 70 1A 9E 2F 8E | OUD,NIEUW.p../.|
00001270: 00 87 1A 0C 30 8F 20 2A 2A 2A 2A 20 47 45 44 55 |....0. **** GEDU|
00001280: 4C 44 20 2A 2A 2A 2A 00 8D 1A 16 30 27 00 A7 1A |LD ****....0'...|
00001290: 20 30 8D 20 32 35 30 30 3A 27 49 4E 49 54 20 43 | 0. 2500:'INIT C|
000012A0: 4F 4D 52 45 47 45 4C 00 BC 1A 2A 30 99 20 22 45 |OMREGEL...*0. "E|
000012B0: 56 45 4E 20 47 45 44 55 4C 44 22 3B 00 C2 1A 66 |VEN GEDULD";...f|
000012C0: 30 8E 00 DF 1A 70 30 8F 20 2A 2A 2A 2A 20 57 41 |0....p0. **** WA|
000012D0: 41 52 53 43 48 55 57 49 4E 47 20 2A 2A 2A 2A 00 |ARSCHUWING ****.|
000012E0: E5 1A 7A 30 27 00 FF 1A 84 30 8D 20 32 35 30 30 |..z0'....0. 2500|
000012F0: 3A 27 49 4E 49 54 20 43 4F 4D 52 45 47 45 4C 00 |:'INIT COMREGEL.|
00001300: 2C 1B 8E 30 99 20 22 45 45 52 53 54 20 4E 49 45 |,..0. "EERST NIE|
00001310: 55 57 45 20 57 45 52 45 4C 44 20 4D 41 4B 45 4E |UWE WERELD MAKEN|
00001320: 21 20 3C 54 4F 45 54 53 3E 20 22 3B 00 36 1B 98 |! <TOETS> ";.6..|
00001330: 30 8D 20 32 31 30 00 3C 1B CA 30 8E 00 61 1B C8 |0. 210.<..0..a..|
00001340: 32 8F 20 2A 2A 2A 2A 20 4B 4F 50 49 45 45 52 20 |2. **** KOPIEER |
00001350: 4F 55 44 20 49 4E 20 4E 49 45 55 57 20 2A 2A 2A |OUD IN NIEUW ***|
00001360: 2A 00 75 1B DC 32 81 20 48 B2 31 20 A4 20 42 52 |*.u..2. H.1 . BR|
00001370: 45 45 44 54 45 00 88 1B E6 32 81 20 56 B2 31 20 |EEDTE....2. V.1 |
00001380: A4 20 48 4F 4F 47 54 45 00 AE 1B F0 32 57 45 52 |. HOOGTE....2WER|
00001390: 45 4C 44 28 4E 49 45 55 57 2C 48 2C 56 29 B2 57 |ELD(NIEUW,H,V).W|
000013A0: 45 52 45 4C 44 28 4F 55 44 2C 48 2C 56 29 00 B6 |ERELD(OUD,H,V)..|
000013B0: 1B FA 32 82 20 56 00 BE 1B 04 33 82 20 48 00 C4 |..2. V....3. H..|
000013C0: 1B 22 33 8E 00 E5 1B B0 36 8F 20 2A 2A 2A 2A 20 |."3.....6. **** |
000013D0: 57 45 52 45 4C 44 20 41 46 44 52 55 4B 4B 45 4E |WERELD AFDRUKKEN|
000013E0: 20 2A 2A 2A 2A 00 07 1C BA 36 53 54 41 52 54 58 | ****....6STARTX|
000013F0: B2 4E 49 45 55 57 AC 28 4D 41 58 42 52 45 45 44 |.NIEUW.(MAXBREED|
00001400: 54 45 AA 33 29 AA 31 00 3B 1C C4 36 8D 20 31 34 |TE.3).1.;..6. 14|
00001410: 32 30 30 3A 8D 20 31 34 33 30 30 3A 27 47 45 4E |200:. 14300:'GEN|
00001420: 4E 52 20 53 43 48 52 49 4A 56 45 4E 20 45 4E 20 |NR SCHRIJVEN EN |
00001430: 4B 41 44 45 52 20 4D 41 4B 45 4E 00 4E 1C CE 36 |KADER MAKEN.N..6|
00001440: 81 20 56 B2 31 20 A4 20 48 4F 4F 47 54 45 00 62 |. V.1 . HOOGTE.b|
00001450: 1C D8 36 81 20 48 B2 31 20 A4 20 42 52 45 45 44 |..6. H.1 . BREED|
00001460: 54 45 00 84 1C E2 36 48 4F B2 53 54 41 52 54 58 |TE....6HO.STARTX|
00001470: AA 48 3A 56 45 B2 53 54 41 52 54 59 AA 56 3A 8D |.H:VE.STARTY.V:.|
00001480: 20 31 31 30 00 B5 1C EC 36 8B 20 57 45 52 45 4C | 110....6. WEREL|
00001490: 44 28 47 45 4E 2C 48 2C 56 29 B1 30 20 A7 20 99 |D(GEN,H,V).0 . .|
000014A0: 20 42 45 57 4F 91 44 24 20 45 4C 53 45 20 99 20 | BEWO.D$ ELSE . |
000014B0: 4C 45 45 47 24 00 BD 1C F6 36 82 20 48 00 C5 1C |LEEG$....6. H...|
000014C0: 00 37 82 20 56 00 CB 1C 0A 37 8E 00 F5 1C 78 37 |.7. V....7....x7|
000014D0: 8F 20 2A 2A 2A 2A 20 47 45 4E 45 52 41 54 49 45 |. **** GENERATIE|
000014E0: 4E 55 4D 4D 45 52 20 53 43 48 52 49 4A 56 45 4E |NUMMER SCHRIJVEN|
000014F0: 20 2A 2A 2A 2A 00 FB 1C 82 37 27 00 0E 1D 8C 37 | ****....7'....7|
00001500: 8B 20 47 45 4E B2 30 20 A7 20 47 47 B2 30 00 29 |. GEN.0 . GG.0.)|
00001510: 1D 96 37 8B 20 47 45 4E B1 30 20 A7 20 47 47 B2 |..7. GEN.0 . GG.|
00001520: 47 45 4E 4E 55 4D 4D 45 52 00 49 1D A0 37 48 4F |GENNUMMER.I..7HO|
00001530: B2 53 54 41 52 54 58 3A 56 45 B2 53 54 41 52 54 |.STARTX:VE.START|
00001540: 59 AB 31 3A 8D 20 31 31 30 00 5E 1D AA 37 99 22 |Y.1:. 110.^..7."|
00001550: 47 45 4E 45 52 41 54 49 45 22 3B 47 47 3B 00 64 |GENERATIE";GG;.d|
00001560: 1D D2 37 8E 00 80 1D DC 37 8F 20 2A 2A 2A 2A 20 |..7.....7. **** |
00001570: 4B 41 44 45 52 20 4D 41 4B 45 4E 20 2A 2A 2A 2A |KADER MAKEN ****|
00001580: 00 86 1D E6 37 27 00 B2 1D F0 37 53 54 52 45 45 |....7'....7STREE|
00001590: 50 24 B2 22 2B 22 AA 53 54 52 49 4E 47 24 28 42 |P$."+".STRING$(B|
000015A0: 52 45 45 44 54 45 2C C6 28 22 2D 22 29 29 AA 22 |REEDTE,.("-"))."|
000015B0: 2B 22 00 D6 1D FA 37 56 4F B0 B2 53 54 41 52 54 |+"....7VO..START|
000015C0: 58 3A 41 43 48 54 45 52 B2 56 4F B0 AA 42 52 45 |X:ACHTER.VO..BRE|
000015D0: 45 44 54 45 AA 31 00 E4 1D 0E 38 99 20 53 54 52 |EDTE.1....8. STR|
000015E0: 45 45 50 24 00 F0 1D 18 38 56 45 B2 56 45 AA 31 |EEP$....8VE.VE.1|
000015F0: 00 03 1E 22 38 81 20 49 B2 31 20 A4 20 48 4F 4F |..."8. I.1 . HOO|
00001600: 47 54 45 00 1B 1E 2C 38 48 4F B2 56 4F B0 3A 8D |GTE...,8HO.VO.:.|
00001610: 20 31 31 30 3A 99 20 22 5C 22 3B 00 36 1E 36 38 | 110:. "\";.6.68|
00001620: 48 4F B2 41 43 48 54 45 52 3A 8D 20 31 31 30 3A |HO.ACHTER:. 110:|
00001630: 99 20 22 5C 22 3B 00 42 1E 40 38 56 45 B2 56 45 |. "\";.B.@8VE.VE|
00001640: AA 31 00 4A 1E 4A 38 82 20 49 00 65 1E 54 38 48 |.1.J.J8. I.e.T8H|
00001650: 4F B2 56 4F B0 3A 8D 20 31 31 30 3A 99 20 53 54 |O.VO.:. 110:. ST|
00001660: 52 45 45 50 24 00 8B 1E A4 38 8F 20 2A 2A 20 52 |REEP$....8. ** R|
00001670: 45 43 48 54 45 52 53 43 48 45 52 4D 20 53 43 48 |ECHTERSCHERM SCH|
00001680: 4F 4F 4E 56 45 47 45 4E 20 2A 2A 00 91 1E AE 38 |OONVEGEN **....8|
00001690: 27 00 AF 1E B8 38 53 54 41 52 54 58 B2 32 AC 28 |'....8STARTX.2.(|
000016A0: 4D 41 58 42 52 45 45 44 54 45 AA 33 29 AA 31 00 |MAXBREEDTE.3).1.|
000016B0: BD 1E C2 38 48 4F B2 53 54 41 52 54 58 00 DB 1E |...8HO.STARTX...|
000016C0: CC 38 57 49 53 24 B2 53 50 41 43 45 24 28 4D 41 |.8WIS$.SPACE$(MA|
000016D0: 58 42 52 45 45 44 54 45 AA 32 29 00 FF 1E D6 38 |XBREEDTE.2)....8|
000016E0: 81 20 56 45 B2 53 54 41 52 54 59 AB 31 20 A4 20 |. VE.STARTY.1 . |
000016F0: 53 54 41 52 54 59 AA 48 4F 4F 47 54 45 AA 31 00 |STARTY.HOOGTE.1.|
00001700: 11 1F E0 38 8D 20 31 31 30 3A 99 20 57 49 53 24 |...8. 110:. WIS$|
00001710: 3B 00 1A 1F EA 38 82 20 56 45 00 20 1F F4 38 27 |;....8. VE. ..8'|
00001720: 00 26 1F FE 38 8E 00 43 1F 98 3A 8F 20 2A 2A 2A |.&..8..C..:. ***|
00001730: 2A 20 4E 41 41 52 20 50 52 49 4E 54 45 52 20 2A |* NAAR PRINTER *|
00001740: 2A 2A 2A 00 49 1F A2 3A 27 00 5C 1F AC 3A 91 20 |***.I..:'.\..:. |
00001750: 45 52 52 B0 20 89 20 31 35 32 39 30 00 6E 1F FC |ERR. . 15290.n..|
00001760: 3A 4C 99 20 53 43 48 45 49 44 49 4E 47 24 00 8C |:L. SCHEIDING$..|
00001770: 1F 06 3B 4C 99 20 4B 4F 50 24 3B 22 20 5C 20 22 |..;L. KOP$;" \ "|
00001780: 3B 4E 41 41 4D 24 3B 22 20 5C 20 22 00 9E 1F 10 |;NAAM$;" \ "....|
00001790: 3B 4C 99 20 53 43 48 45 49 44 49 4E 47 24 00 B3 |;L. SCHEIDING$..|
000017A0: 1F 60 3B 81 20 56 B2 33 20 A4 20 48 4F 4F 47 54 |.`;. V.3 . HOOGT|
000017B0: 45 AA 35 00 D0 1F 6A 3B 81 20 48 B2 31 20 A4 20 |E.5...j;. H.1 . |
000017C0: 33 AC 28 4D 41 58 42 52 45 45 44 54 45 AA 33 29 |3.(MAXBREEDTE.3)|
000017D0: 00 E7 1F 74 3B 4C 99 20 C7 28 53 43 52 45 45 4E |...t;L. .(SCREEN|
000017E0: 28 56 2C 48 29 29 3B 00 EF 1F 7E 3B 82 20 48 00 |(V,H));...~;. H.|
000017F0: F6 1F 88 3B 4C 99 00 FE 1F 92 3B 82 20 56 00 10 |...;L.....;. V..|
00001800: 20 9C 3B 4C 99 20 53 43 48 45 49 44 49 4E 47 24 | .;L. SCHEIDING$|
00001810: 00 25 20 A6 3B 81 20 49 B2 31 20 A4 20 33 3A 4C |.% .;. I.1 . 3:L|
00001820: 99 3A 82 20 49 00 2B 20 B0 3B 8E 00 4B 20 BA 3B |.:. I.+ .;..K .;|
00001830: 46 4F 55 54 B2 37 3A 8D 20 31 38 30 30 30 3A 52 |FOUT.7:. 18000:R|
00001840: 45 53 55 4D 45 20 31 35 32 38 30 00 6A 20 80 3E |ESUME 15280.j .>|
00001850: 8F 20 2A 2A 2A 2A 20 42 45 53 54 41 4E 44 53 42 |. **** BESTANDSB|
00001860: 45 48 45 45 52 20 2A 2A 2A 2A 00 70 20 8A 3E 27 |EHEER ****.p .>'|
00001870: 00 90 20 E4 3E 8F 20 2A 2A 2A 2A 20 4C 45 45 53 |.. .>. **** LEES|
00001880: 20 56 41 4E 20 53 43 48 49 4A 46 20 2A 2A 2A 2A | VAN SCHIJF ****|
00001890: 00 96 20 EE 3E 27 00 AF 20 F8 3E 8D 20 31 36 39 |.. .>'.. .>. 169|
000018A0: 30 30 3A 27 4E 41 41 4D 20 56 52 41 47 45 4E 00 |00:'NAAM VRAGEN.|
000018B0: CE 20 02 3F 8D 20 32 31 35 30 30 3A 27 57 45 52 |. .?. 21500:'WER|
000018C0: 45 4C 44 20 53 43 48 4F 91 4D 41 4B 45 4E 00 E5 |ELD SCHO.MAKEN..|
000018D0: 20 0C 3F 4E 41 41 4D 24 B2 41 4E 54 57 24 AA 22 | .?NAAM$.ANTW$."|
000018E0: 2E 4C 49 46 22 00 F8 20 16 3F 91 20 45 52 52 B0 |.LIF".. .?. ERR.|
000018F0: 20 89 20 31 36 33 39 30 00 0E 21 48 3F 9F 20 4E | . 16390..!H?. N|
00001900: 41 41 4D 24 20 81 20 85 20 41 53 20 23 31 00 25 |AAM$ . . AS #1.%|
00001910: 21 52 3F 45 52 41 53 45 20 57 45 52 45 4C 44 2C |!R?ERASE WERELD,|
00001920: 4C 49 4A 53 54 00 3D 21 5C 3F 85 20 23 31 2C 42 |LIJST.=!\?. #1,B|
00001930: 52 45 45 44 54 45 2C 48 4F 4F 47 54 45 00 62 21 |REEDTE,HOOGTE.b!|
00001940: 66 3F 86 20 57 45 52 45 4C 44 28 31 2C 42 52 45 |f?. WERELD(1,BRE|
00001950: 45 44 54 45 2C 48 4F 4F 47 54 45 29 3A 47 45 4E |EDTE,HOOGTE):GEN|
00001960: B2 30 00 80 21 6B 3F 86 20 4C 49 4A 53 54 28 42 |.0..!k?. LIJST(B|
00001970: 52 45 45 44 54 45 AC 48 4F 4F 47 54 45 2C 31 29 |REEDTE.HOOGTE,1)|
00001980: 00 95 21 70 3F 81 20 56 45 52 B2 31 20 A4 20 48 |..!p?. VER.1 . H|
00001990: 4F 4F 47 54 45 00 AA 21 7A 3F 81 20 48 B0 B2 31 |OOGTE..!z?. H..1|
000019A0: 20 A4 20 42 52 45 45 44 54 45 00 B8 21 84 3F 85 | . BREEDTE..!.?.|
000019B0: 20 23 31 2C 43 45 4C 24 00 E2 21 89 3F 8B 20 43 | #1,CEL$..!.?. C|
000019C0: 45 4C 24 B2 42 45 57 4F 91 44 24 20 A7 20 8D 20 |EL$.BEWO.D$ . . |
000019D0: 32 32 32 30 30 20 45 4C 53 45 20 8D 20 32 32 30 |22200 ELSE . 220|
000019E0: 30 30 00 EB 21 8E 3F 82 20 48 B0 00 F5 21 98 3F |00..!.?. H...!.?|
000019F0: 82 20 56 45 52 00 FB 21 A2 3F A0 00 01 22 AC 3F |. VER..!.?...".?|
00001A00: 27 00 2C 22 B6 3F 47 45 4E 4E 55 4D 4D 45 52 B2 |'.,".?GENNUMMER.|
00001A10: 30 3A 4E 49 45 55 57 B2 30 3A 8D 20 31 34 30 30 |0:NIEUW.0:. 1400|
00001A20: 30 3A 27 41 46 44 52 55 4B 4B 45 4E 00 59 22 C0 |0:'AFDRUKKEN.Y".|
00001A30: 3F 8D 20 31 31 32 30 30 3A 27 31 53 54 45 20 47 |?. 11200:'1STE G|
00001A40: 45 4E 20 42 45 52 45 4B 45 4E 45 4E 20 45 4E 20 |EN BEREKENEN EN |
00001A50: 41 46 44 52 55 4B 4B 45 4E 00 5F 22 FC 3F 8E 00 |AFDRUKKEN._".?..|
00001A60: 7F 22 06 40 46 4F 55 54 B2 35 3A 8D 20 31 38 30 |.".@FOUT.5:. 180|
00001A70: 30 30 3A 52 45 53 55 4D 45 20 31 36 33 38 30 00 |00:RESUME 16380.|
00001A80: 9B 22 10 40 8F 20 2A 2A 2A 2A 20 4E 41 41 52 20 |.".@. **** NAAR |
00001A90: 53 43 48 49 4A 46 20 2A 2A 2A 2A 00 A1 22 1A 40 |SCHIJF ****..".@|
00001AA0: 27 00 CD 22 1F 40 8B 20 4F 55 44 AA 4E 49 45 55 |'..".@. OUD.NIEU|
00001AB0: 57 B2 30 20 A7 20 8D 20 31 32 34 30 30 3A 8E 20 |W.0 . . 12400:. |
00001AC0: 27 57 41 41 52 53 43 48 55 57 49 4E 47 00 E6 22 |'WAARSCHUWING.."|
00001AD0: 24 40 8D 20 31 36 39 30 30 3A 27 4E 41 41 4D 20 |$@. 16900:'NAAM |
00001AE0: 56 52 41 47 45 4E 00 FD 22 2E 40 4E 41 41 4D 24 |VRAGEN..".@NAAM$|
00001AF0: B2 41 4E 54 57 24 AA 22 2E 4C 49 46 22 00 10 23 |.ANTW$.".LIF"..#|
00001B00: 38 40 91 20 45 52 52 B0 20 89 20 31 36 35 39 30 |8@. ERR. . 16590|
00001B10: 00 2B 23 74 40 9F 20 4E 41 41 4D 24 20 81 20 4F |.+#t@. NAAM$ . O|
00001B20: 55 54 50 55 54 20 41 53 20 23 31 00 47 23 7E 40 |UTPUT AS #1.G#~@|
00001B30: 57 52 49 54 45 20 23 31 2C 42 52 45 45 44 54 45 |WRITE #1,BREEDTE|
00001B40: 2C 48 4F 4F 47 54 45 00 5C 23 88 40 81 20 56 45 |,HOOGTE.\#.@. VE|
00001B50: 52 B2 31 20 A4 20 48 4F 4F 47 54 45 00 71 23 92 |R.1 . HOOGTE.q#.|
00001B60: 40 81 20 48 B0 B2 31 20 A4 20 42 52 45 45 44 54 |@. H..1 . BREEDT|
00001B70: 45 00 B1 23 9C 40 8B 20 57 45 52 45 4C 44 28 30 |E..#.@. WERELD(0|
00001B80: 2C 48 B0 2C 56 45 52 29 B1 30 20 A7 20 57 52 49 |,H.,VER).0 . WRI|
00001B90: 54 45 20 23 31 2C 42 45 57 4F 91 44 24 20 45 4C |TE #1,BEWO.D$ EL|
00001BA0: 53 45 20 57 52 49 54 45 20 23 31 2C 4C 45 45 47 |SE WRITE #1,LEEG|
00001BB0: 24 00 B7 23 C4 40 8E 00 D7 23 CE 40 46 4F 55 54 |$..#.@...#.@FOUT|
00001BC0: B2 34 3A 8D 20 31 38 30 30 30 3A 52 45 53 55 4D |.4:. 18000:RESUM|
00001BD0: 45 20 31 36 35 38 30 00 05 24 3C 41 8F 20 2A 2A |E 16580..$<A. **|
00001BE0: 2A 2A 20 4F 56 45 52 5A 49 43 48 54 20 42 45 53 |** OVERZICHT BES|
00001BF0: 54 41 4E 44 45 4E 20 4F 50 20 53 43 48 49 4A 46 |TANDEN OP SCHIJF|
00001C00: 20 2A 2A 2A 2A 00 0B 24 46 41 27 00 2A 24 50 41 | ****..$FA'.*$PA|
00001C10: 8D 20 32 31 35 30 30 3A 27 57 45 52 45 4C 44 20 |. 21500:'WERELD |
00001C20: 53 43 48 4F 91 4D 41 4B 45 4E 00 59 24 64 41 99 |SCHO.MAKEN.Y$dA.|
00001C30: 20 22 4F 56 45 52 5A 49 43 48 54 20 56 41 4E 20 | "OVERZICHT VAN |
00001C40: 4C 49 46 45 20 42 45 53 54 41 4E 44 45 4E 20 4F |LIFE BESTANDEN O|
00001C50: 50 20 53 43 48 49 4A 46 22 00 65 24 6E 41 56 45 |P SCHIJF".e$nAVE|
00001C60: B2 56 45 AA 32 00 77 24 82 41 46 49 4C 45 53 20 |.VE.2.w$.AFILES |
00001C70: 22 2A 2E 4C 49 46 22 00 7D 24 8C 41 8E 00 9D 24 |"*.LIF".}$.A...$|
00001C80: 96 41 46 4F 55 54 B2 36 3A 8D 20 31 38 30 30 30 |.AFOUT.6:. 18000|
00001C90: 3A 52 45 53 55 4D 45 20 31 36 37 38 30 00 B9 24 |:RESUME 16780..$|
00001CA0: 04 42 8F 20 2A 2A 2A 2A 20 4E 41 41 4D 20 56 52 |.B. **** NAAM VR|
00001CB0: 41 47 45 4E 20 2A 2A 2A 2A 00 BF 24 0E 42 27 00 |AGEN ****..$.B'.|
00001CC0: E4 24 18 42 8D 20 31 31 30 3A 99 20 22 4E 41 41 |.$.B. 110:. "NAA|
00001CD0: 4D 20 42 45 53 54 41 4E 44 3A 22 3B 50 52 4F 4D |M BESTAND:";PROM|
00001CE0: 50 54 24 3B 00 F1 24 22 42 48 4F B2 48 4F AA 31 |PT$;..$"BHO.HO.1|
00001CF0: 36 00 19 25 2C 42 41 4E 54 57 C3 B2 38 3A 4B 53 |6..%,BANTW..8:KS|
00001D00: 45 54 24 B2 41 4C 46 41 24 AA 43 49 4A 46 45 52 |ET$.ALFA$.CIJFER|
00001D10: 24 3A 8D 20 32 30 30 30 30 00 1F 25 5E 42 8E 00 |$:. 20000..%^B..|
00001D20: 3B 25 68 42 8F 20 2A 2A 2A 2A 20 42 45 2D 45 49 |;%hB. **** BE-EI|
00001D30: 4E 44 49 47 45 4E 20 2A 2A 2A 2A 00 41 25 72 42 |NDIGEN ****.A%rB|
00001D40: 27 00 5B 25 7C 42 8D 20 32 35 30 30 3A 27 49 4E |'.[%|B. 2500:'IN|
00001D50: 49 54 20 43 4F 4D 52 45 47 45 4C 00 7E 25 86 42 |IT COMREGEL.~%.B|
00001D60: 99 20 22 57 49 4C 20 4A 45 20 53 54 4F 50 50 45 |. "WIL JE STOPPE|
00001D70: 4E 20 3F 20 3C 4A 2F 4E 3E 20 20 4E 22 3B 00 A1 |N ? <J/N> N";..|
00001D80: 25 90 42 4B 53 45 54 24 B2 22 4A 4A 4E 4E 22 3A |%.BKSET$."JJNN":|
00001D90: 41 4E 54 57 C3 B2 31 3A 41 4E 54 57 24 B2 22 4E |ANTW..1:ANTW$."N|
00001DA0: 22 00 B6 25 9A 42 48 4F B2 48 4F AA 32 36 3A 8D |"..%.BHO.HO.26:.|
00001DB0: 20 32 30 30 30 30 00 CD 25 9F 42 8B 20 41 4E 54 | 20000..%.B. ANT|
00001DC0: 57 24 B2 22 22 20 A7 20 31 37 30 32 30 00 F3 25 |W$."" . 17020..%|
00001DD0: A4 42 8B 20 49 4E 53 54 52 28 4B 53 45 54 24 2C |.B. INSTR(KSET$,|
00001DE0: 41 4E 54 57 24 29 B1 32 20 A7 20 8D 20 32 30 30 |ANTW$).2 . . 200|
00001DF0: 30 3A 8E 00 02 26 AE 42 91 20 45 52 52 B0 20 89 |0:...&.B. ERR. .|
00001E00: 20 30 00 0C 26 B8 42 4B 45 59 20 91 00 12 26 C2 | 0..&.BKEY ...&.|
00001E10: 42 8E 00 3C 26 50 46 8F 20 2A 2A 2A 2A 20 53 59 |B..<&PF. **** SY|
00001E20: 53 54 45 45 4D 46 4F 55 54 45 4E 20 41 46 48 41 |STEEMFOUTEN AFHA|
00001E30: 4E 44 45 4C 45 4E 20 2A 2A 2A 2A 2A 00 42 26 5A |NDELEN *****.B&Z|
00001E40: 46 27 00 4E 26 64 46 8C 20 32 35 33 30 30 00 61 |F'.N&dF. 25300.a|
00001E50: 26 6E 46 87 20 46 4F 55 54 4E 52 2C 46 4F 55 54 |&nF. FOUTNR,FOUT|
00001E60: 24 00 78 26 78 46 57 48 49 4C 45 20 46 4F 55 54 |$.x&xFWHILE FOUT|
00001E70: 4E 52 B3 B1 46 4F 55 54 00 8B 26 82 46 87 20 46 |NR..FOUT..&.F. F|
00001E80: 4F 55 54 4E 52 2C 46 4F 55 54 24 00 92 26 8C 46 |OUTNR,FOUT$..&.F|
00001E90: 57 80 00 A3 26 96 46 8D 20 32 35 30 30 3A 8D 20 |W...&.F. 2500:. |
00001EA0: 31 31 30 00 CB 26 A0 46 99 20 46 4F 55 54 24 3B |110..&.F. FOUT$;|
00001EB0: 22 2E 20 54 4F 45 54 53 20 4F 4D 20 44 4F 4F 52 |". TOETS OM DOOR|
00001EC0: 20 54 45 20 47 41 41 4E 2E 22 3B 00 D5 26 AA 46 | TE GAAN.";..&.F|
00001ED0: 8D 20 32 31 30 00 E0 26 B4 46 46 4F 55 54 B2 30 |. 210..&.FFOUT.0|
00001EE0: 00 E6 26 0E 47 8E 00 09 27 38 4A 8F 20 2A 2A 2A |..&.G...'8J. ***|
00001EF0: 2A 20 57 45 52 45 4C 44 4D 41 54 45 4E 20 56 52 |* WERELDMATEN VR|
00001F00: 41 47 45 4E 20 2A 2A 2A 2A 00 0F 27 42 4A 27 00 |AGEN ****..'BJ'.|
00001F10: 2E 27 4C 4A 8D 20 32 31 35 30 30 3A 27 57 45 52 |.'LJ. 21500:'WER|
00001F20: 45 4C 44 20 53 43 48 4F 91 4D 41 4B 45 4E 00 48 |ELD SCHO.MAKEN.H|
00001F30: 27 56 4A 8D 20 32 35 30 30 3A 27 49 4E 49 54 20 |'VJ. 2500:'INIT |
00001F40: 43 4F 4D 52 45 47 45 4C 00 72 27 60 4A 99 20 22 |COMREGEL.r'`J. "|
00001F50: 47 45 45 46 20 42 52 45 45 44 54 45 2C 20 4D 41 |GEEF BREEDTE, MA|
00001F60: 58 3A 22 3B C4 28 4D 41 58 42 52 45 45 44 54 45 |X:";.(MAXBREEDTE|
00001F70: 29 3B 00 A0 27 6A 4A 4B 53 45 54 24 B2 43 49 4A |);..'jJKSET$.CIJ|
00001F80: 46 45 52 24 3A 41 4E 54 57 C3 B2 33 3A 41 4E 54 |FER$:ANTW..3:ANT|
00001F90: 57 24 B2 C4 28 4D 41 58 42 52 45 45 44 54 45 29 |W$..(MAXBREEDTE)|
00001FA0: 00 B5 27 74 4A 48 4F B2 48 4F AA 32 31 3A 8D 20 |..'tJHO.HO.21:. |
00001FB0: 32 30 30 30 30 00 CA 27 7E 4A 42 52 45 45 44 54 |20000..'~JBREEDT|
00001FC0: 45 B2 C5 28 41 4E 54 57 24 29 00 F7 27 88 4A 8B |E..(ANTW$)..'.J.|
00001FD0: 20 42 52 45 45 44 54 45 B1 4D 41 58 42 52 45 45 | BREEDTE.MAXBREE|
00001FE0: 44 54 45 20 B0 20 42 52 45 45 44 54 45 B2 30 20 |DTE . BREEDTE.0 |
00001FF0: A7 20 31 39 30 33 30 00 23 28 9C 4A 99 20 22 47 |. 19030.#(.J. "G|
00002000: 45 45 46 20 48 4F 4F 47 54 45 2C 20 4D 41 58 3A |EEF HOOGTE, MAX:|
00002010: 22 3B C4 28 4D 41 58 48 4F 4F 47 54 45 29 3B 22 |";.(MAXHOOGTE);"|
00002020: 20 22 3B 00 3A 28 A6 4A 41 4E 54 57 24 B2 C4 28 | ";.:(.JANTW$..(|
00002030: 4D 41 58 48 4F 4F 47 54 45 29 00 4F 28 B0 4A 48 |MAXHOOGTE).O(.JH|
00002040: 4F B2 48 4F AA 31 38 3A 8D 20 32 30 30 30 30 00 |O.HO.18:. 20000.|
00002050: 63 28 BA 4A 48 4F 4F 47 54 45 B2 C5 28 41 4E 54 |c(.JHOOGTE..(ANT|
00002060: 57 24 29 00 92 28 C4 4A 8B 20 48 4F 4F 47 54 45 |W$)..(.J. HOOGTE|
00002070: B1 4D 41 58 48 4F 4F 47 54 45 20 B0 20 48 4F 4F |.MAXHOOGTE . HOO|
00002080: 47 54 45 B2 30 20 A7 20 48 4F B2 48 4F AB 32 34 |GTE.0 . HO.HO.24|
00002090: 3A 89 00 A9 28 EC 4A 45 52 41 53 45 20 57 45 52 |:...(.JERASE WER|
000020A0: 45 4C 44 2C 4C 49 4A 53 54 00 C8 28 F6 4A 86 20 |ELD,LIJST..(.J. |
000020B0: 57 45 52 45 4C 44 28 31 2C 42 52 45 45 44 54 45 |WERELD(1,BREEDTE|
000020C0: 2C 48 4F 4F 47 54 45 29 00 E6 28 00 4B 86 20 4C |,HOOGTE)..(.K. L|
000020D0: 49 4A 53 54 28 42 52 45 45 44 54 45 AC 48 4F 4F |IJST(BREEDTE.HOO|
000020E0: 47 54 45 2C 31 29 00 03 29 0A 4B 47 45 4E 55 4D |GTE,1)..).KGENUM|
000020F0: 4D 45 52 B2 30 3A 4F 55 44 B2 30 3A 4E 49 45 55 |MER.0:OUD.0:NIEU|
00002100: 57 B2 30 00 09 29 5A 4B 8E 00 28 29 20 4E 8F 20 |W.0..)ZK..() N. |
00002110: 2A 2A 2A 2A 20 49 4E 56 4F 45 52 20 52 4F 55 54 |**** INVOER ROUT|
00002120: 49 4E 45 20 2A 2A 2A 2A 00 2E 29 2A 4E 27 00 46 |INE ****..)*N'.F|
00002130: 29 34 4E 8D 20 32 31 30 3A 8B 20 49 4E 24 B2 52 |)4N. 210:. IN$.R|
00002140: 54 24 20 A7 20 8E 00 50 29 84 4E 8D 20 32 31 30 |T$ . ..P).N. 210|
00002150: 00 8A 29 98 4E 8B 20 49 4E 53 54 52 28 4B 53 45 |..).N. INSTR(KSE|
00002160: 54 24 2C 49 4E 24 29 B1 30 20 A7 20 99 20 49 4E |T$,IN$).0 . . IN|
00002170: 24 3B 3A 41 4E 54 57 24 B2 41 4E 54 57 24 AA 49 |$;:ANTW$.ANTW$.I|
00002180: 4E 24 3A 41 4B B2 41 4B AA 31 00 94 29 A2 4E 8D |N$:AK.AK.1..).N.|
00002190: 20 32 31 30 00 9B 29 AC 4E 57 80 00 A1 29 DE 4E | 210..).NW...).N|
000021A0: 8E 00 C2 29 08 52 8F 20 2A 2A 2A 2A 20 48 55 4C |...).R. **** HUL|
000021B0: 50 53 43 48 45 52 4D 20 4D 41 4B 45 4E 20 2A 2A |PSCHERM MAKEN **|
000021C0: 2A 2A 00 C8 29 12 52 27 00 D4 29 1C 52 8C 20 32 |**..).R'..).R. 2|
000021D0: 35 31 30 30 00 DA 29 62 52 27 00 F6 29 6C 52 41 |5100..)bR'..)lRA|
000021E0: 41 4E 54 52 45 47 45 4C 53 B2 4D 41 58 49 4E 44 |ANTREGELS.MAXIND|
000021F0: 45 58 B3 33 AA 31 00 15 2A 76 52 43 4F 4D 52 45 |EX.3.1..*vRCOMRE|
00002200: 47 45 4C B2 56 4D AB 28 41 41 4E 54 52 45 47 45 |GEL.VM.(AANTREGE|
00002210: 4C 53 AA 31 29 00 32 2A 80 52 48 4F B2 31 3A 56 |LS.1).2*.RHO.1:V|
00002220: 45 B2 43 4F 4D 52 45 47 45 4C AA 31 3A 8D 20 31 |E.COMREGEL.1:. 1|
00002230: 31 30 00 44 2A 8A 52 99 20 53 43 48 45 49 44 49 |10.D*.R. SCHEIDI|
00002240: 4E 47 24 3B 00 84 2A B2 52 48 4F B2 28 49 B3 41 |NG$;..*.RHO.(I.A|
00002250: 41 4E 54 52 45 47 45 4C 53 29 AC 28 48 4D B3 33 |ANTREGELS).(HM.3|
00002260: 29 AA 31 3A 56 45 B2 43 4F 4D 52 45 47 45 4C AA |).1:VE.COMREGEL.|
00002270: 32 AA 28 49 20 4D 4F 44 20 41 41 4E 54 52 45 47 |2.(I MOD AANTREG|
00002280: 45 4C 53 29 00 97 2A BC 52 8D 20 31 31 30 3A 99 |ELS)..*.R. 110:.|
00002290: 20 43 24 28 49 29 3B 00 9F 2A C6 52 82 20 49 00 | C$(I);..*.R. I.|
000022A0: CE 2A D0 52 27 50 4C 41 41 54 53 20 56 45 52 54 |.*.R'PLAATS VERT|
000022B0: 49 43 41 4C 45 20 4C 49 4A 4E 45 4E 20 54 55 53 |ICALE LIJNEN TUS|
000022C0: 53 45 4E 20 33 20 4B 4F 4C 4F 4D 4D 45 4E 00 E5 |SEN 3 KOLOMMEN..|
000022D0: 2A DA 52 81 20 49 B2 31 20 A4 20 41 41 4E 54 52 |*.R. I.1 . AANTR|
000022E0: 45 47 45 4C 53 00 F4 2A EE 52 81 20 49 49 B2 31 |EGELS..*.R. II.1|
000022F0: 20 A4 20 32 00 05 2B F8 52 48 4F B2 49 49 AC 28 | . 2..+.RHO.II.(|
00002300: 48 4D B3 33 29 00 16 2B 02 53 8D 20 31 31 30 3A |HM.3)..+.S. 110:|
00002310: 99 20 22 5C 22 3B 00 1F 2B 0C 53 82 20 49 49 00 |. "\";..+.S. II.|
00002320: 27 2B 16 53 82 20 49 00 2D 2B 2A 53 8E 00 47 2B |'+.S. I.-+*S..G+|
00002330: 34 53 8F 20 2A 2A 2A 2A 20 4B 4F 50 20 4D 41 4B |4S. **** KOP MAK|
00002340: 45 4E 20 2A 2A 2A 2A 00 4D 2B 3E 53 27 00 5C 2B |EN ****.M+>S'.\+|
00002350: 48 53 4C 4B B2 C3 28 4B 4F 50 24 29 00 78 2B 5C |HSLK..(KOP$).x+\|
00002360: 53 48 4F B2 48 4D B3 32 AB 4C 4B B3 32 3A 56 45 |SHO.HM.2.LK.2:VE|
00002370: B2 31 3A 8D 20 31 31 30 00 83 2B 66 53 99 20 4B |.1:. 110..+fS. K|
00002380: 4F 50 24 00 94 2B 70 53 99 20 53 43 48 45 49 44 |OP$..+pS. SCHEID|
00002390: 49 4E 47 24 00 9A 2B 8E 53 8E 00 BD 2B FC 53 8F |ING$..+.S...+.S.|
000023A0: 20 2A 2A 2A 2A 20 57 45 52 45 4C 44 20 53 43 48 | **** WERELD SCH|
000023B0: 4F 4F 4E 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 C3 2B |OONMAKEN ****..+|
000023C0: 06 54 27 00 D1 2B 10 54 56 56 B2 31 3A 48 4F B2 |.T'..+.TVV.1:HO.|
000023D0: 31 00 F1 2B 1A 54 81 20 56 45 B2 53 54 41 52 54 |1..+.T. VE.START|
000023E0: 59 AB 31 20 A4 20 56 56 AA 48 4F 4F 47 54 45 AA |Y.1 . VV.HOOGTE.|
000023F0: 34 00 0B 2C 24 54 8D 20 31 31 30 3A 99 20 53 50 |4..,$T. 110:. SP|
00002400: 41 43 45 24 28 48 4D AB 31 29 3B 00 14 2C 2E 54 |ACE$(HM.1);..,.T|
00002410: 82 20 56 45 00 1A 2C 56 54 8E 00 3B 2C 60 54 8F |. VE..,VT..;,`T.|
00002420: 20 2A 2A 2A 2A 20 57 45 52 45 4C 44 20 4C 45 45 | **** WERELD LEE|
00002430: 47 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 41 2C 6A 54 |GMAKEN ****.A,jT|
00002440: 27 00 55 2C 74 54 81 20 48 B2 31 20 A4 20 42 52 |'.U,tT. H.1 . BR|
00002450: 45 45 44 54 45 00 68 2C 7E 54 81 20 56 B2 31 20 |EEDTE.h,~T. V.1 |
00002460: A4 20 48 4F 4F 47 54 45 00 7E 2C 88 54 57 45 52 |. HOOGTE.~,.TWER|
00002470: 45 4C 44 28 47 45 4E 2C 48 2C 56 29 B2 30 00 86 |ELD(GEN,H,V).0..|
00002480: 2C 92 54 82 20 56 00 8E 2C 9C 54 82 20 48 00 94 |,.T. V..,.T. H..|
00002490: 2C BA 54 8E 00 BA 2C F0 55 8F 20 2A 2A 2A 2A 20 |,.T...,.U. **** |
000024A0: 41 4C 54 45 52 4E 41 54 49 45 46 20 4C 45 45 47 |ALTERNATIEF LEEG|
000024B0: 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 C0 2C FA 55 27 |MAKEN ****..,.U'|
000024C0: 00 DC 2C 04 56 48 49 45 52 B2 57 45 52 45 4C 44 |..,.VHIER.WERELD|
000024D0: 28 47 45 4E 2C 48 B0 2C 56 45 52 29 00 FE 2C 0E |(GEN,H.,VER)..,.|
000024E0: 56 8B 20 48 49 45 52 B3 B2 30 20 A7 20 8E 3A 27 |V. HIER..0 . .:'|
000024F0: 43 45 4C 20 49 53 20 41 4C 20 4C 45 45 47 00 0F |CEL IS AL LEEG..|
00002500: 2D 18 56 48 49 45 52 B2 AB 48 49 45 52 AA 31 00 |-.VHIER..HIER.1.|
00002510: 39 2D 22 56 81 20 48 B2 A5 4D 41 58 28 31 2C 48 |9-"V. H..MAX(1,H|
00002520: B0 AB 31 29 20 A4 20 A5 4D 49 4E 28 42 52 45 45 |..1) . .MIN(BREE|
00002530: 44 54 45 2C 48 B0 AA 31 29 00 64 2D 2C 56 81 20 |DTE,H..1).d-,V. |
00002540: 56 B2 A5 4D 41 58 28 31 2C 56 45 52 AB 31 29 20 |V..MAX(1,VER.1) |
00002550: A4 20 A5 4D 49 4E 28 48 4F 4F 47 54 45 2C 56 45 |. .MIN(HOOGTE,VE|
00002560: 52 AA 31 29 00 7B 2D 36 56 41 42 B2 57 45 52 45 |R.1).{-6VAB.WERE|
00002570: 4C 44 28 47 45 4E 2C 48 2C 56 29 00 9D 2D 40 56 |LD(GEN,H,V)..-@V|
00002580: 8B 20 41 42 B1 30 20 A7 20 41 42 B2 41 42 AB 31 |. AB.0 . AB.AB.1|
00002590: 20 45 4C 53 45 20 41 42 B2 41 42 AA 31 00 B4 2D | ELSE AB.AB.1..-|
000025A0: 4A 56 57 45 52 45 4C 44 28 47 45 4E 2C 48 2C 56 |JVWERELD(GEN,H,V|
000025B0: 29 B2 41 42 00 BC 2D 54 56 82 20 56 00 C4 2D 5E |).AB..-TV. V..-^|
000025C0: 56 82 20 48 00 E0 2D 68 56 57 45 52 45 4C 44 28 |V. H..-hVWERELD(|
000025D0: 47 45 4E 2C 48 B0 2C 56 45 52 29 B2 48 49 45 52 |GEN,H.,VER).HIER|
000025E0: 00 E6 2D AE 56 8E 00 10 2E B8 56 8F 20 2A 2A 2A |..-.V.....V. ***|
000025F0: 2A 20 41 4C 54 45 52 4E 41 54 49 45 46 20 42 45 |* ALTERNATIEF BE|
00002600: 57 4F 4F 4E 44 20 4D 41 4B 45 4E 20 2A 2A 2A 2A |WOOND MAKEN ****|
00002610: 00 16 2E C2 56 27 00 32 2E CC 56 48 49 45 52 B2 |....V'.2..VHIER.|
00002620: 57 45 52 45 4C 44 28 47 45 4E 2C 48 B0 2C 56 45 |WERELD(GEN,H.,VE|
00002630: 52 29 00 52 2E D6 56 8B 20 48 49 45 52 B1 30 20 |R).R..V. HIER.0 |
00002640: A7 20 8E 3A 27 43 45 4C 20 41 4C 20 42 45 57 4F |. .:'CEL AL BEWO|
00002650: 91 44 00 63 2E E0 56 48 49 45 52 B2 AB 48 49 45 |.D.c..VHIER..HIE|
00002660: 52 AA 31 00 8D 2E EA 56 81 20 48 B2 A5 4D 41 58 |R.1....V. H..MAX|
00002670: 28 31 2C 48 B0 AB 31 29 20 A4 20 A5 4D 49 4E 28 |(1,H..1) . .MIN(|
00002680: 42 52 45 45 44 54 45 2C 48 B0 AA 31 29 00 B9 2E |BREEDTE,H..1)...|
00002690: F4 56 81 20 56 B2 A5 4D 41 58 28 31 2C 56 45 52 |.V. V..MAX(1,VER|
000026A0: AB 31 29 20 A4 20 A5 4D 49 4E 28 48 4F 4F 47 54 |.1) . .MIN(HOOGT|
000026B0: 45 2C 56 45 52 54 AA 31 29 00 D0 2E FE 56 41 42 |E,VERT.1)....VAB|
000026C0: B2 57 45 52 45 4C 44 28 47 45 4E 2C 48 2C 56 29 |.WERELD(GEN,H,V)|
000026D0: 00 F2 2E 08 57 8B 20 41 42 B1 30 20 A7 20 41 42 |....W. AB.0 . AB|
000026E0: B2 41 42 AA 31 20 45 4C 53 45 20 41 42 B2 41 42 |.AB.1 ELSE AB.AB|
000026F0: AB 31 00 09 2F 12 57 57 45 52 45 4C 44 28 47 45 |.1../.WWERELD(GE|
00002700: 4E 2C 48 2C 56 29 B2 41 42 00 11 2F 1C 57 82 20 |N,H,V).AB../.W. |
00002710: 56 00 19 2F 26 57 82 20 48 00 35 2F 30 57 57 45 |V../&W. H.5/0WWE|
00002720: 52 45 4C 44 28 47 45 4E 2C 48 B0 2C 56 45 52 29 |RELD(GEN,H.,VER)|
00002730: B2 48 49 45 52 00 3B 2F 76 57 8E 00 5D 2F E4 57 |.HIER.;/vW..]/.W|
00002740: 8F 20 2A 2A 2A 2A 20 41 41 4E 50 41 53 4C 49 4A |. **** AANPASLIJ|
00002750: 53 54 20 4D 41 4B 45 4E 20 2A 2A 2A 2A 00 63 2F |ST MAKEN ****.c/|
00002760: EE 57 27 00 77 2F 02 58 81 20 48 B2 31 20 A4 20 |.W'.w/.X. H.1 . |
00002770: 42 52 45 45 44 54 45 00 8A 2F 0C 58 81 20 56 B2 |BREEDTE../.X. V.|
00002780: 31 20 A4 20 48 4F 4F 47 54 45 00 A1 2F 16 58 41 |1 . HOOGTE../.XA|
00002790: 42 B2 57 45 52 45 4C 44 28 47 45 4E 2C 48 2C 56 |B.WERELD(GEN,H,V|
000027A0: 29 00 DF 2F 20 58 8B 20 41 42 B2 AB 33 20 B0 20 |)../ X. AB..3 . |
000027B0: 28 41 42 B1 30 20 AF 20 41 42 B3 B1 33 20 AF 20 |(AB.0 . AB..3 . |
000027C0: 41 42 B3 B1 34 29 20 A7 20 41 41 4E 54 41 4C B2 |AB..4) . AANTAL.|
000027D0: 41 41 4E 54 41 4C AA 31 3A 4C 49 4A 53 54 28 00 |AANTAL.1:LIJST(.|
000027E0: E5 2F A2 58 8E 00 0A 30 D8 59 8F 20 2A 2A 2A 2A |./.X...0.Y. ****|
000027F0: 20 4E 49 45 55 57 45 20 47 45 4E 20 42 45 52 45 | NIEUWE GEN BERE|
00002800: 4B 45 4E 45 4E 20 2A 2A 2A 2A 00 10 30 E2 59 27 |KENEN ****..0.Y'|
00002810: 00 2F 30 EC 59 8D 20 32 32 35 30 30 3A 27 41 41 |./0.Y. 22500:'AA|
00002820: 4E 50 41 53 4C 49 4A 53 54 20 4D 41 4B 45 4E 00 |NPASLIJST MAKEN.|
00002830: 45 30 F6 59 41 41 4E 54 41 4C B2 4C 49 4A 53 54 |E0.YAANTAL.LIJST|
00002840: 28 30 2C 30 29 00 5F 30 00 5A 81 20 41 41 4E 50 |(0,0)._0.Z. AANP|
00002850: 41 53 BF 47 B2 31 20 A4 20 41 41 4E 54 41 4C 00 |AS.G.1 . AANTAL.|
00002860: 8E 30 0A 5A 48 B0 B2 4C 49 4A 53 54 28 41 41 4E |.0.ZH..LIJST(AAN|
00002870: 50 41 53 BF 47 2C 30 29 3A 56 45 52 B2 4C 49 4A |PAS.G,0):VER.LIJ|
00002880: 53 54 28 41 41 4E 50 41 53 BF 47 2C 31 29 00 AA |ST(AANPAS.G,1)..|
00002890: 30 14 5A 48 49 45 52 B2 57 45 52 45 4C 44 28 47 |0.ZHIER.WERELD(G|
000028A0: 45 4E 2C 48 B0 2C 56 45 52 29 00 CE 30 1E 5A 8B |EN,H.,VER)..0.Z.|
000028B0: 20 48 49 45 52 B1 30 20 A7 20 8D 20 32 32 30 34 | HIER.0 . . 2204|
000028C0: 30 20 45 4C 53 45 20 8D 20 32 32 32 34 30 00 DD |0 ELSE . 22240..|
000028D0: 30 28 5A 82 20 41 41 4E 50 41 53 BF 47 00 E3 30 |0(Z. AANPAS.G..0|
000028E0: 32 5A 8E 00 FC 30 A8 61 8F 20 2A 2A 2A 2A 20 44 |2Z...0.a. **** D|
000028F0: 41 54 41 42 4C 4F 4B 20 2A 2A 2A 2A 00 02 31 B2 |ATABLOK ****..1.|
00002900: 61 27 00 1D 31 0C 62 8F 20 2A 2A 2A 2A 20 43 4F |a'..1.b. **** CO|
00002910: 4D 4D 41 4E 44 4F 27 53 20 2A 2A 2A 2A 00 46 31 |MMANDO'S ****.F1|
00002920: 16 62 83 20 37 3A 27 4D 41 58 49 4E 44 45 58 20 |.b. 7:'MAXINDEX |
00002930: 56 41 4E 20 41 52 52 41 59 20 4D 45 54 20 43 4F |VAN ARRAY MET CO|
00002940: 4D 4D AF 4F 27 53 00 62 31 20 62 83 20 4E 20 4E |MM.O'S.b1 b. N N|
00002950: 49 45 55 57 45 20 57 45 52 45 4C 44 20 4D 41 4B |IEUWE WERELD MAK|
00002960: 45 4E 00 7A 31 2A 62 83 20 57 20 57 45 52 45 4C |EN.z1*b. W WEREL|
00002970: 44 20 57 49 4A 5A 49 47 45 4E 00 98 31 34 62 83 |D WIJZIGEN..14b.|
00002980: 20 42 20 42 45 52 45 4B 45 4E 20 4E 49 45 55 57 | B BEREKEN NIEUW|
00002990: 45 20 47 45 4E 45 52 2E 00 AC 31 48 62 83 20 53 |E GENER...1Hb. S|
000029A0: 20 4E 41 41 52 20 53 43 48 49 4A 46 00 BA 31 70 | NAAR SCHIJF..1p|
000029B0: 62 83 20 45 20 45 49 4E 44 45 00 C0 31 7A 62 27 |b. E EINDE..1zb'|
000029C0: 00 DE 31 D4 62 8F 20 2A 2A 2A 2A 20 53 59 53 54 |..1.b. **** SYST|
000029D0: 45 45 4D 46 4F 55 54 45 4E 20 2A 2A 2A 2A 00 E4 |EEMFOUTEN ****..|
000029E0: 31 DE 62 27 00 FA 31 E8 62 27 46 4F 55 54 4E 55 |1.b'..1.b'FOUTNU|
000029F0: 4D 4D 45 52 2C 46 4F 55 54 24 00 14 32 FC 62 83 |MMER,FOUT$..2.b.|
00002A00: 20 34 2C 43 4F 4E 54 52 4F 4C 45 45 52 20 53 43 | 4,CONTROLEER SC|
00002A10: 48 49 4A 46 00 2B 32 06 63 83 20 35 2C 4E 49 45 |HIJF.+2.c. 5,NIE|
00002A20: 54 20 4F 50 20 53 43 48 49 4A 46 00 48 32 10 63 |T OP SCHIJF.H2.c|
00002A30: 83 20 36 2C 47 45 45 4E 20 53 43 48 49 4A 46 20 |. 6,GEEN SCHIJF |
00002A40: 49 4E 20 44 52 49 56 45 00 63 32 1A 63 83 20 37 |IN DRIVE.c2.c. 7|
00002A50: 2C 43 4F 4E 54 52 4F 4C 45 45 52 20 50 52 49 4E |,CONTROLEER PRIN|
00002A60: 54 45 52 00 00 00 |TER... |
......W..,.-.. LIJST(MAXBREEDTE.MAXHOOGT
E,1).6.D.CLS:..U.N.VE.VE MOD 25:. VE.0 .
VE.1.T.P.HO.HO MOD 81:. HO.0 . HO.1...R
.LOCATE VE,HO:....R.IN$.INKEY$.....VE.CO
MREGEL.1.I.......E.X.:'HERSTEL SCHERM...
... **** HOOFDPROGRAMMA ****.....'.....K
EY OFF:. 100...L.. 10000:'INIT...V.'.,.`
.. 2000:'LEES COMM.O.2.J.'.@...'HOOFDLUS
.F...'.Z.N.WHILE COMM.O..4.V.X.. 3000:'V
OER COMM.O UIT...... 2000:'LEES COMM.O..
...W......'...... 17000:'BE.EINDIGEN.K..
.. COMM.O..4 . 1200.Q.(.'...X.VER..MIN(H
OOGTE,VER.1):. 11500...... "TOT ZIENS"..
.O...*.P.. **** LEES COMMANDO ****.0.Z.'
.J.... 2500:'INIT COMREGEL.T.... 210.I..
.P.INSTR(CM$,IN$).W...WHILE P.0...... 21
0:P.INSTR(CM$,IN$).....W.... .. IN$;...*
.. 210.M.4.WHILE INSTR(RT$.BS$,IN$).0.W.
>.. 210...H.W....\.. IN$.BS$ . 2020...A.
V.IGCOM.COMM.O...F.COMM.O.(P.1).2.N.P..
V.IGCOM.7 . . (COMM.O.2 . COMM.O.3 . COM
M.O.8).~.Q.. VERVOLG 2160 THEN GOS2600:'
HERSTEL SCHERM.........D.. **** INIT COM
REGEL ****...N.'...X.AANTAL.0.I.... SPAC
E$(HM.1);.S.... 110...... PROMPT$;......
...(.. **** HERSTEL NA OVERZICHT ****./.
2.' NIET BIJ SCHIJF.OPRS.J.<.'
ALS ZE ER ZIJN, NUL. EN LAATSTE GEN
AFDRUKKEN.P.F.'...P.. 21500:'WERELD SCH
O.MAKEN...Z.. OUD.NIEUW.0 . ..H.D.NN.NIE
UW:NIEUW.0:GEN.0:. 14000...N.NIEUW.OUD:G
EN.1:. 14000:NIEUW.NN............ **** V
OER COMMANDO UIT ****...B.'.R.L.. COMM.O
. 3110,3120,3130,3140,3150,3160,3170,31
80.X.....S.... **** OPDRACHTEN ****...&.
. 11000:.:'NIEUWE WERELD MAKEN...0.. 116
00:.:'WERELD WIJZIGEN...:.. 12000:.:'NIE
UWE GENERATIES BEREKENEN...D.. 17000:.:'
BE.EINDIGEN...N.. 16400:.:'NAAR SCHIJF.0
.X.. 16100:.:'VAN SCHIJF.T.B.. 16700:.:'
OVERZICHT VAN SCHIJF.L.L.. 15000:.:'NAAR
.ER.R.......J.HO.1:VE.STARTY:. 110...H.
. ERR. . 16790....'. **** INITIALISEER *
***.A..''...$'HM.80:VM.24:'MAX VO. HO EN
VE....'MAXHOOGTE.VM.11:MAXBREEDTE.HM.3.
3...8'. WERELD(1,MAXBREEDTE,MAXHOOGTE).D
.B'STARTX.1:STARTY.4.K.L'OUD.0:NIEUW.0:G
ENNUMMER.0:COMM.O.0.Q.V''...T''SPECIALE
STRINGS...~'KOP$."LIFE VAN CONWAY".F..'S
CHEIDING$.STRING$(HM.1,F("=")).W..'PROMP
T$.">>"....'LEEG$." ":BEWO.D$."*"....'LI
NKS$.G(0)."K":RECHTS$.G(0)."M".<..'BOVEN
$.G(0)."H":BENEDEN$.G(0)."P".E..'PIJL$.L
INKS$.BOVEN$.RECHTS$.BENEDEN$.Y.D'KLAAR$
.G(0)."O"...X'CM$."NNWWBBEESSLLOOPP":'MO
GELIJKE COMM.O'S....'RT$.G(13):BS$.G(8).
...'ALFA$."ABCDEFGHIJKLMNOPQRSTUVWXYZ"..
..'ALFA$.ALFA$."ABCDEFGHIJKLMNOPQRSTUVWX
YZ".,..(CIJFER$."0123456789".C.<('SPECIA
LE FUNCTIES.G.F(. .MAX(X,Y).(.(X..Y).X.(
Y.X).Y)...P(. .MIN(X,Y).(.(X..Y).X.(Y.X)
.Y)... (. 21300:'KOPMAKEN....(. 21000:'H
ULPSCHERM MAKEN.E..(.....*. **** NIEUWE
WERELD MAKEN ****....+'....+STARTX.1....
+GEN.0:GENNUMMER.0.,. +. 19000:'MATEN VR
AGEN.K.%+. 21600:'WERELD LEEG MAKEN.H.*+
. 14200:'GENNR SCHRIJVEN...4+. 14300:'KA
DER MAKEN...>+. 2500 :'INIT COMREGEL...H
+. "INVOEREN M.B.V. 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.X.T+OUD.0:NIEUW.1:. 13000:'KOPIE.EREN
.J..+GEN.1:. 12000.|..+OUD.1:NIEUW.2....
,....$,. **** NAAR LINKS ****....,H...MA
X(1,H..1):. 11500...8,..Z.B,. **** NAAR
BOVEN ****...L,VER..MAX(1,VER.1):. 11500
...V,....`,R.!.~,. **** NAAR BENEDEN ***
*.'..,..F..,. **** CEL LEEG MAKEN ****.S
..,. LEEG$;._..,. 22000.X..,. 11360:'NAA
R RECHTS.~..,.. .D,. **** CEL BEWOOND MA
KEN ****...N,. BEWO.D$;...S,. 22200.T.X,
. 11360:'NAAR RECHTS.Z..,.....,. **** CU
RSOR VERPLAATSEN IN WERELD ****....,'.2.
.-HO.STARTX.H.:VE.STARTY.VER:. 110.8..-.
.X.P-. **** WERELD WIJZIGEN ****.^.Z-'.X
.D-. 2500:'INIT COMREGEL...I-. OUD.NIEUW
.0 . . 12400:. 'WAARSCHUWING...N-. "WIJZ
IGEN IN GEN 0,";...X-. " OF";D(GENNUMMER
);" ";PROMPT$;....-KSET$.CIJFER$:ANTWC.3
....-HO.HO.34:. 20000.,..-. ANTW$."" . 1
1660.;. -A.E(ANTW$).A..-. (A..0) . (A..G
ENNUMMER) . 11620.T..-SWAP NIEUW,OUD....
-. GENNUMMER.1 . OUD.0...R-. A.GENNUMMER
. A.NIEUW.M..-. A.0 . . 12300:'EVEN G
EDULD....-NIEUW.0:OUD.1:. A.0 . . 13000:
'KOPIEER....-STARTX.A.(MAXBREEDTE.3).1.C
..-GENNUMMER.0:. 14200:'GENNUMMER SCHRIJ
VEN.J...GEN.0:. 11070:'NIEUWE WERELD MAK
EN...... A.0 . STARTX.1:GEN.0:. 14030:GE
N.1:'AFDRUKKEN.D.... 14500:'RECHTERSCHER
M SCHO.MAKEN.J.R.....|.. **** INVOER BEV
ESTIGEN ****.....'...... 2500:'INIT COMR
EGEL.'.... "ZO GOED ? <J/N> J";.J...KSET
$."JJNN":ANTWC.1:ANTW$."J"._...HO.HO.18:
. 20000.V.... ANTW$."" . 11920...B.P.INS
TR(KSET$,ANTW$)...V...A.... **** NIEUWE
GENERATIES BEREKENEN ****.G...'...... OU
D.NIEUW.0 . . 12400:. 'WAARSCHUWING.....
. 12300:'GEDULD.1.... 23000:'ALTERN. NIE
UWE GEN BEREKENEN.K.X/GENNUMMER.GENNUMME
R.1.W.B/. 14000.J.L/SWAP OUD,NIEUW.P../.
....0. **** GEDULD ****....0'... 0. 2500
:'INIT COMREGEL...*0. "EVEN GEDULD";.B.F
0....P0. **** WAARSCHUWING ****...Z0'...
.0. 2500:'INIT COMREGEL.,..0. "EERST NIE
UWE WERELD MAKEN! <TOETS> ";.6..0. 210.<
.J0..A.H2. **** KOPIEER OUD IN NIEUW ***
*.U..2. H.1 . BREEDTE....2. V.1 . HOOGTE
....2WERELD(NIEUW,H,V).WERELD(OUD,H,V)..
..2. V....3. H.D."3.....6. **** WERELD A
FDRUKKEN ****....6STARTX.NIEUW.(MAXBREED
TE.3).1.;.D6. 14200:. 14300:'GENNR SCHRI
JVEN EN KADER MAKEN.N.N6. V.1 . HOOGTE.B
.X6. H.1 . BREEDTE....6HO.STARTX.H:VE.ST
ARTY.V:. 110....6. WERELD(GEN,H,V).0 . .
BEWO.D$ ELSE . LEEG$....6. H.E..7. V.K.
.7....X7. **** GENERATIENUMMER SCHRIJVEN
****....7'....7. GEN.0 . GG.0.)..7. GEN
.0 . GG.GENNUMMER.I. 7HO.STARTX:VE.START
Y.1:. 110.^..7."GENERATIE";GG;.D.R7.....
7. **** KADER MAKEN ****....7'....7STREE
P$."+".STRING$(BREEDTE,F("-"))."+".V..7V
O..STARTX:ACHTER.VO..BREEDTE.1....8. STR
EEP$....8VE.VE.1..."8. I.1 . HOOGTE...,8
HO.VO.:. 110:. "\";.6.68HO.ACHTER:. 110:
. "\";.B.@8VE.VE.1.J.J8. I.E.T8HO.VO.:.
110:. STREEP$....8. ** RECHTERSCHERM SCH
OONVEGEN **....8'....8STARTX.2.(MAXBREED
TE.3).1...B8HO.STARTX...L8WIS$.SPACE$(MA
XBREEDTE.2)...V8. VE.STARTY.1 . STARTY.H
OOGTE.1....8. 110:. WIS$;....8. VE. ..8'
.&..8..C..:. **** NAAR PRINTER ****.I..:
'.\..:. ERR. . 15290.N..:L. SCHEIDING$..
..;L. KOP$;" \ ";NAAM$;" \ "....;L. SCHE
IDING$...`;. V.3 . HOOGTE.5.P.J;. H.1 .
3.(MAXBREEDTE.3)...T;L. G(SCREEN(V,H));.
..~;. H....;L.....;. V.. .;L. SCHEIDING$
.% .;. I.1 . 3:L.:. I.+ .;..K .;FOUT.7:.
18000:RESUME 15280.J .>. **** BESTANDSB
EHEER ****.P .>'.. .>. **** LEES VAN SCH
IJF ****.. .>'.. .>. 16900:'NAAM VRAGEN.
N .?. 21500:'WERELD SCHO.MAKEN.. .?NAAM$
.ANTW$.".LIF".. .?. ERR. . 16390..!H?. N
AAM$ . . AS #1.%!R?ERASE WERELD,LIJST.=!
\?. #1,BREEDTE,HOOGTE.B!F?. WERELD(1,BRE
EDTE,HOOGTE):GEN.0..!K?. LIJST(BREEDTE.H
OOGTE,1)..!P?. VER.1 . HOOGTE..!Z?. H..1
. BREEDTE..!.?. #1,CEL$..!.?. CEL$.BEWO
.D$ . . 22200 ELSE . 22000..!.?. H...!.?
. VER..!.? ..".?'.,".?GENNUMMER.0:NIEUW.
0:. 14000:'AFDRUKKEN.Y".?. 11200:'1STE G
EN BEREKENEN EN AFDRUKKEN._".?..".@FOUT
.5:. 18000:RESUME 16380..".@. **** NAAR
SCHIJF ****..".@'.M".@. OUD.NIEUW.0 . .
12400:. 'WAARSCHUWING.."$@. 16900:'NAAM
VRAGEN..".@NAAM$.ANTW$.".LIF"..#8@. ERR.
. 16590.+#T@. NAAM$ . OUTPUT AS #1.G#~@
WRITE #1,BREEDTE,HOOGTE.\#.@. VER.1 . HO
OGTE.Q#.@. H..1 . BREEDTE..#.@. WERELD(0
,H.,VER).0 . WRITE #1,BEWO.D$ ELSE WRITE
#1,LEEG$..#D@..W#N@FOUT.4:. 18000:RESUM
E 16580..$<A. **** OVERZICHT BESTANDEN O
P SCHIJF ****..$FA'.*$PA. 21500:'WERELD
SCHO.MAKEN.Y$DA. "OVERZICHT VAN LIFE BES
TANDEN OP SCHIJF".E$NAVE.VE.2.W$.AFILES
"*.LIF".}$.A...$.AFOUT.6:. 18000:RESUME
16780..$.B. **** NAAM VRAGEN ****..$.B'.
.$.B. 110:. "NAAM BESTAND:";PROMPT$;..$"
BHO.HO.16..%,BANTWC.8:KSET$.ALFA$.CIJFER
$:. 20000..%^B..;%HB. **** BE-EINDIGEN *
***.A%RB'.[%|B. 2500:'INIT COMREGEL.~%.B
. "WIL JE STOPPEN ? <J/N> N";..%.BKSET$
."JJNN":ANTWC.1:ANTW$."N"..%.BHO.HO.26:.
20000.M%.B. ANTW$."" . 17020..%.B. INST
R(KSET$,ANTW$).2 . . 2000:...&.B. ERR. .
0..&.BKEY ...&BB..<&PF. **** SYSTEEMFOU
TEN AFHANDELEN *****.B&ZF'.N&DF. 25300.A
&NF. FOUTNR,FOUT$.X&XFWHILE FOUTNR..FOUT
..&.F. FOUTNR,FOUT$..&.FW...&.F. 2500:.
110.K& F. FOUT$;". TOETS OM DOOR TE GAAN
.";.U&.F. 210..&.FFOUT.0..&.G...'8J. ***
* WERELDMATEN VRAGEN ****..'BJ'..'LJ. 21
500:'WERELD SCHO.MAKEN.H'VJ. 2500:'INIT
COMREGEL.R'`J. "GEEF BREEDTE, MAX:";D(MA
XBREEDTE);. 'JJKSET$.CIJFER$:ANTWC.3:ANT
W$.D(MAXBREEDTE)..'TJHO.HO.21:. 20000.J'
~JBREEDTE.E(ANTW$)..'.J. BREEDTE.MAXBREE
DTE . BREEDTE.0 . 19030.#(.J. "GEEF HOOG
TE, MAX:";D(MAXHOOGTE);" ";.:(.JANTW$.D(
MAXHOOGTE).O(.JHO.HO.18:. 20000.C(.JHOOG
TE.E(ANTW$)..(DJ. HOOGTE.MAXHOOGTE . HOO
GTE.0 . HO.HO.24:...(.JERASE WERELD,LIJS
T.H(.J. WERELD(1,BREEDTE,HOOGTE)..(.K. L
IJST(BREEDTE.HOOGTE,1)..).KGENUMMER.0:OU
D.0:NIEUW.0..)ZK..() N. **** INVOER ROUT
INE ****..)*N'.F)4N. 210:. IN$.RT$ . ..P
).N. 210..).N. INSTR(KSET$,IN$).0 . . IN
$;:ANTW$.ANTW$.IN$:AK.AK.1..).N. 210..).
NW...).N..B).R. **** HULPSCHERM MAKEN **
**.H).R'.T).R. 25100.Z)BR'..)LRAANTREGEL
S.MAXINDEX.3.1..*VRCOMREGEL.VM.(AANTREGE
LS.1).2*.RHO.1:VE.COMREGEL.1:. 110.D*.R.
SCHEIDING$;..*.RHO.(I.AANTREGELS).(HM.3
).1:VE.COMREGEL.2.(I MOD AANTREGELS)..*.
R. 110:. C$(I);..*FR. I.N*PR'PLAATS VERT
ICALE LIJNEN TUSSEN 3 KOLOMMEN..*ZR. I.1
. AANTREGELS..*.R. II.1 . 2..+.RHO.II.(
HM.3)..+.S. 110:. "\";..+.S. II.'+.S. I.
-+*S..G+4S. **** KOP MAKEN ****.M+>S'.\+
HSLK.C(KOP$).X+\SHO.HM.2.LK.2:VE.1:. 110
..+FS. KOP$..+PS. SCHEIDING$..+.S...+.S.
**** WERELD SCHOONMAKEN ****.C+.T'.Q+.T
VV.1:HO.1..+.T. VE.STARTY.1 . VV.HOOGTE.
4..,$T. 110:. SPACE$(HM.1);..,.T. VE..,V
T..;,`T. **** WERELD LEEGMAKEN ****.A,JT
'.U,TT. H.1 . BREEDTE.H,~T. V.1 . HOOGTE
.~,.TWERELD(GEN,H,V).0..,.T. V..,.T. H..
,.T...,.U. **** ALTERNATIEF LEEGMAKEN **
**..,.U'..,.VHIER.WERELD(GEN,H.,VER)..,.
V. HIER..0 . .:'CEL IS AL LEEG..-.VHIER.
.HIER.1.9-"V. H..MAX(1,H..1) . .MIN(BREE
DTE,H..1).D-,V. V..MAX(1,VER.1) . .MIN(H
OOGTE,VER.1).{-6VAB.WERELD(GEN,H,V)..-@V
. AB.0 . AB.AB.1 ELSE AB.AB.1..-JVWERELD
(GEN,H,V).AB..-TV. V.D-^V. H..-HVWERELD(
GEN,H.,VER).HIER..-.V.....V. **** ALTERN
ATIEF BEWOOND MAKEN ****...BV'.2.LVHIER.
WERELD(GEN,H.,VER).R.VV. HIER.0 . .:'CEL
AL BEWO.D.C..VHIER..HIER.1....V. H..MAX
(1,H..1) . .MIN(BREEDTE,H..1)....V. V..M
AX(1,VER.1) . .MIN(HOOGTE,VERT.1).P..VAB
.WERELD(GEN,H,V)....W. AB.0 . AB.AB.1 EL
SE AB.AB.1../.WWERELD(GEN,H,V).AB../.W.
V../&W. H.5/0WWERELD(GEN,H.,VER).HIER.;/
VW..]/.W. **** AANPASLIJST MAKEN ****.C/
.W'.W/.X. H.1 . BREEDTE../.X. V.1 . HOOG
TE../.XAB.WERELD(GEN,H,V)../ X. AB..3 .
(AB.0 . AB..3 . AB..4) . AANTAL.AANTAL.1
:LIJST(../.X...0XY. **** NIEUWE GEN BERE
KENEN ****..0.Y'./0.Y. 22500:'AANPASLIJS
T MAKEN.E0.YAANTAL.LIJST(0,0)._0.Z. AANP
AS.G.1 . AANTAL..0.ZH..LIJST(AANPAS.G,0)
:VER.LIJST(AANPAS.G,1)..0.ZHIER.WERELD(G
EN,H.,VER).N0.Z. HIER.0 . . 22040 ELSE .
22240..0(Z. AANPAS.G..02Z...0.A. **** D
ATABLOK ****..1.A'..1.B. **** COMMANDO'S
****.F1.B. 7:'MAXINDEX VAN ARRAY MET CO
MM.O'S.B1 B. N NIEUWE WERELD MAKEN.Z1*B.
W WERELD WIJZIGEN..14B. B BEREKEN NIEUW
E GENER...1HB. S NAAR SCHIJF..1PB. E EIN
DE..1ZB'..1TB. **** SYSTEEMFOUTEN ****..
1.B'..1.B'FOUTNUMMER,FOUT$..2.B. 4,CONTR
OLEER SCHIJF.+2.C. 5,NIET OP SCHIJF.H2.C
. 6,GEEN SCHIJF IN DRIVE.C2.C. 7,CONTROL
EER PRINTER...
> CLICK IMAGE PREVIEW FOR FULL MODAL