TEKST 64
FILE INFORMATION
FILENAME(S): TEKST 64
FILE TYPE(S): PRG
FILE SIZE: 8.7K
FIRST SEEN: 2025-11-30 21:28:49
APPEARS ON: 1 disk(s)
FILE HASH
d2bd89c9054a6bdfac4d2c4cfe50070cbf215bf9396e20e0cfe92f025f41c301
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EDDY S | TEKST 64 | PRG | DuncanTwain | 8 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 01 00 8F 20 54 45 58 54 20 36 34 00 |....... TEXT 64.|
00000010: 2B 08 02 00 99 C7 28 31 34 29 3A 97 36 35 37 2C |+.....(14):.657,|
00000020: 31 32 38 3A 97 37 38 38 2C 35 32 00 34 08 03 00 |128:.788,52.4...|
00000030: 89 32 34 30 00 42 08 04 00 A1 43 24 3A 8B 43 24 |.240.B....C$:.C$|
00000040: 89 34 00 5F 08 05 00 A1 43 24 3A 8B 43 24 A7 99 |.4._....C$:.C$..|
00000050: 22 20 9D 22 3B 3A 43 B2 C6 28 43 24 29 3A 8E 00 |" .";:C..(C$):..|
00000060: 6D 08 06 00 99 22 A4 9D 22 3B 3A 89 35 00 7E 08 |m...."..";:.5.~.|
00000070: 07 00 A1 43 24 3A 8B 43 24 B2 22 22 89 37 00 B3 |...C$:.C$."".7..|
00000080: 08 08 00 58 B2 C6 28 43 24 29 3A 43 B2 58 AF 31 |...X..(C$):C.X.1|
00000090: 32 37 3A 8B 43 B2 31 33 B0 43 B2 31 37 B0 43 B2 |27:.C.13.C.17.C.|
000000A0: 31 39 B0 43 B2 32 30 B0 43 B2 32 39 B0 43 B1 33 |19.C.20.C.29.C.3|
000000B0: 31 A7 8E 00 BD 08 0A 00 58 24 B2 22 22 00 DB 08 |1.......X$.""...|
000000C0: 0B 00 A1 23 31 2C 43 24 3A 8B 43 24 B2 52 24 B0 |...#1,C$:.C$.R$.|
000000D0: 43 24 B2 C7 28 31 34 31 29 A7 8E 00 EC 08 0C 00 |C$..(141).......|
000000E0: 58 24 B2 58 24 AA 43 24 3A 89 31 31 00 05 09 0D |X$.X$.C$:.11....|
000000F0: 00 4C B2 30 3A 4C 4C B2 4C 30 3A A0 31 3A 8F 20 |.L.0:LL.L0:.1:. |
00000100: 45 4E 54 52 59 00 30 09 0E 00 99 22 93 20 20 20 |ENTRY.0....". |
00000110: 20 20 20 12 20 20 20 20 20 20 20 20 20 D4 C5 D8 | . ...|
00000120: D4 20 36 34 20 20 20 20 20 20 20 20 20 20 11 11 |. 64 ..|
00000130: 00 46 09 0F 00 99 22 1D 1D 1D C6 55 4E 43 54 49 |.F...."....UNCTI|
00000140: 45 53 3A 11 11 22 00 6B 09 10 00 99 22 1D 1D 1D |ES:..".k...."...|
00000150: 12 31 92 1D 1D CF 50 53 54 45 4C 4C 45 4E 20 56 |.1....PSTELLEN V|
00000160: 41 4E 20 44 4F 4B 55 4D 45 4E 54 00 8F 09 11 00 |AN DOKUMENT.....|
00000170: 99 22 1D 1D 1D 12 32 92 1D 1D C9 4E 56 4F 45 52 |."....2....NVOER|
00000180: 45 4E 20 56 41 4E 20 44 4F 4B 55 4D 45 4E 54 00 |EN VAN DOKUMENT.|
00000190: BE 09 12 00 99 22 1D 1D 1D 12 33 92 1D 1D CF 50 |....."....3....P|
000001A0: 52 4F 45 50 45 4E 20 45 4E 20 50 52 49 4E 54 45 |ROEPEN EN PRINTE|
000001B0: 4E 20 56 41 4E 20 44 4F 4B 55 4D 45 4E 54 00 E1 |N VAN DOKUMENT..|
000001C0: 09 13 00 99 22 1D 1D 1D 12 34 92 1D 1D C2 45 57 |...."....4....EW|
000001D0: 41 52 45 4E 20 56 41 4E 20 44 4F 4B 55 4D 45 4E |AREN VAN DOKUMEN|
000001E0: 54 00 07 0A 14 00 99 22 1D 1D 1D 12 35 92 1D 1D |T......"....5...|
000001F0: D6 45 52 41 4E 44 45 52 45 4E 20 56 41 4E 20 44 |.ERANDEREN VAN D|
00000200: 4F 4B 55 4D 45 4E 54 00 32 0A 15 00 99 22 1D 1D |OKUMENT.2...."..|
00000210: 1D 12 36 92 1D 1D C7 4C 4F 42 41 41 4C 20 5A 4F |..6....LOBAAL ZO|
00000220: 45 4B 45 4E 20 45 4E 20 4F 4D 57 49 53 53 45 4C |EKEN EN OMWISSEL|
00000230: 45 4E 00 56 0A 16 00 99 22 1D 1D 1D 12 37 92 1D |EN.V...."....7..|
00000240: 1D C1 41 4E 47 45 56 45 4E 20 56 41 4E 20 44 4F |..ANGEVEN VAN DO|
00000250: 4B 55 4D 45 4E 54 00 79 0A 17 00 99 22 1D 1D 1D |KUMENT.y...."...|
00000260: 12 38 92 1D 1D C3 49 52 43 55 4C 41 49 52 45 20 |.8....IRCULAIRE |
00000270: 4F 50 53 54 45 4C 4C 45 4E 00 97 0A 18 00 99 22 |OPSTELLEN......"|
00000280: 1D 1D 1D 12 39 92 1D 1D 50 52 41 47 52 41 4D 4D |....9...PRAGRAMM|
00000290: 41 20 45 49 4E 44 45 00 C8 0A 19 00 58 24 B2 22 |A EINDE.....X$."|
000002A0: 39 38 37 36 35 34 33 32 31 22 3A 99 22 1D 1D 1D |987654321":."...|
000002B0: 11 11 D7 45 4C 4B 45 20 22 3B 3A 8D 32 31 37 3A |...ELKE ";:.217:|
000002C0: 8B 49 B2 30 89 32 33 33 00 D8 0A 1A 00 4A B2 49 |.I.0.233.....J.I|
000002D0: 3A 8B 4A B3 34 89 33 32 00 EF 0A 1B 00 99 22 93 |:.J.4.32......".|
000002E0: 22 3A 8F 20 47 45 54 20 53 55 42 4A 45 43 54 00 |":. GET SUBJECT.|
000002F0: 31 0B 1C 00 8B 48 24 B1 22 22 A7 99 22 C4 4F 4B |1....H$.""..".OK|
00000300: 55 4D 45 4E 54 3A 20 12 22 48 24 3A 99 22 11 28 |UMENT: ."H$:.".(|
00000310: D2 C5 D4 D5 D2 CE 20 4C 41 41 54 20 44 45 20 4E |...... LAAT DE N|
00000320: 41 41 4D 20 4F 4E 56 45 52 41 4E 44 45 52 44 29 |AAM ONVERANDERD)|
00000330: 22 00 5C 0B 1D 00 4D B2 36 31 3A 99 22 11 CE 41 |".\...M.61:."..A|
00000340: 41 4D 20 44 4F 4B 55 4D 45 4E 54 3A 22 3A 8D 32 |AM DOKUMENT:":.2|
00000350: 32 34 3A 8B 43 B3 B1 31 33 89 32 37 00 6F 0B 1E |24:.C..13.27.o..|
00000360: 00 99 3A 8B 58 24 B1 22 22 A7 48 24 B2 58 24 00 |..:.X$."".H$.X$.|
00000370: 7D 0B 1F 00 8B 48 24 B2 22 22 89 32 37 00 B3 0B |}....H$."".27...|
00000380: 20 00 8B 4A B3 37 AF 54 24 28 30 29 B2 22 22 A7 | ..J.7.T$(0)."".|
00000390: 99 22 11 C7 45 45 4E 20 C4 4F 4B 55 4D 45 4E 54 |."..EEN .OKUMENT|
000003A0: 20 41 41 4E 57 45 5A 49 47 22 3A 8D 32 31 34 3A | AANWEZIG":.214:|
000003B0: 89 31 33 00 CD 0B 21 00 8B 4F 46 B2 30 B0 4A B3 |.13...!..OF.0.J.|
000003C0: 37 B0 54 24 28 30 29 B2 22 22 89 33 35 00 0B 0C |7.T$(0)."".35...|
000003D0: 22 00 99 22 11 C4 4F 4B 55 4D 45 4E 54 20 4E 49 |".."..OKUMENT NI|
000003E0: 45 54 20 41 41 4E 57 45 5A 49 47 2E 2E 2E 4F 50 |ET AANWEZIG...OP|
000003F0: 53 4C 41 47 20 53 43 48 52 41 50 50 45 4E 22 3B |SLAG SCHRAPPEN";|
00000400: 3A 8D 32 31 36 3A 8B 49 89 31 33 00 2D 0C 23 00 |:.216:.I.13.-.#.|
00000410: 91 4A 89 33 36 2C 35 32 2C 31 33 36 2C 31 36 32 |.J.36,52,136,162|
00000420: 2C 39 38 2C 31 30 38 2C 38 37 2C 33 38 00 42 0C |,98,108,87,38.B.|
00000430: 24 00 8F 20 52 45 41 44 20 54 4F 20 53 43 52 45 |$.. READ TO SCRE|
00000440: 45 4E 00 6A 0C 25 00 4E B2 33 39 3A 46 B2 30 3A |EN.j.%.N.39:F.0:|
00000450: 4C 4C B2 32 30 3A 54 42 24 B2 22 22 3A 9F 31 2C |LL.20:TB$."":.1,|
00000460: 33 3A 8D 31 36 39 3A 89 31 33 00 88 0C 26 00 4F |3:.169:.13...&.O|
00000470: 46 B2 31 3A 54 B2 30 3A 8F 20 57 52 49 54 45 20 |F.1:T.0:. WRITE |
00000480: 4E 45 57 20 54 45 58 54 00 C1 0C 27 00 99 22 93 |NEW TEXT...'..".|
00000490: 12 22 48 24 3A 99 3A 99 22 A4 A4 A4 A4 A4 A4 A4 |."H$:.:.".......|
000004A0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000004C0: A4 00 D0 0C 28 00 A1 43 24 3A 8B 43 24 89 34 30 |....(..C$:.C$.40|
000004D0: 00 EF 0C 29 00 4D B2 4D 30 3A 81 49 B2 54 A4 56 |...).M.M0:.I.T.V|
000004E0: 3A 54 24 28 49 29 B2 22 22 3A 58 24 B2 22 22 00 |:T$(I)."":X$."".|
000004F0: 0A 0D 2A 00 8D 32 32 36 3A 8B 43 B2 31 33 A7 99 |..*..226:.C.13..|
00000500: 3A 8B 58 24 B2 22 22 89 34 32 00 20 0D 2B 00 54 |:.X$."".42. .+.T|
00000510: 24 28 49 29 B2 58 24 3A 8B 43 B3 B1 39 32 A7 82 |$(I).X$:.C..92..|
00000520: 00 3D 0D 2C 00 8B 49 B3 56 A7 81 49 B2 49 AA 31 |.=.,..I.V..I.I.1|
00000530: A4 56 3A 54 24 28 49 29 B2 22 22 3A 82 00 66 0D |.V:T$(I)."":..f.|
00000540: 2D 00 54 B2 30 3A 4C 24 B2 22 22 3A 8D 34 36 3A |-.T.0:L$."":.46:|
00000550: 89 31 33 3A 8F 20 50 41 43 4B 20 54 48 45 20 53 |.13:. PACK THE S|
00000560: 54 52 49 4E 47 53 00 80 0D 2E 00 99 3A 81 49 B2 |TRINGS......:.I.|
00000570: 54 A4 56 3A 8B 54 24 28 49 29 B2 22 22 89 34 39 |T.V:.T$(I)."".49|
00000580: 00 A6 0D 2F 00 58 24 B2 54 24 28 49 29 3A 4D B2 |.../.X$.T$(I):M.|
00000590: 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 |M0..(L$):L$.L$..|
000005A0: 28 58 24 2C 4D 29 00 DC 0D 30 00 58 24 B2 CA 28 |(X$,M)...0.X$..(|
000005B0: 58 24 2C 4D AA 31 29 3A 8B C3 28 4C 24 29 B2 4D |X$,M.1):..(L$).M|
000005C0: 30 A7 54 24 28 54 29 B2 4C 24 3A 99 22 2A 22 3B |0.T$(T).L$:."*";|
000005D0: 3A 4C 24 B2 58 24 3A 54 B2 54 AA 31 00 E2 0D 31 |:L$.X$:T.T.1...1|
000005E0: 00 82 00 0A 0E 32 00 99 3A 54 24 28 54 29 B2 4C |.....2..:T$(T).L|
000005F0: 24 3A 8B 54 B3 56 A7 81 49 B2 54 AA 31 A4 56 3A |$:.T.V..I.T.1.V:|
00000600: 54 24 28 49 29 B2 22 22 3A 82 00 10 0E 33 00 8E |T$(I)."":....3..|
00000610: 00 24 0E 34 00 8F 20 45 44 49 54 20 54 48 45 20 |.$.4.. EDIT THE |
00000620: 54 45 58 54 00 68 0E 35 00 85 22 93 C8 4F 45 56 |TEXT.h.5.."..OEV|
00000630: 45 45 4C 20 25 20 D4 45 58 54 20 4F 56 45 52 53 |EEL % .EXT OVERS|
00000640: 4C 41 41 4E 20 28 30 2D 31 30 30 29 20 20 30 9D |LAAN (0-100) 0.|
00000650: 9D 9D 22 3B 54 3A 54 B2 B6 28 54 29 3A 8B 54 B1 |..";T:T..(T):.T.|
00000660: 39 39 A7 54 B2 31 30 30 00 84 0E 36 00 4F 46 B2 |99.T.100...6.OF.|
00000670: 31 3A 81 49 B2 30 A4 56 3A 8B 54 24 28 49 29 B1 |1:.I.0.V:.T$(I).|
00000680: 22 22 A7 82 00 9E 0E 37 00 49 B2 49 AB 31 3A 54 |"".....7.I.I.1:T|
00000690: B2 B5 28 54 AC 49 AD 31 30 30 AA 2E 35 29 00 AE |..(T.I.100..5)..|
000006A0: 0E 38 00 4C B2 30 3A 8B 54 B1 56 89 31 33 00 C5 |.8.L.0:.T.V.13..|
000006B0: 0E 39 00 58 24 B2 54 24 28 54 29 3A 8B 58 24 B2 |.9.X$.T$(T):.X$.|
000006C0: 22 22 89 38 34 00 E3 0E 3A 00 50 24 B2 C8 28 48 |"".84...:.P$..(H|
000006D0: 24 2C 32 30 29 3A 8B 54 A7 50 24 B2 54 24 28 54 |$,20):.T.P$.T$(T|
000006E0: AB 31 29 00 06 0F 3B 00 99 22 93 12 22 C9 28 50 |.1)...;.."..".(P|
000006F0: 24 2C 32 30 29 3A 99 22 13 22 A6 32 39 29 22 92 |$,20):.".".29)".|
00000700: C2 4C 4F 4B 22 54 00 3B 0F 3C 00 99 22 11 11 11 |.LOK"T.;.<.."...|
00000710: 11 11 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000720: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000730: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 4A 0F 3D 00 |............J.=.|
00000740: A1 43 24 3A 8B 43 24 89 36 31 00 63 0F 3E 00 8F |.C$:.C$.61.c.>..|
00000750: 20 26 20 53 45 54 20 43 55 52 53 4F 52 20 28 41 | & SET CURSOR (A|
00000760: 2C 44 29 00 8F 0F 3F 00 99 22 13 11 11 22 C8 28 |,D)...?.."...".(|
00000770: 58 24 2C 4C 29 3A 99 22 13 11 11 22 A6 4C 29 22 |X$,L):."...".L)"|
00000780: 20 9D 12 22 CA 28 58 24 2C 4C AA 31 2C 31 29 00 | ..".(X$,L.1,1).|
00000790: BB 0F 40 00 99 22 13 11 11 22 A6 4C AA 31 29 CA |..@.."...".L.1).|
000007A0: 28 58 24 2C 4C AA 32 29 C8 28 42 24 2C 4D 30 AB |(X$,L.2).(B$,M0.|
000007B0: C3 28 58 24 29 29 3A 99 22 11 11 00 DB 0F 41 00 |.(X$)):.".....A.|
000007C0: 8D 37 3A 8B 58 B2 39 32 A7 54 24 28 54 29 B2 58 |.7:.X.92.T$(T).X|
000007D0: 24 3A 89 34 35 3A 8F 20 45 4E 44 00 08 10 42 00 |$:.45:. END...B.|
000007E0: 8B 58 B2 32 39 A7 4C B2 4C AB 28 4C AA 31 B3 C3 |.X.29.L.L.(L.1..|
000007F0: 28 58 24 29 29 3A 89 36 32 3A 8F 20 43 55 52 53 |(X$)):.62:. CURS|
00000800: 4F 52 20 52 49 47 48 54 00 2E 10 43 00 8B 43 B2 |OR RIGHT...C..C.|
00000810: 32 39 A7 4C B2 4C AA 28 4C B1 30 29 3A 89 36 32 |29.L.L.(L.0):.62|
00000820: 3A 8F 20 43 55 52 53 4F 52 20 4C 45 46 54 00 5E |:. CURSOR LEFT.^|
00000830: 10 44 00 8B 58 B2 31 37 A7 4C B2 4C AB 34 30 AC |.D..X.17.L.L.40.|
00000840: 28 4C AA 34 30 B3 C3 28 58 24 29 29 3A 89 36 32 |(L.40..(X$)):.62|
00000850: 3A 8F 20 43 55 52 53 4F 52 20 44 4F 57 4E 00 86 |:. CURSOR DOWN..|
00000860: 10 45 00 8B 43 B2 31 37 A7 4C B2 4C AA 34 30 AC |.E..C.17.L.L.40.|
00000870: 28 4C B1 33 39 29 3A 89 36 32 3A 8F 20 43 55 52 |(L.39):.62:. CUR|
00000880: 53 4F 52 20 55 50 00 A6 10 46 00 8B 58 B2 31 39 |SOR UP...F..X.19|
00000890: A7 4C B2 30 3A 89 36 32 3A 8F 20 43 55 52 53 4F |.L.0:.62:. CURSO|
000008A0: 52 20 48 4F 4D 45 00 DE 10 47 00 8B 43 B2 31 39 |R HOME...G..C.19|
000008B0: A7 81 49 B2 54 A4 56 AB 31 3A 54 24 28 49 29 B2 |..I.T.V.1:T$(I).|
000008C0: 54 24 28 49 AA 31 29 3A 82 3A 54 24 28 56 29 B2 |T$(I.1):.:T$(V).|
000008D0: 22 22 3A 89 35 36 3A 8F 20 43 4C 45 41 52 00 08 |"":.56:. CLEAR..|
000008E0: 11 48 00 8B 58 B2 31 33 A7 54 24 28 54 29 B2 58 |.H..X.13.T$(T).X|
000008F0: 24 3A 54 B2 54 AA 31 3A 89 35 36 3A 8F 20 4E 45 |$:T.T.1:.56:. NE|
00000900: 58 54 20 42 4C 4F 43 4B 00 37 11 49 00 8B 43 B2 |XT BLOCK.7.I..C.|
00000910: 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 B2 54 AA |13.T$(T).X$:T.T.|
00000920: 28 54 B1 30 29 3A 89 35 36 3A 8F 20 50 52 49 4F |(T.0):.56:. PRIO|
00000930: 52 20 42 4C 4F 43 4B 00 48 11 4A 00 8B 4C B1 B2 |R BLOCK.H.J..L..|
00000940: C3 28 58 24 29 89 36 32 00 6A 11 4B 00 4C 24 B2 |.(X$).62.j.K.L$.|
00000950: C8 28 58 24 2C 4C 29 3A 8B 58 B2 31 34 38 89 37 |.(X$,L):.X.148.7|
00000960: 39 3A 8F 20 49 4E 53 45 52 54 00 AB 11 4C 00 4D |9:. INSERT...L.M|
00000970: 24 B2 CA 28 58 24 2C 4C AA 32 29 3A 8B 43 B3 B1 |$..(X$,L.2):.C..|
00000980: 32 30 A7 58 24 B2 4C 24 AA 43 24 AA 4D 24 3A 58 |20.X$.L$.C$.M$:X|
00000990: B2 32 39 3A 89 36 36 3A 8F 20 52 45 50 4C 41 43 |.29:.66:. REPLAC|
000009A0: 45 20 43 48 41 52 41 43 54 45 52 00 D5 11 4D 00 |E CHARACTER...M.|
000009B0: 58 24 B2 4C 24 AA 4D 24 3A 8B 58 24 B2 22 22 A7 |X$.L$.M$:.X$."".|
000009C0: 43 B2 31 39 3A 89 37 31 3A 8F 20 4E 55 4C 4C 20 |C.19:.71:. NULL |
000009D0: 42 4C 4F 43 4B 00 DD 11 4E 00 89 36 32 00 0E 12 |BLOCK...N..62...|
000009E0: 4F 00 4D 24 B2 CA 28 58 24 2C 4C AA 31 29 3A 99 |O.M$..(X$,L.1):.|
000009F0: 22 93 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000A00: 11 12 22 4D 24 3A 99 22 13 11 11 22 4C 24 00 2B |.."M$:."..."L$.+|
00000A10: 12 50 00 99 22 13 11 11 22 A3 C3 28 4C 24 29 29 |.P.."..."..(L$))|
00000A20: 3B 3A 4D B2 4D 30 3A 8D 32 32 34 00 58 12 51 00 |;:M.M0:.224.X.Q.|
00000A30: 4D B2 4D 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 |M.M0..(L$):L$.L$|
00000A40: AA C8 28 58 24 2C 4D 29 3A 4D 24 B2 CA 28 58 24 |..(X$,M):M$..(X$|
00000A50: 2C 4D AA 31 29 AA 4D 24 00 95 12 52 00 4D B2 4D |,M.1).M$...R.M.M|
00000A60: 30 AB C3 28 4C 24 29 3A 54 24 28 54 29 B2 4C 24 |0..(L$):T$(T).L$|
00000A70: AA C8 28 4D 24 2C 4D 29 3A 4C 24 B2 CA 28 4D 24 |..(M$,M):L$..(M$|
00000A80: 2C 4D AA 31 29 3A 4D 24 B2 22 22 3A 8B 4C 24 B2 |,M.1):M$."":.L$.|
00000A90: 22 22 89 35 37 00 AF 12 53 00 58 B2 54 3A 54 B2 |"".57...S.X.T:T.|
00000AA0: 54 AA 31 3A 8D 34 36 3A 54 B2 58 3A 89 35 37 00 |T.1:.46:T.X:.57.|
00000AB0: C4 12 54 00 8F 20 41 44 44 20 54 4F 20 54 48 45 |..T.. ADD TO THE|
00000AC0: 20 45 4E 44 00 D6 12 55 00 8B 54 B2 30 89 34 35 | END...U..T.0.45|
00000AD0: 3A 8F 20 45 4E 44 00 FD 12 56 00 58 24 B2 54 24 |:. END...V.X$.T$|
00000AE0: 28 54 AB 31 29 3A 99 22 93 22 58 24 3A 99 22 13 |(T.1):."."X$:.".|
00000AF0: 22 A6 C3 28 58 24 29 29 3B 3A 89 34 30 00 0E 13 |"..(X$));:.40...|
00000B00: 57 00 8F 20 49 4E 50 55 54 20 46 49 4C 45 00 3A |W.. INPUT FILE.:|
00000B10: 13 58 00 51 39 24 B2 22 C4 4F 4B 55 4D 45 4E 54 |.X.Q9$.".OKUMENT|
00000B20: 22 3A 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D 53 |":. FOR ERROR MS|
00000B30: 47 20 49 4E 20 36 30 30 30 30 00 5F 13 59 00 8B |G IN 60000._.Y..|
00000B40: 43 46 B1 32 A7 99 22 11 D6 41 4E 20 44 45 20 C4 |CF.2.."..AN DE .|
00000B50: 41 54 41 53 45 54 54 45 22 3B 3A 8D 32 31 36 00 |ATASETTE";:.216.|
00000B60: 82 13 5A 00 8B 43 46 B2 32 B0 28 43 46 B1 32 AF |..Z..CF.2.(CF.2.|
00000B70: 49 B2 30 29 A7 9F 31 2C 31 2C 30 2C 48 24 3A 89 |I.0)..1,1,0,H$:.|
00000B80: 39 32 00 A6 13 5B 00 9F 31 2C 30 38 2C 32 2C C8 |92...[..1,08,2,.|
00000B90: 28 48 24 2C 31 36 29 3A 84 38 2C 58 2C 58 24 3A |(H$,16):.8,X,X$:|
00000BA0: 8B 58 89 32 35 37 00 DD 13 5C 00 4F 46 B2 30 3A |.X.257...\.OF.0:|
00000BB0: 8D 31 30 3A 99 22 11 CC 45 45 53 54 20 20 3A 20 |.10:."..EEST : |
00000BC0: 12 22 58 24 3A 48 24 B2 58 24 3A 8D 31 30 3A 99 |."X$:H$.X$:.10:.|
00000BD0: 58 24 3A 99 3A 8F 20 48 45 41 44 45 52 00 04 14 |X$:.:. HEADER...|
00000BE0: 5D 00 58 24 B2 C7 28 33 31 29 3A 81 49 B2 30 A4 |].X$..(31):.I.0.|
00000BF0: 56 3A 4C 24 B2 22 22 3A 8F 20 49 4E 50 55 54 20 |V:L$."":. INPUT |
00000C00: 46 49 4C 45 00 24 14 5E 00 81 4A B2 31 A4 4D 30 |FILE.$.^..J.1.M0|
00000C10: 3A A1 23 31 2C 43 24 3A 8B 53 54 A7 4A B2 4D 30 |:.#1,C$:.ST.J.M0|
00000C20: 3A 89 39 36 00 50 14 5F 00 8B 43 24 B1 58 24 A7 |:.96.P._..C$.X$.|
00000C30: 4C 24 B2 4C 24 AA 43 24 3A 8F 20 4F 4E 4C 59 20 |L$.L$.C$:. ONLY |
00000C40: 4C 45 47 41 4C 20 43 48 41 52 41 43 54 45 52 53 |LEGAL CHARACTERS|
00000C50: 00 74 14 60 00 82 4A 3A 54 24 28 49 29 B2 4C 24 |.t.`..J:T$(I).L$|
00000C60: 3A 99 4C 24 3B 3A 8B 53 54 B2 30 A7 82 49 3A 49 |:.L$;:.ST.0..I:I|
00000C70: B2 49 AB 31 00 89 14 61 00 54 B2 49 3A 8D 35 30 |.I.1...a.T.I:.50|
00000C80: 3A 8D 32 31 34 3A 89 31 33 00 A3 14 62 00 8D 39 |:.214:.13...b..9|
00000C90: 39 3A 89 31 33 3A 8F 20 4F 55 54 50 55 54 20 46 |9:.13:. OUTPUT F|
00000CA0: 49 4C 45 00 C4 14 63 00 8B 43 46 B1 32 A7 99 22 |ILE...c..CF.2.."|
00000CB0: 93 CF 50 20 C4 41 54 41 53 45 54 54 45 22 3B 3A |..P .ATASETTE";:|
00000CC0: 8D 32 31 36 00 E8 14 64 00 8B 43 46 B2 32 B0 28 |.216...d..CF.2.(|
00000CD0: 43 46 B2 33 AF 49 B2 30 29 A7 9F 31 2C 31 2C 31 |CF.3.I.0)..1,1,1|
00000CE0: 2C 48 24 3A 89 31 30 35 00 1A 15 65 00 4C 24 B2 |,H$:.105...e.L$.|
00000CF0: 22 30 3A 22 AA C8 28 48 24 2C 31 36 29 3A 9F 31 |"0:"..(H$,16):.1|
00000D00: 2C 30 38 2C 32 2C 4C 24 3A 84 38 2C 58 2C 58 24 |,08,2,L$:.8,X,X$|
00000D10: 3A A0 31 3A 8B 58 89 31 30 34 00 58 15 66 00 99 |:.1:.X.104.X.f..|
00000D20: 22 11 C4 4F 4B 55 4D 45 4E 54 20 49 53 20 41 41 |"..OKUMENT IS AA|
00000D30: 4E 57 45 5A 49 47 20 2D 20 57 4F 52 44 54 20 57 |NWEZIG - WORDT W|
00000D40: 45 47 47 45 53 43 48 52 45 56 45 4E 22 3B 3A 8D |EGGESCHREVEN";:.|
00000D50: 32 31 36 3A 8B 49 A7 8E 00 6C 15 67 00 98 38 2C |216:.I...l.g..8,|
00000D60: 22 53 22 4C 24 3A 98 38 2C 22 49 30 00 9E 15 68 |"S"L$:.8,"I0...h|
00000D70: 00 9F 31 2C 30 38 2C 33 2C 4C 24 AA 22 2C 53 2C |..1,08,3,L$.",S,|
00000D80: 57 22 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 51 39 |W":.8,X,X$:.X.Q9|
00000D90: 24 B2 22 53 50 41 43 45 22 3A 8D 32 35 37 00 B5 |$."SPACE":.257..|
00000DA0: 15 69 00 4F 46 B2 30 3A 98 31 2C 48 24 C7 28 31 |.i.OF.0:.1,H$.(1|
00000DB0: 34 31 29 44 24 00 DC 15 6A 00 81 49 B2 30 A4 56 |41)D$...j..I.0.V|
00000DC0: 3A 8B 54 24 28 49 29 B1 22 22 A7 98 31 2C 54 24 |:.T$(I).""..1,T$|
00000DD0: 28 49 29 3B 3A 99 22 2A 22 3B 3A 82 00 EA 15 6B |(I);:."*";:....k|
00000DE0: 00 98 31 2C 22 5C 22 3B 3A 8E 00 01 16 6C 00 8F |..1,"\";:....l..|
00000DF0: 20 42 41 54 43 48 20 50 52 4F 43 45 53 53 49 4E | BATCH PROCESSIN|
00000E00: 47 00 29 16 6D 00 51 39 24 B2 22 46 49 4C 45 22 |G.).m.Q9$."FILE"|
00000E10: 3A 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D 53 47 |:. FOR ERROR MSG|
00000E20: 20 49 4E 20 36 30 30 30 30 00 4B 16 6E 00 99 22 | IN 60000.K.n.."|
00000E30: 93 22 3B 3A 91 43 46 89 31 31 34 2C 31 31 32 3A |.";:.CF.114,112:|
00000E40: 8F 20 45 4C 53 45 20 42 4F 54 48 00 6D 16 6F 00 |. ELSE BOTH.m.o.|
00000E50: 99 22 D6 41 4E 20 C4 41 54 41 53 45 54 54 45 22 |.".AN .ATASETTE"|
00000E60: 3B 3A 8D 32 31 36 3A 8B 49 89 31 31 34 00 81 16 |;:.216:.I.114...|
00000E70: 70 00 8F 20 46 52 4F 4D 20 43 41 53 53 45 54 54 |p.. FROM CASSETT|
00000E80: 45 00 8F 16 71 00 9F 32 2C 31 3A 89 31 31 37 00 |E...q..2,1:.117.|
00000E90: 9F 16 72 00 8F 20 46 52 4F 4D 20 44 49 53 43 00 |..r.. FROM DISC.|
00000EA0: D3 16 73 00 85 22 93 C1 C4 D2 C5 D3 D3 C5 CE 20 |..s.."......... |
00000EB0: 36 34 3A 20 C4 41 54 41 2D CE 41 41 4D 20 20 2D |64: .ATA-.AAM -|
00000EC0: 9D 9D 9D 22 3B 58 24 3A 8B 58 24 B2 22 2D 22 89 |...";X$:.X$."-".|
00000ED0: 31 31 35 00 F5 16 74 00 9F 32 2C 30 38 2C 32 2C |115...t..2,08,2,|
00000EE0: 58 24 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 A0 32 |X$:.8,X,X$:.X..2|
00000EF0: 3A 89 32 35 37 00 0E 17 75 00 8F 20 50 52 45 50 |:.257...u.. PREP|
00000F00: 41 52 45 20 46 4F 52 20 4F 55 54 50 55 54 00 41 |ARE FOR OUTPUT.A|
00000F10: 17 76 00 54 42 24 B2 22 22 3A 53 32 B2 30 3A 4E |.v.TB$."":S2.0:N|
00000F20: B2 37 32 3A 46 B2 31 3A 9F 31 2C 30 34 3A 53 24 |.72:F.1:.1,04:S$|
00000F30: B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4E AD 32 |."."..(B$,40.N.2|
00000F40: 29 00 69 17 77 00 99 22 11 D3 54 41 4E 44 41 41 |).i.w.."..TANDAA|
00000F50: 52 44 2D C6 4F 52 4D 41 41 54 22 3B 3A 8D 32 31 |RD-.ORMAAT";:.21|
00000F60: 36 3A 8B 49 A7 8D 31 39 30 00 8B 17 78 00 8F 20 |6:.I..190...x.. |
00000F70: 47 45 54 20 54 48 45 20 4E 41 4D 45 20 41 4E 44 |GET THE NAME AND|
00000F80: 20 53 41 4C 55 54 41 54 49 4F 4E 00 A7 17 79 00 | SALUTATION...y.|
00000F90: 84 32 2C 5A 24 3A 8B 53 54 B1 30 B0 C3 28 5A 24 |.2,Z$:.ST.0..(Z$|
00000FA0: 29 B3 32 89 31 33 35 00 DF 17 7A 00 4C 24 B2 22 |).2.135...z.L$."|
00000FB0: 22 3A 8D 31 38 37 3A 58 24 B2 22 22 3A 59 24 B2 |":.187:X$."":Y$.|
00000FC0: 22 22 3A 4D 24 B2 22 C7 45 41 43 48 54 45 20 44 |"":M$.".EACHTE D|
00000FD0: 41 4D 45 53 20 45 4E 20 48 45 52 45 4E 2C 22 00 |AMES EN HEREN,".|
00000FE0: 0D 18 7B 00 84 32 2C 58 24 3A 8B C3 28 58 24 29 |..{..2,X$:..(X$)|
00000FF0: B3 32 A7 58 24 B2 22 22 3A 89 31 32 35 3A 8F 20 |.2.X$."":.125:. |
00001000: 4E 4F 20 46 49 52 53 54 20 4E 41 4D 45 00 2E 18 |NO FIRST NAME...|
00001010: 7C 00 4D 24 B2 22 CC 49 45 56 45 20 22 AA 58 24 ||.M$.".IEVE ".X$|
00001020: AA 22 2C 22 3A 58 24 B2 58 24 AA 22 20 22 00 57 |.",":X$.X$." ".W|
00001030: 18 7D 00 84 32 2C 59 24 3A 8B C3 28 59 24 29 B3 |.}..2,Y$:..(Y$).|
00001040: 32 A7 59 24 B2 22 22 3A 89 31 32 37 3A 8F 20 4E |2.Y$."":.127:. N|
00001050: 4F 20 54 49 54 4C 45 00 7A 18 7E 00 59 24 B2 59 |O TITLE.z.~.Y$.Y|
00001060: 24 AA 22 20 22 3A 4D 24 B2 22 CC 49 45 56 45 20 |$." ":M$.".IEVE |
00001070: 22 AA 59 24 AA 5A 24 AA 22 2C 00 A7 18 7F 00 4C |".Y$.Z$.",.....L|
00001080: 24 B2 59 24 AA 58 24 AA 5A 24 3A 84 32 2C 58 24 |$.Y$.X$.Z$:.2,X$|
00001090: 3A 8B C3 28 58 24 29 B1 32 A7 4C 24 B2 4C 24 AA |:..(X$).2.L$.L$.|
000010A0: 22 2C 20 22 AA 58 24 00 CF 18 80 00 5A 24 B2 4D |", ".X$.....Z$.M|
000010B0: 24 3A 4D 24 B2 22 22 3A 50 24 B2 4C 24 3A 8D 32 |$:M$."":P$.L$:.2|
000010C0: 30 35 3A 8F 20 50 52 49 4E 54 20 4E 41 4D 45 00 |05:. PRINT NAME.|
000010D0: E1 18 81 00 8F 20 47 45 54 20 41 44 44 52 45 53 |..... GET ADDRES|
000010E0: 53 00 08 19 82 00 84 32 2C 4C 24 3A 8B C3 28 4C |S......2,L$:..(L|
000010F0: 24 29 B1 31 A7 50 24 B2 4C 24 3A 8D 32 30 35 3A |$).1.P$.L$:.205:|
00001100: 8F 20 4C 49 4E 45 20 32 00 2F 19 83 00 84 32 2C |. LINE 2./....2,|
00001110: 4C 24 3A 8B C3 28 4C 24 29 B1 31 A7 50 24 B2 4C |L$:..(L$).1.P$.L|
00001120: 24 3A 8D 32 30 35 3A 8F 20 4C 49 4E 45 20 33 00 |$:.205:. LINE 3.|
00001130: 63 19 84 00 84 32 2C 4C 24 3A 84 32 2C 59 24 3A |c....2,L$:.2,Y$:|
00001140: 8B C3 28 59 24 29 B1 31 A7 4C 24 B2 4C 24 AA 22 |..(Y$).1.L$.L$."|
00001150: 2C 20 22 AA 59 24 3A 8F 20 53 54 41 54 45 2C 20 |, ".Y$:. STATE, |
00001160: 5A 49 50 00 7B 19 85 00 8B C3 28 4C 24 29 B1 31 |ZIP.{.....(L$).1|
00001170: A7 50 24 B2 4C 24 3A 8D 32 30 35 00 A4 19 86 00 |.P$.L$:.205.....|
00001180: 81 49 B2 4C A4 31 34 3A 8D 32 30 35 3A 82 3A 4C |.I.L.14:.205:.:L|
00001190: 24 B2 5A 24 3A 50 24 B2 4C 24 3A 8D 31 37 30 3A |$.Z$:P$.L$:.170:|
000011A0: 89 31 32 30 00 AF 19 87 00 A0 32 3A 89 31 33 00 |.120......2:.13.|
000011B0: C8 19 88 00 8F 20 53 45 41 52 43 48 20 41 4E 44 |..... SEARCH AND|
000011C0: 20 52 45 50 4C 41 43 45 00 03 1A 89 00 99 22 93 | REPLACE......".|
000011D0: 11 DA 4F 45 4B 45 4E 20 4E 41 41 52 3F 22 3A 4D |..OEKEN NAAR?":M|
000011E0: B2 34 30 3A 8D 32 32 34 3A 5A 24 B2 58 24 3A 4C |.40:.224:Z$.X$:L|
000011F0: B2 C3 28 58 24 29 3A 8B 4C B2 30 B0 4C B2 4D 89 |..(X$):.L.0.L.M.|
00001200: 31 33 37 00 29 1A 8A 00 99 3A 99 22 11 CF 4D 5A |137.)....:."..MZ|
00001210: 45 54 54 45 4E 20 49 4E 3F 22 3A 8D 32 32 34 3A |ETTEN IN?":.224:|
00001220: 59 24 B2 58 24 3A 99 3A 99 00 50 1A 8B 00 58 24 |Y$.X$:.:..P...X$|
00001230: B2 22 22 3A 4D 24 B2 22 22 3A 4C 24 B2 22 22 3A |."":M$."":L$."":|
00001240: 54 B2 30 3A 55 B2 30 3A 46 B2 30 3A 4F 46 B2 31 |T.0:U.0:F.0:OF.1|
00001250: 00 66 1A 8C 00 8F 20 41 54 54 41 43 48 20 54 24 |.f.... ATTACH T$|
00001260: 20 54 4F 20 58 24 00 78 1A 8D 00 8B C3 28 58 24 | TO X$.x.....(X$|
00001270: 29 B1 B2 4C 89 31 34 34 00 95 1A 8E 00 8B 54 B1 |)..L.144......T.|
00001280: 56 89 31 34 39 3A 8F 20 41 4C 4C 20 54 24 27 53 |V.149:. ALL T$'S|
00001290: 20 52 45 41 44 00 B9 1A 8F 00 58 24 B2 58 24 AA | READ.....X$.X$.|
000012A0: 54 24 28 54 29 3A 54 24 28 54 29 B2 22 22 3A 54 |T$(T):T$(T)."":T|
000012B0: B2 54 AA 31 3A 89 31 34 30 00 D0 1A 90 00 8F 20 |.T.1:.140...... |
000012C0: 53 45 41 52 43 48 20 46 4F 52 20 4D 41 54 43 48 |SEARCH FOR MATCH|
000012D0: 00 FD 1A 91 00 81 49 B2 31 A4 C3 28 58 24 29 AB |......I.1..(X$).|
000012E0: 4C AA 31 3A 8B CA 28 58 24 2C 49 2C 4C 29 B3 B1 |L.1:..(X$,I,L)..|
000012F0: 5A 24 A7 82 3A 4A B2 49 3A 89 31 34 37 00 13 1B |Z$..:J.I:.147...|
00001300: 92 00 4D 24 B2 59 24 3A 4A B2 49 AA 4C 3A 99 22 |..M$.Y$:J.I.L:."|
00001310: 12 22 3B 00 27 1B 93 00 8F 20 53 50 4C 49 54 20 |.";.'.... SPLIT |
00001320: 53 54 52 49 4E 47 53 00 57 1B 94 00 4D 24 B2 C8 |STRINGS.W...M$..|
00001330: 28 58 24 2C 49 AB 31 29 AA 4D 24 3A 58 24 B2 CA |(X$,I.1).M$:X$..|
00001340: 28 58 24 2C 4A 29 3A 8D 31 35 34 3A 91 46 89 31 |(X$,J):.154:.F.1|
00001350: 36 30 3A 89 31 34 30 00 6A 1B 95 00 8F 20 53 54 |60:.140.j.... ST|
00001360: 4F 57 20 4C 41 53 54 20 4C 24 00 85 1B 96 00 8D |OW LAST L$......|
00001370: 31 35 34 3A 8B 46 89 31 36 30 3A 8F 20 43 4C 45 |154:.F.160:. CLE|
00001380: 41 52 20 4D 24 00 AF 1B 97 00 4D 24 B2 58 24 3A |AR M$.....M$.X$:|
00001390: 8D 31 35 34 3A 8B 46 89 31 36 30 3A 8F 20 4D 24 |.154:.F.160:. M$|
000013A0: 5F 58 24 3B 20 43 4C 45 41 52 20 42 4F 54 48 00 |_X$; CLEAR BOTH.|
000013B0: E4 1B 98 00 8B 55 B3 B2 56 A7 54 B2 55 3A 8D 35 |.....U..V.T.U:.5|
000013C0: 30 3A 89 31 33 3A 8F 20 53 54 4F 57 20 4C 24 2C |0:.13:. STOW L$,|
000013D0: 20 43 4C 45 41 52 20 48 49 47 48 45 52 20 42 4C | CLEAR HIGHER BL|
000013E0: 4F 43 4B 53 00 ED 1B 99 00 89 31 36 30 00 10 1C |OCKS......160...|
000013F0: 9A 00 8F 20 43 4C 45 41 52 20 4D 24 20 2D 20 53 |... CLEAR M$ - S|
00001400: 54 4F 57 20 4C 24 20 49 46 20 4E 45 45 44 45 44 |TOW L$ IF NEEDED|
00001410: 00 46 1C 9B 00 4D B2 4D 30 AB C3 28 4C 24 29 3A |.F...M.M0..(L$):|
00001420: 4C 24 B2 4C 24 AA C8 28 4D 24 2C 4D 29 3A 4D 24 |L$.L$..(M$,M):M$|
00001430: B2 CA 28 4D 24 2C 4D AA 31 29 3A 8B C3 28 4C 24 |..(M$,M.1):..(L$|
00001440: 29 B3 4D 30 A7 8E 00 54 1C 9C 00 8B 55 B1 B2 56 |).M0...T....U..V|
00001450: 89 31 35 39 00 81 1C 9D 00 8B 55 B3 54 A7 54 24 |.159......U.T.T$|
00001460: 28 55 29 B2 4C 24 3A 99 22 2A 92 22 3B 3A 55 B2 |(U).L$:."*.";:U.|
00001470: 55 AA 31 3A 4C 24 B2 4D 24 3A 4D 24 B2 22 22 3A |U.1:L$.M$:M$."":|
00001480: 8E 00 BA 1C 9E 00 8B 54 B3 56 A7 81 49 B2 56 A4 |.......T.V..I.V.|
00001490: 54 AA 31 A9 AB 31 3A 54 24 28 49 29 B2 54 24 28 |T.1..1:T$(I).T$(|
000014A0: 49 AB 31 29 3A 82 3A 54 24 28 54 29 B2 22 22 3A |I.1):.:T$(T)."":|
000014B0: 54 B2 54 AA 31 3A 89 31 35 37 00 C4 1C 9F 00 46 |T.T.1:.157.....F|
000014C0: B2 31 3A 8E 00 D5 1C A0 00 8F 20 45 52 52 4F 52 |.1:....... ERROR|
000014D0: 20 45 58 49 54 00 0A 1D A1 00 99 3A 99 22 11 C7 | EXIT......:."..|
000014E0: 45 45 4E 20 52 55 49 4D 54 45 20 4D 45 45 52 20 |EEN RUIMTE MEER |
000014F0: 2D 20 44 41 54 41 20 41 41 4E 47 45 54 41 53 54 |- DATA AANGETAST|
00001500: 22 3A 8D 32 31 34 3A 89 31 33 00 21 1D A2 00 8F |":.214:.13.!....|
00001510: 20 46 4F 52 4D 41 54 20 41 4E 44 20 50 52 49 4E | FORMAT AND PRIN|
00001520: 54 00 2E 1D A3 00 8D 31 36 34 3A 89 31 33 00 46 |T......164:.13.F|
00001530: 1D A4 00 9F 31 2C 30 34 3A 46 B2 31 3A 8F 20 50 |....1,04:F.1:. P|
00001540: 52 49 4E 54 45 52 00 77 1D A5 00 53 32 B2 31 3A |RINTER.w...S2.1:|
00001550: 4E B2 36 30 3A 54 42 24 B2 22 22 3A 58 24 B2 22 |N.60:TB$."":X$."|
00001560: 46 49 44 22 3A 8F 20 44 45 46 41 55 4C 54 53 20 |FID":. DEFAULTS |
00001570: 28 44 52 41 46 54 29 00 B0 1D A6 00 99 22 11 12 |(DRAFT)......"..|
00001580: C6 92 4F 52 4D 45 45 4C 2C 20 12 C9 92 4E 46 4F |..ORMEEL, ...NFO|
00001590: 52 4D 45 45 4C 2C 20 4F 52 20 12 C4 92 20 C3 4F |RMEEL, OR ... .O|
000015A0: 4E 43 45 50 54 22 3B 3A 8D 32 31 37 3A 4A B2 49 |NCEPT";:.217:J.I|
000015B0: 00 C8 1D A7 00 8B 4A B3 32 A7 53 32 B2 30 3A 4E |......J.2.S2.0:N|
000015C0: B2 37 32 3A 8D 31 39 30 00 F2 1D A8 00 53 24 B2 |.72:.190.....S$.|
000015D0: 22 11 22 AA C8 28 42 24 2C 34 30 AB 4E AD 32 29 |"."..(B$,40.N.2)|
000015E0: 3A 8B 4A B2 30 89 31 38 32 3A 8F 20 46 4F 52 4D |:.J.0.182:. FORM|
000015F0: 41 4C 00 15 1E A9 00 4C 24 B2 22 12 22 AA 48 24 |AL.....L$.".".H$|
00001600: 3A 50 24 B2 48 24 3A 4D 24 B2 C8 28 4B 24 2C C3 |:P$.H$:M$..(K$,.|
00001610: 28 48 24 29 29 00 31 1E AA 00 4A B2 30 3A 99 22 |(H$)).1...J.0:."|
00001620: 93 22 3A 8D 32 30 35 3A 8D 32 30 35 3A 8B 4A A7 |.":.205:.205:.J.|
00001630: 8E 00 5B 1E AB 00 54 B2 30 3A 58 24 B2 22 5D 22 |..[...T.0:X$."]"|
00001640: AA 54 42 24 3A 45 B2 30 3A 5A 24 B2 42 24 3A 8F |.TB$:E.0:Z$.B$:.|
00001650: 20 50 52 49 4E 54 20 54 45 58 54 00 92 1E AC 00 | PRINT TEXT.....|
00001660: 8B C3 28 58 24 29 B3 B2 4E A7 58 24 B2 58 24 AA |..(X$)..N.X$.X$.|
00001670: 54 24 28 54 29 3A 54 B2 54 AA 31 3A 8B C3 28 58 |T$(T):T.T.1:..(X|
00001680: 24 29 B3 B2 4E B0 54 B1 56 A7 58 24 B2 58 24 AA |$)..N.T.V.X$.X$.|
00001690: 22 5C 00 C1 1E AD 00 8B C6 28 58 24 29 B2 33 32 |"\.......(X$).32|
000016A0: A7 58 24 B2 CA 28 58 24 2C 32 29 3A 89 31 37 32 |.X$..(X$,2):.172|
000016B0: 3A 8F 20 4C 45 41 44 49 4E 47 20 42 4C 41 4E 4B |:. LEADING BLANK|
000016C0: 53 00 D2 1E AE 00 8B 45 A7 58 24 B2 22 5B 22 AA |S......E.X$."[".|
000016D0: 58 24 00 0F 1F AF 00 4C 24 B2 C8 28 58 24 2C 4E |X$.....L$..(X$,N|
000016E0: AA 31 29 3A 50 24 B2 4C 24 3A 4A B2 30 3A 4B B2 |.1):P$.L$:J.0:K.|
000016F0: 30 3A 4D 24 B2 42 24 3A 81 49 B2 31 A4 C3 28 4C |0:M$.B$:.I.1..(L|
00001700: 24 29 3A 43 B2 C6 28 CA 28 4C 24 2C 49 29 29 00 |$):C..(.(L$,I)).|
00001710: 2F 1F B0 00 8B 43 B1 39 30 AF 43 B3 39 36 A7 8D |/....C.90.C.96..|
00001720: 32 30 31 3A 8B 58 A7 49 B2 4A 3A 89 31 37 38 00 |201:.X.I.J:.178.|
00001730: 63 1F B1 00 82 3A 81 49 B2 C3 28 4C 24 29 A4 4A |c....:.I..(L$).J|
00001740: AA 31 A9 AB 31 3A 8B CA 28 4C 24 2C 49 2C 31 29 |.1..1:..(L$,I,1)|
00001750: B1 22 20 22 A7 82 3A 49 B2 4A 3A 8B 4A B2 30 89 |." "..:I.J:.J.0.|
00001760: 32 31 33 00 9F 1F B2 00 4A B2 30 3A 58 24 B2 CA |213.....J.0:X$..|
00001770: 28 58 24 2C 49 AA 31 29 3A 4C 24 B2 C8 28 4C 24 |(X$,I.1):L$..(L$|
00001780: 2C 49 AB 31 29 3A 50 24 B2 C8 28 50 24 2C 49 AB |,I.1):P$..(P$,I.|
00001790: 4B 29 3A 4D 24 B2 C8 28 4D 24 2C 49 AB 4B 29 00 |K):M$..(M$,I.K).|
000017A0: C0 1F B3 00 8B 43 B2 39 34 B0 43 B2 39 35 A7 45 |.....C.94.C.95.E|
000017B0: B2 30 3A 58 24 B2 22 5D 22 AA 54 42 24 AA 58 24 |.0:X$."]".TB$.X$|
000017C0: 00 ED 1F B4 00 58 B2 43 3A 8D 32 30 35 3A 8B 4A |.....X.C:.205:.J|
000017D0: B1 30 B0 58 B2 39 34 B0 58 B2 39 32 A7 8D 32 31 |.0.X.94.X.92..21|
000017E0: 30 3A 8B 4A B1 30 B0 58 B2 39 32 A7 8E 00 F6 1F |0:.J.0.X.92.....|
000017F0: B5 00 89 31 37 32 00 03 20 B6 00 8F 20 46 4F 52 |...172.. ... FOR|
00001800: 4D 41 4C 00 33 20 B7 00 4C 24 B2 22 22 3A 8D 31 |MAL.3 ..L$."":.1|
00001810: 38 37 3A 99 22 93 D6 49 45 52 20 C1 44 52 45 53 |87:."..IER .DRES|
00001820: 2D 52 45 47 45 4C 53 22 3A 4D B2 4E 3A 81 49 B2 |-REGELS":M.N:.I.|
00001830: 31 A4 34 00 63 20 B8 00 99 22 D2 45 47 45 4C 22 |1.4.c ...".EGEL"|
00001840: 49 3A 8D 32 32 34 3A 99 3A 8B C3 28 58 24 29 B2 |I:.224:.:..(X$).|
00001850: 4D A7 99 22 12 D4 45 20 4C 41 4E 47 20 22 3A 89 |M.."..E LANG ":.|
00001860: 31 38 34 00 7E 20 B9 00 50 24 B2 58 24 3A 8D 32 |184.~ ..P$.X$:.2|
00001870: 30 35 3A 82 3A 8D 32 30 35 3A 8D 32 30 35 00 A2 |05:.:.205:.205..|
00001880: 20 BA 00 99 22 C1 41 4E 53 50 52 45 4B 45 4E 20 | ...".ANSPREKEN |
00001890: 20 22 3A 8D 32 32 34 3A 50 24 B2 58 24 3A 89 31 | ":.224:P$.X$:.1|
000018A0: 37 30 00 D1 20 BB 00 8C 3A 4D 24 B2 22 22 3A 59 |70.. ...:M$."":Y|
000018B0: 24 B2 53 24 3A 81 49 B2 31 A4 33 3A 87 50 24 3A |$.S$:.I.1.3:.P$:|
000018C0: 8D 31 38 39 3A 82 3A 50 24 B2 44 24 3A 8D 31 38 |.189:.:P$.D$:.18|
000018D0: 39 00 EB 20 BC 00 81 49 B2 31 A4 35 3A 8D 32 30 |9.. ...I.1.5:.20|
000018E0: 35 3A 82 3A 53 24 B2 59 24 3A 8E 00 10 21 BD 00 |5:.:S$.Y$:...!..|
000018F0: 4B B2 C3 28 50 24 29 3A 53 24 B2 22 11 22 AA C8 |K..(P$):S$."."..|
00001900: 28 42 24 2C 34 30 AB 4B AD 32 29 3A 89 32 30 35 |(B$,40.K.2):.205|
00001910: 00 28 21 BE 00 8F 20 46 4F 52 4D 41 54 20 56 41 |.(!... FORMAT VA|
00001920: 52 49 41 54 49 4F 4E 53 00 51 21 BF 00 99 22 11 |RIATIONS.Q!...".|
00001930: D3 54 41 4E 44 41 41 52 44 20 46 4F 52 4D 41 41 |.TANDAARD FORMAA|
00001940: 54 3A 22 3A 99 2C 22 20 C5 45 4E 20 52 45 47 45 |T:":.," .EN REGE|
00001950: 4C 00 82 21 C0 00 99 2C 4E 22 D4 45 4B 45 4E 53 |L..!...,N".EKENS|
00001960: 20 50 45 52 20 52 45 47 45 4C 20 20 22 3A 99 2C | PER REGEL ":.,|
00001970: 4C 4C 22 D4 45 4B 45 4E 53 20 50 45 52 20 4B 41 |LL".EKENS PER KA|
00001980: 4E 54 00 9E 21 C1 00 99 2C 22 20 D4 41 42 20 4C |NT..!...," .AB L|
00001990: 45 4E 47 54 45 20 3D 22 C3 28 54 42 24 29 00 C8 |ENGTE =".(TB$)..|
000019A0: 21 C2 00 99 22 11 D7 49 4C 54 20 55 20 48 45 54 |!..."..ILT U HET|
000019B0: 20 56 45 52 41 4E 44 45 52 45 4E 20 22 3B 3A 8D | VERANDEREN ";:.|
000019C0: 32 31 36 3A 8B 49 A7 8E 00 E7 21 C3 00 99 22 93 |216:.I....!...".|
000019D0: C5 45 4E 20 52 45 47 45 4C 20 20 22 3B 3A 8D 32 |.EN REGEL ";:.2|
000019E0: 31 36 3A 53 32 B2 49 00 16 22 C4 00 85 22 11 D4 |16:S2.I.."..."..|
000019F0: 45 4B 45 4E 53 20 50 45 52 20 52 45 47 45 4C 20 |EKENS PER REGEL |
00001A00: 20 20 28 32 30 2D 38 30 29 20 20 37 32 20 9D 9D | (20-80) 72 ..|
00001A10: 9D 9D 9D 22 3B 4E 00 30 22 C5 00 8B 4E B3 32 30 |...";N.0"...N.20|
00001A20: B0 4E B1 38 30 A7 99 22 91 91 22 3A 89 31 39 36 |.N.80.."..":.196|
00001A30: 00 6D 22 C6 00 99 22 11 D4 45 4B 45 4E 53 20 50 |.m"..."..EKENS P|
00001A40: 45 52 20 52 45 47 45 4C 20 22 4C 4C 22 9D 20 20 |ER REGEL "LL". |
00001A50: 9D 9D 9D 9D 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C 4C |......";:.LL:.LL|
00001A60: B3 31 A7 99 22 91 91 22 3A 89 31 39 38 00 A3 22 |.1.."..":.198.."|
00001A70: C7 00 99 22 11 D4 41 42 20 4C 45 4E 47 54 45 2E |..."..AB LENGTE.|
00001A80: 22 3B 3A 58 24 B2 22 30 31 32 33 34 35 36 37 38 |";:X$."012345678|
00001A90: 39 22 3A 8D 32 31 37 3A 54 42 24 B2 C8 28 42 24 |9":.217:TB$..(B$|
00001AA0: 2C 49 29 00 A9 22 C8 00 8E 00 BB 22 C9 00 8F 20 |,I).."....."... |
00001AB0: 45 4E 48 41 4E 43 45 4D 45 4E 54 00 01 23 CA 00 |ENHANCEMENT..#..|
00001AC0: 4B B2 4B AA 31 3A 58 B2 31 3A 4A B2 49 3A 8B 43 |K.K.1:X.1:J.I:.C|
00001AD0: B2 39 31 B0 43 B2 39 33 A7 58 B2 30 3A 45 B2 28 |.91.C.93.X.0:E.(|
00001AE0: 43 B2 39 31 29 3A 5A 24 B2 42 24 3A 59 24 B2 22 |C.91):Z$.B$:Y$."|
00001AF0: 92 22 3A 8B 45 A7 5A 24 B2 4B 24 3A 59 24 B2 22 |.":.E.Z$.K$:Y$."|
00001B00: 12 00 1F 23 CB 00 4C 24 B2 C8 28 4C 24 2C 49 AB |...#..L$..(L$,I.|
00001B10: 31 29 AA 59 24 AA CA 28 4C 24 2C 49 AA 31 29 00 |1).Y$..(L$,I.1).|
00001B20: 53 23 CC 00 50 24 B2 C8 28 50 24 2C 49 AB 4B 29 |S#..P$..(P$,I.K)|
00001B30: AA CA 28 4C 24 2C 49 AA 31 29 3A 4D 24 B2 C8 28 |..(L$,I.1):M$..(|
00001B40: 4D 24 2C 49 AB 4B 29 AA CA 28 5A 24 2C 49 AA 31 |M$,I.K)..(Z$,I.1|
00001B50: 29 3A 8E 00 62 23 CD 00 8F 20 4C 49 4E 45 20 4F |):..b#... LINE O|
00001B60: 55 54 00 76 23 CE 00 8B 50 24 B1 22 22 A7 50 24 |UT.v#...P$."".P$|
00001B70: B2 53 24 AA 50 24 00 90 23 CF 00 99 4C 24 3B 3A |.S$.P$..#...L$;:|
00001B80: 8D 32 30 38 3A 8B 4A B1 30 B0 53 32 B2 30 A7 8E |.208:.J.0.S2.0..|
00001B90: 00 B2 23 D0 00 8B 46 A7 99 3A 98 31 2C 50 24 3B |..#...F..:.1,P$;|
00001BA0: 3A 8B 4D 24 B1 42 24 A7 98 31 2C 51 24 53 24 4D |:.M$.B$..1,Q$S$M|
00001BB0: 24 3B 00 D9 23 D1 00 98 31 3A 50 24 B2 22 22 3A |$;..#...1:P$."":|
00001BC0: 4C 24 B2 22 22 3A 4D 24 B2 22 22 3A 4C B2 4C AA |L$."":M$."":L.L.|
00001BD0: 31 3A 8B 4C B3 4C 4C A7 8E 00 ED 23 D2 00 8B 46 |1:.L.LL....#...F|
00001BE0: B2 30 A7 8D 32 31 34 3A 4C B2 30 3A 8E 00 1A 24 |.0..214:L.0:...$|
00001BF0: D3 00 8B 4C A7 81 49 B2 4C A4 4C 50 AB 31 3A 98 |...L..I.L.LP.1:.|
00001C00: 31 3A 82 3A 4C B2 30 3A 8F 20 50 41 47 45 20 57 |1:.:L.0:. PAGE W|
00001C10: 49 54 48 20 42 4C 41 4E 4B 53 00 25 24 D4 00 99 |ITH BLANKS.%$...|
00001C20: 22 93 22 3A 8E 00 53 24 D5 00 4A B2 31 3A 99 22 |".":..S$..J.1:."|
00001C30: 11 D2 45 47 45 4C 20 56 4F 4F 52 20 50 52 49 4E |..EGEL VOOR PRIN|
00001C40: 54 45 4E 20 54 45 20 4C 41 4E 47 22 3A 8D 32 31 |TEN TE LANG":.21|
00001C50: 30 3A 8E 00 63 24 D6 00 8F 20 55 54 49 4C 49 54 |0:..c$... UTILIT|
00001C60: 49 45 53 00 8D 24 D7 00 99 22 11 12 20 C4 52 55 |IES..$...".. .RU|
00001C70: 4B 20 45 45 4E 20 54 4F 45 54 53 20 49 4E 21 22 |K EEN TOETS IN!"|
00001C80: 3B 3A 8D 34 3A 99 3A 99 22 93 22 3A 8E 00 98 24 |;:.4:.:.".":...$|
00001C90: D8 00 58 24 B2 22 4A 4E 00 A3 24 D9 00 99 22 3F |..X$."JN..$..."?|
00001CA0: 20 22 3B 00 CB 24 DA 00 8D 34 3A 81 49 B2 31 A4 | ";..$...4:.I.1.|
00001CB0: C3 28 58 24 29 3A 8B 43 24 B3 B1 CA 28 58 24 2C |.(X$):.C$...(X$,|
00001CC0: 49 2C 31 29 A7 82 3A 89 32 31 38 00 DA 24 DB 00 |I,1)..:.218..$..|
00001CD0: 49 B2 49 AB 31 3A 99 43 24 3B 00 F5 24 DC 00 A1 |I.I.1:.C$;..$...|
00001CE0: 57 24 3A 8B 57 24 B2 22 22 A7 99 22 A4 9D 22 3B |W$:.W$."".."..";|
00001CF0: 3A 89 32 32 30 00 0B 25 DD 00 99 22 20 9D 22 3B |:.220..%..." .";|
00001D00: 3A 8B 57 24 B2 52 24 A7 99 3A 8E 00 23 25 DE 00 |:.W$.R$..:..#%..|
00001D10: 8B 57 24 B2 C7 28 32 30 29 A7 99 57 24 3B 3A 89 |.W$..(20)..W$;:.|
00001D20: 32 31 38 00 2C 25 DF 00 89 32 32 30 00 47 25 E0 |218.,%...220.G%.|
00001D30: 00 58 24 B2 22 22 3A 8F 20 49 4E 50 55 54 20 41 |.X$."":. INPUT A|
00001D40: 20 53 54 52 49 4E 47 00 57 25 E1 00 A1 43 24 3A | STRING.W%...C$:|
00001D50: 8B 43 24 89 32 32 35 00 6D 25 E2 00 8D 35 3A 8B |.C$.225.m%...5:.|
00001D60: 43 B2 31 33 B0 43 B2 39 32 89 32 33 32 00 9C 25 |C.13.C.92.232..%|
00001D70: E3 00 8B 43 B2 32 30 AF 58 24 B1 22 22 A7 99 43 |...C.20.X$.""..C|
00001D80: 24 3B 3A 58 24 B2 C8 28 58 24 2C C3 28 58 24 29 |$;:X$..(X$,.(X$)|
00001D90: AB 31 29 3A 8F 20 44 45 4C 45 54 45 00 BB 25 E4 |.1):. DELETE..%.|
00001DA0: 00 8B 43 B2 32 30 89 32 32 36 3A 8F 20 44 45 4C |..C.20.226:. DEL|
00001DB0: 45 54 45 20 4F 4E 20 4E 55 4C 4C 00 EB 25 E5 00 |ETE ON NULL..%..|
00001DC0: 8B 28 31 32 37 AF 43 29 B3 33 32 89 32 32 36 3A |.(127.C).32.226:|
00001DD0: 8F 20 43 55 52 53 4F 52 20 43 4F 4E 54 52 4F 4C |. CURSOR CONTROL|
00001DE0: 20 43 48 41 52 41 43 54 45 52 53 00 04 26 E6 00 | CHARACTERS..&..|
00001DF0: 99 43 24 3B 3A 8B 43 B2 33 34 A7 99 43 24 C7 28 |.C$;:.C.34..C$.(|
00001E00: 32 30 29 3B 00 1E 26 E7 00 58 24 B2 58 24 AA 43 |20);..&..X$.X$.C|
00001E10: 24 3A 8B C3 28 58 24 29 B3 4D 89 32 32 36 00 24 |$:..(X$).M.226.$|
00001E20: 26 E8 00 8E 00 3B 26 E9 00 8F 20 51 55 49 54 20 |&....;&... QUIT |
00001E30: 54 48 45 20 50 52 4F 47 52 41 4D 00 5A 26 EA 00 |THE PROGRAM.Z&..|
00001E40: 99 22 93 11 D0 52 49 4E 54 45 4E 3F 22 3B 3A 8D |."...RINTEN?";:.|
00001E50: 32 31 36 3A 8B 49 89 32 33 36 00 81 26 EB 00 9F |216:.I.236..&...|
00001E60: 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A 8D 32 |1,04:F.1:L..1:.2|
00001E70: 31 30 3A 8F 20 45 58 50 45 4C 20 41 20 50 41 47 |10:. EXPEL A PAG|
00001E80: 45 00 98 26 EC 00 8B 4F 46 B2 30 B0 54 24 28 30 |E..&...OF.0.T$(0|
00001E90: 29 B2 22 22 89 32 33 38 00 D3 26 ED 00 99 22 11 |)."".238..&...".|
00001EA0: C4 4F 4B 55 4D 45 4E 54 20 4E 49 45 54 20 42 45 |.OKUMENT NIET BE|
00001EB0: 56 45 49 4C 49 47 44 3B 20 4F 50 53 4C 41 41 4E |VEILIGD; OPSLAAN|
00001EC0: 3F 22 3B 3A 8D 32 31 36 3A 8B 49 B2 30 A7 A0 31 |?";:.216:.I.0..1|
00001ED0: 3A 8D 39 00 EA 26 EE 00 A0 31 3A 99 22 93 C4 41 |:.9..&...1:."..A|
00001EE0: 47 20 48 4F 4F 52 21 22 3A 80 00 11 27 EF 00 9F |G HOOR!":...'...|
00001EF0: 31 2C 30 34 3A 46 B2 31 3A 4C B2 2E 31 3A 89 32 |1,04:F.1:L..1:.2|
00001F00: 31 30 3A 8F 20 45 58 50 45 4C 20 41 20 50 41 47 |10:. EXPEL A PAG|
00001F10: 45 00 22 27 F0 00 8F 20 49 4E 49 54 49 41 4C 49 |E."'... INITIALI|
00001F20: 5A 45 00 52 27 F1 00 4C 50 B2 37 32 3A 4C 30 B2 |ZE.R'..LP.72:L0.|
00001F30: 36 30 3A 4D 30 B2 31 36 30 3A 51 24 B2 C7 28 31 |60:M0.160:Q$..(1|
00001F40: 34 31 29 3A 52 24 B2 C7 28 31 33 29 3A 4B 24 B2 |41):R$..(13):K$.|
00001F50: 22 A4 00 71 27 F2 00 56 B2 B5 28 28 B8 28 30 29 |"..q'..V..((.(0)|
00001F60: AB 32 30 30 30 29 AD 4D 30 29 3A 86 54 24 28 56 |.2000).M0):.T$(V|
00001F70: 29 00 B2 27 F3 00 99 22 93 8E 13 13 0F 11 11 11 |)..'..."........|
00001F80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001F90: 11 11 11 11 11 11 22 A6 33 39 29 22 8F 05 22 3A |......".39)"..":|
00001FA0: 97 35 39 34 36 38 2C 31 34 3A 8F 20 46 4F 52 4D |.59468,14:. FORM|
00001FB0: 41 54 00 EA 27 F4 00 97 35 33 32 37 32 2C 32 B0 |AT..'...53272,2.|
00001FC0: C2 28 35 33 32 37 32 29 3A 99 22 93 20 20 20 20 |.(53272):.". |
00001FD0: 20 20 20 20 12 20 20 20 20 20 20 D4 C5 D8 D4 20 | . .... |
00001FE0: 36 34 20 20 20 20 20 20 20 92 00 02 28 F5 00 8D |64 ...(...|
00001FF0: 32 35 38 3A 8F 20 43 4F 4C 4F 52 20 43 48 41 4E |258:. COLOR CHAN|
00002000: 47 45 00 48 28 F6 00 99 22 11 11 11 1D 1D 1D 12 |GE.H(...".......|
00002010: CB 92 41 53 53 45 54 54 45 2C 20 12 C4 92 49 53 |..ASSETTE, ...IS|
00002020: 4B 45 54 54 45 20 4F 46 20 12 C2 92 45 49 44 45 |KETTE OF ...EIDE|
00002030: 20 22 3B 3A 58 24 B2 22 44 4B 42 22 3A 8D 32 31 | ";:X$."DKB":.21|
00002040: 37 3A 43 46 B2 49 AA 31 00 72 28 F7 00 42 24 B2 |7:CF.I.1.r(..B$.|
00002050: 22 20 20 20 20 20 22 3A 81 49 B2 31 A4 35 3A 42 |" ":.I.1.5:B|
00002060: 24 B2 42 24 AA 42 24 3A 82 3A 9F 38 2C 30 38 2C |$.B$.B$:.:.8,08,|
00002070: 31 35 00 99 28 F8 00 99 22 1D 1D 1D 11 11 C4 41 |15..(..."......A|
00002080: 54 55 4D 20 20 3F 20 22 3B 3A 4D B2 32 30 3A 8D |TUM ? ";:M.20:.|
00002090: 32 32 34 3A 44 24 B2 58 24 00 B3 28 F9 00 4B 24 |224:D$.X$..(..K$|
000020A0: B2 22 20 22 3A 8F 20 31 35 32 35 20 50 52 49 4E |." ":. 1525 PRIN|
000020B0: 54 45 52 00 E4 28 FA 00 8F 20 4B 24 3D 22 5F 22 |TER..(... K$="_"|
000020C0: 3A 51 24 3D 52 24 2B 43 48 52 24 28 32 37 29 2B |:Q$=R$+CHR$(27)+|
000020D0: 22 0A 22 3A 52 45 4D 20 38 33 30 30 20 50 52 49 |".":REM 8300 PRI|
000020E0: 4E 54 45 52 00 FE 28 FB 00 81 49 B2 31 A4 37 3A |NTER..(...I.1.7:|
000020F0: 4B 24 B2 4B 24 AA 4B 24 3A 82 3A 89 31 33 00 06 |K$.K$.K$:.:.13..|
00002100: 29 FC 00 89 31 33 00 25 29 FD 00 8F 20 4C 45 54 |)...13.%)... LET|
00002110: 54 45 52 48 45 41 44 20 44 41 54 41 2C 20 44 45 |TERHEAD DATA, DE|
00002120: 4C 45 54 45 44 00 2D 29 FE 00 83 22 22 00 35 29 |LETED.-)..."".5)|
00002130: FF 00 83 22 22 00 3D 29 00 01 83 22 22 00 5F 29 |..."".=)...""._)|
00002140: 01 01 99 51 39 24 22 20 4E 49 45 54 20 47 45 56 |...Q9$" NIET GEV|
00002150: 4F 4E 44 45 4E 22 3A 8D 32 31 34 3A 89 31 33 00 |ONDEN":.214:.13.|
00002160: 7A 29 02 01 8F 20 43 4F 4C 4F 52 20 43 48 41 4E |z)... COLOR CHAN|
00002170: 47 45 20 52 4F 55 54 49 4E 45 00 9E 29 03 01 96 |GE ROUTINE..)...|
00002180: A5 43 28 58 29 B2 C2 28 58 29 AA 31 AA 31 36 AC |.C(X)..(X).1.16.|
00002190: 28 28 C2 28 58 29 AF 31 35 29 B2 31 35 29 00 C0 |((.(X).15).15)..|
000021A0: 29 04 01 99 3A 99 22 13 11 11 11 11 11 1D 1D 1D |)...:.".........|
000021B0: 12 C6 31 92 3D 20 D2 41 4E 44 4B 4C 45 55 52 22 |..1.= .ANDKLEUR"|
000021C0: 00 E2 29 05 01 99 22 1D 1D 1D 11 12 C6 33 92 3D |..)..."......3.=|
000021D0: 20 C1 43 48 54 45 52 47 52 4F 4E 44 4B 4C 45 55 | .CHTERGRONDKLEU|
000021E0: 52 22 00 FF 29 06 01 99 22 1D 1D 1D 11 12 C6 35 |R"..)..."......5|
000021F0: 92 3D 20 CC 45 54 54 45 52 4B 4C 45 55 52 22 00 |.= .ETTERKLEUR".|
00002200: 1B 2A 07 01 99 22 1D 1D 1D 11 12 D2 C5 D4 D5 D2 |.*..."..........|
00002210: CE 92 3D 20 D6 45 52 44 45 52 22 00 2B 2A 08 01 |..= .ERDER".+*..|
00002220: A1 43 24 3A 8B 43 24 89 32 36 34 00 3E 2A 09 01 |.C$:.C$.264.>*..|
00002230: A1 43 24 3A 8B 43 24 B2 22 22 89 32 36 35 00 63 |.C$:.C$."".265.c|
00002240: 2A 0A 01 43 B2 C6 28 43 24 29 3A 8B 43 B2 31 33 |*..C..(C$):.C.13|
00002250: 35 A7 97 36 34 36 2C A5 43 28 36 34 36 29 3A 89 |5..646,.C(646):.|
00002260: 32 36 30 00 8F 2A 0B 01 43 B2 C6 28 43 24 29 3A |260..*..C..(C$):|
00002270: 8B 43 B2 31 33 33 B0 43 B2 31 33 34 A7 58 B2 35 |.C.133.C.134.X.5|
00002280: 33 31 34 37 AA 43 3A 97 58 2C A5 43 28 58 29 00 |3147.C:.X,.C(X).|
00002290: 9E 2A 0C 01 8B 43 B3 B1 31 33 89 32 36 34 00 A4 |.*...C..13.264..|
000022A0: 2A 0D 01 8E 00 00 00 |*...... |
....... TEXT 64.+....G(14):.657,128:.788
,52.4....240.B....C$:.C$.4._....C$:.C$..
" .";:C.F(C$):..M...."..";:.5.~....C$:.C
$."".7.....X.F(C$):C.X.127:.C.13.C.17.C.
19.C.20.C.29.C.31.......X$.""......#1,C$
:.C$.R$.C$.G(141).......X$.X$.C$:.11....
.L.0:LL.L0: 1:. ENTRY.0....". .
TEXT 64 ...F...."...FUNCTI
ES:..".K...."....1...OPSTELLEN VAN DOKUM
ENT......"....2...INVOEREN VAN DOKUMENT.
....."....3...OPROEPEN EN PRINTEN VAN DO
KUMENT......"....4...BEWAREN VAN DOKUMEN
T......"....5...VERANDEREN VAN DOKUMENT.
2...."....6...GLOBAAL ZOEKEN EN OMWISSEL
EN.V...."....7...AANGEVEN VAN DOKUMENT.Y
...."....8...CIRCULAIRE OPSTELLEN......"
....9...PRAGRAMMA EINDE.H...X$."98765432
1":.".....WELKE ";:.217:.I.0.233.X...J.I
:.J.4.32......".":. GET SUBJECT.1....H$.
"".."DOKUMENT: ."H$:.".(RETURN LAAT DE N
AAM ONVERANDERD)".\...M.61:.".NAAM DOKUM
ENT:":.224:.C..13.27.O....:.X$."".H$.X$.
}....H$."".27... ..J.7.T$(0).""..".GEEN
DOKUMENT AANWEZIG":.214:.13.M.!..OF.0.J.
7.T$(0)."".35..."..".DOKUMENT NIET AANWE
ZIG...OPSLAG SCHRAPPEN";:.216:.I.13.-.#.
.J.36,52,136,162,98,108,87,38.B.$.. READ
TO SCREEN.J.%.N.39:F.0:LL.20:TB$."":.1,
3:.169:.13...&.OF.1:T.0:. WRITE NEW TEXT
.A.'..".."H$:.:.".......................
..................P.(..C$:.C$.40...).M.M
0:.I.T.V:T$(I)."":X$.""...*..226:.C.13..
:.X$."".42. .+.T$(I).X$:.C..92...=.,..I.
V..I.I.1.V:T$(I)."":..F.-.T.0:L$."":.46:
.13:. PACK THE STRINGS......:.I.T.V:.T$(
I)."".49.../.X$.T$(I):M.M0.C(L$):L$.L$.H
(X$,M)...0.X$.J(X$,M.1):.C(L$).M0.T$(T).
L$:."*";:L$.X$:T.T.1...1.....2..:T$(T).L
$:.T.V..I.T.1.V:T$(I)."":....3...$.4.. E
DIT THE TEXT.H.5..".HOEVEEL % TEXT OVERS
LAAN (0-100) 0...";T:T..(T):.T.99.T.100
...6.OF.1:.I.0.V:.T$(I)."".....7.I.I.1:T
..(T.I.100..5)...8.L.0:.T.V.13.E.9.X$.T$
(T):.X$."".84...:.P$.H(H$,20):.T.P$.T$(T
.1)...;..".."I(P$,20):.".".29)".BLOK"T.;
.<.."...................................
............J.=..C$:.C$.61.C.>.. & SET C
URSOR (A,D)...?.."..."H(X$,L):."...".L)"
.."J(X$,L.1,1)...@.."...".L.1)J(X$,L.2)
H(B$,M0.C(X$)):.".....A..7:.X.92.T$(T).X
$:.45:. END...B..X.29.L.L.(L.1.C(X$)):.6
2:. CURSOR RIGHT...C..C.29.L.L.(L.0):.62
:. CURSOR LEFT.^.D..X.17.L.L.40.(L.40.C(
X$)):.62:. CURSOR DOWN...E..C.17.L.L.40.
(L.39):.62:. CURSOR UP...F..X.19.L.0:.62
:. CURSOR HOME...G..C.19..I.T.V.1:T$(I).
T$(I.1):.:T$(V)."":.56:. CLEAR...H..X.13
.T$(T).X$:T.T.1:.56:. NEXT BLOCK.7.I..C.
13.T$(T).X$:T.T.(T.0):.56:. PRIOR BLOCK.
H.J..L..C(X$).62.J.K.L$.H(X$,L):.X.148.7
9:. INSERT...L.M$.J(X$,L.2):.C..20.X$.L$
.C$.M$:X.29:.66:. REPLACE CHARACTER.U.M.
X$.L$.M$:.X$."".C.19:.71:. NULL BLOCK...
N..62...O.M$.J(X$,L.1):."...............
.."M$:."..."L$.+.P.."...".C(L$));:M.M0:.
224.X.Q.M.M0.C(L$):L$.L$.H(X$,M):M$.J(X$
,M.1).M$...R.M.M0.C(L$):T$(T).L$.H(M$,M)
:L$.J(M$,M.1):M$."":.L$."".57...S.X.T:T.
T.1:.46:T.X:.57.D.T.. ADD TO THE END.V.U
..T.0.45:. END...V.X$.T$(T.1):."."X$:.".
".C(X$));:.40...W.. INPUT FILE.:.X.Q9$."
DOKUMENT":. FOR ERROR MSG IN 60000._.Y..
CF.2..".VAN DE DATASETTE";:.216...Z..CF.
2.(CF.2.I.0)..1,1,0,H$:.92...[..1,08,2,H
(H$,16):.8,X,X$:.X.257...\.OF.0:.10:.".L
EEST : ."X$:H$.X$:.10:.X$:.:. HEADER...
].X$.G(31):.I.0.V:L$."":. INPUT FILE.$.^
..J.1.M0:.#1,C$:.ST.J.M0:.96.P._..C$.X$.
L$.L$.C$:. ONLY LEGAL CHARACTERS.T.`..J:
T$(I).L$:.L$;:.ST.0..I:I.I.1...A.T.I:.50
:.214:.13...B..99:.13:. OUTPUT FILE.D.C.
.CF.2..".OP DATASETTE";:.216...D..CF.2.(
CF.3.I.0)..1,1,1,H$:.105...E.L$."0:".H(H
$,16):.1,08,2,L$:.8,X,X$: 1:.X.104.X.F..
".DOKUMENT IS AANWEZIG - WORDT WEGGESCHR
EVEN";:.216:.I...L.G..8,"S"L$:.8,"I0...H
..1,08,3,L$.",S,W":.8,X,X$:.X.Q9$."SPACE
":.257...I.OF.0:.1,H$G(141)D$...J..I.0.V
:.T$(I).""..1,T$(I);:."*";:....K..1,"\";
:....L.. BATCH PROCESSING.).M.Q9$."FILE"
:. FOR ERROR MSG IN 60000.K.N..".";:.CF.
114,112:. ELSE BOTH.M.O.."VAN DATASETTE"
;:.216:.I.114...P.. FROM CASSETTE...Q..2
,1:.117...R.. FROM DISC.S.S..".ADRESSEN
64: DATA-NAAM -...";X$:.X$."-".115...T.
.2,08,2,X$:.8,X,X$:.X. 2:.257...U.. PREP
ARE FOR OUTPUT.A.V.TB$."":S2.0:N.72:F.1:
.1,04:S$.".".H(B$,40.N.2).I.W..".STANDAA
RD-FORMAAT";:.216:.I..190...X.. GET THE
NAME AND SALUTATION...Y..2,Z$:.ST.0.C(Z$
).2.135...Z.L$."":.187:X$."":Y$."":M$."G
EACHTE DAMES EN HEREN,"...{..2,X$:.C(X$)
.2.X$."":.125:. NO FIRST NAME...|.M$."LI
EVE ".X$.",":X$.X$." ".W.}..2,Y$:.C(Y$).
2.Y$."":.127:. NO TITLE.Z.~.Y$.Y$." ":M$
."LIEVE ".Y$.Z$.",....L$.Y$.X$.Z$:.2,X$
:.C(X$).2.L$.L$.", ".X$.O...Z$.M$:M$."":
P$.L$:.205:. PRINT NAME...... GET ADDRES
S......2,L$:.C(L$).1.P$.L$:.205:. LINE 2
./....2,L$:.C(L$).1.P$.L$:.205:. LINE 3.
C....2,L$:.2,Y$:.C(Y$).1.L$.L$.", ".Y$:.
STATE, ZIP.{....C(L$).1.P$.L$:.205.....
.I.L.14:.205:.:L$.Z$:P$.L$:.170:.120....
. 2:.13.H.... SEARCH AND REPLACE......".
.ZOEKEN NAAR?":M.40:.224:Z$.X$:L.C(X$):.
L.0.L.M.137.)....:.".OMZETTEN IN?":.224:
Y$.X$:.:..P...X$."":M$."":L$."":T.0:U.0:
F.0:OF.1.F.... ATTACH T$ TO X$.X....C(X$
)..L.144......T.V.149:. ALL T$'S READ...
..X$.X$.T$(T):T$(T)."":T.T.1:.140.P....
SEARCH FOR MATCH......I.1.C(X$).L.1:.J(X
$,I,L)..Z$..:J.I:.147.....M$.Y$:J.I.L:."
.";.'.... SPLIT STRINGS.W...M$.H(X$,I.1)
.M$:X$.J(X$,J):.154:.F.160:.140.J.... ST
OW LAST L$......154:.F.160:. CLEAR M$...
..M$.X$:.154:.F.160:. M$_X$; CLEAR BOTH.
.....U..V.T.U:.50:.13:. STOW L$, CLEAR H
IGHER BLOCKS......160...... CLEAR M$ - S
TOW L$ IF NEEDED.F...M.M0.C(L$):L$.L$.H(
M$,M):M$.J(M$,M.1):.C(L$).M0...T....U..V
.159......U.T.T$(U).L$:."*.";:U.U.1:L$.M
$:M$."":.......T.V..I.V.T.1..1:T$(I).T$(
I.1):.:T$(T)."":T.T.1:.157.D...F.1:..U.
.. ERROR EXIT......:.".GEEN RUIMTE MEER
- DATA AANGETAST":.214:.13.!.... FORMAT
AND PRINT......164:.13.F....1,04:F.1:. P
RINTER.W...S2.1:N.60:TB$."":X$."FID":. D
EFAULTS (DRAFT)......"..F.ORMEEL, .I.NFO
RMEEL, OR .D. CONCEPT";:.217:J.I.H....J.
2.S2.0:N.72:.190.....S$.".".H(B$,40.N.2)
:.J.0.182:. FORMAL.....L$.".".H$:P$.H$:M
$.H(K$,C(H$)).1...J.0:.".":.205:.205:.J.
..[...T.0:X$."]".TB$:E.0:Z$.B$:. PRINT T
EXT......C(X$)..N.X$.X$.T$(T):T.T.1:.C(X
$)..N.T.V.X$.X$."\.A....F(X$).32.X$.J(X$
,2):.172:. LEADING BLANKS.R....E.X$."[".
X$.....L$.H(X$,N.1):P$.L$:J.0:K.0:M$.B$:
.I.1.C(L$):C.F(J(L$,I))./....C.90.C.96..
201:.X.I.J:.178.C....:.I.C(L$).J.1..1:.J
(L$,I,1)." "..:I.J:.J.0.213.....J.0:X$.J
(X$,I.1):L$.H(L$,I.1):P$.H(P$,I.K):M$.H(
M$,I.K)......C.94.C.95.E.0:X$."]".TB$.X$
.....X.C:.205:.J.0.X.94.X.92..210:.J.0.X
.92........172.. ... FORMAL.3 ..L$."":.1
87:.".VIER ADRES-REGELS":M.N:.I.1.4.C ..
."REGEL"I:.224:.:.C(X$).M..".TE LANG ":.
184.~ ..P$.X$:.205:.:.205:.205.. ..."AAN
SPREKEN ":.224:P$.X$:.170.Q ...:M$."":Y
$.S$:.I.1.3:.P$:.189:.:P$.D$:.189.. ...I
.1.5:.205:.:S$.Y$:...!..K.C(P$):S$.".".H
(B$,40.K.2):.205.(!... FORMAT VARIATIONS
.Q!...".STANDAARD FORMAAT:":.," EEN REGE
L..!...,N"TEKENS PER REGEL ":.,LL"TEKEN
S PER KANT..!A..," TAB LENGTE ="C(TB$).H
!B..".WILT U HET VERANDEREN ";:.216:.I..
..!C..".EEN REGEL ";:.216:S2.I.."D..".T
EKENS PER REGEL (20-80) 72 .....";N.0
"E..N.20.N.80.."..":.196.M"F..".TEKENS P
ER REGEL "LL". ......";:.LL:.LL.1..".."
:.198.."G..".TAB LENGTE.";:X$."012345678
9":.217:TB$.H(B$,I).."H...."I.. ENHANCEM
ENT..#J.K.K.1:X.1:J.I:.C.91.C.93.X.0:E.(
C.91):Z$.B$:Y$.".":.E.Z$.K$:Y$."...#K.L$
.H(L$,I.1).Y$.J(L$,I.1).S#L.P$.H(P$,I.K)
.J(L$,I.1):M$.H(M$,I.K).J(Z$,I.1):..B#M.
. LINE OUT.V#N..P$."".P$.S$.P$..#O..L$;:
.208:.J.0.S2.0....#P..F..:.1,P$;:.M$.B$.
.1,Q$S$M$;.Y#Q..1:P$."":L$."":M$."":L.L.
1:.L.LL....#R..F.0..214:L.0:...$S..L..I.
L.LP.1:.1:.:L.0:. PAGE WITH BLANKS.%$T..
".":..S$U.J.1:.".REGEL VOOR PRINTEN TE L
ANG":.210:..C$V.. UTILITIES..$W..".. DRU
K EEN TOETS IN!";:.4:.:.".":...$X.X$."JN
..$Y.."? ";.K$Z..4:.I.1.C(X$):.C$..J(X$,
I,1)..:.218.Z$..I.I.1:.C$;..$...W$:.W$."
".."..";:.220..%..." .";:.W$.R$..:..#%..
.W$.G(20)..W$;:.218.,%...220.G%..X$."":.
INPUT A STRING.W%...C$:.C$.225.M%...5:.
C.13.C.92.232..%...C.20.X$.""..C$;:X$.H(
X$,C(X$).1):. DELETE..%...C.20.226:. DEL
ETE ON NULL..%...(127.C).32.226:. CURSOR
CONTROL CHARACTERS..&...C$;:.C.34..C$G(
20);..&..X$.X$.C$:.C(X$).M.226.$&....;&.
.. QUIT THE PROGRAM.Z&..."..PRINTEN?";:.
216:.I.236..&...1,04:F.1:L..1:.210:. EXP
EL A PAGE..&...OF.0.T$(0)."".238.S&...".
DOKUMENT NIET BEVEILIGD; OPSLAAN?";:.216
:.I.0. 1:.9..&.. 1:.".DAG HOOR!":...'...
1,04:F.1:L..1:.210:. EXPEL A PAGE."'...
INITIALIZE.R'..LP.72:L0.60:M0.160:Q$.G(1
41):R$.G(13):K$."..Q'..V..((.(0).2000).M
0):.T$(V)..'..."........................
......".39)"..":.59468,14:. FORMAT..'...
53272,2.B(53272):.". . TEXT
64 ...(...258:. COLOR CHANGE.H(...
".......K.ASSETTE, .D.ISKETTE OF .B.EIDE
";:X$."DKB":.217:CF.I.1.R(..B$." ":
.I.1.5:B$.B$.B$:.:.8,08,15..(...".....DA
TUM ? ";:M.20:.224:D$.X$..(..K$." ":. 1
525 PRINTER..(... K$="_":Q$=R$+CHR$(27)+
".":REM 8300 PRINTER..(...I.1.7:K$.K$.K$
:.:.13..)...13.%)... LETTERHEAD DATA, DE
LETED.-)..."".5)..."".=)...""._)...Q9$"
NIET GEVONDEN":.214:.13.Z)... COLOR CHAN
GE ROUTINE..)....C(X).B(X).1.16.((B(X).1
5).15)..)...:."..........F1.= RANDKLEUR"
..)...".....F3.= ACHTERGRONDKLEUR"..)...
".....F5.= LETTERKLEUR"..*...".....RETUR
N.= VERDER".+*...C$:.C$.264.>*...C$:.C$.
"".265.C*..C.F(C$):.C.135..646,.C(646):.
260..*..C.F(C$):.C.133.C.134.X.53147.C:.
X,.C(X)..*...C..13.264..*......
> CLICK IMAGE PREVIEW FOR FULL MODAL