Multiple names: TEKST 64, TEKST64

00000000: 01 08 1D 08 05 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 37 2C 31 32 38 3A 97 37  38 38 2C 35 32 00 57 08  |7,128:.788,52.W.|
00000020: 0A 00 89 39 30 30 30 3A  8F 20 28 43 29 20 31 39  |...9000:. (C) 19|
00000030: 38 32 20 42 59 20 43 4F  4D 4D 4F 44 4F 52 45 20  |82 BY COMMODORE |
00000040: 42 55 53 49 4E 45 53 53  20 4D 41 43 48 49 4E 45  |BUSINESS MACHINE|
00000050: 53 2C 20 49 4E 43 2E 00  66 08 14 00 A1 43 24 3A  |S, INC..f....C$:|
00000060: 8B 43 24 89 32 30 00 83  08 19 00 A1 43 24 3A 8B  |.C$.20......C$:.|
00000070: 43 24 A7 99 22 20 9D 22  3B 3A 43 B2 C6 28 43 24  |C$.." .";:C..(C$|
00000080: 29 3A 8E 00 92 08 1B 00  99 22 A4 9D 22 3B 3A 89  |):......."..";:.|
00000090: 32 35 00 A4 08 1E 00 A1  43 24 3A 8B 43 24 B2 22  |25......C$:.C$."|
000000A0: 22 89 33 30 00 D9 08 20  00 58 B2 C6 28 43 24 29  |".30... .X..(C$)|
000000B0: 3A 43 B2 58 AF 31 32 37  3A 8B 43 B2 31 33 B0 43  |:C.X.127:.C.13.C|
000000C0: B2 31 37 B0 43 B2 31 39  B0 43 B2 32 30 B0 43 B2  |.17.C.19.C.20.C.|
000000D0: 32 39 B0 43 B1 33 31 A7  8E 00 E1 08 22 00 89 33  |29.C.31....."..3|
000000E0: 30 00 EB 08 28 00 58 24  B2 22 22 00 09 09 2A 00  |0...(.X$.""...*.|
000000F0: A1 23 31 2C 43 24 3A 8B  43 24 B2 52 24 B0 43 24  |.#1,C$:.C$.R$.C$|
00000100: B2 C7 28 31 34 31 29 A7  8E 00 1A 09 2C 00 58 24  |..(141).....,.X$|
00000110: B2 58 24 AA 43 24 3A 89  34 32 00 33 09 64 00 4C  |.X$.C$:.42.3.d.L|
00000120: B2 30 3A 4C 4C B2 4C 30  3A A0 31 3A 8F 20 45 4E  |.0:LL.L0:.1:. EN|
00000130: 54 52 59 00 5C 09 6E 00  99 22 93 20 20 20 20 20  |TRY.\.n..".     |
00000140: 20 12 20 C3 4F 4D 4D 4F  44 4F 52 45 20 D4 C5 D8  | . .OMMODORE ...|
00000150: D4 20 36 34 20 20 20 20  20 20 11 11 00 72 09 78  |. 64      ...r.x|
00000160: 00 99 2C 22 C6 55 4E 4B  54 49 4F 4E 45 4E 3A 11  |..,".UNKTIONEN:.|
00000170: 11 22 00 92 09 7D 00 99  2C 22 12 CD 92 41 4B 45  |."...}..,"...AKE|
00000180: 4E 20 56 41 4E 20 45 45  4E 20 C4 4F 4B 55 4D 45  |N VAN EEN .OKUME|
00000190: 4E 54 00 B2 09 82 00 99  2C 22 12 D3 92 41 56 45  |NT......,"...AVE|
000001A0: 4E 20 56 41 4E 20 45 45  4E 20 C4 4F 4B 55 4D 45  |N VAN EEN .OKUME|
000001B0: 4E 54 00 D2 09 87 00 99  2C 22 12 CC 92 41 44 45  |NT......,"...ADE|
000001C0: 4E 20 56 41 4E 20 45 45  4E 20 C4 4F 4B 55 4D 45  |N VAN EEN .OKUME|
000001D0: 4E 54 00 F4 09 8C 00 99  2C 22 12 D0 92 52 49 4E  |NT......,"...RIN|
000001E0: 54 45 4E 20 56 41 4E 20  45 45 4E 20 C4 4F 4B 55  |TEN VAN EEN .OKU|
000001F0: 4D 45 4E 54 00 19 0A 96  00 99 2C 22 12 D6 92 45  |MENT......,"...E|
00000200: 52 41 4E 44 45 52 45 4E  20 56 41 4E 20 45 45 4E  |RANDEREN VAN EEN|
00000210: 20 C4 4F 4B 55 4D 45 4E  54 00 3F 0A A0 00 99 2C  | .OKUMENT.?....,|
00000220: 22 12 C7 92 4C 4F 42 41  41 4C 20 DA 4F 45 4B 45  |"...LOBAAL .OEKE|
00000230: 4E 20 45 4E 20 D6 45 52  41 4E 44 45 52 45 4E 00  |N EN .ERANDEREN.|
00000240: 6D 0A A5 00 99 2C 22 12  C2 92 45 45 4C 44 53 43  |m....,"...EELDSC|
00000250: 48 45 52 4D 20 50 52 49  4E 54 45 4E 20 56 41 4E  |HERM PRINTEN VAN|
00000260: 20 45 45 4E 20 C4 4F 4B  55 4D 45 4E 54 00 8A 0A  | EEN .OKUMENT...|
00000270: AA 00 99 2C 22 12 D2 92  4F 4E 44 53 43 48 52 49  |...,"...ONDSCHRI|
00000280: 4A 56 45 4E 20 CD 41 4B  45 4E 00 99 0A B9 00 99  |JVEN .AKEN......|
00000290: 2C 22 12 C5 92 49 4E 44  45 00 CA 0A BE 00 58 24  |,"...INDE.....X$|
000002A0: B2 22 45 42 56 47 50 53  52 4C 4D 22 3A 99 22 11  |."EBVGPSRLM":.".|
000002B0: D7 45 4C 4B 45 20 20 20  22 3B 3A 8D 38 30 36 30  |.ELKE   ";:.8060|
000002C0: 3A 8B 49 B2 30 89 38 37  30 30 00 DB 0A C3 00 4A  |:.I.0.8700.....J|
000002D0: B2 49 3A 8B 4A B3 34 89  32 35 30 00 F2 0A C8 00  |.I:.J.4.250.....|
000002E0: 99 22 93 22 3A 8F 20 47  45 54 20 53 55 42 4A 45  |.".":. GET SUBJE|
000002F0: 43 54 00 05 0B D2 00 99  3A 8B 58 24 B1 22 22 A7  |CT......:.X$."".|
00000300: 48 24 B2 58 24 00 32 0B  DC 00 4D B2 36 31 3A 99  |H$.X$.2...M.61:.|
00000310: 22 11 C4 4F 4B 55 4D 45  4E 54 2D CE 41 41 4D 3A  |"..OKUMENT-.AAM:|
00000320: 22 3A 8D 38 32 30 30 3A  8B 43 B3 B1 31 33 89 32  |":.8200:.C..13.2|
00000330: 30 30 00 45 0B E6 00 99  3A 8B 58 24 B1 22 22 A7  |00.E....:.X$."".|
00000340: 48 24 B2 58 24 00 54 0B  F0 00 8B 48 24 B2 22 22  |H$.X$.T....H$.""|
00000350: 89 32 30 30 00 8F 0B FA  00 8B 4A B3 37 AF 54 24  |.200......J.7.T$|
00000360: 28 30 29 B2 22 22 A7 99  22 11 C7 45 45 4E 20 C4  |(0)."".."..EEN .|
00000370: 4F 4B 55 4D 45 4E 54 20  49 4E 20 C7 45 48 45 55  |OKUMENT IN .EHEU|
00000380: 47 45 4E 22 3A 8D 38 30  30 30 3A 89 31 30 30 00  |GEN":.8000:.100.|
00000390: AA 0B 04 01 8B 4F 46 B2  30 B0 4A B3 37 B0 54 24  |.....OF.0.J.7.T$|
000003A0: 28 30 29 B2 22 22 89 32  38 30 00 E9 0B 0E 01 99  |(0)."".280......|
000003B0: 22 11 C4 4F 4B 55 4D 45  4E 54 20 4E 49 45 54 20  |"..OKUMENT NIET |
000003C0: 47 45 53 41 56 45 44 2E  2E 2E C7 45 48 45 55 47  |GESAVED....EHEUG|
000003D0: 45 4E 20 57 49 53 53 45  4E 20 22 3B 3A 8D 38 30  |EN WISSEN ";:.80|
000003E0: 35 30 3A 8B 49 89 31 30  30 00 16 0C 18 01 91 4A  |50:.I.100......J|
000003F0: 89 34 30 30 2C 31 30 30  30 2C 36 30 30 30 2C 37  |.400,1000,6000,7|
00000400: 30 30 30 2C 33 30 30 30  2C 34 30 30 30 2C 32 30  |000,3000,4000,20|
00000410: 30 30 2C 35 30 30 00 2B  0C 90 01 8F 20 52 45 41  |00,500.+.... REA|
00000420: 44 20 54 4F 20 53 43 52  45 45 4E 00 55 0C 9A 01  |D TO SCREEN.U...|
00000430: 4E B2 33 39 3A 46 B2 30  3A 4C 4C B2 32 30 3A 54  |N.39:F.0:LL.20:T|
00000440: 42 24 B2 22 22 3A 9F 31  2C 33 3A 8D 37 30 38 30  |B$."":.1,3:.7080|
00000450: 3A 89 31 30 30 00 73 0C  F4 01 4F 46 B2 31 3A 54  |:.100.s...OF.1:T|
00000460: B2 30 3A 8F 20 57 52 49  54 45 20 4E 45 57 20 54  |.0:. WRITE NEW T|
00000470: 45 58 54 00 AC 0C F9 01  99 22 93 12 22 48 24 3A  |EXT......".."H$:|
00000480: 99 3A 99 22 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |.:."............|
00000490: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
000004A0: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 00 BC 0C FE  |................|
000004B0: 01 A1 43 24 3A 8B 43 24  89 35 31 30 00 DB 0C 08  |..C$:.C$.510....|
000004C0: 02 4D B2 4D 30 3A 81 49  B2 54 A4 56 3A 54 24 28  |.M.M0:.I.T.V:T$(|
000004D0: 49 29 B2 22 22 3A 58 24  B2 22 22 00 F8 0C 12 02  |I)."":X$."".....|
000004E0: 8D 38 32 32 30 3A 8B 43  B2 31 33 A7 99 3A 8B 58  |.8220:.C.13..:.X|
000004F0: 24 B2 22 22 89 35 33 30  00 0E 0D 1C 02 54 24 28  |$."".530.....T$(|
00000500: 49 29 B2 58 24 3A 8B 43  B3 B1 39 32 A7 82 00 2B  |I).X$:.C..92...+|
00000510: 0D 26 02 8B 49 B3 56 A7  81 49 B2 49 AA 31 A4 56  |.&..I.V..I.I.1.V|
00000520: 3A 54 24 28 49 29 B2 22  22 3A 82 00 56 0D 58 02  |:T$(I)."":..V.X.|
00000530: 54 B2 30 3A 4C 24 B2 22  22 3A 8D 36 31 30 3A 89  |T.0:L$."":.610:.|
00000540: 31 30 30 3A 8F 20 50 41  43 4B 20 54 48 45 20 53  |100:. PACK THE S|
00000550: 54 52 49 4E 47 53 00 71  0D 62 02 99 3A 81 49 B2  |TRINGS.q.b..:.I.|
00000560: 54 A4 56 3A 8B 54 24 28  49 29 B2 22 22 89 36 33  |T.V:.T$(I)."".63|
00000570: 30 00 97 0D 67 02 58 24  B2 54 24 28 49 29 3A 4D  |0...g.X$.T$(I):M|
00000580: B2 4D 30 AB C3 28 4C 24  29 3A 4C 24 B2 4C 24 AA  |.M0..(L$):L$.L$.|
00000590: C8 28 58 24 2C 4D 29 00  CD 0D 6C 02 58 24 B2 CA  |.(X$,M)...l.X$..|
000005A0: 28 58 24 2C 4D AA 31 29  3A 8B C3 28 4C 24 29 B2  |(X$,M.1):..(L$).|
000005B0: 4D 30 A7 54 24 28 54 29  B2 4C 24 3A 99 22 2A 22  |M0.T$(T).L$:."*"|
000005C0: 3B 3A 4C 24 B2 58 24 3A  54 B2 54 AA 31 00 D3 0D  |;:L$.X$:T.T.1...|
000005D0: 76 02 82 00 FB 0D 8A 02  99 3A 54 24 28 54 29 B2  |v........:T$(T).|
000005E0: 4C 24 3A 8B 54 B3 56 A7  81 49 B2 54 AA 31 A4 56  |L$:.T.V..I.T.1.V|
000005F0: 3A 54 24 28 49 29 B2 22  22 3A 82 00 01 0E 94 02  |:T$(I)."":......|
00000600: 8E 00 15 0E E8 03 8F 20  45 44 49 54 20 54 48 45  |....... EDIT THE|
00000610: 20 54 45 58 54 00 5B 0E  F2 03 85 22 93 C8 4F 45  | TEXT.[...."..OE|
00000620: 56 45 45 4C 20 25 20 D4  45 4B 53 54 20 56 45 52  |VEEL % .EKST VER|
00000630: 53 50 52 49 4E 47 45 4E  20 28 30 2D 31 30 30 29  |SPRINGEN (0-100)|
00000640: 20 30 9D 9D 9D 22 3B 54  3A 54 B2 B6 28 54 29 3A  | 0...";T:T..(T):|
00000650: 8B 54 B1 39 39 A7 54 B2  31 30 30 00 77 0E FC 03  |.T.99.T.100.w...|
00000660: 4F 46 B2 31 3A 81 49 B2  30 A4 56 3A 8B 54 24 28  |OF.1:.I.0.V:.T$(|
00000670: 49 29 B1 22 22 A7 82 00  91 0E 06 04 49 B2 49 AB  |I)."".......I.I.|
00000680: 31 3A 54 B2 B5 28 54 AC  49 AD 31 30 30 AA 2E 35  |1:T..(T.I.100..5|
00000690: 29 00 A2 0E 10 04 4C B2  30 3A 8B 54 B1 56 89 31  |).....L.0:.T.V.1|
000006A0: 30 30 00 BB 0E 1A 04 58  24 B2 54 24 28 54 29 3A  |00.....X$.T$(T):|
000006B0: 8B 58 24 B2 22 22 89 31  39 30 30 00 D9 0E 24 04  |.X$."".1900...$.|
000006C0: 50 24 B2 C8 28 48 24 2C  32 30 29 3A 8B 54 A7 50  |P$..(H$,20):.T.P|
000006D0: 24 B2 54 24 28 54 AB 31  29 00 FD 0E 2E 04 99 22  |$.T$(T.1)......"|
000006E0: 93 12 22 C9 28 50 24 2C  32 30 29 3A 99 22 13 22  |..".(P$,20):."."|
000006F0: A6 32 39 29 22 92 C2 4C  4F 43 4B 22 54 00 32 0F  |.29)"..LOCK"T.2.|
00000700: 38 04 99 22 11 11 11 11  11 11 A4 A4 A4 A4 A4 A4  |8.."............|
00000710: A4 A4 A4 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 00 43 0F 42 04 A1  43 24 3A 8B 43 24 89 31  |...C.B..C$:.C$.1|
00000740: 30 39 30 00 5C 0F 4C 04  8F 20 26 20 53 45 54 20  |090.\.L.. & SET |
00000750: 43 55 52 53 4F 52 20 28  41 2C 44 29 00 88 0F 56  |CURSOR (A,D)...V|
00000760: 04 99 22 13 11 11 22 C8  28 58 24 2C 4C 29 3A 99  |.."...".(X$,L):.|
00000770: 22 13 11 11 22 A6 4C 29  22 20 9D 12 22 CA 28 58  |"...".L)" ..".(X|
00000780: 24 2C 4C AA 31 2C 31 29  00 B4 0F 6A 04 99 22 13  |$,L.1,1)...j..".|
00000790: 11 11 22 A6 4C AA 31 29  CA 28 58 24 2C 4C AA 32  |..".L.1).(X$,L.2|
000007A0: 29 C8 28 42 24 2C 4D 30  AB C3 28 58 24 29 29 3A  |).(B$,M0..(X$)):|
000007B0: 99 22 11 11 00 D6 0F B0  04 8D 33 30 3A 8B 58 B2  |."........30:.X.|
000007C0: 39 32 A7 54 24 28 54 29  B2 58 24 3A 89 36 30 30  |92.T$(T).X$:.600|
000007D0: 3A 8F 20 45 4E 44 00 05  10 BA 04 8B 58 B2 32 39  |:. END......X.29|
000007E0: A7 4C B2 4C AB 28 4C AA  31 B3 C3 28 58 24 29 29  |.L.L.(L.1..(X$))|
000007F0: 3A 89 31 31 30 30 3A 8F  20 43 55 52 53 4F 52 20  |:.1100:. CURSOR |
00000800: 52 49 47 48 54 00 2D 10  C4 04 8B 43 B2 32 39 A7  |RIGHT.-....C.29.|
00000810: 4C B2 4C AA 28 4C B1 30  29 3A 89 31 31 30 30 3A  |L.L.(L.0):.1100:|
00000820: 8F 20 43 55 52 53 4F 52  20 4C 45 46 54 00 5F 10  |. CURSOR LEFT._.|
00000830: CE 04 8B 58 B2 31 37 A7  4C B2 4C AB 34 30 AC 28  |...X.17.L.L.40.(|
00000840: 4C AA 34 30 B3 C3 28 58  24 29 29 3A 89 31 31 30  |L.40..(X$)):.110|
00000850: 30 3A 8F 20 43 55 52 53  4F 52 20 44 4F 57 4E 00  |0:. CURSOR DOWN.|
00000860: 89 10 D8 04 8B 43 B2 31  37 A7 4C B2 4C AA 34 30  |.....C.17.L.L.40|
00000870: AC 28 4C B1 33 39 29 3A  89 31 31 30 30 3A 8F 20  |.(L.39):.1100:. |
00000880: 43 55 52 53 4F 52 20 55  50 00 AB 10 E2 04 8B 58  |CURSOR UP......X|
00000890: B2 31 39 A7 4C B2 30 3A  89 31 31 30 30 3A 8F 20  |.19.L.0:.1100:. |
000008A0: 43 55 52 53 4F 52 20 48  4F 4D 45 00 E5 10 EC 04  |CURSOR HOME.....|
000008B0: 8B 43 B2 31 39 A7 81 49  B2 54 A4 56 AB 31 3A 54  |.C.19..I.T.V.1:T|
000008C0: 24 28 49 29 B2 54 24 28  49 AA 31 29 3A 82 3A 54  |$(I).T$(I.1):.:T|
000008D0: 24 28 56 29 B2 22 22 3A  89 31 30 34 30 3A 8F 20  |$(V)."":.1040:. |
000008E0: 43 4C 45 41 52 00 11 11  F6 04 8B 58 B2 31 33 A7  |CLEAR......X.13.|
000008F0: 54 24 28 54 29 B2 58 24  3A 54 B2 54 AA 31 3A 89  |T$(T).X$:T.T.1:.|
00000900: 31 30 34 30 3A 8F 20 4E  45 58 54 20 42 4C 4F 43  |1040:. NEXT BLOC|
00000910: 4B 00 42 11 00 05 8B 43  B2 31 33 A7 54 24 28 54  |K.B....C.13.T$(T|
00000920: 29 B2 58 24 3A 54 B2 54  AA 28 54 B1 30 29 3A 89  |).X$:T.T.(T.0):.|
00000930: 31 30 34 30 3A 8F 20 50  52 49 4F 52 20 42 4C 4F  |1040:. PRIOR BLO|
00000940: 43 4B 00 55 11 0A 05 8B  4C B1 B2 C3 28 58 24 29  |CK.U....L...(X$)|
00000950: 89 31 31 30 30 00 79 11  14 05 4C 24 B2 C8 28 58  |.1100.y...L$..(X|
00000960: 24 2C 4C 29 3A 8B 58 B2  31 34 38 89 31 33 35 30  |$,L):.X.148.1350|
00000970: 3A 8F 20 49 4E 53 45 52  54 00 BC 11 1E 05 4D 24  |:. INSERT.....M$|
00000980: B2 CA 28 58 24 2C 4C AA  32 29 3A 8B 43 B3 B1 32  |..(X$,L.2):.C..2|
00000990: 30 A7 58 24 B2 4C 24 AA  43 24 AA 4D 24 3A 58 B2  |0.X$.L$.C$.M$:X.|
000009A0: 32 39 3A 89 31 32 31 30  3A 8F 20 52 45 50 4C 41  |29:.1210:. REPLA|
000009B0: 43 45 20 43 48 41 52 41  43 54 45 52 00 E8 11 32  |CE CHARACTER...2|
000009C0: 05 58 24 B2 4C 24 AA 4D  24 3A 8B 58 24 B2 22 22  |.X$.L$.M$:.X$.""|
000009D0: A7 43 B2 31 39 3A 89 31  32 36 30 3A 8F 20 4E 55  |.C.19:.1260:. NU|
000009E0: 4C 4C 20 42 4C 4F 43 4B  00 F2 11 3C 05 89 31 31  |LL BLOCK...<..11|
000009F0: 30 30 00 23 12 46 05 4D  24 B2 CA 28 58 24 2C 4C  |00.#.F.M$..(X$,L|
00000A00: AA 31 29 3A 99 22 93 11  11 11 11 11 11 11 11 11  |.1):."..........|
00000A10: 11 11 11 11 11 11 12 22  4D 24 3A 99 22 13 11 11  |......."M$:."...|
00000A20: 22 4C 24 00 41 12 4B 05  99 22 13 11 11 22 A3 C3  |"L$.A.K.."..."..|
00000A30: 28 4C 24 29 29 3B 3A 4D  B2 4D 30 3A 8D 38 32 30  |(L$));:M.M0:.820|
00000A40: 30 00 6E 12 50 05 4D B2  4D 30 AB C3 28 4C 24 29  |0.n.P.M.M0..(L$)|
00000A50: 3A 4C 24 B2 4C 24 AA C8  28 58 24 2C 4D 29 3A 4D  |:L$.L$..(X$,M):M|
00000A60: 24 B2 CA 28 58 24 2C 4D  AA 31 29 AA 4D 24 00 AD  |$..(X$,M.1).M$..|
00000A70: 12 5A 05 4D B2 4D 30 AB  C3 28 4C 24 29 3A 54 24  |.Z.M.M0..(L$):T$|
00000A80: 28 54 29 B2 4C 24 AA C8  28 4D 24 2C 4D 29 3A 4C  |(T).L$..(M$,M):L|
00000A90: 24 B2 CA 28 4D 24 2C 4D  AA 31 29 3A 4D 24 B2 22  |$..(M$,M.1):M$."|
00000AA0: 22 3A 8B 4C 24 B2 22 22  89 31 30 35 30 00 CA 12  |":.L$."".1050...|
00000AB0: 64 05 58 B2 54 3A 54 B2  54 AA 31 3A 8D 36 31 30  |d.X.T:T.T.1:.610|
00000AC0: 3A 54 B2 58 3A 89 31 30  35 30 00 DF 12 6C 07 8F  |:T.X:.1050...l..|
00000AD0: 20 41 44 44 20 54 4F 20  54 48 45 20 45 4E 44 00  | ADD TO THE END.|
00000AE0: F2 12 76 07 8B 54 B2 30  89 36 30 30 3A 8F 20 45  |..v..T.0.600:. E|
00000AF0: 4E 44 00 1A 13 80 07 58  24 B2 54 24 28 54 AB 31  |ND.....X$.T$(T.1|
00000B00: 29 3A 99 22 93 22 58 24  3A 99 22 13 22 A6 C3 28  |):."."X$:."."..(|
00000B10: 58 24 29 29 3B 3A 89 35  31 30 00 2B 13 D0 07 8F  |X$));:.510.+....|
00000B20: 20 49 4E 50 55 54 20 46  49 4C 45 00 58 13 D5 07  | INPUT FILE.X...|
00000B30: 51 39 24 B2 22 C4 4F 4B  55 4D 45 4E 54 22 3A 20  |Q9$.".OKUMENT": |
00000B40: 8F 20 46 4F 52 20 45 52  52 4F 52 20 4D 53 47 20  |. FOR ERROR MSG |
00000B50: 49 4E 20 36 30 30 30 30  00 7D 13 EE 07 8B 43 46  |IN 60000.}....CF|
00000B60: B1 32 A7 99 22 11 D6 41  4E 20 44 45 20 C3 41 53  |.2.."..AN DE .AS|
00000B70: 53 45 54 54 45 22 3B 3A  8D 38 30 35 30 00 A2 13  |SETTE";:.8050...|
00000B80: F8 07 8B 43 46 B2 32 B0  28 43 46 B1 32 AF 49 B2  |...CF.2.(CF.2.I.|
00000B90: 30 29 A7 9F 31 2C 31 2C  30 2C 48 24 3A 89 32 31  |0)..1,1,0,H$:.21|
00000BA0: 30 30 00 C8 13 02 08 9F  31 2C 30 38 2C 32 2C C8  |00......1,08,2,.|
00000BB0: 28 48 24 2C 31 36 29 3A  84 38 2C 58 2C 58 24 3A  |(H$,16):.8,X,X$:|
00000BC0: 8B 58 89 36 30 30 30 30  00 FE 13 34 08 4F 46 B2  |.X.60000...4.OF.|
00000BD0: 30 3A 8D 34 30 3A 99 22  11 CC 45 45 53 20 20 3A  |0:.40:."..EES  :|
00000BE0: 20 12 22 58 24 3A 48 24  B2 58 24 3A 8D 34 30 3A  | ."X$:H$.X$:.40:|
00000BF0: 99 58 24 3A 99 3A 8F 20  48 45 41 44 45 52 00 25  |.X$:.:. HEADER.%|
00000C00: 14 98 08 58 24 B2 C7 28  33 31 29 3A 81 49 B2 30  |...X$..(31):.I.0|
00000C10: A4 56 3A 4C 24 B2 22 22  3A 8F 20 49 4E 50 55 54  |.V:L$."":. INPUT|
00000C20: 20 46 49 4C 45 00 47 14  A2 08 81 4A B2 31 A4 4D  | FILE.G....J.1.M|
00000C30: 30 3A A1 23 31 2C 43 24  3A 8B 53 54 A7 4A B2 4D  |0:.#1,C$:.ST.J.M|
00000C40: 30 3A 89 32 32 33 30 00  73 14 AC 08 8B 43 24 B1  |0:.2230.s....C$.|
00000C50: 58 24 A7 4C 24 B2 4C 24  AA 43 24 3A 8F 20 4F 4E  |X$.L$.L$.C$:. ON|
00000C60: 4C 59 20 4C 45 47 41 4C  20 43 48 41 52 41 43 54  |LY LEGAL CHARACT|
00000C70: 45 52 53 00 97 14 B6 08  82 4A 3A 54 24 28 49 29  |ERS......J:T$(I)|
00000C80: B2 4C 24 3A 99 4C 24 3B  3A 8B 53 54 B2 30 A7 82  |.L$:.L$;:.ST.0..|
00000C90: 49 3A 49 B2 49 AB 31 00  AF 14 CA 08 54 B2 49 3A  |I:I.I.1.....T.I:|
00000CA0: 8D 36 35 30 3A 8D 38 30  30 30 3A 89 31 30 30 00  |.650:.8000:.100.|
00000CB0: CC 14 B8 0B 8D 33 30 32  30 3A 89 31 30 30 3A 8F  |.....3020:.100:.|
00000CC0: 20 4F 55 54 50 55 54 20  46 49 4C 45 00 ED 14 CC  | OUTPUT FILE....|
00000CD0: 0B 8B 43 46 B1 32 A7 99  22 93 CF 50 20 C3 41 53  |..CF.2.."..P .AS|
00000CE0: 53 45 54 54 45 22 3B 3A  8D 38 30 35 30 00 12 15  |SETTE";:.8050...|
00000CF0: D6 0B 8B 43 46 B2 32 B0  28 43 46 B2 33 AF 49 B2  |...CF.2.(CF.3.I.|
00000D00: 30 29 A7 9F 31 2C 31 2C  31 2C 48 24 3A 89 33 31  |0)..1,1,1,H$:.31|
00000D10: 30 30 00 45 15 E0 0B 4C  24 B2 22 30 3A 22 AA C8  |00.E...L$."0:"..|
00000D20: 28 48 24 2C 31 36 29 3A  9F 31 2C 30 38 2C 32 2C  |(H$,16):.1,08,2,|
00000D30: 4C 24 3A 84 38 2C 58 2C  58 24 3A A0 31 3A 8B 58  |L$:.8,X,X$:.1:.X|
00000D40: 89 33 30 38 30 00 7D 15  EA 0B 99 22 11 C4 4F 4B  |.3080.}...."..OK|
00000D50: 55 4D 45 4E 54 20 41 41  4E 57 45 5A 49 47 20 2D  |UMENT AANWEZIG -|
00000D60: 20 4F 56 45 52 53 43 48  52 49 4A 56 45 4E 20 20  | OVERSCHRIJVEN  |
00000D70: 22 3B 3A 8D 38 30 35 30  3A 8B 49 A7 8E 00 91 15  |";:.8050:.I.....|
00000D80: F4 0B 98 38 2C 22 53 22  4C 24 3A 98 38 2C 22 49  |...8,"S"L$:.8,"I|
00000D90: 30 00 C5 15 08 0C 9F 31  2C 30 38 2C 33 2C 4C 24  |0......1,08,3,L$|
00000DA0: AA 22 2C 53 2C 57 22 3A  84 38 2C 58 2C 58 24 3A  |.",S,W":.8,X,X$:|
00000DB0: 8B 58 A7 51 39 24 B2 22  53 50 41 43 45 22 3A 8D  |.X.Q9$."SPACE":.|
00000DC0: 36 30 30 30 30 00 DC 15  1C 0C 4F 46 B2 30 3A 98  |60000.....OF.0:.|
00000DD0: 31 2C 48 24 C7 28 31 34  31 29 44 24 00 03 16 4E  |1,H$.(141)D$...N|
00000DE0: 0C 81 49 B2 30 A4 56 3A  8B 54 24 28 49 29 B1 22  |..I.0.V:.T$(I)."|
00000DF0: 22 A7 98 31 2C 54 24 28  49 29 3B 3A 99 22 2A 22  |"..1,T$(I);:."*"|
00000E00: 3B 3A 82 00 11 16 58 0C  98 31 2C 22 5C 22 3B 3A  |;:....X..1,"\";:|
00000E10: 8E 00 28 16 A0 0F 8F 20  42 41 54 43 48 20 50 52  |..(.... BATCH PR|
00000E20: 4F 43 45 53 53 49 4E 47  00 51 16 A5 0F 51 39 24  |OCESSING.Q...Q9$|
00000E30: B2 22 46 49 4C 45 22 3A  20 8F 20 46 4F 52 20 45  |."FILE": . FOR E|
00000E40: 52 52 4F 52 20 4D 53 47  20 49 4E 20 36 30 30 30  |RROR MSG IN 6000|
00000E50: 30 00 75 16 AA 0F 99 22  93 22 3B 3A 91 43 46 89  |0.u....".";:.CF.|
00000E60: 34 31 30 30 2C 34 30 35  30 3A 8F 20 45 4C 53 45  |4100,4050:. ELSE|
00000E70: 20 42 4F 54 48 00 98 16  B4 0F 99 22 D6 41 4E 20  | BOTH......".AN |
00000E80: C3 41 53 53 45 54 54 45  22 3B 3A 8D 38 30 35 30  |.ASSETTE";:.8050|
00000E90: 3A 8B 49 89 34 31 30 30  00 AC 16 D2 0F 8F 20 46  |:.I.4100...... F|
00000EA0: 52 4F 4D 20 43 41 53 53  45 54 54 45 00 BB 16 DC  |ROM CASSETTE....|
00000EB0: 0F 9F 32 2C 31 3A 89 34  31 35 30 00 CB 16 04 10  |..2,1:.4150.....|
00000EC0: 8F 20 46 52 4F 4D 20 44  49 53 43 00 00 17 0E 10  |. FROM DISC.....|
00000ED0: 85 22 93 C1 C4 D2 C5 D3  D3 C5 CE 20 36 34 3A 20  |."......... 64: |
00000EE0: C6 49 4C 45 2D CE 41 41  4D 20 20 2D 9D 9D 9D 22  |.ILE-.AAM  -..."|
00000EF0: 3B 58 24 3A 8B 58 24 B2  22 2D 22 89 34 31 31 30  |;X$:.X$."-".4110|
00000F00: 00 24 17 18 10 9F 32 2C  30 38 2C 32 2C 58 24 3A  |.$....2,08,2,X$:|
00000F10: 84 38 2C 58 2C 58 24 3A  8B 58 A7 A0 32 3A 89 36  |.8,X,X$:.X..2:.6|
00000F20: 30 30 30 30 00 3D 17 36  10 8F 20 50 52 45 50 41  |0000.=.6.. PREPA|
00000F30: 52 45 20 46 4F 52 20 4F  55 54 50 55 54 00 70 17  |RE FOR OUTPUT.p.|
00000F40: 40 10 54 42 24 B2 22 22  3A 53 32 B2 30 3A 4E B2  |@.TB$."":S2.0:N.|
00000F50: 37 32 3A 46 B2 31 3A 9F  31 2C 30 34 3A 53 24 B2  |72:F.1:.1,04:S$.|
00000F60: 22 11 22 AA C8 28 42 24  2C 34 30 AB 4E AD 32 29  |"."..(B$,40.N.2)|
00000F70: 00 9A 17 4A 10 99 22 11  D3 54 41 4E 44 41 41 52  |...J.."..TANDAAR|
00000F80: 54 2D C6 4F 52 4D 41 41  54 22 3B 3A 8D 38 30 35  |T-.ORMAAT";:.805|
00000F90: 30 3A 8B 49 A7 8D 37 35  30 30 00 BC 17 68 10 8F  |0:.I..7500...h..|
00000FA0: 20 47 45 54 20 54 48 45  20 4E 41 4D 45 20 41 4E  | GET THE NAME AN|
00000FB0: 44 20 53 41 4C 55 54 41  54 49 4F 4E 00 E8 17 72  |D SALUTATION...r|
00000FC0: 10 84 32 2C 5A 24 3A 8B  53 54 B1 30 B0 C3 28 5A  |..2,Z$:.ST.0..(Z|
00000FD0: 24 29 B3 32 89 34 39 30  30 3A 8F 20 4E 4F 20 4C  |$).2.4900:. NO L|
00000FE0: 41 53 54 20 4E 41 4D 45  00 22 18 7C 10 4C 24 B2  |AST NAME.".|.L$.|
00000FF0: 22 22 3A 8D 37 34 35 30  3A 58 24 B2 22 22 3A 59  |"":.7450:X$."":Y|
00001000: 24 B2 22 22 3A 4D 24 B2  22 D7 45 4C 45 44 45 4C  |$."":M$.".ELEDEL|
00001010: 45 20 C4 41 4D 45 53 20  45 4E 20 C8 45 52 45 4E  |E .AMES EN .EREN|
00001020: 2C 22 00 51 18 86 10 84  32 2C 58 24 3A 8B C3 28  |,".Q....2,X$:..(|
00001030: 58 24 29 B3 32 A7 58 24  B2 22 22 3A 89 34 32 35  |X$).2.X$."":.425|
00001040: 30 3A 8F 20 4E 4F 20 46  49 52 53 54 20 4E 41 4D  |0:. NO FIRST NAM|
00001050: 45 00 7A 18 90 10 4D 24  B2 22 CC 49 45 56 45 2F  |E.z...M$.".IEVE/|
00001060: CC 49 45 46 53 54 45 20  22 AA 58 24 AA 22 2C 22  |.IEFSTE ".X$.","|
00001070: 3A 58 24 B2 58 24 AA 22  20 22 00 A4 18 9A 10 84  |:X$.X$." "......|
00001080: 32 2C 59 24 3A 8B C3 28  59 24 29 B3 32 A7 59 24  |2,Y$:..(Y$).2.Y$|
00001090: B2 22 22 3A 89 34 32 37  30 3A 8F 20 4E 4F 20 54  |."":.4270:. NO T|
000010A0: 49 54 4C 45 00 CF 18 A4  10 59 24 B2 59 24 AA 22  |ITLE.....Y$.Y$."|
000010B0: 20 22 3A 4D 24 B2 22 CC  49 45 56 45 2F CC 49 45  | ":M$.".IEVE/.IE|
000010C0: 46 53 54 45 20 22 AA 59  24 AA 5A 24 AA 22 2C 00  |FSTE ".Y$.Z$.",.|
000010D0: FC 18 AE 10 4C 24 B2 59  24 AA 58 24 AA 5A 24 3A  |....L$.Y$.X$.Z$:|
000010E0: 84 32 2C 58 24 3A 8B C3  28 58 24 29 B1 32 A7 4C  |.2,X$:..(X$).2.L|
000010F0: 24 B2 4C 24 AA 22 2C 20  22 AA 58 24 00 25 19 B8  |$.L$.", ".X$.%..|
00001100: 10 5A 24 B2 4D 24 3A 4D  24 B2 22 22 3A 50 24 B2  |.Z$.M$:M$."":P$.|
00001110: 4C 24 3A 8D 37 39 30 30  3A 8F 20 50 52 49 4E 54  |L$:.7900:. PRINT|
00001120: 20 4E 41 4D 45 00 37 19  CC 10 8F 20 47 45 54 20  | NAME.7.... GET |
00001130: 41 44 44 52 45 53 53 00  5F 19 D6 10 84 32 2C 4C  |ADDRESS._....2,L|
00001140: 24 3A 8B C3 28 4C 24 29  B1 31 A7 50 24 B2 4C 24  |$:..(L$).1.P$.L$|
00001150: 3A 8D 37 39 30 30 3A 8F  20 4C 49 4E 45 20 32 00  |:.7900:. LINE 2.|
00001160: 87 19 E0 10 84 32 2C 4C  24 3A 8B C3 28 4C 24 29  |.....2,L$:..(L$)|
00001170: B1 31 A7 50 24 B2 4C 24  3A 8D 37 39 30 30 3A 8F  |.1.P$.L$:.7900:.|
00001180: 20 4C 49 4E 45 20 33 00  BB 19 EA 10 84 32 2C 4C  | LINE 3......2,L|
00001190: 24 3A 84 32 2C 59 24 3A  8B C3 28 59 24 29 B1 31  |$:.2,Y$:..(Y$).1|
000011A0: A7 4C 24 B2 4C 24 AA 22  2C 20 22 AA 59 24 3A 8F  |.L$.L$.", ".Y$:.|
000011B0: 20 53 54 41 54 45 2C 20  5A 49 50 00 D4 19 F4 10  | STATE, ZIP.....|
000011C0: 8B C3 28 4C 24 29 B1 31  A7 50 24 B2 4C 24 3A 8D  |..(L$).1.P$.L$:.|
000011D0: 37 39 30 30 00 00 1A FE  10 81 49 B2 4C A4 31 34  |7900......I.L.14|
000011E0: 3A 8D 37 39 30 30 3A 82  3A 4C 24 B2 5A 24 3A 50  |:.7900:.:L$.Z$:P|
000011F0: 24 B2 4C 24 3A 8D 37 30  39 30 3A 89 34 32 30 30  |$.L$:.7090:.4200|
00001200: 00 0C 1A 24 13 A0 32 3A  89 31 30 30 00 25 1A 70  |...$..2:.100.%.p|
00001210: 17 8F 20 53 45 41 52 43  48 20 41 4E 44 20 52 45  |.. SEARCH AND RE|
00001220: 50 4C 41 43 45 00 62 1A  7A 17 99 22 93 11 DA 4F  |PLACE.b.z.."...O|
00001230: 45 4B 45 4E 20 4E 41 41  52 3F 22 3A 4D B2 34 30  |EKEN NAAR?":M.40|
00001240: 3A 8D 38 32 30 30 3A 5A  24 B2 58 24 3A 4C B2 C3  |:.8200:Z$.X$:L..|
00001250: 28 58 24 29 3A 8B 4C B2  30 B0 4C B2 4D 89 36 30  |(X$):.L.0.L.M.60|
00001260: 31 30 00 8D 1A 84 17 99  3A 99 22 11 D6 45 52 41  |10......:."..ERA|
00001270: 4E 44 45 52 45 4E 20 44  4F 4F 52 3F 22 3A 8D 38  |NDEREN DOOR?":.8|
00001280: 32 30 30 3A 59 24 B2 58  24 3A 99 3A 99 00 B4 1A  |200:Y$.X$:.:....|
00001290: 8E 17 58 24 B2 22 22 3A  4D 24 B2 22 22 3A 4C 24  |..X$."":M$."":L$|
000012A0: B2 22 22 3A 54 B2 30 3A  55 B2 30 3A 46 B2 30 3A  |."":T.0:U.0:F.0:|
000012B0: 4F 46 B2 31 00 CA 1A 38  18 8F 20 41 54 54 41 43  |OF.1...8.. ATTAC|
000012C0: 48 20 54 24 20 54 4F 20  58 24 00 DD 1A 42 18 8B  |H T$ TO X$...B..|
000012D0: C3 28 58 24 29 B1 B2 4C  89 36 32 35 30 00 FB 1A  |.(X$)..L.6250...|
000012E0: 4C 18 8B 54 B1 56 89 36  34 30 30 3A 8F 20 41 4C  |L..T.V.6400:. AL|
000012F0: 4C 20 54 24 27 53 20 52  45 41 44 00 20 1B 56 18  |L T$'S READ. .V.|
00001300: 58 24 B2 58 24 AA 54 24  28 54 29 3A 54 24 28 54  |X$.X$.T$(T):T$(T|
00001310: 29 B2 22 22 3A 54 B2 54  AA 31 3A 89 36 32 30 30  |)."":T.T.1:.6200|
00001320: 00 37 1B 6A 18 8F 20 53  45 41 52 43 48 20 46 4F  |.7.j.. SEARCH FO|
00001330: 52 20 4D 41 54 43 48 00  65 1B 74 18 81 49 B2 31  |R MATCH.e.t..I.1|
00001340: A4 C3 28 58 24 29 AB 4C  AA 31 3A 8B CA 28 58 24  |..(X$).L.1:..(X$|
00001350: 2C 49 2C 4C 29 B3 B1 5A  24 A7 82 3A 4A B2 49 3A  |,I,L)..Z$..:J.I:|
00001360: 89 36 33 30 30 00 7B 1B  7E 18 4D 24 B2 59 24 3A  |.6300.{.~.M$.Y$:|
00001370: 4A B2 49 AA 4C 3A 99 22  12 22 3B 00 8F 1B 9C 18  |J.I.L:.".";.....|
00001380: 8F 20 53 50 4C 49 54 20  53 54 52 49 4E 47 53 00  |. SPLIT STRINGS.|
00001390: C2 1B A6 18 4D 24 B2 C8  28 58 24 2C 49 AB 31 29  |....M$..(X$,I.1)|
000013A0: AA 4D 24 3A 58 24 B2 CA  28 58 24 2C 4A 29 3A 8D  |.M$:X$..(X$,J):.|
000013B0: 36 35 30 30 3A 91 46 89  36 39 30 30 3A 89 36 32  |6500:.F.6900:.62|
000013C0: 30 30 00 D5 1B 00 19 8F  20 53 54 4F 57 20 4C 41  |00...... STOW LA|
000013D0: 53 54 20 4C 24 00 F2 1B  0A 19 8D 36 35 30 30 3A  |ST L$......6500:|
000013E0: 8B 46 89 36 39 30 30 3A  8F 20 43 4C 45 41 52 20  |.F.6900:. CLEAR |
000013F0: 4D 24 00 1E 1C 14 19 4D  24 B2 58 24 3A 8D 36 35  |M$.....M$.X$:.65|
00001400: 30 30 3A 8B 46 89 36 39  30 30 3A 8F 20 4D 24 5F  |00:.F.6900:. M$_|
00001410: 58 24 3B 20 43 4C 45 41  52 20 42 4F 54 48 00 55  |X$; CLEAR BOTH.U|
00001420: 1C 1E 19 8B 55 B3 B2 56  A7 54 B2 55 3A 8D 36 35  |....U..V.T.U:.65|
00001430: 30 3A 89 31 30 30 3A 8F  20 53 54 4F 57 20 4C 24  |0:.100:. STOW L$|
00001440: 2C 20 43 4C 45 41 52 20  48 49 47 48 45 52 20 42  |, CLEAR HIGHER B|
00001450: 4C 4F 43 4B 53 00 5F 1C  28 19 89 36 39 30 30 00  |LOCKS._.(..6900.|
00001460: 82 1C 64 19 8F 20 43 4C  45 41 52 20 4D 24 20 2D  |..d.. CLEAR M$ -|
00001470: 20 53 54 4F 57 20 4C 24  20 49 46 20 4E 45 45 44  | STOW L$ IF NEED|
00001480: 45 44 00 B8 1C 6E 19 4D  B2 4D 30 AB C3 28 4C 24  |ED...n.M.M0..(L$|
00001490: 29 3A 4C 24 B2 4C 24 AA  C8 28 4D 24 2C 4D 29 3A  |):L$.L$..(M$,M):|
000014A0: 4D 24 B2 CA 28 4D 24 2C  4D AA 31 29 3A 8B C3 28  |M$..(M$,M.1):..(|
000014B0: 4C 24 29 B3 4D 30 A7 8E  00 C7 1C 78 19 8B 55 B1  |L$).M0.....x..U.|
000014C0: B2 56 89 36 35 35 30 00  F4 1C 82 19 8B 55 B3 54  |.V.6550......U.T|
000014D0: A7 54 24 28 55 29 B2 4C  24 3A 99 22 2A 92 22 3B  |.T$(U).L$:."*.";|
000014E0: 3A 55 B2 55 AA 31 3A 4C  24 B2 4D 24 3A 4D 24 B2  |:U.U.1:L$.M$:M$.|
000014F0: 22 22 3A 8E 00 2E 1D 8C  19 8B 54 B3 56 A7 81 49  |"":.......T.V..I|
00001500: B2 56 A4 54 AA 31 A9 AB  31 3A 54 24 28 49 29 B2  |.V.T.1..1:T$(I).|
00001510: 54 24 28 49 AB 31 29 3A  82 3A 54 24 28 54 29 B2  |T$(I.1):.:T$(T).|
00001520: 22 22 3A 54 B2 54 AA 31  3A 89 36 35 33 30 00 38  |"":T.T.1:.6530.8|
00001530: 1D 96 19 46 B2 31 3A 8E  00 49 1D F4 1A 8F 20 45  |...F.1:..I.... E|
00001540: 52 52 4F 52 20 45 58 49  54 00 7A 1D FE 1A 99 3A  |RROR EXIT.z....:|
00001550: 99 22 11 CF 55 54 20 4F  46 20 52 4F 4F 4D 20 2D  |."..UT OF ROOM -|
00001560: 20 44 41 54 41 20 49 4D  50 41 49 52 45 44 22 3A  | DATA IMPAIRED":|
00001570: 8D 38 30 30 30 3A 89 31  30 30 00 91 1D 58 1B 8F  |.8000:.100...X..|
00001580: 20 46 4F 52 4D 41 54 20  41 4E 44 20 50 52 49 4E  | FORMAT AND PRIN|
00001590: 54 00 A0 1D 62 1B 8D 37  30 32 30 3A 89 31 30 30  |T...b..7020:.100|
000015A0: 00 B8 1D 6C 1B 9F 31 2C  30 34 3A 46 B2 31 3A 8F  |...l..1,04:F.1:.|
000015B0: 20 50 52 49 4E 54 45 52  00 E9 1D 76 1B 53 32 B2  | PRINTER...v.S2.|
000015C0: 31 3A 4E B2 36 30 3A 54  42 24 B2 22 22 3A 58 24  |1:N.60:TB$."":X$|
000015D0: B2 22 46 49 44 22 3A 8F  20 44 45 46 41 55 4C 54  |."FID":. DEFAULT|
000015E0: 53 20 28 44 52 41 46 54  29 00 20 1E 80 1B 99 22  |S (DRAFT). ...."|
000015F0: 11 12 C6 92 4F 52 4D 45  45 4C 20 20 12 C9 92 4E  |....ORMEEL  ...N|
00001600: 46 4F 52 4D 45 45 4C 2C  20 4F 52 20 12 C4 92 55  |FORMEEL, OR ...U|
00001610: 42 42 45 4C 22 3B 3A 8D  38 30 36 30 3A 4A B2 49  |BBEL";:.8060:J.I|
00001620: 00 39 1E 94 1B 8B 4A B3  32 A7 53 32 B2 30 3A 4E  |.9....J.2.S2.0:N|
00001630: B2 37 32 3A 8D 37 35 30  30 00 64 1E 9E 1B 53 24  |.72:.7500.d...S$|
00001640: B2 22 11 22 AA C8 28 42  24 2C 34 30 AB 4E AD 32  |."."..(B$,40.N.2|
00001650: 29 3A 8B 4A B2 30 89 37  34 30 30 3A 8F 20 46 4F  |):.J.0.7400:. FO|
00001660: 52 4D 41 4C 00 87 1E A8  1B 4C 24 B2 22 12 22 AA  |RMAL.....L$.".".|
00001670: 48 24 3A 50 24 B2 48 24  3A 4D 24 B2 C8 28 4B 24  |H$:P$.H$:M$..(K$|
00001680: 2C C3 28 48 24 29 29 00  A5 1E B2 1B 4A B2 30 3A  |,.(H$)).....J.0:|
00001690: 99 22 93 22 3A 8D 37 39  30 30 3A 8D 37 39 30 30  |.".":.7900:.7900|
000016A0: 3A 8B 4A A7 8E 00 CF 1E  BC 1B 54 B2 30 3A 58 24  |:.J.......T.0:X$|
000016B0: B2 22 5D 22 AA 54 42 24  3A 45 B2 30 3A 5A 24 B2  |."]".TB$:E.0:Z$.|
000016C0: 42 24 3A 8F 20 50 52 49  4E 54 20 54 45 58 54 00  |B$:. PRINT TEXT.|
000016D0: 06 1F C6 1B 8B C3 28 58  24 29 B3 B2 4E A7 58 24  |......(X$)..N.X$|
000016E0: B2 58 24 AA 54 24 28 54  29 3A 54 B2 54 AA 31 3A  |.X$.T$(T):T.T.1:|
000016F0: 8B C3 28 58 24 29 B3 B2  4E B0 54 B1 56 A7 58 24  |..(X$)..N.T.V.X$|
00001700: B2 58 24 AA 22 5C 00 36  1F CB 1B 8B C6 28 58 24  |.X$."\.6.....(X$|
00001710: 29 B2 33 32 A7 58 24 B2  CA 28 58 24 2C 32 29 3A  |).32.X$..(X$,2):|
00001720: 89 37 31 31 30 3A 8F 20  4C 45 41 44 49 4E 47 20  |.7110:. LEADING |
00001730: 42 4C 41 4E 4B 53 00 47  1F D0 1B 8B 45 A7 58 24  |BLANKS.G....E.X$|
00001740: B2 22 5B 22 AA 58 24 00  84 1F DA 1B 4C 24 B2 C8  |."[".X$.....L$..|
00001750: 28 58 24 2C 4E AA 31 29  3A 50 24 B2 4C 24 3A 4A  |(X$,N.1):P$.L$:J|
00001760: B2 30 3A 4B B2 30 3A 4D  24 B2 42 24 3A 81 49 B2  |.0:K.0:M$.B$:.I.|
00001770: 31 A4 C3 28 4C 24 29 3A  43 B2 C6 28 CA 28 4C 24  |1..(L$):C..(.(L$|
00001780: 2C 49 29 29 00 A6 1F E4  1B 8B 43 B1 39 30 AF 43  |,I))......C.90.C|
00001790: B3 39 36 A7 8D 37 37 30  30 3A 8B 58 A7 49 B2 4A  |.96..7700:.X.I.J|
000017A0: 3A 89 37 31 36 30 00 DB  1F EE 1B 82 3A 81 49 B2  |:.7160......:.I.|
000017B0: C3 28 4C 24 29 A4 4A AA  31 A9 AB 31 3A 8B CA 28  |.(L$).J.1..1:..(|
000017C0: 4C 24 2C 49 2C 31 29 B1  22 20 22 A7 82 3A 49 B2  |L$,I,1)." "..:I.|
000017D0: 4A 3A 8B 4A B2 30 89 37  39 39 30 00 17 20 F8 1B  |J:.J.0.7990.. ..|
000017E0: 4A B2 30 3A 58 24 B2 CA  28 58 24 2C 49 AA 31 29  |J.0:X$..(X$,I.1)|
000017F0: 3A 4C 24 B2 C8 28 4C 24  2C 49 AB 31 29 3A 50 24  |:L$..(L$,I.1):P$|
00001800: B2 C8 28 50 24 2C 49 AB  4B 29 3A 4D 24 B2 C8 28  |..(P$,I.K):M$..(|
00001810: 4D 24 2C 49 AB 4B 29 00  38 20 16 1C 8B 43 B2 39  |M$,I.K).8 ...C.9|
00001820: 34 B0 43 B2 39 35 A7 45  B2 30 3A 58 24 B2 22 5D  |4.C.95.E.0:X$."]|
00001830: 22 AA 54 42 24 AA 58 24  00 67 20 20 1C 58 B2 43  |".TB$.X$.g  .X.C|
00001840: 3A 8D 37 39 30 30 3A 8B  4A B1 30 B0 58 B2 39 34  |:.7900:.J.0.X.94|
00001850: B0 58 B2 39 32 A7 8D 37  39 35 30 3A 8B 4A B1 30  |.X.92..7950:.J.0|
00001860: B0 58 B2 39 32 A7 8E 00  71 20 2A 1C 89 37 31 31  |.X.92...q *..711|
00001870: 30 00 7E 20 E8 1C 8F 20  46 4F 52 4D 41 4C 00 AF  |0.~ ... FORMAL..|
00001880: 20 F2 1C 4C 24 B2 22 22  3A 8D 37 34 35 30 3A 99  | ..L$."":.7450:.|
00001890: 22 93 D6 49 45 52 20 C1  44 52 45 53 2D D2 45 47  |"..IER .DRES-.EG|
000018A0: 45 4C 53 22 3A 4D B2 4E  3A 81 49 B2 31 A4 34 00  |ELS":M.N:.I.1.4.|
000018B0: E1 20 FC 1C 99 22 D2 45  47 45 4C 22 49 3A 8D 38  |. ...".EGEL"I:.8|
000018C0: 32 30 30 3A 99 3A 8B C3  28 58 24 29 B2 4D A7 99  |200:.:..(X$).M..|
000018D0: 22 12 D4 45 20 4C 41 4E  47 20 22 3A 89 37 34 32  |"..E LANG ":.742|
000018E0: 30 00 FF 20 06 1D 50 24  B2 58 24 3A 8D 37 39 30  |0.. ..P$.X$:.790|
000018F0: 30 3A 82 3A 8D 37 39 30  30 3A 8D 37 39 30 30 00  |0:.:.7900:.7900.|
00001900: 23 21 10 1D 99 22 C1 41  4E 48 45 46 20 20 20 20  |#!...".ANHEF    |
00001910: 22 3A 8D 38 32 30 30 3A  50 24 B2 58 24 3A 89 37  |":.8200:P$.X$:.7|
00001920: 30 39 30 00 54 21 1A 1D  8C 3A 4D 24 B2 22 22 3A  |090.T!...:M$."":|
00001930: 59 24 B2 53 24 3A 81 49  B2 31 A4 33 3A 87 50 24  |Y$.S$:.I.1.3:.P$|
00001940: 3A 8D 37 34 39 30 3A 82  3A 50 24 B2 44 24 3A 8D  |:.7490:.:P$.D$:.|
00001950: 37 34 39 30 00 6F 21 2E  1D 81 49 B2 31 A4 35 3A  |7490.o!...I.1.5:|
00001960: 8D 37 39 30 30 3A 82 3A  53 24 B2 59 24 3A 8E 00  |.7900:.:S$.Y$:..|
00001970: 95 21 42 1D 4B B2 C3 28  50 24 29 3A 53 24 B2 22  |.!B.K..(P$):S$."|
00001980: 11 22 AA C8 28 42 24 2C  34 30 AB 4B AD 32 29 3A  |."..(B$,40.K.2):|
00001990: 89 37 39 30 30 00 AD 21  4C 1D 8F 20 46 4F 52 4D  |.7900..!L.. FORM|
000019A0: 41 54 20 56 41 52 49 41  54 49 4F 4E 53 00 D6 21  |AT VARIATIONS..!|
000019B0: 56 1D 99 22 11 D3 54 41  4E 44 41 41 52 44 2D C6  |V.."..TANDAARD-.|
000019C0: 4F 52 4D 41 41 54 3A 22  3A 99 2C 22 20 C5 45 4E  |ORMAAT:":.," .EN|
000019D0: 2D 52 45 47 45 4C 00 0C  22 60 1D 99 2C 4E 22 D4  |-REGEL.."`..,N".|
000019E0: 45 4B 45 4E 53 20 50 45  52 20 52 45 47 45 4C 20  |EKENS PER REGEL |
000019F0: 20 22 3A 99 2C 4C 4C 22  D2 45 47 45 4C 53 20 50  | ":.,LL".EGELS P|
00001A00: 45 52 20 C2 4C 41 44 5A  49 4A 44 45 00 28 22 6A  |ER .LADZIJDE.("j|
00001A10: 1D 99 2C 22 20 D4 41 42  2D CC 45 4E 47 54 45 20  |..," .AB-.ENGTE |
00001A20: 3D 22 C3 28 54 42 24 29  00 51 22 74 1D 99 22 11  |=".(TB$).Q"t..".|
00001A30: CE 4F 47 20 49 45 54 53  20 56 45 52 41 4E 44 45  |.OG IETS VERANDE|
00001A40: 52 45 4E 20 22 3B 3A 8D  38 30 35 30 3A 8B 49 A7  |REN ";:.8050:.I.|
00001A50: 8E 00 71 22 7E 1D 99 22  93 C5 45 4E 2D 52 45 47  |..q"~.."..EN-REG|
00001A60: 45 4C 20 20 22 3B 3A 8D  38 30 35 30 3A 53 32 B2  |EL  ";:.8050:S2.|
00001A70: 49 00 A0 22 88 1D 85 22  11 D4 45 4B 45 4E 53 20  |I.."..."..EKENS |
00001A80: 50 45 52 20 D2 45 47 45  4C 20 20 20 28 32 30 2D  |PER .EGEL   (20-|
00001A90: 38 30 29 20 20 37 32 20  9D 9D 9D 9D 9D 22 3B 4E  |80)  72 .....";N|
00001AA0: 00 BB 22 92 1D 8B 4E B3  32 30 B0 4E B1 38 30 A7  |.."...N.20.N.80.|
00001AB0: 99 22 91 91 22 3A 89 37  35 36 30 00 F7 22 9C 1D  |."..":.7560.."..|
00001AC0: 99 22 11 D2 45 47 45 4C  53 20 50 45 52 20 C2 4C  |."..EGELS PER .L|
00001AD0: 41 44 20 22 4C 4C 22 9D  20 20 9D 9D 9D 9D 9D 9D  |AD "LL".  ......|
00001AE0: 22 3B 3A 85 4C 4C 3A 8B  4C 4C B3 31 A7 99 22 91  |";:.LL:.LL.1..".|
00001AF0: 91 22 3A 89 37 35 38 00  32 23 A1 1D 99 22 11 CC  |.":.758.2#..."..|
00001B00: 45 4E 47 54 45 20 56 41  4E 20 D4 41 42 2E 22 3B  |ENGTE VAN .AB.";|
00001B10: 3A 58 24 B2 22 30 31 32  33 34 35 36 37 38 39 22  |:X$."0123456789"|
00001B20: 3A 8D 38 30 36 30 3A 54  42 24 B2 C8 28 42 24 2C  |:.8060:TB$..(B$,|
00001B30: 49 29 00 38 23 A6 1D 8E  00 4A 23 14 1E 8F 20 45  |I).8#....J#... E|
00001B40: 4E 48 41 4E 43 45 4D 45  4E 54 00 90 23 28 1E 4B  |NHANCEMENT..#(.K|
00001B50: B2 4B AA 31 3A 58 B2 31  3A 4A B2 49 3A 8B 43 B2  |.K.1:X.1:J.I:.C.|
00001B60: 39 31 B0 43 B2 39 33 A7  58 B2 30 3A 45 B2 28 43  |91.C.93.X.0:E.(C|
00001B70: B2 39 31 29 3A 5A 24 B2  42 24 3A 59 24 B2 22 92  |.91):Z$.B$:Y$.".|
00001B80: 22 3A 8B 45 A7 5A 24 B2  4B 24 3A 59 24 B2 22 12  |":.E.Z$.K$:Y$.".|
00001B90: 00 AE 23 32 1E 4C 24 B2  C8 28 4C 24 2C 49 AB 31  |..#2.L$..(L$,I.1|
00001BA0: 29 AA 59 24 AA CA 28 4C  24 2C 49 AA 31 29 00 E2  |).Y$..(L$,I.1)..|
00001BB0: 23 46 1E 50 24 B2 C8 28  50 24 2C 49 AB 4B 29 AA  |#F.P$..(P$,I.K).|
00001BC0: CA 28 4C 24 2C 49 AA 31  29 3A 4D 24 B2 C8 28 4D  |.(L$,I.1):M$..(M|
00001BD0: 24 2C 49 AB 4B 29 AA CA  28 5A 24 2C 49 AA 31 29  |$,I.K)..(Z$,I.1)|
00001BE0: 3A 8E 00 F1 23 DC 1E 8F  20 4C 49 4E 45 20 4F 55  |:...#... LINE OU|
00001BF0: 54 00 05 24 E6 1E 8B 50  24 B1 22 22 A7 50 24 B2  |T..$...P$."".P$.|
00001C00: 53 24 AA 50 24 00 20 24  F0 1E 99 4C 24 3B 3A 8D  |S$.P$. $...L$;:.|
00001C10: 37 39 33 30 3A 8B 4A B1  30 B0 53 32 B2 30 A7 8E  |7930:.J.0.S2.0..|
00001C20: 00 4C 24 FA 1E 97 35 33  32 36 35 2C 31 31 3A 8B  |.L$...53265,11:.|
00001C30: 46 A7 99 3A 98 31 2C 50  24 3B 3A 8B 4D 24 B1 42  |F..:.1,P$;:.M$.B|
00001C40: 24 A7 98 31 2C 51 24 53  24 4D 24 3B 00 7D 24 04  |$..1,Q$S$M$;.}$.|
00001C50: 1F 98 31 3A 50 24 B2 22  22 3A 4C 24 B2 22 22 3A  |..1:P$."":L$."":|
00001C60: 4D 24 B2 22 22 3A 4C B2  4C AA 31 3A 8B 4C B3 4C  |M$."":L.L.1:.L.L|
00001C70: 4C A7 97 35 33 32 36 35  2C 32 37 3A 8E 00 92 24  |L..53265,27:...$|
00001C80: 0E 1F 8B 46 B2 30 A7 8D  38 30 30 30 3A 4C B2 30  |...F.0..8000:L.0|
00001C90: 3A 8E 00 C9 24 18 1F 97  35 33 32 36 35 2C 31 31  |:...$...53265,11|
00001CA0: 3A 8B 4C A7 81 49 B2 4C  A4 4C 50 AB 31 3A 98 31  |:.L..I.L.LP.1:.1|
00001CB0: 3A 82 3A 4C B2 30 3A 8F  20 50 41 47 45 20 57 49  |:.:L.0:. PAGE WI|
00001CC0: 54 48 20 42 4C 41 4E 4B  53 00 D7 24 19 1F 97 35  |TH BLANKS..$...5|
00001CD0: 33 32 36 35 2C 32 37 00  E2 24 22 1F 99 22 93 22  |3265,27..$".."."|
00001CE0: 3A 8E 00 12 25 36 1F 4A  B2 31 3A 99 22 11 D2 45  |:...%6.J.1:."..E|
00001CF0: 47 45 4C 20 54 45 20 4C  41 4E 47 20 4F 4D 20 54  |GEL TE LANG OM T|
00001D00: 45 20 50 52 49 4E 54 45  4E 22 3A 8D 37 39 35 30  |E PRINTEN":.7950|
00001D10: 3A 8E 00 22 25 40 1F 8F  20 55 54 49 4C 49 54 49  |:.."%@.. UTILITI|
00001D20: 45 53 00 58 25 4A 1F 99  22 11 12 20 D6 45 52 44  |ES.X%J..".. .ERD|
00001D30: 45 52 20 4D 45 54 20 57  49 4C 4C 45 4B 45 55 52  |ER MET WILLEKEUR|
00001D40: 49 47 45 20 54 4F 45 54  53 22 3B 3A 8D 32 30 3A  |IGE TOETS";:.20:|
00001D50: 99 3A 99 22 93 22 3A 8E  00 63 25 72 1F 58 24 B2  |.:.".":..c%r.X$.|
00001D60: 22 4A 4E 00 6E 25 7C 1F  99 22 3F 20 22 3B 00 98  |"JN.n%|.."? ";..|
00001D70: 25 86 1F 8D 32 30 3A 81  49 B2 31 A4 C3 28 58 24  |%...20:.I.1..(X$|
00001D80: 29 3A 8B 43 24 B3 B1 CA  28 58 24 2C 49 2C 31 29  |):.C$...(X$,I,1)|
00001D90: A7 82 3A 89 38 30 37 30  00 A7 25 8B 1F 49 B2 49  |..:.8070..%..I.I|
00001DA0: AB 31 3A 99 43 24 3B 00  C3 25 90 1F A1 57 24 3A  |.1:.C$;..%...W$:|
00001DB0: 8B 57 24 B2 22 22 A7 99  22 A4 9D 22 3B 3A 89 38  |.W$."".."..";:.8|
00001DC0: 30 38 30 00 D9 25 95 1F  99 22 20 9D 22 3B 3A 8B  |080..%..." .";:.|
00001DD0: 57 24 B2 52 24 A7 99 3A  8E 00 F2 25 9A 1F 8B 57  |W$.R$..:...%...W|
00001DE0: 24 B2 C7 28 32 30 29 A7  99 57 24 3B 3A 89 38 30  |$..(20)..W$;:.80|
00001DF0: 37 30 00 FC 25 9F 1F 89  38 30 38 30 00 17 26 08  |70..%...8080..&.|
00001E00: 20 58 24 B2 22 22 3A 8F  20 49 4E 50 55 54 20 41  | X$."":. INPUT A|
00001E10: 20 53 54 52 49 4E 47 00  28 26 12 20 A1 43 24 3A  | STRING.(&. .C$:|
00001E20: 8B 43 24 89 38 32 31 30  00 40 26 1C 20 8D 32 35  |.C$.8210.@&. .25|
00001E30: 3A 8B 43 B2 31 33 B0 43  B2 39 32 89 38 32 39 30  |:.C.13.C.92.8290|
00001E40: 00 6F 26 26 20 8B 43 B2  32 30 AF 58 24 B1 22 22  |.o&& .C.20.X$.""|
00001E50: A7 99 43 24 3B 3A 58 24  B2 C8 28 58 24 2C C3 28  |..C$;:X$..(X$,.(|
00001E60: 58 24 29 AB 31 29 3A 8F  20 44 45 4C 45 54 45 00  |X$).1):. DELETE.|
00001E70: 8F 26 30 20 8B 43 B2 32  30 89 38 32 32 30 3A 8F  |.&0 .C.20.8220:.|
00001E80: 20 44 45 4C 45 54 45 20  4F 4E 20 4E 55 4C 4C 00  | DELETE ON NULL.|
00001E90: C0 26 3A 20 8B 28 31 32  37 AF 43 29 B3 33 32 89  |.&: .(127.C).32.|
00001EA0: 38 32 32 30 3A 8F 20 43  55 52 53 4F 52 20 43 4F  |8220:. CURSOR CO|
00001EB0: 4E 54 52 4F 4C 20 43 48  41 52 41 43 54 45 52 53  |NTROL CHARACTERS|
00001EC0: 00 D9 26 44 20 99 43 24  3B 3A 8B 43 B2 33 34 A7  |..&D .C$;:.C.34.|
00001ED0: 99 43 24 C7 28 32 30 29  3B 00 F4 26 4E 20 58 24  |.C$.(20);..&N X$|
00001EE0: B2 58 24 AA 43 24 3A 8B  C3 28 58 24 29 B3 4D 89  |.X$.C$:..(X$).M.|
00001EF0: 38 32 32 30 00 FA 26 62  20 8E 00 11 27 FC 21 8F  |8220..&b ...'.!.|
00001F00: 20 51 55 49 54 20 54 48  45 20 50 52 4F 47 52 41  | QUIT THE PROGRA|
00001F10: 4D 00 44 27 10 22 99 22  93 11 D6 4F 4C 4C 45 20  |M.D'."."...OLLE |
00001F20: 42 4C 41 44 5A 49 4A 44  45 20 4F 50 20 50 52 49  |BLADZIJDE OP PRI|
00001F30: 4E 54 45 52 22 3B 3A 8D  38 30 35 30 3A 8B 49 89  |NTER";:.8050:.I.|
00001F40: 38 37 34 30 00 6C 27 1A  22 9F 31 2C 30 34 3A 46  |8740.l'.".1,04:F|
00001F50: B2 31 3A 4C B2 2E 31 3A  8D 37 39 35 30 3A 8F 20  |.1:L..1:.7950:. |
00001F60: 45 58 50 45 4C 20 41 20  50 41 47 45 00 84 27 24  |EXPEL A PAGE..'$|
00001F70: 22 8B 4F 46 B2 30 B0 54  24 28 30 29 B2 22 22 89  |".OF.0.T$(0)."".|
00001F80: 38 37 36 30 00 C3 27 2E  22 99 22 11 C4 4F 4B 55  |8760..'."."..OKU|
00001F90: 4D 45 4E 54 20 4E 49 45  54 20 4F 50 47 45 53 4C  |MENT NIET OPGESL|
00001FA0: 41 47 45 4E 3B 20 42 45  57 41 52 45 4E 22 3B 3A  |AGEN; BEWAREN";:|
00001FB0: 8D 38 30 35 30 3A 8B 49  B2 30 A7 A0 31 3A 8D 33  |.8050:.I.0..1:.3|
00001FC0: 30 32 30 00 D7 27 38 22  A0 31 3A 99 22 93 C1 55  |020..'8".1:."..U|
00001FD0: 44 4F 45 21 22 3A A2 00  FF 27 C4 22 9F 31 2C 30  |DOE!":...'.".1,0|
00001FE0: 34 3A 46 B2 31 3A 4C B2  2E 31 3A 89 37 39 35 30  |4:F.1:L..1:.7950|
00001FF0: 3A 8F 20 45 58 50 45 4C  20 41 20 50 41 47 45 00  |:. EXPEL A PAGE.|
00002000: 10 28 28 23 8F 20 49 4E  49 54 49 41 4C 49 5A 45  |.((#. INITIALIZE|
00002010: 00 40 28 2D 23 4C 50 B2  37 32 3A 4C 30 B2 36 30  |.@(-#LP.72:L0.60|
00002020: 3A 4D 30 B2 31 36 30 3A  51 24 B2 C7 28 31 34 31  |:M0.160:Q$..(141|
00002030: 29 3A 52 24 B2 C7 28 31  33 29 3A 4B 24 B2 22 A4  |):R$..(13):K$.".|
00002040: 00 5F 28 32 23 56 B2 B5  28 28 B8 28 30 29 AB 32  |._(2#V..((.(0).2|
00002050: 30 30 30 29 AD 4D 30 29  3A 86 54 24 28 56 29 00  |000).M0):.T$(V).|
00002060: A0 28 3C 23 99 22 93 8E  13 13 0F 11 11 11 11 11  |.(<#."..........|
00002070: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00002080: 11 11 11 11 22 A6 33 39  29 22 8F 05 22 3A 97 35  |....".39)"..":.5|
00002090: 39 34 36 38 2C 31 34 3A  8F 20 46 4F 52 4D 41 54  |9468,14:. FORMAT|
000020A0: 00 D5 28 41 23 97 35 33  32 37 32 2C 32 B0 C2 28  |..(A#.53272,2..(|
000020B0: 35 33 32 37 32 29 3A 99  22 93 20 20 20 20 20 12  |53272):.".     .|
000020C0: 20 C3 4F 4D 4D 4F 44 4F  52 45 20 D4 C5 D8 D4 20  | .OMMODORE .... |
000020D0: 36 34 20 20 92 00 F0 28  43 23 8D 36 31 30 30 30  |64  ...(C#.61000|
000020E0: 3A 20 8F 20 43 4F 4C 4F  52 20 43 48 41 4E 47 45  |: . COLOR CHANGE|
000020F0: 00 2E 29 46 23 99 22 11  12 CB 92 41 53 53 45 54  |..)F#."....ASSET|
00002100: 54 45 2C 20 12 C4 92 49  53 4B 20 4F 46 20 12 C2  |TE, ...ISK OF ..|
00002110: 92 45 49 44 45 4E 22 3B  3A 58 24 B2 22 44 4B 42  |.EIDEN";:X$."DKB|
00002120: 22 3A 8D 38 30 36 30 3A  43 46 B2 49 AA 31 00 58  |":.8060:CF.I.1.X|
00002130: 29 50 23 42 24 B2 22 20  20 20 20 20 22 3A 81 49  |)P#B$."     ":.I|
00002140: B2 31 A4 35 3A 42 24 B2  42 24 AA 42 24 3A 82 3A  |.1.5:B$.B$.B$:.:|
00002150: 9F 38 2C 30 38 2C 31 35  00 7A 29 55 23 99 22 11  |.8,08,15.z)U#.".|
00002160: C4 41 54 55 4D 20 20 3F  22 3A 4D B2 32 30 3A 8D  |.ATUM  ?":M.20:.|
00002170: 38 32 30 30 3A 44 24 B2  58 24 00 94 29 5A 23 4B  |8200:D$.X$..)Z#K|
00002180: 24 B2 22 20 22 3A 8F 20  31 35 32 35 20 50 52 49  |$." ":. 1525 PRI|
00002190: 4E 54 45 52 00 C5 29 64  23 8F 20 4B 24 3D 22 5F  |NTER..)d#. K$="_|
000021A0: 22 3A 51 24 3D 52 24 2B  43 48 52 24 28 32 37 29  |":Q$=R$+CHR$(27)|
000021B0: 2B 22 0A 22 3A 52 45 4D  20 38 33 30 30 20 50 52  |+".":REM 8300 PR|
000021C0: 49 4E 54 45 52 00 E0 29  78 23 81 49 B2 31 A4 37  |INTER..)x#.I.1.7|
000021D0: 3A 4B 24 B2 4B 24 AA 4B  24 3A 82 3A 89 31 30 30  |:K$.K$.K$:.:.100|
000021E0: 00 E9 29 8C 23 89 31 30  30 00 08 2A 10 27 8F 20  |..).#.100..*.'. |
000021F0: 4C 45 54 54 45 52 48 45  41 44 20 44 41 54 41 2C  |LETTERHEAD DATA,|
00002200: 20 44 45 4C 45 54 45 44  00 10 2A 1A 27 83 22 22  | DELETED..*.'.""|
00002210: 00 18 2A 24 27 83 22 22  00 20 2A 2E 27 83 22 22  |..*$'."". *.'.""|
00002220: 00 44 2A 60 EA 99 51 39  24 22 20 4E 49 45 54 20  |.D*`..Q9$" NIET |
00002230: 47 45 56 4F 4E 44 45 4E  22 3A 8D 38 30 30 30 3A  |GEVONDEN":.8000:|
00002240: 89 31 30 30 00 5F 2A 48  EE 8F 20 43 4F 4C 4F 52  |.100._*H.. COLOR|
00002250: 20 43 48 41 4E 47 45 20  52 4F 55 54 49 4E 45 00  | CHANGE ROUTINE.|
00002260: 83 2A 49 EE 96 A5 43 28  58 29 B2 C2 28 58 29 AA  |.*I...C(X)..(X).|
00002270: 31 AA 31 36 AC 28 28 C2  28 58 29 AF 31 35 29 B2  |1.16.((.(X).15).|
00002280: 31 35 29 00 AA 2A 4A EE  99 3A 99 22 13 11 11 11  |15)..*J..:."....|
00002290: 11 11 12 C6 31 92 3D 20  CB 4C 45 55 52 20 56 41  |....1.= .LEUR VA|
000022A0: 4E 20 44 45 20 52 41 4E  44 22 00 CA 2A 4B EE 99  |N DE RAND"..*K..|
000022B0: 22 11 12 C6 33 92 3D 20  C1 43 48 54 45 52 47 52  |"...3.= .CHTERGR|
000022C0: 4F 4E 44 2D CB 4C 45 55  52 22 00 EC 2A 4C EE 99  |OND-.LEUR"..*L..|
000022D0: 22 11 12 C6 35 92 3D 20  CB 4C 45 55 52 20 56 41  |"...5.= .LEUR VA|
000022E0: 4E 20 44 45 20 D4 45 4B  45 4E 53 22 00 05 2B 4D  |N DE .EKENS"..+M|
000022F0: EE 99 22 11 12 D2 C5 D4  D5 D2 CE 92 3D 20 D6 45  |..".........= .E|
00002300: 52 44 45 52 22 00 17 2B  52 EE A1 43 24 3A 8B 43  |RDER"..+R..C$:.C|
00002310: 24 89 36 31 30 31 30 00  2C 2B 5C EE A1 43 24 3A  |$.61010.,+\..C$:|
00002320: 8B 43 24 B2 22 22 89 36  31 30 32 30 00 53 2B 66  |.C$."".61020.S+f|
00002330: EE 43 B2 C6 28 43 24 29  3A 8B 43 B2 31 33 35 A7  |.C..(C$):.C.135.|
00002340: 97 36 34 36 2C A5 43 28  36 34 36 29 3A 89 36 31  |.646,.C(646):.61|
00002350: 30 30 32 00 7F 2B 7A EE  43 B2 C6 28 43 24 29 3A  |002..+z.C..(C$):|
00002360: 8B 43 B2 31 33 33 B0 43  B2 31 33 34 A7 58 B2 35  |.C.133.C.134.X.5|
00002370: 33 31 34 37 AA 43 3A 97  58 2C A5 43 28 58 29 00  |3147.C:.X,.C(X).|
00002380: 90 2B 84 EE 8B 43 B3 B1  31 33 89 36 31 30 31 30  |.+...C..13.61010|
00002390: 00 96 2B 8E EE 8E 00 00  00                       |..+......       |

.......G(14):.657,128:.788,52.W....9000:
. (C) 1982 BY COMMODORE BUSINESS MACHINE
S, INC..F....C$:.C$.20......C$:.C$.." ."
;:C.F(C$):......."..";:.25......C$:.C$."
".30.Y. .X.F(C$):C.X.127:.C.13.C.17.C.19
.C.20.C.29.C.31....."..30...(.X$.""...*.
.#1,C$:.C$.R$.C$.G(141).....,.X$.X$.C$:.
42.3.D.L.0:LL.L0: 1:. ENTRY.\.N..".     
 . COMMODORE TEXT 64      ...R.X..,"FUNK
TIONEN:.."...}..,".M.AKEN VAN EEN DOKUME
NT......,".S.AVEN VAN EEN DOKUMENT.R....
,".L.ADEN VAN EEN DOKUMENT......,".P.RIN
TEN VAN EEN DOKUMENT......,".V.ERANDEREN
 VAN EEN DOKUMENT.?. ..,".G.LOBAAL ZOEKE
N EN VERANDEREN.M....,".B.EELDSCHERM PRI
NTEN VAN EEN DOKUMENT......,".R.ONDSCHRI
JVEN MAKEN......,".E.INDE.J...X$."EBVGPS
RLM":.".WELKE   ";:.8060:.I.0.8700...C.J
.I:.J.4.250...H..".":. GET SUBJECT...R..
:.X$."".H$.X$.2...M.61:.".DOKUMENT-NAAM:
":.8200:.C..13.200.E....:.X$."".H$.X$.T.
...H$."".200......J.7.T$(0).""..".GEEN D
OKUMENT IN GEHEUGEN":.8000:.100......OF.
0.J.7.T$(0)."".280......".DOKUMENT NIET 
GESAVED...GEHEUGEN WISSEN ";:.8050:.I.10
0......J.400,1000,6000,7000,3000,4000,20
00,500.+.... READ TO SCREEN.U...N.39:F.0
:LL.20:TB$."":.1,3:.7080:.100.S...OF.1:T
.0:. WRITE NEW TEXT......".."H$:.:."....
........................................
..C$:.C$.510.....M.M0:.I.T.V:T$(I)."":X$
.""......8220:.C.13..:.X$."".530.....T$(
I).X$:.C..92...+.&..I.V..I.I.1.V:T$(I)."
":..V.X.T.0:L$."":.610:.100:. PACK THE S
TRINGS.Q.B..:.I.T.V:.T$(I)."".630...G.X$
.T$(I):M.M0.C(L$):L$.L$.H(X$,M).M.L.X$.J
(X$,M.1):.C(L$).M0.T$(T).L$:."*";:L$.X$:
T.T.1.S.V........:T$(T).L$:.T.V..I.T.1.V
:T$(I)."":............. EDIT THE TEXT.[.
...".HOEVEEL % TEKST VERSPRINGEN (0-100)
 0...";T:T..(T):.T.99.T.100.W...OF.1:.I.
0.V:.T$(I)."".......I.I.1:T..(T.I.100..5
).....L.0:.T.V.100.....X$.T$(T):.X$."".1
900.Y.$.P$.H(H$,20):.T.P$.T$(T.1)......"
.."I(P$,20):.".".29)".BLOCK"T.2.8.."....
........................................
...C.B..C$:.C$.1090.\.L.. & SET CURSOR (
A,D)...V.."..."H(X$,L):."...".L)" .."J(X
$,L.1,1)...J.."...".L.1)J(X$,L.2)H(B$,M0
.C(X$)):."...V....30:.X.92.T$(T).X$:.600
:. END......X.29.L.L.(L.1.C(X$)):.1100:.
 CURSOR RIGHT.-.D..C.29.L.L.(L.0):.1100:
. CURSOR LEFT._.N..X.17.L.L.40.(L.40.C(X
$)):.1100:. CURSOR DOWN...X..C.17.L.L.40
.(L.39):.1100:. CURSOR UP......X.19.L.0:
.1100:. CURSOR HOME......C.19..I.T.V.1:T
$(I).T$(I.1):.:T$(V)."":.1040:. CLEAR...
...X.13.T$(T).X$:T.T.1:.1040:. NEXT BLOC
K.B....C.13.T$(T).X$:T.T.(T.0):.1040:. P
RIOR BLOCK.U....L..C(X$).1100.Y...L$.H(X
$,L):.X.148.1350:. INSERT.....M$.J(X$,L.
2):.C..20.X$.L$.C$.M$:X.29:.1210:. REPLA
CE CHARACTER...2.X$.L$.M$:.X$."".C.19:.1
260:. NULL BLOCK...<..1100.#.F.M$.J(X$,L
.1):."................."M$:."..."L$.A.K.
."...".C(L$));:M.M0:.8200.N.P.M.M0.C(L$)
:L$.L$.H(X$,M):M$.J(X$,M.1).M$...Z.M.M0.
C(L$):T$(T).L$.H(M$,M):L$.J(M$,M.1):M$."
":.L$."".1050.J.D.X.T:T.T.1:.610:T.X:.10
50...L.. ADD TO THE END...V..T.0.600:. E
ND.....X$.T$(T.1):."."X$:.".".C(X$));:.5
10.+.P.. INPUT FILE.X.U.Q9$."DOKUMENT": 
. FOR ERROR MSG IN 60000.}....CF.2..".VA
N DE CASSETTE";:.8050......CF.2.(CF.2.I.
0)..1,1,0,H$:.2100.H....1,08,2,H(H$,16):
.8,X,X$:.X.60000...4.OF.0:.40:.".LEES  :
 ."X$:H$.X$:.40:.X$:.:. HEADER.%...X$.G(
31):.I.0.V:L$."":. INPUT FILE.G....J.1.M
0:.#1,C$:.ST.J.M0:.2230.S....C$.X$.L$.L$
.C$:. ONLY LEGAL CHARACTERS......J:T$(I)
.L$:.L$;:.ST.0..I:I.I.1...J.T.I:.650:.80
00:.100.L....3020:.100:. OUTPUT FILE...L
..CF.2..".OP CASSETTE";:.8050...V..CF.2.
(CF.3.I.0)..1,1,1,H$:.3100.E...L$."0:".H
(H$,16):.1,08,2,L$:.8,X,X$: 1:.X.3080.}.
...".DOKUMENT AANWEZIG - OVERSCHRIJVEN  
";:.8050:.I........8,"S"L$:.8,"I0.E....1
,08,3,L$.",S,W":.8,X,X$:.X.Q9$."SPACE":.
60000.....OF.0:.1,H$G(141)D$...N..I.0.V:
.T$(I).""..1,T$(I);:."*";:....X..1,"\";:
..(. .. BATCH PROCESSING.Q...Q9$."FILE":
 . FOR ERROR MSG IN 60000.U....".";:.CF.
4100,4050:. ELSE BOTH......"VAN CASSETTE
";:.8050:.I.4100...R.. FROM CASSETTE....
..2,1:.4150.K.... FROM DISC......".ADRES
SEN 64: FILE-NAAM  -...";X$:.X$."-".4110
.$....2,08,2,X$:.8,X,X$:.X. 2:.60000.=.6
.. PREPARE FOR OUTPUT.P.@.TB$."":S2.0:N.
72:F.1:.1,04:S$.".".H(B$,40.N.2)...J..".
STANDAART-FORMAAT";:.8050:.I..7500...H..
 GET THE NAME AND SALUTATION...R..2,Z$:.
ST.0.C(Z$).2.4900:. NO LAST NAME.".|.L$.
"":.7450:X$."":Y$."":M$."WELEDELE DAMES 
EN HEREN,".Q....2,X$:.C(X$).2.X$."":.425
0:. NO FIRST NAME.Z...M$."LIEVE/LIEFSTE 
".X$.",":X$.X$." "......2,Y$:.C(Y$).2.Y$
."":.4270:. NO TITLE.O...Y$.Y$." ":M$."L
IEVE/LIEFSTE ".Y$.Z$.",.....L$.Y$.X$.Z$:
.2,X$:.C(X$).2.L$.L$.", ".X$.%...Z$.M$:M
$."":P$.L$:.7900:. PRINT NAME.7.L.. GET 
ADDRESS._.V..2,L$:.C(L$).1.P$.L$:.7900:.
 LINE 2......2,L$:.C(L$).1.P$.L$:.7900:.
 LINE 3......2,L$:.2,Y$:.C(Y$).1.L$.L$."
, ".Y$:. STATE, ZIP.T....C(L$).1.P$.L$:.
7900......I.L.14:.7900:.:L$.Z$:P$.L$:.70
90:.4200...$. 2:.100.%.P.. SEARCH AND RE
PLACE.B.Z.."..ZOEKEN NAAR?":M.40:.8200:Z
$.X$:L.C(X$):.L.0.L.M.6010......:.".VERA
NDEREN DOOR?":.8200:Y$.X$:.:......X$."":
M$."":L$."":T.0:U.0:F.0:OF.1.J.8.. ATTAC
H T$ TO X$...B..C(X$)..L.6250...L..T.V.6
400:. ALL T$'S READ. .V.X$.X$.T$(T):T$(T
)."":T.T.1:.6200.7.J.. SEARCH FOR MATCH.
E.T..I.1.C(X$).L.1:.J(X$,I,L)..Z$..:J.I:
.6300.{.~.M$.Y$:J.I.L:.".";...... SPLIT 
STRINGS.B...M$.H(X$,I.1).M$:X$.J(X$,J):.
6500:.F.6900:.6200.U.... STOW LAST L$...
...6500:.F.6900:. CLEAR M$.....M$.X$:.65
00:.F.6900:. M$_X$; CLEAR BOTH.U....U..V
.T.U:.650:.100:. STOW L$, CLEAR HIGHER B
LOCKS._.(..6900...D.. CLEAR M$ - STOW L$
 IF NEEDED...N.M.M0.C(L$):L$.L$.H(M$,M):
M$.J(M$,M.1):.C(L$).M0...G.X..U..V.6550.
.....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:.6530.8...F.1:..I.... E
RROR EXIT.Z....:.".OUT OF ROOM - DATA IM
PAIRED":.8000:.100...X.. FORMAT AND PRIN
T. .B..7020:.100...L..1,04:F.1:. PRINTER
...V.S2.1:N.60:TB$."":X$."FID":. DEFAULT
S (DRAFT). ...."..F.ORMEEL  .I.NFORMEEL,
 OR .D.UBBEL";:.8060:J.I.9....J.2.S2.0:N
.72:.7500.D...S$.".".H(B$,40.N.2):.J.0.7
400:. FORMAL.....L$.".".H$:P$.H$:M$.H(K$
,C(H$)).....J.0:.".":.7900:.7900:.J...O.
..T.0:X$."]".TB$:E.0:Z$.B$:. PRINT TEXT.
..F..C(X$)..N.X$.X$.T$(T):T.T.1:.C(X$)..
N.T.V.X$.X$."\.6.K..F(X$).32.X$.J(X$,2):
.7110:. LEADING BLANKS.G.P..E.X$."[".X$.
..Z.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..770
0:.X.I.J:.7160......:.I.C(L$).J.1..1:.J(
L$,I,1)." "..:I.J:.J.0.7990.. ..J.0:X$.J
(X$,I.1):L$.H(L$,I.1):P$.H(P$,I.K):M$.H(
M$,I.K).8 ...C.94.C.95.E.0:X$."]".TB$.X$
.G  .X.C:.7900:.J.0.X.94.X.92..7950:.J.0
.X.92...Q *..7110.~ ... FORMAL.. ..L$.""
:.7450:.".VIER ADRES-REGELS":M.N:.I.1.4.
. ..."REGEL"I:.8200:.:.C(X$).M..".TE LAN
G ":.7420.. ..P$.X$:.7900:.:.7900:.7900.
#!..."AANHEF    ":.8200:P$.X$:.7090.T!..
.:M$."":Y$.S$:.I.1.3:.P$:.7490:.:P$.D$:.
7490.O!...I.1.5:.7900:.:S$.Y$:...!B.K.C(
P$):S$.".".H(B$,40.K.2):.7900..!L.. FORM
AT VARIATIONS.V!V..".STANDAARD-FORMAAT:"
:.," EEN-REGEL.."`..,N"TEKENS PER REGEL 
 ":.,LL"REGELS PER BLADZIJDE.("J..," TAB
-LENGTE ="C(TB$).Q"T..".NOG IETS VERANDE
REN ";:.8050:.I...Q"~..".EEN-REGEL  ";:.
8050:S2.I. "...".TEKENS PER REGEL   (20-
80)  72 .....";N.."...N.20.N.80.."..":.7
560.."...".REGELS PER BLAD "LL".  ......
";:.LL:.LL.1.."..":.758.2#...".LENGTE VA
N TAB.";:X$."0123456789":.8060:TB$.H(B$,
I).8#....J#... ENHANCEMENT..#(.K.K.1:X.1
:J.I:.C.91.C.93.X.0:E.(C.91):Z$.B$:Y$.".
":.E.Z$.K$:Y$."...#2.L$.H(L$,I.1).Y$.J(L
$,I.1)..#F.P$.H(P$,I.K).J(L$,I.1):M$.H(M
$,I.K).J(Z$,I.1):...#... LINE OUT..$...P
$."".P$.S$.P$. $...L$;:.7930:.J.0.S2.0..
.L$...53265,11:.F..:.1,P$;:.M$.B$..1,Q$S
$M$;.}$...1:P$."":L$."":M$."":L.L.1:.L.L
L..53265,27:...$...F.0..8000:L.0:..I$...
53265,11:.L..I.L.LP.1:.1:.:L.0:. PAGE WI
TH BLANKS.W$...53265,27..$"..".":...%6.J
.1:.".REGEL TE LANG OM TE PRINTEN":.7950
:.."%@.. UTILITIES.X%J..".. VERDER MET W
ILLEKEURIGE TOETS";:.20:.:.".":..C%R.X$.
"JN.N%|.."? ";..%...20:.I.1.C(X$):.C$..J
(X$,I,1)..:.8070..%..I.I.1:.C$;.C%...W$:
.W$."".."..";:.8080.Y%..." .";:.W$.R$..:
...%...W$.G(20)..W$;:.8070..%...8080..&.
 X$."":. INPUT A STRING.(&. .C$:.C$.8210
.@&. .25:.C.13.C.92.8290.O&& .C.20.X$.""
..C$;:X$.H(X$,C(X$).1):. DELETE..&0 .C.2
0.8220:. DELETE ON NULL..&: .(127.C).32.
8220:. CURSOR CONTROL CHARACTERS.Y&D .C$
;:.C.34..C$G(20);..&N X$.X$.C$:.C(X$).M.
8220..&B ...'.!. QUIT THE PROGRAM.D'."."
..VOLLE BLADZIJDE OP PRINTER";:.8050:.I.
8740.L'.".1,04:F.1:L..1:.7950:. EXPEL A 
PAGE..'$".OF.0.T$(0)."".8760.C'.".".DOKU
MENT NIET OPGESLAGEN; BEWAREN";:.8050:.I
.0. 1:.3020.W'8" 1:.".AUDOE!":...'D".1,0
4:F.1:L..1:.7950:. EXPEL A PAGE..((#. IN
ITIALIZE.@(-#LP.72:L0.60:M0.160:Q$.G(141
):R$.G(13):K$.".._(2#V..((.(0).2000).M0)
:.T$(V). (<#."..........................
....".39)"..":.59468,14:. FORMAT.U(A#.53
272,2.B(53272):.".     . COMMODORE TEXT 
64  ...(C#.61000: . COLOR CHANGE..)F#.".
.K.ASSETTE, .D.ISK OF .B.EIDEN";:X$."DKB
":.8060:CF.I.1.X)P#B$."     ":.I.1.5:B$.
B$.B$:.:.8,08,15.Z)U#.".DATUM  ?":M.20:.
8200:D$.X$..)Z#K$." ":. 1525 PRINTER.E)D
#. K$="_":Q$=R$+CHR$(27)+".":REM 8300 PR
INTER..)X#.I.1.7:K$.K$.K$:.:.100..).#.10
0..*.'. LETTERHEAD DATA, DELETED..*.'.""
..*$'."". *.'."".D*`..Q9$" NIET GEVONDEN
":.8000:.100._*H.. COLOR CHANGE ROUTINE.
.*I...C(X).B(X).1.16.((B(X).15).15)..*J.
.:.".......F1.= KLEUR VAN DE RAND".J*K..
"..F3.= ACHTERGROND-KLEUR"..*L.."..F5.= 
KLEUR VAN DE TEKENS"..+M.."..RETURN.= VE
RDER"..+R..C$:.C$.61010.,+\..C$:.C$."".6
1020.S+F.C.F(C$):.C.135..646,.C(646):.61
002.+Z.C.F(C$):.C.133.C.134.X.53147.C:.
X,.C(X)..+...C..13.61010..+......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL