RCW BLOCK
FILE INFORMATION
FILENAME(S): RCW BLOCK
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-11-30 21:23:11
APPEARS ON: 1 disk(s)
FILE HASH
3332cfeed2d7a44f624a1de9cf4f47feebbe489fb0df6bc92a3c4f29627e063d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 11 1 | RCW BLOCK | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 49 08 E8 03 89 32 35 30 30 3A 8F 2A 52 45 |..I....2500:.*RE|
00000010: 41 44 2D 43 48 41 4E 47 45 2D 57 52 49 54 45 20 |AD-CHANGE-WRITE |
00000020: 42 4C 4F 43 4B 2A 2A 28 43 29 44 45 43 20 31 39 |BLOCK**(C)DEC 19|
00000030: 38 32 20 57 2E 56 41 4E 20 5A 55 4E 44 45 52 54 |82 W.VAN ZUNDERT|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 94 08 F2 03 8F 2A |*********......*|
00000050: 2A 53 55 42 52 20 44 49 4D 20 26 20 44 45 46 2A |*SUBR DIM & DEF*|
00000060: 56 45 52 53 49 45 20 4D 45 54 20 56 45 52 56 4F |VERSIE MET VERVO|
00000070: 4C 47 20 42 4C 4F 43 4B 20 56 4F 4F 52 20 32 30 |LG BLOCK VOOR 20|
00000080: 34 30 2F 33 30 34 30 2F 34 30 34 30 20 45 4E 20 |40/3040/4040 EN |
00000090: 44 52 30 2A 00 A9 08 FC 03 86 41 25 28 32 35 37 |DR0*......A%(257|
000000A0: 29 2C 42 25 28 32 35 37 29 00 CD 08 06 04 50 4C |),B%(257).....PL|
000000B0: 24 B2 22 13 22 3A 81 58 B2 31 A4 32 33 3A 50 4C |$.".":.X.1.23:PL|
000000C0: 24 B2 50 4C 24 AA C7 28 31 37 29 3A 82 00 F0 08 |$.PL$..(17):....|
000000D0: 10 04 57 53 24 B2 22 22 3A 81 58 B2 31 A4 33 39 |..WS$."":.X.1.39|
000000E0: 3A 57 53 24 B2 57 53 24 AA C7 28 33 32 29 3A 82 |:WS$.WS$..(32):.|
000000F0: 00 F6 08 1A 04 8E 00 19 09 24 04 8F 2A 2A 53 55 |.........$..**SU|
00000100: 42 52 20 49 4E 50 55 54 20 53 54 52 49 4E 47 53 |BR INPUT STRINGS|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 09 2E 04 97 31 |*********.T....1|
00000120: 39 38 2C 30 3A 49 4E 24 B2 C7 28 33 32 29 3A 5A |98,0:IN$..(32):Z|
00000130: 44 24 B2 C7 28 32 30 29 3A 5A 43 24 B2 C7 28 33 |D$..(20):ZC$..(3|
00000140: 32 29 AA C7 28 31 36 36 29 3A 5A 54 B2 54 49 3A |2)..(166):ZT.TI:|
00000150: 5A 43 B2 32 00 6E 09 38 04 A1 5A 24 3A 8F 2A 2A |ZC.2.n.8..Z$:.**|
00000160: 49 4E 50 55 54 52 4F 55 54 49 4E 45 2A 2A 00 7F |INPUTROUTINE**..|
00000170: 09 42 04 8B 5A 24 B3 B1 22 22 A7 31 31 32 30 00 |.B..Z$.."".1120.|
00000180: B1 09 4C 04 8B 5A 54 B3 B2 54 49 A7 99 CA 28 5A |..L..ZT..TI...(Z|
00000190: 43 24 2C 5A 43 2C 31 29 3B C7 28 31 35 37 29 3B |C$,ZC,1);.(157);|
000001A0: 3A 5A 43 B2 33 AB 5A 43 3A 5A 54 B2 54 49 AA 31 |:ZC.3.ZC:ZT.TI.1|
000001B0: 35 00 BB 09 56 04 89 31 30 38 30 00 E3 09 60 04 |5...V..1080...`.|
000001C0: 5A B2 C6 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E 24 |Z..(Z$):ZL..(IN$|
000001D0: 29 3A 8B 5A 4C B1 32 30 AF 5A B3 B1 31 33 89 31 |):.ZL.20.Z..13.1|
000001E0: 30 38 30 00 00 0A 6A 04 8B 28 5A AF 31 32 37 29 |080...j..(Z.127)|
000001F0: B3 33 32 A7 99 22 20 9D 22 3B 3A 89 31 31 36 30 |.32.." .";:.1160|
00000200: 00 1D 0A 74 04 8B 5A B1 31 32 37 A7 5A B2 28 5A |...t..Z.127.Z.(Z|
00000210: AF 31 32 37 29 3A 5A 24 B2 C7 28 5A 29 00 3E 0A |.127):Z$..(Z).>.|
00000220: 7E 04 49 4E 24 B2 49 4E 24 AA 5A 24 3A 99 5A 24 |~.IN$.IN$.Z$:.Z$|
00000230: 3B 5A 44 24 3B 5A 24 3B 3A 89 31 30 38 30 00 5F |;ZD$;Z$;:.1080._|
00000240: 0A 88 04 8B 5A B2 31 33 A7 49 4E 24 B2 CA 28 49 |....Z.13.IN$..(I|
00000250: 4E 24 2C 32 29 3A 99 C7 28 31 33 29 3B 3A 8E 00 |N$,2):..(13);:..|
00000260: 8D 0A 92 04 8B 5A B2 32 30 AF 5A 4C B1 31 A7 49 |.....Z.20.ZL.1.I|
00000270: 4E 24 B2 C8 28 49 4E 24 2C 5A 4C AB 31 29 3A 99 |N$..(IN$,ZL.1):.|
00000280: C7 28 31 35 37 29 3B 3A 89 31 30 38 30 00 BF 0A |.(157);:.1080...|
00000290: 9C 04 8B 5A B2 31 34 31 A7 5A 24 B2 C7 28 AB 32 |...Z.141.Z$..(.2|
000002A0: 30 AC 28 5A 4C B1 31 29 29 3A 81 5A B2 32 A4 5A |0.(ZL.1)):.Z.2.Z|
000002B0: 4C 3A 99 5A 24 3B 3A 82 5A 3A 89 31 30 37 30 00 |L:.Z$;:.Z:.1070.|
000002C0: C9 0A A6 04 89 31 30 38 30 00 EC 0A B0 04 8F 2A |.....1080......*|
000002D0: 2A 53 55 42 52 20 52 45 41 44 20 41 20 42 4C 4F |*SUBR READ A BLO|
000002E0: 43 4B 20 20 41 25 2A 2A 2A 2A 2A 2A 00 02 0B BA |CK A%******....|
000002F0: 04 8B 53 44 49 53 4B B2 34 A7 98 31 35 2C 22 49 |..SDISK.4..15,"I|
00000300: 30 22 00 22 0B C4 04 9F 35 2C 38 2C 35 2C 22 23 |0"."....5,8,5,"#|
00000310: 22 3A 8D 32 31 39 30 3A 8B 4F 4B B2 31 A7 31 32 |":.2190:.OK.1.12|
00000320: 39 30 00 37 0B CE 04 98 31 35 2C 22 55 31 3A 22 |90.7....15,"U1:"|
00000330: 35 3B 30 3B 54 3B 53 00 55 0B D8 04 8F 20 47 4F |5;0;T;S.U.... GO|
00000340: 53 55 42 31 31 35 30 3A 49 46 4F 4B 3D 31 54 48 |SUB1150:IFOK=1TH|
00000350: 45 4E 33 36 30 00 62 0B E2 04 81 49 B2 30 A4 32 |EN360.b....I.0.2|
00000360: 35 35 00 7C 0B EC 04 A1 23 35 2C 41 24 3A 8B 41 |55.|....#5,A$:.A|
00000370: 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 8C 0B F6 |$."".A$..(0)....|
00000380: 04 41 25 28 49 29 B2 C6 28 41 24 29 00 92 0B 00 |.A%(I)..(A$)....|
00000390: 05 82 00 9F 0B 0A 05 A0 35 3A 8D 32 31 39 30 00 |........5:.2190.|
000003A0: C8 0B 0F 05 97 39 33 37 2C 41 25 28 30 29 3A 97 |.....937,A%(0):.|
000003B0: 39 33 38 2C 41 25 28 31 29 3A 8F 20 54 26 53 20 |938,A%(1):. T&S |
000003C0: 50 4F 49 4E 54 45 52 53 00 CE 0B 14 05 8E 00 F1 |POINTERS........|
000003D0: 0B 1E 05 8F 2A 2A 53 55 42 52 20 57 52 49 54 45 |....**SUBR WRITE|
000003E0: 20 41 20 42 4C 4F 43 4B 20 42 25 2A 2A 2A 2A 2A | A BLOCK B%*****|
000003F0: 2A 00 00 0C 28 05 9F 35 2C 38 2C 35 2C 22 23 22 |*...(..5,8,5,"#"|
00000400: 00 12 0C 32 05 98 31 35 2C 22 42 2D 50 3A 22 35 |...2..15,"B-P:"5|
00000410: 2C 30 00 1F 0C 3C 05 81 49 B2 30 A4 32 35 35 00 |,0...<..I.0.255.|
00000420: 30 0C 46 05 98 35 2C C7 28 42 25 28 49 29 29 3B |0.F..5,.(B%(I));|
00000430: 00 36 0C 50 05 82 00 48 0C 5A 05 98 31 35 2C 22 |.6.P...H.Z..15,"|
00000440: 42 2D 50 3A 22 35 2C 30 00 5D 0C 64 05 98 31 35 |B-P:"5,0.].d..15|
00000450: 2C 22 55 32 3A 22 35 3B 30 3B 54 3B 53 00 7B 0C |,"U2:"5;0;T;S.{.|
00000460: 6E 05 8D 32 31 39 30 3A 8B 45 31 B2 32 36 A7 A0 |n..2190:.E1.26..|
00000470: 35 3A A0 31 35 3A 89 32 30 30 30 00 88 0C 78 05 |5:.15:.2000...x.|
00000480: A0 35 3A 8D 32 31 39 30 00 A3 0C 7D 05 8B 4F 4B |.5:.2190...}..OK|
00000490: B2 31 A7 9F 35 2C 38 2C 35 2C 22 23 22 3A 89 31 |.1..5,8,5,"#":.1|
000004A0: 33 37 30 00 A9 0C 82 05 8E 00 CC 0C 8C 05 8F 2A |370............*|
000004B0: 2A 53 55 42 52 20 50 52 49 4E 54 20 50 47 20 31 |*SUBR PRINT PG 1|
000004C0: 20 56 41 4E 20 42 25 2A 2A 2A 2A 2A 00 DB 0C 96 | VAN B%*****....|
000004D0: 05 99 22 93 42 59 54 45 2B 22 3B 00 09 0D A0 05 |..".BYTE+";.....|
000004E0: 81 58 B2 30 A4 37 3A 42 24 B2 C9 28 28 22 20 20 |.X.0.7:B$..((" |
000004F0: 20 20 22 AA C4 28 58 29 29 2C 34 29 3A 99 42 24 | "..(X)),4):.B$|
00000500: 3B 3A 82 3A 99 22 13 11 22 00 2D 0D AA 05 81 58 |;:.:."..".-....X|
00000510: B2 30 A4 31 32 37 A9 38 3A 42 24 B2 C9 28 28 22 |.0.127.8:B$..(("|
00000520: 20 20 20 22 AA C4 28 58 29 29 2C 33 29 00 3F 0D | "..(X)),3).?.|
00000530: B4 05 99 22 42 20 22 3B 42 24 3B 22 3A 22 3B 00 |..."B ";B$;":";.|
00000540: 64 0D BE 05 81 59 B2 30 A4 37 3A 48 24 B2 C9 28 |d....Y.0.7:H$..(|
00000550: 28 22 20 20 22 AA C4 28 42 25 28 58 AA 59 29 29 |(" "..(B%(X.Y))|
00000560: 29 2C 33 29 00 9E 0D C8 05 8B 42 25 28 58 AA 59 |),3)......B%(X.Y|
00000570: 29 B1 33 34 AF 42 25 28 58 AA 59 29 B3 39 35 A7 |).34.B%(X.Y).95.|
00000580: 48 24 B2 48 24 AA 22 12 22 AA C7 28 42 25 28 58 |H$.H$."."..(B%(X|
00000590: AA 59 29 29 AA 22 92 22 3A 89 31 35 30 30 00 AE |.Y)).".":.1500..|
000005A0: 0D D2 05 48 24 B2 48 24 AA C7 28 33 32 29 00 B7 |...H$.H$..(32)..|
000005B0: 0D DC 05 99 48 24 3B 00 C7 0D E6 05 82 59 3A 99 |....H$;......Y:.|
000005C0: 3A 82 58 3A 99 3A 8E 00 EA 0D F0 05 8F 2A 2A 53 |:.X:.:.......**S|
000005D0: 55 42 52 20 50 52 49 4E 54 20 50 47 20 32 20 56 |UBR PRINT PG 2 V|
000005E0: 41 4E 20 42 25 2A 2A 2A 2A 2A 00 F9 0D FA 05 99 |AN B%*****......|
000005F0: 22 93 42 59 54 45 2B 22 3B 00 27 0E 04 06 81 58 |".BYTE+";.'....X|
00000600: B2 30 A4 37 3A 42 24 B2 C9 28 28 22 20 20 20 20 |.0.7:B$..((" |
00000610: 22 AA C4 28 58 29 29 2C 34 29 3A 99 42 24 3B 3A |"..(X)),4):.B$;:|
00000620: 82 3A 99 22 13 11 22 00 4D 0E 0E 06 81 58 B2 31 |.:."..".M....X.1|
00000630: 32 38 A4 32 35 35 A9 38 3A 42 24 B2 C9 28 28 22 |28.255.8:B$..(("|
00000640: 20 20 20 22 AA C4 28 58 29 29 2C 33 29 00 5F 0E | "..(X)),3)._.|
00000650: 18 06 99 22 42 20 22 3B 42 24 3B 22 3A 22 3B 00 |..."B ";B$;":";.|
00000660: 84 0E 22 06 81 59 B2 30 A4 37 3A 48 24 B2 C9 28 |.."..Y.0.7:H$..(|
00000670: 28 22 20 20 22 AA C4 28 42 25 28 58 AA 59 29 29 |(" "..(B%(X.Y))|
00000680: 29 2C 33 29 00 BE 0E 2C 06 8B 42 25 28 58 AA 59 |),3)...,..B%(X.Y|
00000690: 29 B1 33 34 AF 42 25 28 58 AA 59 29 B3 39 35 A7 |).34.B%(X.Y).95.|
000006A0: 48 24 B2 48 24 AA 22 12 22 AA C7 28 42 25 28 58 |H$.H$."."..(B%(X|
000006B0: AA 59 29 29 AA 22 92 22 3A 89 31 36 30 30 00 CE |.Y)).".":.1600..|
000006C0: 0E 36 06 48 24 B2 48 24 AA C7 28 33 32 29 00 D7 |.6.H$.H$..(32)..|
000006D0: 0E 40 06 99 48 24 3B 00 E7 0E 4A 06 82 59 3A 99 |.@..H$;...J..Y:.|
000006E0: 3A 82 58 3A 99 3A 8E 00 0A 0F 54 06 8F 2A 2A 53 |:.X:.:....T..**S|
000006F0: 55 42 52 20 50 52 49 4E 54 20 50 47 20 31 20 56 |UBR PRINT PG 1 V|
00000700: 41 4E 20 41 25 2A 2A 2A 2A 2A 00 19 0F 5E 06 99 |AN A%*****...^..|
00000710: 22 93 42 59 54 45 2B 22 3B 00 47 0F 68 06 81 58 |".BYTE+";.G.h..X|
00000720: B2 30 A4 37 3A 42 24 B2 C9 28 28 22 20 20 20 20 |.0.7:B$..((" |
00000730: 22 AA C4 28 58 29 29 2C 34 29 3A 99 42 24 3B 3A |"..(X)),4):.B$;:|
00000740: 82 3A 99 22 13 11 22 00 6B 0F 72 06 81 58 B2 30 |.:."..".k.r..X.0|
00000750: A4 31 32 37 A9 38 3A 42 24 B2 C9 28 28 22 20 20 |.127.8:B$..((" |
00000760: 20 22 AA C4 28 58 29 29 2C 33 29 00 7D 0F 7C 06 | "..(X)),3).}.|.|
00000770: 99 22 42 20 22 3B 42 24 3B 22 3A 22 3B 00 A2 0F |."B ";B$;":";...|
00000780: 86 06 81 59 B2 30 A4 37 3A 48 24 B2 C9 28 28 22 |...Y.0.7:H$..(("|
00000790: 20 20 22 AA C4 28 41 25 28 58 AA 59 29 29 29 2C | "..(A%(X.Y))),|
000007A0: 33 29 00 DC 0F 90 06 8B 41 25 28 58 AA 59 29 B1 |3)......A%(X.Y).|
000007B0: 33 34 AF 41 25 28 58 AA 59 29 B3 39 35 A7 48 24 |34.A%(X.Y).95.H$|
000007C0: B2 48 24 AA 22 12 22 AA C7 28 41 25 28 58 AA 59 |.H$."."..(A%(X.Y|
000007D0: 29 29 AA 22 92 22 3A 89 31 37 30 30 00 EC 0F 9A |)).".":.1700....|
000007E0: 06 48 24 B2 48 24 AA C7 28 33 32 29 00 F5 0F A4 |.H$.H$..(32)....|
000007F0: 06 99 48 24 3B 00 05 10 AE 06 82 59 3A 99 3A 82 |..H$;......Y:.:.|
00000800: 58 3A 99 3A 8E 00 28 10 B8 06 8F 2A 2A 53 55 42 |X:.:..(....**SUB|
00000810: 52 20 50 52 49 4E 54 20 50 47 20 32 20 56 41 4E |R PRINT PG 2 VAN|
00000820: 20 41 25 2A 2A 2A 2A 2A 00 37 10 C2 06 99 22 93 | A%*****.7....".|
00000830: 42 59 54 45 2B 22 3B 00 65 10 CC 06 81 58 B2 30 |BYTE+";.e....X.0|
00000840: A4 37 3A 42 24 B2 C9 28 28 22 20 20 20 20 22 AA |.7:B$..((" ".|
00000850: C4 28 58 29 29 2C 34 29 3A 99 42 24 3B 3A 82 3A |.(X)),4):.B$;:.:|
00000860: 99 22 13 11 22 00 8B 10 D6 06 81 58 B2 31 32 38 |.".."......X.128|
00000870: A4 32 35 35 A9 38 3A 42 24 B2 C9 28 28 22 20 20 |.255.8:B$..((" |
00000880: 20 22 AA C4 28 58 29 29 2C 33 29 00 9D 10 E0 06 | "..(X)),3).....|
00000890: 99 22 42 20 22 3B 42 24 3B 22 3A 22 3B 00 C2 10 |."B ";B$;":";...|
000008A0: EA 06 81 59 B2 30 A4 37 3A 48 24 B2 C9 28 28 22 |...Y.0.7:H$..(("|
000008B0: 20 20 22 AA C4 28 41 25 28 58 AA 59 29 29 29 2C | "..(A%(X.Y))),|
000008C0: 33 29 00 FC 10 F4 06 8B 41 25 28 58 AA 59 29 B1 |3)......A%(X.Y).|
000008D0: 33 34 AF 41 25 28 58 AA 59 29 B3 39 35 A7 48 24 |34.A%(X.Y).95.H$|
000008E0: B2 48 24 AA 22 12 22 AA C7 28 41 25 28 58 AA 59 |.H$."."..(A%(X.Y|
000008F0: 29 29 AA 22 92 22 3A 89 31 38 30 30 00 0C 11 FE |)).".":.1800....|
00000900: 06 48 24 B2 48 24 AA C7 28 33 32 29 00 15 11 08 |.H$.H$..(32)....|
00000910: 07 99 48 24 3B 00 25 11 12 07 82 59 3A 99 3A 82 |..H$;.%....Y:.:.|
00000920: 58 3A 99 3A 8E 00 48 11 1C 07 8F 2A 2A 53 55 42 |X:.:..H....**SUB|
00000930: 52 20 47 45 54 20 31 20 43 48 41 52 41 43 54 45 |R GET 1 CHARACTE|
00000940: 52 2A 2A 2A 2A 2A 2A 2A 00 5E 11 26 07 97 31 39 |R*******.^.&..19|
00000950: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 5A 24 00 64 |8,0:.198,1:.Z$.d|
00000960: 11 30 07 8E 00 87 11 3A 07 8F 2A 2A 53 55 42 52 |.0.....:..**SUBR|
00000970: 20 56 52 41 41 47 20 54 52 41 43 4B 20 26 20 53 | VRAAG TRACK & S|
00000980: 45 43 54 4F 52 2A 2A 00 9A 11 44 07 8B 49 4E 24 |ECTOR**...D..IN$|
00000990: B2 22 43 22 A7 20 31 39 38 32 00 CC 11 49 07 99 |."C". 1982...I..|
000009A0: C8 28 50 4C 24 2C 31 30 29 3B 57 53 24 3B C8 28 |.(PL$,10);WS$;.(|
000009B0: 50 4C 24 2C 31 30 29 A6 35 29 3B 22 57 45 4C 4B |PL$,10).5);"WELK|
000009C0: 45 20 54 52 41 43 4B 3F 20 20 22 3B 00 EE 11 4E |E TRACK? ";...N|
000009D0: 07 8D 31 30 37 30 3A 54 B2 C5 28 49 4E 24 29 3A |..1070:T..(IN$):|
000009E0: 8B 54 B1 33 35 B0 54 B3 30 A7 31 38 36 30 00 FC |.T.35.T.0.1860..|
000009F0: 11 58 07 8B 54 B2 30 A7 31 39 31 30 00 30 12 62 |.X..T.0.1910.0.b|
00000A00: 07 99 C8 28 50 4C 24 2C 31 32 29 3B 57 53 24 3B |...(PL$,12);WS$;|
00000A10: C8 28 50 4C 24 2C 31 32 29 3B A6 34 29 3B 22 57 |.(PL$,12);.4);"W|
00000A20: 45 4C 4B 45 20 53 45 43 54 4F 52 3F 20 20 22 3B |ELKE SECTOR? ";|
00000A30: 00 54 12 6C 07 8D 31 30 37 30 3A 53 B2 C5 28 49 |.T.l..1070:S..(I|
00000A40: 4E 24 29 3A 8D 31 39 32 30 3A 8B 53 46 B2 31 A7 |N$):.1920:.SF.1.|
00000A50: 31 38 39 30 00 77 12 76 07 99 C8 28 50 4C 24 2C |1890.w.v...(PL$,|
00000A60: 31 30 29 3B 57 53 24 3B C8 28 50 4C 24 2C 31 32 |10);WS$;.(PL$,12|
00000A70: 29 3B 57 53 24 3A 8E 00 86 12 80 07 8B 53 B3 31 |);WS$:.......S.1|
00000A80: 37 A7 31 39 37 30 00 9C 12 8A 07 8B 53 B3 31 38 |7.1970......S.18|
00000A90: 20 AF 20 54 B3 33 31 A7 31 39 37 30 00 C1 12 94 | . T.31.1970....|
00000AA0: 07 8B 53 B3 32 30 AA 28 31 AC 28 53 44 49 53 4B |..S.20.(1.(SDISK|
00000AB0: B2 34 29 29 20 AF 20 54 B3 32 35 20 A7 31 39 37 |.4)) . T.25 .197|
00000AC0: 30 00 D8 12 9E 07 8B 53 B3 32 31 20 AF 20 54 B3 |0......S.21 . T.|
00000AD0: 31 38 20 A7 31 39 37 30 00 E7 12 A8 07 53 46 B2 |18 .1970.....SF.|
00000AE0: 31 3A 89 31 39 38 30 00 F0 12 B2 07 53 46 B2 30 |1:.1980.....SF.0|
00000AF0: 00 F6 12 BC 07 8E 00 1B 13 BE 07 54 B2 C2 28 39 |...........T..(9|
00000B00: 33 37 29 3A 53 B2 C2 28 39 33 38 29 3A 8B 54 B3 |37):S..(938):.T.|
00000B10: 31 B0 54 B1 33 35 A7 31 38 36 35 00 25 13 C0 07 |1.T.35.1865.%...|
00000B20: 8D 31 39 32 30 00 37 13 C2 07 8B 20 53 46 B2 31 |.1920.7.... SF.1|
00000B30: 20 A7 20 31 38 36 35 00 41 13 C4 07 89 31 39 31 | . 1865.A....191|
00000B40: 30 00 64 13 C6 07 8F 2A 2A 53 55 42 52 20 53 54 |0.d....**SUBR ST|
00000B50: 4F 50 20 4F 4E 48 45 52 53 54 2E 20 46 4F 55 54 |OP ONHERST. FOUT|
00000B60: 2A 2A 2A 2A 00 81 13 D0 07 99 22 13 22 3A 81 52 |****......".":.R|
00000B70: B2 31 A4 32 30 3A 99 57 53 24 3A 82 3A 99 22 13 |.1.20:.WS$:.:.".|
00000B80: 22 00 C5 13 D5 07 8D 32 32 37 30 3A 99 50 4C 24 |"......2270:.PL$|
00000B90: 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B 22 12 20 |;".";WS$;PL$;". |
00000BA0: 20 4F 4E 48 45 52 53 54 45 4C 42 41 52 45 20 46 | ONHERSTELBARE F|
00000BB0: 4F 55 54 21 20 53 54 41 52 54 20 4D 45 54 20 43 |OUT! START MET C|
00000BC0: 4F 4E 54 13 22 00 CB 13 DA 07 90 00 DC 13 E4 07 |ONT."...........|
00000BD0: 9C 3A 49 54 B2 31 3A 89 32 35 30 30 00 FF 13 EE |.:IT.1:.2500....|
00000BE0: 07 8F 2A 2A 53 55 42 52 20 56 45 52 41 4E 44 45 |..**SUBR VERANDE|
00000BF0: 52 20 31 20 42 59 54 45 2A 2A 2A 2A 2A 2A 2A 00 |R 1 BYTE*******.|
00000C00: 38 14 F8 07 58 48 B2 58 AA 28 31 32 38 AC 28 58 |8...XH.X.(128.(X|
00000C10: B1 31 32 37 29 29 3A 52 45 B2 33 AA B5 28 58 48 |.127)):RE.3..(XH|
00000C20: AD 38 29 3A 50 53 B2 36 AA 28 58 AD 38 AB B5 28 |.8):PS.6.(X.8..(|
00000C30: 58 AD 38 29 29 AC 33 32 00 61 14 02 08 8B 41 25 |X.8)).32.a....A%|
00000C40: 28 58 29 B1 33 34 AF 41 25 28 58 29 B3 39 35 A7 |(X).34.A%(X).95.|
00000C50: 48 24 B2 C7 28 41 25 28 58 29 29 3A 89 32 30 37 |H$..(A%(X)):.207|
00000C60: 30 00 6E 14 0C 08 48 24 B2 C7 28 33 32 29 00 95 |0.n...H$..(32)..|
00000C70: 14 16 08 42 24 B2 22 12 22 AA C9 28 28 22 20 20 |...B$."."..((" |
00000C80: 22 AA C4 28 41 25 28 58 29 29 29 2C 33 29 AA 22 |"..(A%(X))),3)."|
00000C90: 92 22 AA 48 24 00 AC 14 20 08 99 C8 28 50 4C 24 |.".H$... ...(PL$|
00000CA0: 2C 52 45 29 3B A6 50 53 29 3B 42 24 00 CB 14 2A |,RE);.PS);B$...*|
00000CB0: 08 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 4C |..PL$;".";WS$;PL|
00000CC0: 24 3B 3A 58 48 24 B2 C4 28 58 29 00 EF 14 34 08 |$;:XH$..(X)...4.|
00000CD0: 99 22 12 20 42 59 54 45 22 3B 58 48 24 3B 22 20 |.". BYTE";XH$;" |
00000CE0: 4D 4F 45 54 20 57 4F 52 44 45 4E 3F 20 22 3B 00 |MOET WORDEN? ";.|
00000CF0: 12 15 3E 08 8D 31 30 37 30 3A 59 B2 C5 28 49 4E |..>..1070:Y..(IN|
00000D00: 24 29 3A 8B 59 B3 30 B0 59 B1 32 35 35 A7 32 30 |$):.Y.0.Y.255.20|
00000D10: 39 30 00 1E 15 48 08 41 25 28 58 29 B2 59 00 47 |90...H.A%(X).Y.G|
00000D20: 15 52 08 8B 41 25 28 58 29 B1 33 34 AF 41 25 28 |.R..A%(X).34.A%(|
00000D30: 58 29 B3 39 36 A7 48 24 B2 C7 28 41 25 28 58 29 |X).96.H$..(A%(X)|
00000D40: 29 3A 89 32 31 35 30 00 54 15 5C 08 48 24 B2 C7 |):.2150.T.\.H$..|
00000D50: 28 33 32 29 00 7C 15 66 08 42 24 B2 C9 28 28 22 |(32).|.f.B$..(("|
00000D60: 20 20 20 22 AA C4 28 41 25 28 58 29 29 29 2C 33 | "..(A%(X))),3|
00000D70: 29 AA 22 12 22 AA 48 24 AA 22 92 22 00 93 15 70 |).".".H$."."...p|
00000D80: 08 99 C8 28 50 4C 24 2C 52 45 29 3B A6 50 53 29 |...(PL$,RE);.PS)|
00000D90: 3B 42 24 00 99 15 7A 08 8E 00 BC 15 84 08 8F 2A |;B$...z........*|
00000DA0: 2A 53 55 42 52 20 49 4E 50 55 54 20 45 52 52 4F |*SUBR INPUT ERRO|
00000DB0: 52 43 48 41 4E 4E 45 4C 2A 2A 2A 2A 00 D4 15 8E |RCHANNEL****....|
00000DC0: 08 84 31 35 2C 45 31 24 2C 45 32 24 2C 45 33 24 |..15,E1$,E2$,E3$|
00000DD0: 2C 45 34 24 00 FD 15 98 08 45 31 B2 C5 28 45 31 |,E4$.....E1..(E1|
00000DE0: 24 29 3A 8B 45 31 B3 32 30 A7 4F 4B B2 30 3A 99 |$):.E1.20.OK.0:.|
00000DF0: 50 4C 24 3B 57 53 24 3B 22 13 22 3A 8E 00 28 16 |PL$;WS$;".":..(.|
00000E00: A2 08 99 50 4C 24 3B 57 53 24 3B 50 4C 24 3B 22 |...PL$;WS$;PL$;"|
00000E10: 46 4F 55 54 20 4E 52 3A 20 12 22 3B 45 31 24 3B |FOUT NR: .";E1$;|
00000E20: 22 2D 22 3B 45 32 24 3B 00 53 16 AC 08 8B 28 45 |"-";E2$;.S....(E|
00000E30: 31 B1 31 39 AF 45 31 B3 33 30 29 B0 45 31 B2 36 |1.19.E1.30).E1.6|
00000E40: 35 A7 99 22 2D 22 3B 45 33 24 3B 22 2C 22 3B 45 |5.."-";E3$;",";E|
00000E50: 34 24 3B 00 5C 16 B6 08 99 22 13 22 00 6E 16 C0 |4$;.\....".".n..|
00000E60: 08 98 31 35 2C 22 49 30 22 3A 4F 4B B2 31 00 74 |..15,"I0":OK.1.t|
00000E70: 16 CA 08 8E 00 97 16 D4 08 8F 2A 2A 53 55 42 52 |..........**SUBR|
00000E80: 20 54 49 54 45 4C 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | TITEL**********|
00000E90: 2A 2A 2A 2A 2A 2A 2A 00 B7 16 DE 08 97 35 33 32 |*******......532|
00000EA0: 38 30 2C 31 31 3A 97 35 33 32 38 31 2C 31 31 3A |80,11:.53281,11:|
00000EB0: 97 36 34 36 2C 31 33 00 E8 16 E3 08 99 22 13 20 |.646,13......". |
00000EC0: 12 20 50 52 4F 47 52 41 4D 4D 41 20 52 45 41 44 |. PROGRAMMA READ|
00000ED0: 2D 28 43 48 41 4E 47 45 29 2D 57 52 49 54 45 20 |-(CHANGE)-WRITE |
00000EE0: 42 4C 4F 43 4B 20 92 22 00 EE 16 E8 08 8E 00 11 |BLOCK ."........|
00000EF0: 17 F2 08 8F 20 2A 2A 53 55 42 52 20 49 4E 53 54 |.... **SUBR INST|
00000F00: 52 55 43 54 49 45 53 2A 2A 2A 2A 2A 2A 2A 2A 2A |RUCTIES*********|
00000F10: 2A 00 2D 17 FC 08 99 C8 28 50 4C 24 2C 34 29 3B |*.-.....(PL$,4);|
00000F20: A6 34 29 3B 22 55 20 4B 55 4E 54 3A 22 00 5D 17 |.4);"U KUNT:".].|
00000F30: 06 09 99 22 11 20 20 12 31 92 20 53 45 43 54 4F |...". .1. SECTO|
00000F40: 52 45 4E 20 28 42 4C 4F 43 4B 53 29 20 56 41 4E |REN (BLOCKS) VAN|
00000F50: 20 44 45 20 44 49 53 4B 45 54 54 45 22 00 7B 17 | DE DISKETTE".{.|
00000F60: 10 09 99 A6 34 29 22 49 4E 20 44 52 49 56 45 20 |....4)"IN DRIVE |
00000F70: 30 20 49 4E 4C 45 5A 45 4E 2E 22 00 AC 17 1A 09 |0 INLEZEN.".....|
00000F80: 99 22 11 20 20 12 32 92 20 42 59 54 45 53 20 49 |.". .2. BYTES I|
00000F90: 4E 20 44 45 5A 45 20 53 45 43 54 4F 52 45 4E 20 |N DEZE SECTOREN |
00000FA0: 56 45 52 41 4E 44 45 52 45 4E 2E 22 00 DB 17 24 |VERANDEREN."...$|
00000FB0: 09 99 22 11 20 20 12 33 92 20 44 45 20 4E 49 45 |..". .3. DE NIE|
00000FC0: 55 57 45 20 4F 46 20 4F 55 44 45 20 49 4E 48 4F |UWE OF OUDE INHO|
00000FD0: 55 44 20 56 41 4E 20 48 45 54 22 00 08 18 2E 09 |UD VAN HET".....|
00000FE0: 99 A6 34 29 22 42 4C 4F 43 4B 20 54 45 52 55 47 |..4)"BLOCK TERUG|
00000FF0: 53 43 48 52 49 4A 56 45 4E 20 4E 41 41 52 20 44 |SCHRIJVEN NAAR D|
00001000: 45 20 44 49 53 4B 2C 22 00 2F 18 38 09 99 A6 34 |E DISK,"./.8...4|
00001010: 29 22 49 4E 20 44 45 5A 45 4C 46 44 45 20 53 45 |)"IN DEZELFDE SE|
00001020: 43 54 4F 52 20 4F 46 20 49 4E 20 45 45 4E 22 00 |CTOR OF IN EEN".|
00001030: 48 18 42 09 99 A6 34 29 22 41 4E 44 45 52 45 20 |H.B...4)"ANDERE |
00001040: 53 45 43 54 4F 52 2E 22 00 78 18 4C 09 99 22 11 |SECTOR.".x.L..".|
00001050: 20 20 12 34 92 20 50 52 4F 47 52 41 4D 4D 41 20 | .4. PROGRAMMA |
00001060: 53 54 4F 50 54 20 41 4C 53 20 54 52 41 43 4B 20 |STOPT ALS TRACK |
00001070: 30 20 57 4F 52 44 54 22 00 8C 18 56 09 99 A6 34 |0 WORDT"...V...4|
00001080: 29 22 47 45 56 52 41 41 47 44 2E 22 00 B9 18 60 |)"GEVRAAGD."...`|
00001090: 09 99 22 11 20 20 4E 2E 42 2E 20 41 4C 4C 45 45 |..". N.B. ALLEE|
000010A0: 4E 20 44 45 20 44 49 53 4B 45 54 54 45 20 49 4E |N DE DISKETTE IN|
000010B0: 20 44 52 49 56 45 20 30 22 00 D6 18 6A 09 99 22 | DRIVE 0"...j.."|
000010C0: 20 20 57 4F 52 44 54 20 41 41 4E 47 45 53 50 52 | WORDT AANGESPR|
000010D0: 4F 4B 45 4E 21 22 00 09 19 74 09 99 50 4C 24 3B |OKEN!"...t..PL$;|
000010E0: 22 20 12 20 20 28 43 29 44 45 43 20 31 39 38 31 |" . (C)DEC 1981|
000010F0: 20 20 20 57 2E 41 2E 41 2E 20 56 41 4E 20 5A 55 | W.A.A. VAN ZU|
00001100: 4E 44 45 52 54 20 20 92 22 00 33 19 7E 09 99 C8 |NDERT .".3.~...|
00001110: 28 50 4C 24 2C 32 32 29 3B A6 38 29 22 12 20 53 |(PL$,22);.8)". S|
00001120: 4C 41 20 45 45 4E 20 54 4F 45 54 53 20 41 41 4E |LA EEN TOETS AAN|
00001130: 20 92 22 00 3D 19 88 09 8D 31 38 33 30 00 48 19 | .".=....1830.H.|
00001140: 92 09 49 54 B2 31 3A 8E 00 6B 19 9C 09 8F 2A 2A |..IT.1:..k....**|
00001150: 53 55 42 52 20 50 52 49 4E 54 20 56 4F 4F 52 42 |SUBR PRINT VOORB|
00001160: 45 52 45 49 44 49 4E 47 2A 2A 2A 00 89 19 A6 09 |EREIDING***.....|
00001170: 99 C8 28 50 4C 24 2C 52 47 29 3B 57 53 24 3B C8 |..(PL$,RG);WS$;.|
00001180: 28 50 4C 24 2C 52 47 29 3B 00 8F 19 B0 09 8E 00 |(PL$,RG);.......|
00001190: C3 19 C4 09 8D 31 30 32 30 3A 99 22 93 22 3B C7 |.....1020:.".";.|
000011A0: 28 31 34 32 29 3A 8F 2A 2A 48 4F 4F 46 44 50 52 |(142):.**HOOFDPR|
000011B0: 4F 47 52 41 4D 4D 41 2A 2A 2A 2A 2A 2A 2A 2A 2A |OGRAMMA*********|
000011C0: 2A 2A 2A 00 DA 19 CE 09 8D 32 32 37 30 3A 8B 49 |***......2270:.I|
000011D0: 54 B2 30 A7 20 8D 32 33 30 30 00 19 1A D8 09 99 |T.0. .2300......|
000011E0: 22 93 22 3A 8D 32 32 37 30 3A 52 47 B2 31 30 3A |".":.2270:RG.10:|
000011F0: 8D 32 34 37 30 3A 99 22 20 20 50 4C 41 41 54 53 |.2470:." PLAATS|
00001200: 20 44 45 20 44 49 53 4B 45 54 54 45 20 49 4E 20 | DE DISKETTE IN |
00001210: 44 52 49 56 45 20 30 2E 22 00 45 1A E2 09 52 47 |DRIVE 0.".E...RG|
00001220: B2 31 32 3A 8D 32 34 37 30 3A 99 A6 31 30 29 22 |.12:.2470:..10)"|
00001230: 12 20 4B 4C 41 41 52 20 3F 20 28 4A 2F 4E 29 20 |. KLAAR ? (J/N) |
00001240: 92 20 20 22 3B 00 6A 1A EC 09 8D 31 30 37 30 3A |. ";.j....1070:|
00001250: 8B 49 4E 24 B2 22 22 B0 C8 28 49 4E 24 2C 31 29 |.IN$.""..(IN$,1)|
00001260: B3 B1 22 4A 22 A7 32 35 33 30 00 8B 1A F6 09 99 |.."J".2530......|
00001270: C8 28 50 4C 24 2C 31 30 29 3B 57 53 24 3B C8 28 |.(PL$,10);WS$;.(|
00001280: 50 4C 24 2C 31 32 29 3B 57 53 24 00 C6 1A 00 0A |PL$,12);WS$.....|
00001290: 99 C8 28 50 4C 24 2C 32 29 3B 22 20 12 44 52 49 |..(PL$,2);" .DRI|
000012A0: 56 45 20 30 20 3D 22 3A 9F 31 35 2C 38 2C 31 35 |VE 0 =":.15,8,15|
000012B0: 2C 22 49 30 22 3A 8D 32 31 39 30 3A 8B 4F 4B B2 |,"I0":.2190:.OK.|
000012C0: 30 A7 32 36 37 30 00 FA 1A 0A 0A 99 C8 28 50 4C |0.2670.......(PL|
000012D0: 24 2C 32 29 3B A6 31 30 29 3B 22 12 20 4E 20 4F |$,2);.10);". N O|
000012E0: 20 54 20 20 20 52 20 45 20 41 20 44 20 59 20 21 | T R E A D Y !|
000012F0: 20 20 20 20 20 20 20 20 92 22 00 30 1B 14 0A 52 | .".0...R|
00001300: 47 B2 31 30 3A 8D 32 34 37 30 3A 99 A6 32 29 3B |G.10:.2470:..2);|
00001310: 22 5A 49 54 20 49 4E 20 44 52 49 56 45 20 30 20 |"ZIT IN DRIVE 0 |
00001320: 45 45 4E 20 44 49 53 4B 45 54 54 45 3F 20 22 3B |EEN DISKETTE? ";|
00001330: 00 55 1B 1E 0A 8D 31 30 37 30 3A 8B 49 4E 24 B2 |.U....1070:.IN$.|
00001340: 22 22 B0 20 C8 28 49 4E 24 2C 31 29 B2 22 4A 22 |"". .(IN$,1)."J"|
00001350: A7 32 36 31 30 00 63 1B 28 0A A0 31 35 3A 89 32 |.2610.c.(..15:.2|
00001360: 35 31 30 00 96 1B 32 0A 8D 32 34 37 30 3A 99 22 |510...2..2470:."|
00001370: 44 52 49 56 45 20 4B 41 4E 20 44 49 52 45 43 54 |DRIVE KAN DIRECT|
00001380: 4F 52 59 20 53 50 4F 4F 52 20 4E 49 45 54 20 4C |ORY SPOOR NIET L|
00001390: 45 5A 45 4E 21 22 00 BB 1B 3C 0A 52 47 B2 31 32 |EZEN!"...<.RG.12|
000013A0: 3A 8D 32 34 37 30 3A 99 22 20 20 20 56 45 52 44 |:.2470:." VERD|
000013B0: 45 52 20 47 41 41 4E 3F 20 22 3B 00 DF 1B 46 0A |ER GAAN? ";...F.|
000013C0: 8D 31 30 37 30 3A 8B 49 4E 24 B2 22 22 B0 C8 28 |.1070:.IN$.""..(|
000013D0: 49 4E 24 2C 31 29 B2 22 4A 22 A7 32 36 37 30 00 |IN$,1)."J".2670.|
000013E0: E7 1B 50 0A A0 31 35 00 22 1C 5A 0A 99 50 4C 24 |..P..15.".Z..PL$|
000013F0: 3B 57 53 24 3B 50 4C 24 3B 22 20 12 20 56 45 52 |;WS$;PL$;" . VER|
00001400: 56 4F 4C 47 20 45 56 45 4E 54 55 45 45 4C 20 4D |VOLG EVENTUEEL M|
00001410: 45 54 20 27 43 4F 4E 54 27 20 20 20 20 20 20 20 |ET 'CONT' |
00001420: 92 22 00 2C 1C 64 0A 89 32 30 30 30 00 43 1C 6E |.".,.d..2000.C.n|
00001430: 0A 81 52 47 B2 33 A4 32 33 3A 8D 32 34 37 30 3A |..RG.3.23:.2470:|
00001440: 99 3A 82 00 7E 1C 78 0A 8B 20 4F 4B B2 31 A7 99 |.:..~.x.. OK.1..|
00001450: 50 4C 24 3B 22 20 12 20 20 20 20 44 49 53 4B 45 |PL$;" . DISKE|
00001460: 54 54 45 20 4E 49 45 54 20 54 45 20 49 4E 54 49 |TTE NIET TE INTI|
00001470: 41 4C 49 53 45 52 45 4E 21 20 20 20 92 22 00 8C |ALISEREN! ."..|
00001480: 1C 82 0A 5A 54 B2 54 49 AA 31 35 30 00 9D 1C 8C |...ZT.TI.150....|
00001490: 0A 8B 54 49 B3 B2 5A 54 A7 32 37 30 30 00 B9 1C |..TI..ZT.2700...|
000014A0: 96 0A 54 B2 31 38 3A 53 B2 30 3A 8D 31 32 31 30 |..T.18:S.0:.1210|
000014B0: 3A 44 30 24 B2 22 12 20 22 00 EE 1C A0 0A 8B 4F |:D0$.". "......O|
000014C0: 4B B2 31 A7 44 30 24 B2 22 12 20 3F 3F 3F 3F 3F |K.1.D0$.". ?????|
000014D0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F |????????????????|
000014E0: 3F 3F 3F 3F 3F 3F 92 22 3A 89 32 37 39 30 00 FD |??????.":.2790..|
000014F0: 1C AA 0A 81 58 B2 31 34 33 A4 31 37 30 00 2C 1D |....X.143.170.,.|
00001500: B4 0A 8B 58 B2 31 36 35 A7 53 44 49 53 4B B2 34 |...X.165.SDISK.4|
00001510: 3A 8B 41 25 28 32 29 B3 B1 36 35 A7 41 25 28 58 |:.A%(2)..65.A%(X|
00001520: 29 B2 34 39 3A 53 44 49 53 4B B2 33 00 41 1D BE |).49:SDISK.3.A..|
00001530: 0A 44 30 24 B2 44 30 24 AA C7 28 41 25 28 58 29 |.D0$.D0$..(A%(X)|
00001540: 29 00 48 1D C8 0A 82 58 00 6C 1D D2 0A 8B C3 28 |).H....X.l.....(|
00001550: 44 30 24 29 B3 33 30 A7 44 30 24 B2 44 30 24 AA |D0$).30.D0$.D0$.|
00001560: C7 28 31 36 30 29 3A 89 32 37 37 30 00 7C 1D DC |.(160):.2770.|..|
00001570: 0A 44 30 24 B2 44 30 24 AA 22 92 22 00 A2 1D E6 |.D0$.D0$."."....|
00001580: 0A 99 C8 28 50 4C 24 2C 32 29 3B 22 20 12 44 52 |...(PL$,2);" .DR|
00001590: 49 56 45 20 30 20 3D 92 22 3B 44 30 24 3A 50 47 |IVE 0 =.";D0$:PG|
000015A0: B2 30 00 AF 1D F0 0A 81 49 B2 30 A4 32 35 35 00 |.0......I.0.255.|
000015B0: C5 1D FA 0A 41 25 28 49 29 B2 30 3A 42 25 28 49 |....A%(I).0:B%(I|
000015C0: 29 B2 30 3A 82 00 D6 1D 04 0B 99 50 4C 24 3B 57 |).0:.......PL$;W|
000015D0: 53 24 3B 22 13 22 00 E0 1D 0E 0B 8D 31 38 36 30 |S$;"."......1860|
000015E0: 00 13 1E 18 0B 8B 54 B2 30 A7 A0 31 35 3A 99 22 |......T.0..15:."|
000015F0: 93 22 3A 8D 32 32 37 30 3A 99 A6 31 35 29 3B 22 |.":.2270:..15);"|
00001600: 12 20 45 49 4E 44 45 20 92 22 3A 99 22 11 11 11 |. EINDE .":."...|
00001610: 22 3A 80 00 1D 1E 22 0B 8D 31 32 31 30 00 2C 1E |":...."..1210.,.|
00001620: 2C 0B 8B 4F 4B B2 30 A7 32 39 34 30 00 52 1E 36 |,..OK.0.2940.R.6|
00001630: 0B 52 47 B2 31 32 3A 8D 32 34 37 30 3A 99 A6 31 |.RG.12:.2470:..1|
00001640: 32 29 22 12 20 49 4E 4C 45 45 53 46 4F 55 54 2E |2)". INLEESFOUT.|
00001650: 92 22 00 8C 1E 40 0B 52 47 B2 31 34 3A 8D 32 34 |."...@.RG.14:.24|
00001660: 37 30 3A 99 22 20 49 4E 48 4F 55 44 20 12 54 92 |70:." INHOUD .T.|
00001670: 4F 4E 45 4E 20 4F 46 20 12 4F 92 50 4E 49 45 55 |ONEN OF .O.PNIEU|
00001680: 57 20 42 45 47 49 4E 4E 45 4E 3F 22 00 B6 1E 4A |W BEGINNEN?"...J|
00001690: 0B 52 47 B2 31 36 3A 8D 32 34 37 30 3A 99 A6 31 |.RG.16:.2470:..1|
000016A0: 32 29 3B 3A 8D 31 30 37 30 3A 8B 49 4E 24 B2 22 |2);:.1070:.IN$."|
000016B0: 22 A7 32 38 39 30 00 CD 1E 54 0B 8B C8 28 49 4E |".2890...T...(IN|
000016C0: 24 2C 31 29 B2 22 54 22 89 32 39 34 30 00 E4 1E |$,1)."T".2940...|
000016D0: 5E 0B 8B C8 28 49 4E 24 2C 31 29 B2 22 4F 22 89 |^...(IN$,1)."O".|
000016E0: 32 39 33 30 00 EE 1E 68 0B 89 32 38 39 30 00 03 |2930...h..2890..|
000016F0: 1F 72 0B 99 22 93 22 3A 8D 32 32 37 30 3A 89 32 |.r..".":.2270:.2|
00001700: 37 39 30 00 1E 1F 7C 0B 8B 50 47 B2 30 A7 50 47 |790...|..PG.0.PG|
00001710: B2 31 3A 8D 31 36 33 30 3A 89 32 39 37 30 00 39 |.1:.1630:.2970.9|
00001720: 1F 86 0B 8B 50 47 B2 31 A7 50 47 B2 32 3A 8D 31 |....PG.1.PG.2:.1|
00001730: 37 33 30 3A 89 32 39 37 30 00 48 1F 90 0B 50 47 |730:.2970.H...PG|
00001740: B2 31 3A 8D 31 36 33 30 00 86 1F 9A 0B 52 47 B2 |.1:.1630.....RG.|
00001750: 32 30 3A 8D 32 34 37 30 3A 99 22 20 12 50 92 3D |20:.2470:." .P.=|
00001760: 20 41 4E 44 45 52 45 20 50 41 47 49 4E 41 20 DD | ANDERE PAGINA .|
00001770: 20 12 56 92 3D 20 42 59 54 45 20 56 45 52 41 4E | .V.= BYTE VERAN|
00001780: 44 45 52 45 4E 22 00 C4 1F A4 0B 52 47 B2 32 31 |DEREN".....RG.21|
00001790: 3A 8D 32 34 37 30 3A 99 22 20 12 53 92 3D 20 53 |:.2470:." .S.= S|
000017A0: 43 48 52 49 4A 56 45 4E 20 42 4C 4B 20 DD 20 12 |CHRIJVEN BLK . .|
000017B0: 43 92 3D 20 56 4F 4C 47 45 4E 44 20 42 4C 4F 43 |C.= VOLGEND BLOC|
000017C0: 4B 20 20 22 00 FE 1F AE 0B 54 24 B2 22 20 20 20 |K ".....T$." |
000017D0: 20 54 52 41 43 4B 20 3D 22 AA C9 28 28 22 20 20 | TRACK ="..((" |
000017E0: 22 AA C4 28 54 29 29 2C 33 29 AA 22 20 20 20 20 |"..(T)),3)." |
000017F0: DD 20 20 20 20 53 45 43 54 4F 52 20 3D 22 00 1D |. SECTOR ="..|
00001800: 20 B8 0B 54 24 B2 54 24 AA C9 28 28 22 20 20 22 | ..T$.T$..((" "|
00001810: AA C4 28 53 29 29 2C 33 29 3A 99 54 24 00 4A 20 |..(S)),3):.T$.J |
00001820: C2 0B 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 |...PL$;".";WS$;P|
00001830: 4C 24 3B A6 31 30 29 22 12 20 4B 45 55 5A 45 20 |L$;.10)". KEUZE |
00001840: 3D 20 22 3B 3A 8D 31 30 37 30 00 65 20 CC 0B 8B |= ";:.1070.e ...|
00001850: C3 28 49 4E 24 29 B1 31 A7 49 4E 24 B2 C8 28 49 |.(IN$).1.IN$..(I|
00001860: 4E 24 2C 31 29 00 78 20 D6 0B 8B 49 4E 24 B2 22 |N$,1).x ...IN$."|
00001870: 50 22 20 89 32 39 34 30 00 8B 20 E0 0B 8B 49 4E |P" .2940.. ...IN|
00001880: 24 B2 22 56 22 20 89 33 30 38 30 00 9E 20 EA 0B |$."V" .3080.. ..|
00001890: 8B 49 4E 24 B2 22 53 22 20 89 33 31 39 30 00 B1 |.IN$."S" .3190..|
000018A0: 20 F4 0B 8B 49 4E 24 B2 22 43 22 20 89 32 39 33 | ...IN$."C" .293|
000018B0: 30 00 C4 20 F9 0B 8B 49 4E 24 B2 22 22 20 20 89 |0.. ...IN$."" .|
000018C0: 32 39 33 30 00 CE 20 FE 0B 89 33 30 31 30 00 06 |2930.. ...3010..|
000018D0: 21 08 0C 81 52 47 B2 32 30 A4 32 33 3A 8D 32 34 |!...RG.20.23:.24|
000018E0: 37 30 3A 82 3A 8F 2A 2A 42 59 54 45 20 56 45 52 |70:.:.**BYTE VER|
000018F0: 41 4E 44 45 52 45 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A |ANDEREN*********|
00001900: 2A 2A 2A 2A 2A 2A 00 2E 21 12 0C 52 47 B2 32 30 |******..!..RG.20|
00001910: 3A 8D 32 34 37 30 3A 99 22 20 12 50 92 3D 20 41 |:.2470:." .P.= A|
00001920: 4E 44 45 52 45 20 50 41 47 49 4E 41 20 22 00 60 |NDERE PAGINA ".`|
00001930: 21 1C 0C 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B |!...PL$;".";WS$;|
00001940: 50 4C 24 3B 22 12 20 57 45 4C 4B 45 20 42 59 54 |PL$;". WELKE BYT|
00001950: 45 20 56 45 52 41 4E 44 45 52 45 4E 3F 20 22 3B |E VERANDEREN? ";|
00001960: 00 6A 21 26 0C 8D 31 30 37 30 00 7D 21 30 0C 8B |.j!&..1070.}!0..|
00001970: 49 4E 24 B3 B1 22 50 22 A7 33 31 35 30 00 98 21 |IN$.."P".3150..!|
00001980: 3A 0C 8B 50 47 B2 31 A7 50 47 B2 32 3A 8D 31 37 |:..PG.1.PG.2:.17|
00001990: 33 30 3A 89 33 30 38 30 00 B3 21 44 0C 8B 50 47 |30:.3080..!D..PG|
000019A0: B2 32 A7 50 47 B2 31 3A 8D 31 36 33 30 3A 89 33 |.2.PG.1:.1630:.3|
000019B0: 30 38 30 00 D7 21 4E 0C 58 B2 C5 28 49 4E 24 29 |080..!N.X..(IN$)|
000019C0: 3A 8B 50 47 B2 31 AF 28 58 B3 30 B0 58 B1 31 32 |:.PG.1.(X.0.X.12|
000019D0: 37 29 A7 33 31 30 30 00 F4 21 58 0C 8B 50 47 B2 |7).3100..!X..PG.|
000019E0: 32 AF 28 58 B3 31 32 38 B0 58 B1 32 35 35 29 A7 |2.(X.128.X.255).|
000019F0: 33 31 30 30 00 FE 21 62 0C 8D 32 30 34 30 00 08 |3100..!b..2040..|
00001A00: 22 6C 0C 89 32 39 37 30 00 40 22 76 0C 81 52 47 |"l..2970.@"v..RG|
00001A10: B2 32 30 A4 32 33 3A 8D 32 34 37 30 3A 82 3A 8F |.20.23:.2470:.:.|
00001A20: 2A 2A 42 4C 4F 43 4B 20 53 43 48 52 49 4A 56 45 |**BLOCK SCHRIJVE|
00001A30: 4E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |N***************|
00001A40: 00 7A 22 80 0C 54 24 B2 22 20 20 20 20 54 52 41 |.z"..T$." TRA|
00001A50: 43 4B 20 3D 22 AA C9 28 28 22 20 20 22 AA C4 28 |CK ="..((" "..(|
00001A60: 54 29 29 2C 33 29 AA 22 20 20 20 20 DD 20 20 20 |T)),3)." . |
00001A70: 20 53 45 43 54 4F 52 20 3D 22 00 A5 22 8A 0C 54 | SECTOR =".."..T|
00001A80: 24 B2 54 24 AA C9 28 28 22 20 20 22 AA C4 28 53 |$.T$..((" "..(S|
00001A90: 29 29 2C 33 29 3A 52 47 B2 32 32 3A 8D 32 34 37 |)),3):RG.22:.247|
00001AA0: 30 3A 99 54 24 00 E1 22 94 0C 99 50 4C 24 3B 22 |0:.T$.."...PL$;"|
00001AB0: 12 22 3B 57 53 24 3B 50 4C 24 3B 22 12 20 20 20 |.";WS$;PL$;". |
00001AC0: 4E 41 41 52 20 44 45 5A 45 4C 46 44 45 20 54 52 |NAAR DEZELFDE TR|
00001AD0: 41 43 4B 20 45 4E 20 53 45 43 54 4F 52 3F 20 22 |ACK EN SECTOR? "|
00001AE0: 3B 00 F8 22 9E 0C 8D 31 30 37 30 3A 8B 49 4E 24 |;.."...1070:.IN$|
00001AF0: B2 22 22 A7 33 32 32 30 00 0F 23 A8 0C 8B C8 28 |."".3220..#....(|
00001B00: 49 4E 24 2C 31 29 B2 22 4A 22 A7 33 33 39 30 00 |IN$,1)."J".3390.|
00001B10: 27 23 B2 0C 8B C8 28 49 4E 24 2C 31 29 B3 B1 22 |'#....(IN$,1).."|
00001B20: 4E 22 A7 33 32 32 30 00 54 23 BC 0C 99 50 4C 24 |N".3220.T#...PL$|
00001B30: 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B 22 12 20 |;".";WS$;PL$;". |
00001B40: 4E 41 41 52 20 57 45 4C 4B 45 20 54 52 41 43 4B |NAAR WELKE TRACK|
00001B50: 3F 20 22 3B 00 6B 23 C6 0C 8D 31 30 37 30 3A 8B |? ";.k#...1070:.|
00001B60: 49 4E 24 B2 22 22 A7 33 32 36 30 00 8A 23 D0 0C |IN$."".3260..#..|
00001B70: 54 4E B2 C5 28 49 4E 24 29 3A 8B 54 4E B3 31 B0 |TN..(IN$):.TN.1.|
00001B80: 54 4E B1 33 35 A7 33 32 36 30 00 93 23 DA 0C 54 |TN.35.3260..#..T|
00001B90: B2 54 4E 00 C4 23 E4 0C 99 50 4C 24 3B 22 12 22 |.TN..#...PL$;"."|
00001BA0: 3B 57 53 24 3B 50 4C 24 3B 22 12 20 45 4E 20 4E |;WS$;PL$;". EN N|
00001BB0: 41 41 52 20 57 45 4C 4B 45 20 53 45 43 54 4F 52 |AAR WELKE SECTOR|
00001BC0: 3F 20 22 3B 00 DB 23 EE 0C 8D 31 30 37 30 3A 8B |? ";..#...1070:.|
00001BD0: 49 4E 24 B2 22 22 A7 33 33 30 30 00 F3 23 F8 0C |IN$."".3300..#..|
00001BE0: 53 4E B2 53 3A 53 B2 C5 28 49 4E 24 29 3A 8D 31 |SN.S:S..(IN$):.1|
00001BF0: 39 32 30 00 08 24 02 0D 8B 53 46 B2 31 A7 53 B2 |920..$...SF.1.S.|
00001C00: 53 4E 3A 89 33 33 30 30 00 42 24 0C 0D 54 24 B2 |SN:.3300.B$..T$.|
00001C10: 22 20 20 20 20 54 52 41 43 4B 20 3D 22 AA C9 28 |" TRACK ="..(|
00001C20: 28 22 20 20 22 AA C4 28 54 29 29 2C 33 29 AA 22 |(" "..(T)),3)."|
00001C30: 20 20 20 20 DD 20 20 20 20 53 45 43 54 4F 52 20 | . SECTOR |
00001C40: 3D 22 00 6D 24 16 0D 54 24 B2 54 24 AA C9 28 28 |=".m$..T$.T$..((|
00001C50: 22 20 20 22 AA C4 28 53 29 29 2C 33 29 3A 52 47 |" "..(S)),3):RG|
00001C60: B2 32 32 3A 8D 32 34 37 30 3A 99 54 24 00 A7 24 |.22:.2470:.T$..$|
00001C70: 20 0D 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 | ..PL$;".";WS$;P|
00001C80: 4C 24 3B A6 31 32 29 22 12 43 4F 52 52 45 43 54 |L$;.12)".CORRECT|
00001C90: 3F 20 22 3B 3A 8D 31 30 37 30 3A 8B 49 4E 24 B2 |? ";:.1070:.IN$.|
00001CA0: 22 22 A7 33 33 36 30 00 BE 24 2A 0D 8B C8 28 49 |"".3360..$*...(I|
00001CB0: 4E 24 2C 31 29 B2 22 4A 22 A7 33 33 39 30 00 C8 |N$,1)."J".3390..|
00001CC0: 24 34 0D 89 33 32 36 30 00 EF 24 3E 0D 99 50 4C |$4..3260..$>..PL|
00001CD0: 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B A6 31 |$;".";WS$;PL$;.1|
00001CE0: 32 29 22 12 50 52 4F 43 45 53 53 49 4E 47 22 00 |2)".PROCESSING".|
00001CF0: 0A 25 48 0D 81 58 B2 30 A4 32 35 35 3A 42 25 28 |.%H..X.0.255:B%(|
00001D00: 58 29 B2 41 25 28 58 29 3A 82 00 14 25 52 0D 8D |X).A%(X):...%R..|
00001D10: 31 33 32 30 00 2C 25 5C 0D 84 31 35 2C 45 31 24 |1320.,%\..15,E1$|
00001D20: 2C 45 32 24 2C 45 33 24 2C 45 34 24 00 50 25 66 |,E2$,E3$,E4$.P%f|
00001D30: 0D 45 31 24 B2 45 31 24 AA 22 2C 22 AA 45 32 24 |.E1$.E1$.",".E2$|
00001D40: AA 22 2C 22 AA 45 33 24 AA 22 2C 22 AA 45 34 24 |.",".E3$.",".E4$|
00001D50: 00 72 25 70 0D 99 50 4C 24 3B 22 12 22 3B 57 53 |.r%p..PL$;".";WS|
00001D60: 24 3B 50 4C 24 3B A6 31 32 29 3B 22 12 22 3B 45 |$;PL$;.12);".";E|
00001D70: 31 24 00 82 25 7A 0D 81 49 B2 30 A4 31 30 30 30 |1$..%z..I.0.1000|
00001D80: 3A 82 00 91 25 84 0D 99 22 93 22 3A 8D 32 32 37 |:...%...".":.227|
00001D90: 30 00 B7 25 8E 0D 99 C8 28 50 4C 24 2C 32 29 3B |0..%....(PL$,2);|
00001DA0: 22 20 12 44 52 49 56 45 20 30 20 3D 92 22 3B 44 |" .DRIVE 0 =.";D|
00001DB0: 30 24 3A 50 47 B2 30 00 D2 25 98 0D 52 47 B2 35 |0$:PG.0..%..RG.5|
00001DC0: 3A 8D 32 34 37 30 3A 99 22 20 20 57 49 4C 54 20 |:.2470:." WILT |
00001DD0: 55 3A 00 08 26 A2 0D 52 47 B2 37 3A 8D 32 34 37 |U:..&..RG.7:.247|
00001DE0: 30 3A 99 22 20 20 12 31 92 20 48 45 54 20 57 45 |0:." .1. HET WE|
00001DF0: 47 47 45 53 43 48 52 45 56 45 4E 20 42 4C 4F 43 |GGESCHREVEN BLOC|
00001E00: 4B 20 5A 49 45 4E 2C 22 00 40 26 AC 0D 52 47 B2 |K ZIEN,".@&..RG.|
00001E10: 39 3A 8D 32 34 37 30 3A 99 22 20 20 12 32 92 20 |9:.2470:." .2. |
00001E20: 48 45 54 20 4F 4F 52 53 50 52 4F 4E 4B 45 4C 49 |HET OORSPRONKELI|
00001E30: 4A 4B 45 20 42 4C 4F 43 4B 20 5A 49 45 4E 2C 22 |JKE BLOCK ZIEN,"|
00001E40: 00 7A 26 B6 0D 52 47 B2 31 31 3A 8D 32 34 37 30 |.z&..RG.11:.2470|
00001E50: 3A 99 22 20 20 12 33 92 20 48 45 54 20 50 52 4F |:." .3. HET PRO|
00001E60: 47 52 41 4D 4D 41 20 4F 50 4E 49 45 55 57 20 53 |GRAMMA OPNIEUW S|
00001E70: 54 41 52 54 45 4E 20 4F 46 22 00 9D 26 C0 0D 52 |TARTEN OF"..&..R|
00001E80: 47 B2 31 33 3A 8D 32 34 37 30 3A 99 22 20 20 12 |G.13:.2470:." .|
00001E90: 34 92 20 53 54 4F 50 50 45 4E 20 3F 22 00 CA 26 |4. STOPPEN ?"..&|
00001EA0: CA 0D 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 |...PL$;".";WS$;P|
00001EB0: 4C 24 3B A6 31 32 29 3B 22 12 4B 45 55 5A 45 20 |L$;.12);".KEUZE |
00001EC0: 3D 20 22 3B 3A 8D 31 30 37 30 00 E8 26 D4 0D 49 |= ";:.1070..&..I|
00001ED0: 4E B2 C5 28 49 4E 24 29 3A 8B 49 4E B3 31 B0 49 |N..(IN$):.IN.1.I|
00001EE0: 4E B1 34 A7 33 35 33 30 00 07 27 DE 0D 91 20 49 |N.4.3530..'... I|
00001EF0: 4E 20 89 20 33 35 39 30 2C 33 37 39 30 2C 33 35 |N . 3590,3790,35|
00001F00: 36 30 2C 33 35 38 30 00 16 27 E8 0D 99 22 93 22 |60,3580..'..."."|
00001F10: 3A 8D 32 32 37 30 00 20 27 F2 0D 89 32 37 39 30 |:.2270. '...2790|
00001F20: 00 2E 27 FC 0D 54 B2 30 3A 89 32 38 34 30 00 6C |..'..T.0:.2840.l|
00001F30: 27 06 0E 8D 31 32 31 30 3A 8F 2A 2A 43 4F 4E 54 |'...1210:.**CONT|
00001F40: 52 4F 4C 45 20 4F 50 20 57 52 49 54 45 2A 2A 2A |ROLE OP WRITE***|
00001F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 27 10 |************.{'.|
00001F70: 0E 8B 4F 4B B2 30 A7 33 36 38 30 00 A1 27 1A 0E |..OK.0.3680..'..|
00001F80: 52 47 B2 31 32 3A 8D 32 34 37 30 3A 99 A6 31 32 |RG.12:.2470:..12|
00001F90: 29 22 12 20 49 4E 4C 45 45 53 46 4F 55 54 2E 92 |)". INLEESFOUT..|
00001FA0: 22 00 DB 27 24 0E 52 47 B2 31 34 3A 8D 32 34 37 |"..'$.RG.14:.247|
00001FB0: 30 3A 99 22 20 49 4E 48 4F 55 44 20 12 54 92 4F |0:." INHOUD .T.O|
00001FC0: 4E 45 4E 20 4F 46 20 12 4F 92 50 4E 49 45 55 57 |NEN OF .O.PNIEUW|
00001FD0: 20 42 45 47 49 4E 4E 45 4E 3F 22 00 05 28 2E 0E | BEGINNEN?"..(..|
00001FE0: 52 47 B2 31 36 3A 8D 32 34 37 30 3A 99 A6 31 32 |RG.16:.2470:..12|
00001FF0: 29 3B 3A 8D 31 30 37 30 3A 8B 49 4E 24 B2 22 22 |);:.1070:.IN$.""|
00002000: A7 33 36 33 30 00 1C 28 38 0E 8B C8 28 49 4E 24 |.3630..(8...(IN$|
00002010: 2C 31 29 B2 22 54 22 89 33 36 38 30 00 33 28 42 |,1)."T".3680.3(B|
00002020: 0E 8B C8 28 49 4E 24 2C 31 29 B2 22 4F 22 89 33 |...(IN$,1)."O".3|
00002030: 36 37 30 00 3D 28 4C 0E 89 33 36 33 30 00 52 28 |670.=(L..3630.R(|
00002040: 56 0E 99 22 93 22 3A 8D 32 32 37 30 3A 89 32 37 |V..".":.2270:.27|
00002050: 39 30 00 6D 28 60 0E 8B 50 47 B2 30 A7 50 47 B2 |90.m(`..PG.0.PG.|
00002060: 31 3A 8D 31 36 33 30 3A 89 33 37 31 30 00 88 28 |1:.1630:.3710..(|
00002070: 6A 0E 8B 50 47 B2 31 A7 50 47 B2 32 3A 8D 31 37 |j..PG.1.PG.2:.17|
00002080: 33 30 3A 89 33 37 31 30 00 97 28 74 0E 50 47 B2 |30:.3710..(t.PG.|
00002090: 31 3A 8D 31 36 33 30 00 D5 28 7E 0E 52 47 B2 32 |1:.1630..(~.RG.2|
000020A0: 30 3A 8D 32 34 37 30 3A 99 22 20 12 50 92 3D 20 |0:.2470:." .P.= |
000020B0: 41 4E 44 45 52 45 20 50 41 47 49 4E 41 20 DD 20 |ANDERE PAGINA . |
000020C0: 12 43 92 3D 20 56 45 52 56 4F 4C 47 20 50 52 4F |.C.= VERVOLG PRO|
000020D0: 47 52 41 4D 22 00 0F 29 88 0E 54 24 B2 22 20 20 |GRAM"..)..T$." |
000020E0: 20 20 54 52 41 43 4B 20 3D 22 AA C9 28 28 22 20 | TRACK ="..((" |
000020F0: 20 22 AA C4 28 54 29 29 2C 33 29 AA 22 20 20 20 | "..(T)),3)." |
00002100: 20 DD 20 20 20 20 53 45 43 54 4F 52 20 3D 22 00 | . SECTOR =".|
00002110: 2E 29 92 0E 54 24 B2 54 24 AA C9 28 28 22 20 20 |.)..T$.T$..((" |
00002120: 22 AA C4 28 53 29 29 2C 33 29 3A 99 54 24 00 5B |"..(S)),3):.T$.[|
00002130: 29 9C 0E 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B |)...PL$;".";WS$;|
00002140: 50 4C 24 3B A6 31 30 29 22 12 20 4B 45 55 5A 45 |PL$;.10)". KEUZE|
00002150: 20 3D 20 22 3B 3A 8D 31 30 37 30 00 76 29 A6 0E | = ";:.1070.v)..|
00002160: 8B C3 28 49 4E 24 29 B1 31 A7 49 4E 24 B2 C8 28 |..(IN$).1.IN$..(|
00002170: 49 4E 24 2C 31 29 00 89 29 B0 0E 8B 49 4E 24 B2 |IN$,1)..)...IN$.|
00002180: 22 50 22 20 89 33 36 38 30 00 9C 29 BA 0E 8B 49 |"P" .3680..)...I|
00002190: 4E 24 B2 22 43 22 20 89 33 34 36 30 00 A6 29 C4 |N$."C" .3460..).|
000021A0: 0E 89 33 37 34 30 00 E8 29 CE 0E 50 47 B2 30 3A |..3740..)..PG.0:|
000021B0: 8F 2A 2A 56 45 52 47 45 4C 49 4A 4B 45 4E 20 4D |.**VERGELIJKEN M|
000021C0: 45 54 20 57 52 49 54 45 2A 2A 2A 2A 2A 2A 2A 2A |ET WRITE********|
000021D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 03 2A D8 0E 8B 50 47 |********..*...PG|
000021F0: B2 30 A7 50 47 B2 31 3A 8D 31 34 33 30 3A 89 33 |.0.PG.1:.1430:.3|
00002200: 38 33 30 00 1E 2A E2 0E 8B 50 47 B2 31 A7 50 47 |830..*...PG.1.PG|
00002210: B2 32 3A 8D 31 35 33 30 3A 89 33 38 33 30 00 2D |.2:.1530:.3830.-|
00002220: 2A EC 0E 50 47 B2 31 3A 8D 31 34 33 30 00 6B 2A |*..PG.1:.1430.k*|
00002230: F6 0E 52 47 B2 32 30 3A 8D 32 34 37 30 3A 99 22 |..RG.20:.2470:."|
00002240: 20 12 50 92 3D 20 41 4E 44 45 52 45 20 50 41 47 | .P.= ANDERE PAG|
00002250: 49 4E 41 20 DD 20 12 43 92 3D 20 56 45 52 56 4F |INA . .C.= VERVO|
00002260: 4C 47 20 50 52 4F 47 52 41 4D 22 00 A5 2A 00 0F |LG PROGRAM"..*..|
00002270: 54 24 B2 22 20 20 20 20 54 52 41 43 4B 20 3D 22 |T$." TRACK ="|
00002280: AA C9 28 28 22 20 20 22 AA C4 28 54 29 29 2C 33 |..((" "..(T)),3|
00002290: 29 AA 22 20 20 20 20 DD 20 20 20 20 53 45 43 54 |)." . SECT|
000022A0: 4F 52 20 3D 22 00 C4 2A 0A 0F 54 24 B2 54 24 AA |OR ="..*..T$.T$.|
000022B0: C9 28 28 22 20 20 22 AA C4 28 53 29 29 2C 33 29 |.((" "..(S)),3)|
000022C0: 3A 99 54 24 00 F1 2A 14 0F 99 50 4C 24 3B 22 12 |:.T$..*...PL$;".|
000022D0: 22 3B 57 53 24 3B 50 4C 24 3B A6 31 30 29 22 12 |";WS$;PL$;.10)".|
000022E0: 20 4B 45 55 5A 45 20 3D 20 22 3B 3A 8D 31 30 37 | KEUZE = ";:.107|
000022F0: 30 00 0C 2B 1E 0F 8B C3 28 49 4E 24 29 B1 31 A7 |0..+....(IN$).1.|
00002300: 49 4E 24 B2 C8 28 49 4E 24 2C 31 29 00 1F 2B 28 |IN$..(IN$,1)..+(|
00002310: 0F 8B 49 4E 24 B2 22 50 22 20 89 33 38 30 30 00 |..IN$."P" .3800.|
00002320: 32 2B 32 0F 8B 49 4E 24 B2 22 43 22 20 89 33 34 |2+2..IN$."C" .34|
00002330: 36 30 00 3C 2B 3C 0F 89 33 38 36 30 00 00 00 |60.<+<..3860... |
..I....2500:.*READ-CHANGE-WRITE BLOCK**(
C)DEC 1982 W.VAN ZUNDERT*********......*
*SUBR DIM & DEF*VERSIE MET VERVOLG BLOCK
VOOR 2040/3040/4040 EN DR0*......A%(257
),B%(257).M...PL$.".":.X.1.23:PL$.PL$.G(
17):......WS$."":.X.1.39:WS$.WS$.G(32):.
.........$..**SUBR INPUT STRINGS********
*.T....198,0:IN$.G(32):ZD$.G(20):ZC$.G(3
2).G(166):ZT.TI:ZC.2.N.8..Z$:.**INPUTROU
TINE**..B..Z$.."".1120...L..ZT..TI..J(Z
C$,ZC,1);G(157);:ZC.3.ZC:ZT.TI.15...V..1
080...`.Z.F(Z$):ZL.C(IN$):.ZL.20.Z..13.1
080...J..(Z.127).32.." .";:.1160...T..Z.
127.Z.(Z.127):Z$.G(Z).>.~.IN$.IN$.Z$:.Z$
;ZD$;Z$;:.1080._....Z.13.IN$.J(IN$,2):.G
(13);:.......Z.20.ZL.1.IN$.H(IN$,ZL.1):.
G(157);:.1080......Z.141.Z$.G(.20.(ZL.1)
):.Z.2.ZL:.Z$;:.Z:.1070.I....1080......*
*SUBR READ A BLOCK A%******......SDISK.
4..15,"I0".".D..5,8,5,"#":.2190:.OK.1.12
90.7.N..15,"U1:"5;0;T;S.U.X.. GOSUB1150:
IFOK=1THEN360.B....I.0.255.|....#5,A$:.A
$."".A$.G(0).....A%(I).F(A$)...........
5:.2190.H....937,A%(0):.938,A%(1):. T&S
POINTERS.N..........**SUBR WRITE A BLOCK
B%******...(..5,8,5,"#"...2..15,"B-P:"5
,0...<..I.0.255.0.F..5,G(B%(I));.6.P...H
.Z..15,"B-P:"5,0.].D..15,"U2:"5;0;T;S.{.
N..2190:.E1.26. 5: 15:.2000...X. 5:.2190
...}..OK.1..5,8,5,"#":.1370.......L....*
*SUBR PRINT PG 1 VAN B%*****......".BYTE
+";... ..X.0.7:B$.I((" ".D(X)),4):.B$
;:.:."..".-....X.0.127.8:B$.I((" ".D(X
)),3).?...."B ";B$;":";.D....Y.0.7:H$.I(
(" ".D(B%(X.Y))),3)...H..B%(X.Y).34.B%(
X.Y).95.H$.H$.".".G(B%(X.Y)).".":.1500..
.R.H$.H$.G(32)......H$;.G....Y:.:.X:.:..
.....**SUBR PRINT PG 2 VAN B%*****......
".BYTE+";.'....X.0.7:B$.I((" ".D(X)),
4):.B$;:.:."..".M....X.128.255.8:B$.I(("
".D(X)),3)._...."B ";B$;":";..."..Y.0
.7:H$.I((" ".D(B%(X.Y))),3)...,..B%(X.Y
).34.B%(X.Y).95.H$.H$.".".G(B%(X.Y))."."
:.1600.N.6.H$.H$.G(32).W.@..H$;...J..Y:.
:.X:.:....T..**SUBR PRINT PG 1 VAN A%***
**...^..".BYTE+";.G.H..X.0.7:B$.I(("
".D(X)),4):.B$;:.:."..".K.R..X.0.127.8:B
$.I((" ".D(X)),3).}.|.."B ";B$;":";...
...Y.0.7:H$.I((" ".D(A%(X.Y))),3)......
A%(X.Y).34.A%(X.Y).95.H$.H$.".".G(A%(X.Y
)).".":.1700.....H$.H$.G(32)......H$;...
...Y:.:.X:.:..(....**SUBR PRINT PG 2 VAN
A%*****.7.B..".BYTE+";.E.L..X.0.7:B$.I(
(" ".D(X)),4):.B$;:.:.".."...V..X.128
.255.8:B$.I((" ".D(X)),3)......"B ";B$
;":";.B....Y.0.7:H$.I((" ".D(A%(X.Y))),
3)......A%(X.Y).34.A%(X.Y).95.H$.H$.".".
G(A%(X.Y)).".":.1800.....H$.H$.G(32)....
..H$;.%....Y:.:.X:.:..H....**SUBR GET 1
CHARACTER*******.^.&..198,0:.198,1:.Z$.D
.0.....:..**SUBR VRAAG TRACK & SECTOR**.
..D..IN$."C". 1982.L.I..H(PL$,10);WS$;H(
PL$,10).5);"WELKE TRACK? ";...N..1070:T
.E(IN$):.T.35.T.0.1860...X..T.0.1910.0.B
..H(PL$,12);WS$;H(PL$,12);.4);"WELKE SEC
TOR? ";.T.L..1070:S.E(IN$):.1920:.SF.1.
1890.W.V..H(PL$,10);WS$;H(PL$,12);WS$:..
.....S.17.1970......S.18 . T.31.1970.A..
..S.20.(1.(SDISK.4)) . T.25 .1970.X....S
.21 . T.18 .1970.....SF.1:.1980.....SF.0
...........T.B(937):S.B(938):.T.1.T.35.1
865.%....1920.7.B.. SF.1 . 1865.A.D..191
0.D.F..**SUBR STOP ONHERST. FOUT****...P
..".":.R.1.20:.WS$:.:.".".E.U..2270:.PL$
;".";WS$;PL$;". ONHERSTELBARE FOUT! STA
RT MET CONT.".K.Z........:IT.1:.2500....
..**SUBR VERANDER 1 BYTE*******.8...XH.X
.(128.(X.127)):RE.3..(XH.8):PS.6.(X.8..(
X.8)).32.A....A%(X).34.A%(X).95.H$.G(A%(
X)):.2070.N...H$.G(32).....B$.".".I(("
".D(A%(X))),3).".".H$... ..H(PL$,RE);.PS
);B$.K.*..PL$;".";WS$;PL$;:XH$.D(X)...4.
.". BYTE";XH$;" MOET WORDEN? ";...>..107
0:Y.E(IN$):.Y.0.Y.255.2090...H.A%(X).Y.G
.R..A%(X).34.A%(X).96.H$.G(A%(X)):.2150.
T.\.H$.G(32).|.F.B$.I((" ".D(A%(X))),3
).".".H$."."...P..H(PL$,RE);.PS);B$...Z.
.......**SUBR INPUT ERRORCHANNEL****.T..
..15,E1$,E2$,E3$,E4$.....E1.E(E1$):.E1.2
0.OK.0:.PL$;WS$;".":..(....PL$;WS$;PL$;"
FOUT NR: .";E1$;"-";E2$;.S....(E1.19.E1.
30).E1.65.."-";E3$;",";E4$;.\....".".N..
..15,"I0":OK.1.T.J.....T..**SUBR TITEL**
***************......53280,11:.53281,11:
.646,13......". . PROGRAMMA READ-(CHANGE
)-WRITE BLOCK ."............ **SUBR INST
RUCTIES**********.-....H(PL$,4);.4);"U K
UNT:".]....". .1. SECTOREN (BLOCKS) VAN
DE DISKETTE".{.....4)"IN DRIVE 0 INLEZE
N."......". .2. BYTES IN DEZE SECTOREN
VERANDEREN."...$..". .3. DE NIEUWE OF O
UDE INHOUD VAN HET".......4)"BLOCK TERUG
SCHRIJVEN NAAR DE DISK,"./.8...4)"IN DEZ
ELFDE SECTOR OF IN EEN".H.B...4)"ANDERE
SECTOR.".X.L..". .4. PROGRAMMA STOPT AL
S TRACK 0 WORDT"...V...4)"GEVRAAGD."...`
..". N.B. ALLEEN DE DISKETTE IN DRIVE 0
".V.J.." WORDT AANGESPROKEN!"...T..PL$;
" . (C)DEC 1981 W.A.A. VAN ZUNDERT .
".3.~..H(PL$,22);.8)". SLA EEN TOETS AAN
.".=....1830.H...IT.1:..K....**SUBR PRI
NT VOORBEREIDING***......H(PL$,RG);WS$;H
(PL$,RG);.......C.D..1020:.".";G(142):.*
*HOOFDPROGRAMMA************.Z.N..2270:.I
T.0. .2300...X..".":.2270:RG.10:.2470:."
PLAATS DE DISKETTE IN DRIVE 0.".E...RG
.12:.2470:..10)". KLAAR ? (J/N) . ";.J.
...1070:.IN$."".H(IN$,1).."J".2530......
H(PL$,10);WS$;H(PL$,12);WS$.F....H(PL$,2
);" .DRIVE 0 =":.15,8,15,"I0":.2190:.OK.
0.2670......H(PL$,2);.10);". N O T R E
A D Y ! .".0...RG.10:.2470:..2);
"ZIT IN DRIVE 0 EEN DISKETTE? ";.U....10
70:.IN$."". H(IN$,1)."J".2610.C.(. 15:.2
510...2..2470:."DRIVE KAN DIRECTORY SPOO
R NIET LEZEN!"...<.RG.12:.2470:." VERD
ER GAAN? ";...F..1070:.IN$."".H(IN$,1)."
J".2670...P. 15.".Z..PL$;WS$;PL$;" . VER
VOLG EVENTUEEL MET 'CONT' .".,.D..
2000.C.N..RG.3.23:.2470:.:..~.X.. OK.1..
PL$;" . DISKETTE NIET TE INTIALISEREN
! .".....ZT.TI.150......TI..ZT.2700...
..T.18:S.0:.1210:D0$.". "... ..OK.1.D0$.
". ???????????????????????????.":.2790..
....X.143.170.,....X.165.SDISK.4:.A%(2).
.65.A%(X).49:SDISK.3.A...D0$.D0$.G(A%(X)
).H.H..X.L.R..C(D0$).30.D0$.D0$.G(160):.
2770.|...D0$.D0$."."......H(PL$,2);" .DR
IVE 0 =.";D0$:PG.0......I.0.255.E...A%(I
).0:B%(I).0:..V....PL$;WS$;"."......1860
......T.0. 15:.".":.2270:..15);". EINDE
.":."...":...."..1210.,.,..OK.0.2940.R.6
.RG.12:.2470:..12)". INLEESFOUT.."...@.R
G.14:.2470:." INHOUD .T.ONEN OF .O.PNIEU
W BEGINNEN?"...J.RG.16:.2470:..12);:.107
0:.IN$."".2890.M.T..H(IN$,1)."T".2940...
^..H(IN$,1)."O".2930...H..2890...R..".":
.2270:.2790...|..PG.0.PG.1:.1630:.2970.9
....PG.1.PG.2:.1730:.2970.H...PG.1:.1630
.....RG.20:.2470:." .P.= ANDERE PAGINA .
.V.= BYTE VERANDEREN".D...RG.21:.2470:.
" .S.= SCHRIJVEN BLK . .C.= VOLGEND BLOC
K ".....T$." TRACK =".I((" ".D(T)),
3)." . SECTOR =".. ..T$.T$.I((" "
.D(S)),3):.T$.J B..PL$;".";WS$;PL$;.10)"
. KEUZE = ";:.1070.E L..C(IN$).1.IN$.H(I
N$,1).X V..IN$."P" .2940.. ...IN$."V" .3
080.. ...IN$."S" .3190.. ...IN$."C" .293
0.D ...IN$."" .2930.N ...3010..!...RG.2
0.23:.2470:.:.**BYTE VERANDEREN*********
******..!..RG.20:.2470:." .P.= ANDERE PA
GINA ".`!...PL$;".";WS$;PL$;". WELKE BYT
E VERANDEREN? ";.J!&..1070.}!0..IN$.."P"
.3150..!:..PG.1.PG.2:.1730:.3080..!D..PG
.2.PG.1:.1630:.3080.W!N.X.E(IN$):.PG.1.(
X.0.X.127).3100..!X..PG.2.(X.128.X.255).
3100..!B..2040.."L..2970.@"V..RG.20.23:.
2470:.:.**BLOCK SCHRIJVEN***************
.Z"..T$." TRACK =".I((" ".D(T)),3)."
. SECTOR =".."..T$.T$.I((" ".D(S
)),3):RG.22:.2470:.T$.."...PL$;".";WS$;P
L$;". NAAR DEZELFDE TRACK EN SECTOR? "
;.."...1070:.IN$."".3220..#...H(IN$,1)."
J".3390.'#...H(IN$,1).."N".3220.T#...PL$
;".";WS$;PL$;". NAAR WELKE TRACK? ";.K#F
..1070:.IN$."".3260..#P.TN.E(IN$):.TN.1.
TN.35.3260..#Z.T.TN.D#...PL$;".";WS$;PL$
;". EN NAAR WELKE SECTOR? ";..#...1070:.
IN$."".3300..#..SN.S:S.E(IN$):.1920..$..
.SF.1.S.SN:.3300.B$..T$." TRACK =".I(
(" ".D(T)),3)." . SECTOR =".M$..T
$.T$.I((" ".D(S)),3):RG.22:.2470:.T$..$
..PL$;".";WS$;PL$;.12)".CORRECT? ";:.10
70:.IN$."".3360..$*..H(IN$,1)."J".3390.H
$4..3260..$>..PL$;".";WS$;PL$;.12)".PROC
ESSING"..%H..X.0.255:B%(X).A%(X):...%R..
1320.,%\..15,E1$,E2$,E3$,E4$.P%F.E1$.E1$
.",".E2$.",".E3$.",".E4$.R%P..PL$;".";WS
$;PL$;.12);".";E1$..%Z..I.0.1000:...%...
".":.2270..%...H(PL$,2);" .DRIVE 0 =.";D
0$:PG.0.R%..RG.5:.2470:." WILT U:..&..R
G.7:.2470:." .1. HET WEGGESCHREVEN BLOC
K ZIEN,".@&..RG.9:.2470:." .2. HET OORS
PRONKELIJKE BLOCK ZIEN,".Z&..RG.11:.2470
:." .3. HET PROGRAMMA OPNIEUW STARTEN O
F"..&..RG.13:.2470:." .4. STOPPEN ?".J&
J..PL$;".";WS$;PL$;.12);".KEUZE = ";:.10
70..&T.IN.E(IN$):.IN.1.IN.4.3530..'... I
N . 3590,3790,3560,3580..'...".":.2270.
'...2790..'..T.0:.2840.L'...1210:.**CONT
ROLE OP WRITE***************************
****.{'...OK.0.3680..'..RG.12:.2470:..12
)". INLEESFOUT.."..'$.RG.14:.2470:." INH
OUD .T.ONEN OF .O.PNIEUW BEGINNEN?"..(..
RG.16:.2470:..12);:.1070:.IN$."".3630..(
8..H(IN$,1)."T".3680.3(B..H(IN$,1)."O".3
670.=(L..3630.R(V..".":.2270:.2790.M(`..
PG.0.PG.1:.1630:.3710..(J..PG.1.PG.2:.17
30:.3710..(T.PG.1:.1630.U(~.RG.20:.2470:
." .P.= ANDERE PAGINA . .C.= VERVOLG PRO
GRAM"..)..T$." TRACK =".I((" ".D(T))
,3)." . SECTOR ="..)..T$.T$.I(("
".D(S)),3):.T$.[)...PL$;".";WS$;PL$;.10)
". KEUZE = ";:.1070.V)...C(IN$).1.IN$.H(
IN$,1)..)...IN$."P" .3680..)...IN$."C" .
3460..)D..3740..)N.PG.0:.**VERGELIJKEN M
ET WRITE********************************
..*X..PG.0.PG.1:.1430:.3830..*...PG.1.PG
.2:.1530:.3830.-*..PG.1:.1430.K*..RG.20:
.2470:." .P.= ANDERE PAGINA . .C.= VERVO
LG PROGRAM"..*..T$." TRACK =".I((" "
.D(T)),3)." . SECTOR =".D*..T$.T$.
I((" ".D(S)),3):.T$..*...PL$;".";WS$;PL
$;.10)". KEUZE = ";:.1070..+...C(IN$).1.
IN$.H(IN$,1)..+(..IN$."P" .3800.2+2..IN$
."C" .3460.<+<..3860...
> CLICK IMAGE PREVIEW FOR FULL MODAL