00000000: 01 1C 0A 1C 32 00 99 22 93 22 00 13 1C 3C 00 99 |....2.."."...<..|
00000010: 22 9E 22 00 2F 1C 64 00 8F 20 42 45 47 49 4E 2F |"."./.d.. BEGIN/|
00000020: 45 49 4E 44 41 44 52 45 53 20 4D 54 41 41 4C 00 |EINDADRES MTAAL.|
00000030: 5B 1C 04 01 8B C2 28 32 31 35 29 B3 B1 31 32 38 |[.....(215)..128|
00000040: A7 20 99 22 41 4C 4C 45 45 4E 20 38 30 20 4B 41 |. ."ALLEEN 80 KA|
00000050: 52 41 4B 54 45 52 53 21 22 3A 90 00 6F 1C 0E 01 |RAKTERS!":..o...|
00000060: FE 25 3A E8 3A 57 24 B2 22 23 23 23 23 23 22 00 |.%:.:W$."#####".|
00000070: AB 1C 18 01 99 C7 28 32 37 29 22 4F 22 3A 99 22 |......(27)"O":."|
00000080: 12 99 20 20 20 42 45 50 41 4C 49 4E 47 20 42 45 |.. BEPALING BE|
00000090: 47 49 4E 20 2F 20 45 49 4E 44 41 44 52 45 53 20 |GIN / EINDADRES |
000000A0: 20 20 92 9B 22 3B C7 28 31 33 29 00 CB 1C 1D 01 | ..";.(13).....|
000000B0: 99 3A 99 22 9B 27 24 27 20 3D 20 44 49 52 45 43 |.:.".'$' = DIREC|
000000C0: 54 4F 52 59 22 3A 99 3A 99 3A 99 00 F0 1C 22 01 |TORY":.:.:....".|
000000D0: 85 22 46 49 4C 45 4E 41 41 4D 20 05 22 3B 4E 24 |."FILENAAM .";N$|
000000E0: 3A 8B 20 4E 24 B3 B1 22 24 22 20 A7 20 33 30 30 |:. N$.."$" . 300|
000000F0: 00 38 1D 27 01 8B 20 4E 24 B2 22 24 22 20 A7 20 |.8.'.. N$."$" . |
00000100: 99 22 93 99 12 20 20 20 20 20 44 20 49 20 52 20 |."... D I R |
00000110: 45 20 43 20 54 20 4F 20 52 20 59 20 20 20 20 20 |E C T O R Y |
00000120: 92 9B 22 3A 99 3A EE 3A 99 3A 99 22 05 3C 20 54 |..":.:.:.:.".< T|
00000130: 4F 45 54 53 20 3E 9E 22 00 4D 1D 28 01 A1 F9 20 |OETS >.".M.(... |
00000140: 58 24 3A 99 22 93 22 3A 89 20 32 38 30 00 5F 1D |X$:.".":. 280._.|
00000150: 2C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 |,..15,8,15,"I0".|
00000160: 6F 1D 36 01 8B 20 44 53 B3 B1 30 A7 33 34 30 00 |o.6.. DS..0.340.|
00000170: 84 1D 40 01 9F 31 2C 38 2C 33 2C 4E 24 AA 22 2C |..@..1,8,3,N$.",|
00000180: 50 2C 52 22 00 95 1D 4A 01 8B 20 44 53 B2 30 20 |P,R"...J.. DS.0 |
00000190: A7 20 34 31 30 00 B4 1D 54 01 99 3A 99 C7 28 31 |. 410...T..:..(1|
000001A0: 35 29 22 44 49 53 4B 46 4F 55 54 3A 20 22 3B 44 |5)"DISKFOUT: ";D|
000001B0: 53 24 3A 99 00 C5 1D 5E 01 A0 31 3A A0 31 35 3A |S$:....^..1:.15:|
000001C0: 89 20 32 39 30 00 CB 1D 68 01 3A 00 D1 1D 72 01 |. 290...h.:...r.|
000001D0: 3A 00 E2 1D 7C 01 8F 20 49 4E 46 4F 52 4D 41 54 |:...|.. INFORMAT|
000001E0: 49 45 00 E8 1D 86 01 3A 00 EE 1D 90 01 3A 00 19 |IE.....:.....:..|
000001F0: 1E 9A 01 E8 3A 99 22 99 22 3A 99 22 47 45 47 45 |....:.".":."GEGE|
00000200: 56 45 4E 53 20 56 41 4E 20 05 22 C7 28 33 34 29 |VENS VAN .".(34)|
00000210: 3B 4E 24 3B C7 28 33 34 29 00 22 1E A4 01 99 22 |;N$;.(34)."...."|
00000220: 9E 22 00 28 1E AE 01 3A 00 2E 1E B8 01 3A 00 3F |.".(...:.....:.?|
00000230: 1E C2 01 8F 20 42 45 47 49 4E 41 44 52 45 53 00 |.... BEGINADRES.|
00000240: 45 1E CC 01 3A 00 4B 1E D6 01 3A 00 62 1E E0 01 |E...:.K...:.b...|
00000250: 99 3A 99 22 42 45 47 49 4E 41 44 52 45 53 3A 22 |.:."BEGINADRES:"|
00000260: 2C 2C 00 74 1E EA 01 A1 23 31 2C 41 24 3A A1 23 |,,.t....#1,A$:.#|
00000270: 31 2C 42 24 00 88 1E F4 01 8B 20 41 24 B2 22 22 |1,B$...... A$.""|
00000280: A7 41 24 B2 C7 28 30 29 00 9C 1E FE 01 8B 20 42 |.A$..(0)...... B|
00000290: 24 B2 22 22 A7 42 24 B2 C7 28 30 29 00 B2 1E 08 |$."".B$..(0)....|
000002A0: 02 41 B2 C6 28 41 24 29 AA 32 35 36 AC C6 28 42 |.A..(A$).256..(B|
000002B0: 24 29 00 CD 1E 12 02 99 20 FB 20 57 24 3B 41 3B |$)...... . W$;A;|
000002C0: 3A 99 22 20 3D 20 24 22 3B D2 28 41 29 00 D4 1E |:." = $";.(A)...|
000002D0: 1C 02 A0 31 00 DA 1E 26 02 3A 00 E0 1E 30 02 3A |...1...&.:...0.:|
000002E0: 00 F5 1E 3A 02 8F 20 41 41 4E 54 41 4C 20 42 4C |...:.. AANTAL BL|
000002F0: 4F 4B 4B 45 4E 00 FB 1E 44 02 3A 00 01 1F 4E 02 |OKKEN...D.:...N.|
00000300: 3A 00 26 1F 58 02 99 3A 99 22 41 41 4E 54 41 4C |:.&.X..:."AANTAL|
00000310: 20 42 4C 4F 4B 4B 45 4E 20 4F 50 20 44 45 20 44 | BLOKKEN OP DE D|
00000320: 49 53 4B 3A 22 2C 00 39 1F 62 02 9F 31 2C 38 2C |ISK:",.9.b..1,8,|
00000330: 30 2C 22 24 3A 22 AA 4E 24 00 47 1F 6C 02 A1 23 |0,"$:".N$.G.l..#|
00000340: 31 2C 41 24 2C 42 24 00 55 1F 76 02 A1 23 31 2C |1,A$,B$.U.v..#1,|
00000350: 41 24 2C 42 24 00 63 1F 80 02 A1 23 31 2C 41 24 |A$,B$.c....#1,A$|
00000360: 2C 42 24 00 79 1F 8A 02 A1 23 31 2C 42 24 3A 8B |,B$.y....#1,B$:.|
00000370: 53 54 B3 B1 30 A7 38 34 30 00 8C 1F 94 02 8B 42 |ST..0.840......B|
00000380: 24 B3 B1 C7 28 33 34 29 A7 36 35 30 00 A7 1F 9E |$...(34).650....|
00000390: 02 EB 3A A1 23 31 2C 42 24 3A EC 20 FD 20 42 24 |..:.#1,B$:. . B$|
000003A0: B3 B1 C7 28 33 34 29 00 C1 1F A8 02 EB 3A A1 23 |...(34)......:.#|
000003B0: 31 2C 42 24 3A EC 20 FD 20 42 24 B2 C7 28 33 32 |1,B$:. . B$..(32|
000003C0: 29 00 D9 1F B2 02 EB 3A A1 23 31 2C 42 24 3A EC |)......:.#1,B$:.|
000003D0: 20 FD 20 42 24 B3 B1 22 22 00 ED 1F BC 02 A1 23 | . B$..""......#|
000003E0: 31 2C 41 24 2C 42 24 2C 41 24 2C 42 24 00 00 20 |1,A$,B$,A$,B$.. |
000003F0: C6 02 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |...A$."".A$..(0)|
00000400: 00 13 20 D0 02 8B 42 24 B2 22 22 A7 42 24 B2 C7 |.. ...B$."".B$..|
00000410: 28 30 29 00 29 20 DA 02 42 B2 C6 28 41 24 29 AA |(0).) ..B..(A$).|
00000420: 32 35 36 AC C6 28 42 24 29 00 44 20 E4 02 99 20 |256..(B$).D ... |
00000430: FB 20 57 24 3B 42 3B 3A 99 22 20 3D 20 24 22 3B |. W$;B;:." = $";|
00000440: D2 28 42 29 00 4B 20 EE 02 A0 31 00 51 20 F8 02 |.(B).K ...1.Q ..|
00000450: 3A 00 57 20 02 03 3A 00 70 20 0C 03 8F 20 4D 41 |:.W ..:.p ... MA|
00000460: 58 49 4D 41 41 4C 20 45 49 4E 44 41 44 52 45 53 |XIMAAL EINDADRES|
00000470: 00 76 20 16 03 3A 00 7C 20 20 03 3A 00 A1 20 2A |.v ..:.| .:.. *|
00000480: 03 99 3A 99 22 4D 41 58 49 4D 41 41 4C 20 45 49 |..:."MAXIMAAL EI|
00000490: 4E 44 41 44 52 45 53 3A 20 20 20 20 20 20 20 22 |NDADRES: "|
000004A0: 2C 00 B1 20 34 03 45 B2 41 AA 32 35 34 AC 42 AB |,.. 4.E.A.254.B.|
000004B0: 32 00 CC 20 3E 03 99 20 FB 20 57 24 3B 45 3B 3A |2.. >.. . W$;E;:|
000004C0: 99 22 20 3D 20 24 22 3B D2 28 45 29 00 D7 20 48 |." = $";.(E).. H|
000004D0: 03 A0 31 3A A0 31 35 00 E5 20 4D 03 99 22 11 11 |..1:.15.. M.."..|
000004E0: 11 11 11 05 22 00 26 21 52 03 99 3A 99 C7 28 31 |....".&!R..:..(1|
000004F0: 35 29 22 3C 20 54 4F 45 54 53 20 47 20 56 4F 4F |5)"< TOETS G VOO|
00000500: 52 20 45 58 41 43 54 20 45 49 4E 44 41 44 52 45 |R EXACT EINDADRE|
00000510: 53 20 2F 20 44 20 56 4F 4F 52 20 50 52 49 4E 54 |S / D VOOR PRINT|
00000520: 45 4E 20 3E 22 3B 00 5D 21 5C 03 A1 F9 20 47 4B |EN >";.]!\... GK|
00000530: 24 3A 8B 20 47 4B 24 B2 22 44 22 20 A7 45 45 B2 |$:. GK$."D" .EE.|
00000540: 45 3A 4D B2 31 3A 89 20 31 30 37 30 3A D5 20 8B |E:M.1:. 1070:. .|
00000550: 20 47 4B 24 B3 B1 22 47 22 20 A7 20 8A 00 63 21 | GK$.."G" . ..c!|
00000560: 66 03 3A 00 69 21 70 03 3A 00 7F 21 7A 03 8F 20 |f.:.i!p.:..!z.. |
00000570: 45 58 41 43 54 20 45 49 4E 44 41 44 52 45 53 00 |EXACT EINDADRES.|
00000580: 85 21 84 03 3A 00 8F 21 8E 03 99 22 9E 22 3B 00 |.!..:..!...".";.|
00000590: 97 21 98 03 4D B2 30 00 C9 21 A2 03 99 C7 28 32 |.!..M.0..!....(2|
000005A0: 37 29 22 44 22 3A 99 C7 28 31 34 35 29 22 45 58 |7)"D":..(145)"EX|
000005B0: 41 43 54 20 45 49 4E 44 41 44 52 45 53 20 56 4F |ACT EINDADRES VO|
000005C0: 4F 52 20 27 53 27 3A 22 2C 00 DD 21 AC 03 45 45 |OR 'S':",..!..EE|
000005D0: B2 41 3A 9F 20 31 2C 38 2C 30 2C 4E 24 00 ED 21 |.A:. 1,8,0,N$..!|
000005E0: B6 03 EB 20 FC 20 53 54 20 AF 20 36 34 00 00 22 |... . ST . 64.."|
000005F0: C0 03 A1 23 31 2C 41 24 3A 45 45 B2 45 45 AA 31 |...#1,A$:EE.EE.1|
00000600: 00 0E 22 CA 03 EC 3A 45 45 B2 45 45 AB 31 00 2B |.."...:EE.EE.1.+|
00000610: 22 D4 03 99 20 FB 20 57 24 3B 45 45 3B 3A 99 22 |"... . W$;EE;:."|
00000620: 20 3D 20 24 22 3B D2 28 45 45 29 00 32 22 DE 03 | = $";.(EE).2"..|
00000630: A0 31 00 3F 22 E3 03 99 22 11 11 11 11 11 22 00 |.1.?"...".....".|
00000640: 7A 22 E8 03 99 3A 99 22 05 22 3A 99 C7 28 31 35 |z"...:.".":..(15|
00000650: 29 22 3C 20 27 44 27 20 3D 20 50 52 49 4E 54 45 |)"< 'D' = PRINTE|
00000660: 4E 20 20 20 20 20 20 27 52 45 54 55 52 4E 27 20 |N 'RETURN' |
00000670: 3D 20 4D 45 4E 55 20 3E 22 3B 00 83 22 ED 03 99 |= MENU >";.."...|
00000680: 22 91 22 00 9D 22 F2 03 A1 F9 20 47 4B 24 3A 8B |"."..".... GK$:.|
00000690: 20 47 4B 24 B3 B1 22 44 22 20 A7 20 8A 00 A3 22 | GK$.."D" . ..."|
000006A0: FC 03 3A 00 A9 22 06 04 3A 00 B7 22 10 04 8F 20 |..:.."..:.."... |
000006B0: 50 52 49 4E 54 45 4E 00 BD 22 1A 04 3A 00 C3 22 |PRINTEN.."..:.."|
000006C0: 24 04 3A 00 F2 22 2E 04 56 24 B2 22 2A 2A 2A 2A |$.:.."..V$."****|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 8F 20 33 30 |**********":. 30|
000006F0: 20 2A 00 00 23 38 04 99 C7 28 32 37 29 22 44 22 | *..#8...(27)"D"|
00000700: 00 0A 23 42 04 9F 20 34 2C 34 00 29 23 4C 04 98 |..#B.. 4,4.)#L..|
00000710: 34 2C FB 20 56 24 3B 22 46 49 4C 45 4E 41 41 4D |4,. V$;"FILENAAM|
00000720: 3A 22 3B 3A 98 34 2C 4E 24 00 5E 23 56 04 98 34 |:";:.4,N$.^#V..4|
00000730: 2C FB 20 56 24 3B 22 42 45 47 49 4E 41 44 52 45 |,. V$;"BEGINADRE|
00000740: 53 3A 22 3B 3A 98 34 2C FB 20 57 24 3B 41 3B 3A |S:";:.4,. W$;A;:|
00000750: 98 34 2C 22 20 3D 20 24 22 3B D2 28 41 29 00 CA |.4," = $";.(A)..|
00000760: 23 60 04 98 34 2C FB 20 56 24 3B 22 45 49 4E 44 |#`..4,. V$;"EIND|
00000770: 41 44 52 45 53 20 3A 22 3B 3A 98 34 2C FB 20 57 |ADRES :";:.4,. W|
00000780: 24 3B 45 3B 3A 98 34 2C 22 20 3D 20 24 22 3B D2 |$;E;:.4," = $";.|
00000790: 28 45 45 29 3B 3A 8B 20 4D B2 31 20 A7 20 98 34 |(EE);:. M.1 . .4|
000007A0: 2C 22 20 28 4D 41 58 49 4D 41 41 4C 29 22 3A D5 |," (MAXIMAAL)":.|
000007B0: 20 98 34 2C 22 20 28 56 4F 4F 52 20 27 53 27 2D | .4," (VOOR 'S'-|
000007C0: 43 4F 4D 4D 41 4E 44 4F 29 22 00 06 24 6A 04 98 |COMMANDO)"..$j..|
000007D0: 34 2C FB 20 56 24 3B 22 4C 45 4E 47 54 45 20 49 |4,. V$;"LENGTE I|
000007E0: 4E 20 42 4C 4F 4B 4B 45 4E 3A 22 3B 3A 98 34 2C |N BLOKKEN:";:.4,|
000007F0: FB 20 57 24 2C 42 3B 3A 98 34 2C 22 20 3D 20 24 |. W$,B;:.4," = $|
00000800: 22 3B D2 28 42 29 00 0D 24 74 04 A0 34 00 26 24 |";.(B)..$t..4.&$|
00000810: 7E 04 8B 20 4D B2 31 20 A7 20 38 35 30 3A D5 20 |~.. M.1 . 850:. |
00000820: 89 20 31 30 30 30 00 00 00 |. 1000... |
....2.."."...<.."."./.D.. BEGIN/EINDADRE
S MTAAL.[....B(215)..128. ."ALLEEN 80 KA
RAKTERS!":..O....%:.:W$."#####"......G(2
7)"O":.".. BEPALING BEGIN / EINDADRES
..";G(13).K....:.".'$' = DIRECTORY":.:
.:....".."FILENAAM .";N$:. N$.."$" . 300
.8.'.. N$."$" . ."... D I R E C T O
R Y ..":.:.:.:.".< TOETS >.".M.(...
X$:.".":. 280._.,..15,8,15,"I0".O.6.. DS
..0.340...@..1,8,3,N$.",P,R"...J.. DS.0
. 410...T..:.G(15)"DISKFOUT: ";DS$:..E.^
. 1: 15:. 290.K.H.:.Q.R.:...|.. INFORMAT
IE.....:.....:......:.".":."GEGEVENS VAN
."G(34);N$;G(34)."....".".(...:.....:.?
.B.. BEGINADRES.E.L.:.K.V.:.B....:."BEGI
NADRES:",,.T....#1,A$:.#1,B$...... A$.""
.A$.G(0)...... B$."".B$.G(0).....A.F(A$)
.256.F(B$).M.... . W$;A;:." = $";R(A).T.
.. 1.Z.&.:...0.:...:.. AANTAL BLOKKEN...
D.:...N.:.&.X..:."AANTAL BLOKKEN OP DE D
ISK:",.9.B..1,8,0,"$:".N$.G.L..#1,A$,B$.
U.V..#1,A$,B$.C....#1,A$,B$.Y....#1,B$:.
ST..0.840......B$..G(34).650......:.#1,B
$:. . B$..G(34).A....:.#1,B$:. . B$.G(32
).Y....:.#1,B$:. . B$..""......#1,A$,B$,
A$,B$.. F..A$."".A$.G(0).. P..B$."".B$.G
(0).) Z.B.F(A$).256.F(B$).D ... . W$;B;:
." = $";R(B).K .. 1.Q ..:.W ..:.P ... MA
XIMAAL EINDADRES.V ..:.| .:.. *..:."MAX
IMAAL EINDADRES: ",.. 4.E.A.254.B.
2.L >.. . W$;E;:." = $";R(E).W H. 1: 15.
. M.."......".&!R..:.G(15)"< TOETS G VOO
R EXACT EINDADRES / D VOOR PRINTEN >";.]
!\... GK$:. GK$."D" .EE.E:M.1:. 1070:U .
GK$.."G" . ..C!F.:.I!P.:.!Z.. EXACT EI
NDADRES..!..:..!...".";..!..M.0.I!...G(2
7)"D":.G(145)"EXACT EINDADRES VOOR 'S':"
,..!..EE.A:. 1,8,0,N$..!... . ST . 64.."
...#1,A$:EE.EE.1.."J..:EE.EE.1.+"T.. . W
$;EE;:." = $";R(EE).2".. 1.?"...".....".
Z"...:.".":.G(15)"< 'D' = PRINTEN '
RETURN' = MENU >";.."..."."..".... GK$:.
GK$.."D" . ..."..:.."..:.."... PRINTEN.
."..:.C"$.:.."..V$."********************
**********":. 30 *..#8..G(27)"D"..#B.. 4
,4.)#L..4,. V$;"FILENAAM:";:.4,N$.^#V..4
,. V$;"BEGINADRES:";:.4,. W$;A;:.4," = $
";R(A).J#`..4,. V$;"EINDADRES :";:.4,. W
$;E;:.4," = $";R(EE);:. M.1 . .4," (MAXI
MAAL)":U .4," (VOOR 'S'-COMMANDO)"..$J..
4,. V$;"LENGTE IN BLOKKEN:";:.4,. W$,B;:
.4," = $";R(B)..$T. 4.&$~.. M.1 . 850:U
. 1000...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL