DISK RCW BLOCK
FILE INFORMATION
FILENAME(S): DISK RCW BLOCK
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 21:06:22
APPEARS ON: 2 disk(s)
FILE HASH
d36265b86aa606fcce173310aa0cbed68c10db63c3714d7e1c208c59c1230412
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BLACKSOFT 030 V | DISK RCW BLOCK | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
| BLACKSOFT 029 V | DISK RCW BLOCK | PRG | DuncanTwain | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 E8 03 89 32 35 30 30 00 30 08 F2 03 |.......2500.0...|
00000010: 8F 20 52 43 57 20 42 4C 4F 43 4B 20 2D 20 57 2E |. RCW BLOCK - W.|
00000020: 41 2E 41 2E 20 56 41 4E 20 5A 55 4E 44 45 52 54 |A.A. VAN ZUNDERT|
00000030: 00 45 08 FC 03 86 41 25 28 32 35 37 29 2C 42 25 |.E....A%(257),B%|
00000040: 28 32 35 37 29 00 69 08 06 04 50 4C 24 B2 22 13 |(257).i...PL$.".|
00000050: 22 3A 81 58 B2 31 A4 32 33 3A 50 4C 24 B2 50 4C |":.X.1.23:PL$.PL|
00000060: 24 AA C7 28 31 37 29 3A 82 00 8C 08 10 04 57 53 |$..(17):......WS|
00000070: 24 B2 22 22 3A 81 58 B2 31 A4 33 39 3A 57 53 24 |$."":.X.1.39:WS$|
00000080: B2 57 53 24 AA C7 28 33 32 29 3A 82 00 92 08 1A |.WS$..(32):.....|
00000090: 04 8E 00 AE 08 24 04 8F 20 20 20 20 53 55 42 52 |.....$.. SUBR|
000000A0: 20 49 4E 50 55 54 20 53 54 52 49 4E 47 53 00 E9 | INPUT STRINGS..|
000000B0: 08 2E 04 97 31 39 38 2C 30 3A 49 4E 24 B2 C7 28 |....198,0:IN$..(|
000000C0: 33 32 29 3A 5A 44 24 B2 C7 28 32 30 29 3A 5A 43 |32):ZD$..(20):ZC|
000000D0: 24 B2 C7 28 33 32 29 AA C7 28 31 36 36 29 3A 5A |$..(32)..(166):Z|
000000E0: 54 B2 54 49 3A 5A 43 B2 32 00 01 09 38 04 A1 5A |T.TI:ZC.2...8..Z|
000000F0: 24 3A 8F 20 20 49 4E 50 55 54 52 4F 55 54 49 4E |$:. INPUTROUTIN|
00000100: 45 00 12 09 42 04 8B 5A 24 B3 B1 22 22 A7 31 31 |E...B..Z$.."".11|
00000110: 32 30 00 44 09 4C 04 8B 5A 54 B3 B2 54 49 A7 99 |20.D.L..ZT..TI..|
00000120: CA 28 5A 43 24 2C 5A 43 2C 31 29 3B C7 28 31 35 |.(ZC$,ZC,1);.(15|
00000130: 37 29 3B 3A 5A 43 B2 33 AB 5A 43 3A 5A 54 B2 54 |7);:ZC.3.ZC:ZT.T|
00000140: 49 AA 31 35 00 4E 09 56 04 89 31 30 38 30 00 76 |I.15.N.V..1080.v|
00000150: 09 60 04 5A B2 C6 28 5A 24 29 3A 5A 4C B2 C3 28 |.`.Z..(Z$):ZL..(|
00000160: 49 4E 24 29 3A 8B 5A 4C B1 32 30 AF 5A B3 B1 31 |IN$):.ZL.20.Z..1|
00000170: 33 89 31 30 38 30 00 93 09 6A 04 8B 28 5A AF 31 |3.1080...j..(Z.1|
00000180: 32 37 29 B3 33 32 A7 99 22 20 9D 22 3B 3A 89 31 |27).32.." .";:.1|
00000190: 31 36 30 00 B0 09 74 04 8B 5A B1 31 32 37 A7 5A |160...t..Z.127.Z|
000001A0: B2 28 5A AF 31 32 37 29 3A 5A 24 B2 C7 28 5A 29 |.(Z.127):Z$..(Z)|
000001B0: 00 D1 09 7E 04 49 4E 24 B2 49 4E 24 AA 5A 24 3A |...~.IN$.IN$.Z$:|
000001C0: 99 5A 24 3B 5A 44 24 3B 5A 24 3B 3A 89 31 30 38 |.Z$;ZD$;Z$;:.108|
000001D0: 30 00 F2 09 88 04 8B 5A B2 31 33 A7 49 4E 24 B2 |0......Z.13.IN$.|
000001E0: CA 28 49 4E 24 2C 32 29 3A 99 C7 28 31 33 29 3B |.(IN$,2):..(13);|
000001F0: 3A 8E 00 20 0A 92 04 8B 5A B2 32 30 AF 5A 4C B1 |:.. ....Z.20.ZL.|
00000200: 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 5A 4C AB 31 |1.IN$..(IN$,ZL.1|
00000210: 29 3A 99 C7 28 31 35 37 29 3B 3A 89 31 30 38 30 |):..(157);:.1080|
00000220: 00 52 0A 9C 04 8B 5A B2 31 34 31 A7 5A 24 B2 C7 |.R....Z.141.Z$..|
00000230: 28 AB 32 30 AC 28 5A 4C B1 31 29 29 3A 81 5A B2 |(.20.(ZL.1)):.Z.|
00000240: 32 A4 5A 4C 3A 99 5A 24 3B 3A 82 5A 3A 89 31 30 |2.ZL:.Z$;:.Z:.10|
00000250: 37 30 00 5C 0A A6 04 89 31 30 38 30 00 7A 0A B0 |70.\....1080.z..|
00000260: 04 8F 20 20 20 53 55 42 52 20 52 45 41 44 20 41 |.. SUBR READ A|
00000270: 20 42 4C 4F 43 4B 20 20 41 25 00 90 0A BA 04 8B | BLOCK A%......|
00000280: 53 44 49 53 4B B2 34 A7 98 31 35 2C 22 49 30 22 |SDISK.4..15,"I0"|
00000290: 00 B0 0A C4 04 9F 35 2C 38 2C 35 2C 22 23 22 3A |......5,8,5,"#":|
000002A0: 8D 32 31 39 30 3A 8B 4F 4B B2 31 A7 31 32 39 30 |.2190:.OK.1.1290|
000002B0: 00 C5 0A CE 04 98 31 35 2C 22 55 31 3A 22 35 3B |......15,"U1:"5;|
000002C0: 30 3B 54 3B 53 00 E3 0A D8 04 8F 20 47 4F 53 55 |0;T;S...... GOSU|
000002D0: 42 31 31 35 30 3A 49 46 4F 4B 3D 31 54 48 45 4E |B1150:IFOK=1THEN|
000002E0: 33 36 30 00 F0 0A E2 04 81 49 B2 30 A4 32 35 35 |360......I.0.255|
000002F0: 00 0A 0B EC 04 A1 23 35 2C 41 24 3A 8B 41 24 B2 |......#5,A$:.A$.|
00000300: 22 22 A7 41 24 B2 C7 28 30 29 00 1A 0B F6 04 41 |"".A$..(0).....A|
00000310: 25 28 49 29 B2 C6 28 41 24 29 00 20 0B 00 05 82 |%(I)..(A$). ....|
00000320: 00 2D 0B 0A 05 A0 35 3A 8D 32 31 39 30 00 66 0B |.-....5:.2190.f.|
00000330: 0F 05 97 39 33 37 2C 41 25 28 30 29 3A 97 39 33 |...937,A%(0):.93|
00000340: 38 2C 41 25 28 31 29 3A 8F 20 20 20 20 20 20 20 |8,A%(1):. |
00000350: 20 20 20 20 20 20 20 20 20 20 54 26 53 20 50 4F | T&S PO|
00000360: 49 4E 54 45 52 53 00 6C 0B 14 05 8E 00 8A 0B 1E |INTERS.l........|
00000370: 05 8F 20 20 20 53 55 42 52 20 57 52 49 54 45 20 |.. SUBR WRITE |
00000380: 41 20 42 4C 4F 43 4B 20 42 25 00 99 0B 28 05 9F |A BLOCK B%...(..|
00000390: 35 2C 38 2C 35 2C 22 23 22 00 AB 0B 32 05 98 31 |5,8,5,"#"...2..1|
000003A0: 35 2C 22 42 2D 50 3A 22 35 2C 30 00 B8 0B 3C 05 |5,"B-P:"5,0...<.|
000003B0: 81 49 B2 30 A4 32 35 35 00 C9 0B 46 05 98 35 2C |.I.0.255...F..5,|
000003C0: C7 28 42 25 28 49 29 29 3B 00 CF 0B 50 05 82 00 |.(B%(I));...P...|
000003D0: E1 0B 5A 05 98 31 35 2C 22 42 2D 50 3A 22 35 2C |..Z..15,"B-P:"5,|
000003E0: 30 00 F6 0B 64 05 98 31 35 2C 22 55 32 3A 22 35 |0...d..15,"U2:"5|
000003F0: 3B 30 3B 54 3B 53 00 14 0C 6E 05 8D 32 31 39 30 |;0;T;S...n..2190|
00000400: 3A 8B 45 31 B2 32 36 A7 A0 35 3A A0 31 35 3A 89 |:.E1.26..5:.15:.|
00000410: 32 30 30 30 00 21 0C 78 05 A0 35 3A 8D 32 31 39 |2000.!.x..5:.219|
00000420: 30 00 3C 0C 7D 05 8B 4F 4B B2 31 A7 9F 35 2C 38 |0.<.}..OK.1..5,8|
00000430: 2C 35 2C 22 23 22 3A 89 31 33 37 30 00 42 0C 82 |,5,"#":.1370.B..|
00000440: 05 8E 00 61 0C 8C 05 8F 20 20 20 53 55 42 52 20 |...a.... SUBR |
00000450: 50 52 49 4E 54 20 50 47 20 31 20 56 41 4E 20 42 |PRINT PG 1 VAN B|
00000460: 25 00 70 0C 96 05 99 22 93 42 59 54 45 2B 22 3B |%.p....".BYTE+";|
00000470: 00 9E 0C A0 05 81 58 B2 30 A4 37 3A 42 24 B2 C9 |......X.0.7:B$..|
00000480: 28 28 22 20 20 20 20 22 AA C4 28 58 29 29 2C 34 |((" "..(X)),4|
00000490: 29 3A 99 42 24 3B 3A 82 3A 99 22 13 11 22 00 C2 |):.B$;:.:.".."..|
000004A0: 0C AA 05 81 58 B2 30 A4 31 32 37 A9 38 3A 42 24 |....X.0.127.8:B$|
000004B0: B2 C9 28 28 22 20 20 20 22 AA C4 28 58 29 29 2C |..((" "..(X)),|
000004C0: 33 29 00 D4 0C B4 05 99 22 42 20 22 3B 42 24 3B |3)......"B ";B$;|
000004D0: 22 3A 22 3B 00 F9 0C BE 05 81 59 B2 30 A4 37 3A |":";......Y.0.7:|
000004E0: 48 24 B2 C9 28 28 22 20 20 22 AA C4 28 42 25 28 |H$..((" "..(B%(|
000004F0: 58 AA 59 29 29 29 2C 33 29 00 33 0D C8 05 8B 42 |X.Y))),3).3....B|
00000500: 25 28 58 AA 59 29 B1 33 34 AF 42 25 28 58 AA 59 |%(X.Y).34.B%(X.Y|
00000510: 29 B3 39 35 A7 48 24 B2 48 24 AA 22 12 22 AA C7 |).95.H$.H$."."..|
00000520: 28 42 25 28 58 AA 59 29 29 AA 22 92 22 3A 89 31 |(B%(X.Y)).".":.1|
00000530: 35 30 30 00 43 0D D2 05 48 24 B2 48 24 AA C7 28 |500.C...H$.H$..(|
00000540: 33 32 29 00 4C 0D DC 05 99 48 24 3B 00 5C 0D E6 |32).L....H$;.\..|
00000550: 05 82 59 3A 99 3A 82 58 3A 99 3A 8E 00 7B 0D F0 |..Y:.:.X:.:..{..|
00000560: 05 8F 20 20 20 53 55 42 52 20 50 52 49 4E 54 20 |.. SUBR PRINT |
00000570: 50 47 20 32 20 56 41 4E 20 42 25 00 8A 0D FA 05 |PG 2 VAN B%.....|
00000580: 99 22 93 42 59 54 45 2B 22 3B 00 B8 0D 04 06 81 |.".BYTE+";......|
00000590: 58 B2 30 A4 37 3A 42 24 B2 C9 28 28 22 20 20 20 |X.0.7:B$..((" |
000005A0: 20 22 AA C4 28 58 29 29 2C 34 29 3A 99 42 24 3B | "..(X)),4):.B$;|
000005B0: 3A 82 3A 99 22 13 11 22 00 DE 0D 0E 06 81 58 B2 |:.:.".."......X.|
000005C0: 31 32 38 A4 32 35 35 A9 38 3A 42 24 B2 C9 28 28 |128.255.8:B$..((|
000005D0: 22 20 20 20 22 AA C4 28 58 29 29 2C 33 29 00 F0 |" "..(X)),3)..|
000005E0: 0D 18 06 99 22 42 20 22 3B 42 24 3B 22 3A 22 3B |...."B ";B$;":";|
000005F0: 00 15 0E 22 06 81 59 B2 30 A4 37 3A 48 24 B2 C9 |..."..Y.0.7:H$..|
00000600: 28 28 22 20 20 22 AA C4 28 42 25 28 58 AA 59 29 |((" "..(B%(X.Y)|
00000610: 29 29 2C 33 29 00 4F 0E 2C 06 8B 42 25 28 58 AA |)),3).O.,..B%(X.|
00000620: 59 29 B1 33 34 AF 42 25 28 58 AA 59 29 B3 39 35 |Y).34.B%(X.Y).95|
00000630: A7 48 24 B2 48 24 AA 22 12 22 AA C7 28 42 25 28 |.H$.H$."."..(B%(|
00000640: 58 AA 59 29 29 AA 22 92 22 3A 89 31 36 30 30 00 |X.Y)).".":.1600.|
00000650: 5F 0E 36 06 48 24 B2 48 24 AA C7 28 33 32 29 00 |_.6.H$.H$..(32).|
00000660: 68 0E 40 06 99 48 24 3B 00 78 0E 4A 06 82 59 3A |h.@..H$;.x.J..Y:|
00000670: 99 3A 82 58 3A 99 3A 8E 00 9B 0E 54 06 8F 2A 2A |.:.X:.:....T..**|
00000680: 53 55 42 52 20 50 52 49 4E 54 20 50 47 20 31 20 |SUBR PRINT PG 1 |
00000690: 56 41 4E 20 41 25 2A 2A 2A 2A 2A 00 AA 0E 5E 06 |VAN A%*****...^.|
000006A0: 99 22 93 42 59 54 45 2B 22 3B 00 D8 0E 68 06 81 |.".BYTE+";...h..|
000006B0: 58 B2 30 A4 37 3A 42 24 B2 C9 28 28 22 20 20 20 |X.0.7:B$..((" |
000006C0: 20 22 AA C4 28 58 29 29 2C 34 29 3A 99 42 24 3B | "..(X)),4):.B$;|
000006D0: 3A 82 3A 99 22 13 11 22 00 FC 0E 72 06 81 58 B2 |:.:.".."...r..X.|
000006E0: 30 A4 31 32 37 A9 38 3A 42 24 B2 C9 28 28 22 20 |0.127.8:B$..((" |
000006F0: 20 20 22 AA C4 28 58 29 29 2C 33 29 00 0E 0F 7C | "..(X)),3)...||
00000700: 06 99 22 42 20 22 3B 42 24 3B 22 3A 22 3B 00 33 |.."B ";B$;":";.3|
00000710: 0F 86 06 81 59 B2 30 A4 37 3A 48 24 B2 C9 28 28 |....Y.0.7:H$..((|
00000720: 22 20 20 22 AA C4 28 41 25 28 58 AA 59 29 29 29 |" "..(A%(X.Y)))|
00000730: 2C 33 29 00 6D 0F 90 06 8B 41 25 28 58 AA 59 29 |,3).m....A%(X.Y)|
00000740: B1 33 34 AF 41 25 28 58 AA 59 29 B3 39 35 A7 48 |.34.A%(X.Y).95.H|
00000750: 24 B2 48 24 AA 22 12 22 AA C7 28 41 25 28 58 AA |$.H$."."..(A%(X.|
00000760: 59 29 29 AA 22 92 22 3A 89 31 37 30 30 00 7D 0F |Y)).".":.1700.}.|
00000770: 9A 06 48 24 B2 48 24 AA C7 28 33 32 29 00 86 0F |..H$.H$..(32)...|
00000780: A4 06 99 48 24 3B 00 96 0F AE 06 82 59 3A 99 3A |...H$;......Y:.:|
00000790: 82 58 3A 99 3A 8E 00 B5 0F B8 06 8F 20 20 20 53 |.X:.:....... S|
000007A0: 55 42 52 20 50 52 49 4E 54 20 50 47 20 32 20 56 |UBR PRINT PG 2 V|
000007B0: 41 4E 20 41 25 00 C4 0F C2 06 99 22 93 42 59 54 |AN A%......".BYT|
000007C0: 45 2B 22 3B 00 F2 0F CC 06 81 58 B2 30 A4 37 3A |E+";......X.0.7:|
000007D0: 42 24 B2 C9 28 28 22 20 20 20 20 22 AA C4 28 58 |B$..((" "..(X|
000007E0: 29 29 2C 34 29 3A 99 42 24 3B 3A 82 3A 99 22 13 |)),4):.B$;:.:.".|
000007F0: 11 22 00 18 10 D6 06 81 58 B2 31 32 38 A4 32 35 |."......X.128.25|
00000800: 35 A9 38 3A 42 24 B2 C9 28 28 22 20 20 20 22 AA |5.8:B$..((" ".|
00000810: C4 28 58 29 29 2C 33 29 00 2A 10 E0 06 99 22 42 |.(X)),3).*...."B|
00000820: 20 22 3B 42 24 3B 22 3A 22 3B 00 4F 10 EA 06 81 | ";B$;":";.O....|
00000830: 59 B2 30 A4 37 3A 48 24 B2 C9 28 28 22 20 20 22 |Y.0.7:H$..((" "|
00000840: AA C4 28 41 25 28 58 AA 59 29 29 29 2C 33 29 00 |..(A%(X.Y))),3).|
00000850: 89 10 F4 06 8B 41 25 28 58 AA 59 29 B1 33 34 AF |.....A%(X.Y).34.|
00000860: 41 25 28 58 AA 59 29 B3 39 35 A7 48 24 B2 48 24 |A%(X.Y).95.H$.H$|
00000870: AA 22 12 22 AA C7 28 41 25 28 58 AA 59 29 29 AA |."."..(A%(X.Y)).|
00000880: 22 92 22 3A 89 31 38 30 30 00 99 10 FE 06 48 24 |".":.1800.....H$|
00000890: B2 48 24 AA C7 28 33 32 29 00 A2 10 08 07 99 48 |.H$..(32)......H|
000008A0: 24 3B 00 B2 10 12 07 82 59 3A 99 3A 82 58 3A 99 |$;......Y:.:.X:.|
000008B0: 3A 8E 00 CF 10 1C 07 8F 20 20 20 53 55 42 52 20 |:....... SUBR |
000008C0: 47 45 54 20 31 20 43 48 41 52 41 43 54 45 52 00 |GET 1 CHARACTER.|
000008D0: E5 10 26 07 97 31 39 38 2C 30 3A 92 31 39 38 2C |..&..198,0:.198,|
000008E0: 31 3A A1 5A 24 00 EB 10 30 07 8E 00 0D 11 3A 07 |1:.Z$...0.....:.|
000008F0: 8F 20 20 20 53 55 42 52 20 56 52 41 41 47 20 54 |. SUBR VRAAG T|
00000900: 52 41 43 4B 20 26 20 53 45 43 54 4F 52 00 20 11 |RACK & SECTOR. .|
00000910: 44 07 8B 49 4E 24 B2 22 43 22 A7 20 31 39 38 32 |D..IN$."C". 1982|
00000920: 00 52 11 49 07 99 C8 28 50 4C 24 2C 31 30 29 3B |.R.I...(PL$,10);|
00000930: 57 53 24 3B C8 28 50 4C 24 2C 31 30 29 A6 35 29 |WS$;.(PL$,10).5)|
00000940: 3B 22 57 45 4C 4B 45 20 54 52 41 43 4B 3F 20 20 |;"WELKE TRACK? |
00000950: 22 3B 00 74 11 4E 07 8D 31 30 37 30 3A 54 B2 C5 |";.t.N..1070:T..|
00000960: 28 49 4E 24 29 3A 8B 54 B1 33 35 B0 54 B3 30 A7 |(IN$):.T.35.T.0.|
00000970: 31 38 36 30 00 82 11 58 07 8B 54 B2 30 A7 31 39 |1860...X..T.0.19|
00000980: 31 30 00 B6 11 62 07 99 C8 28 50 4C 24 2C 31 32 |10...b...(PL$,12|
00000990: 29 3B 57 53 24 3B C8 28 50 4C 24 2C 31 32 29 3B |);WS$;.(PL$,12);|
000009A0: A6 34 29 3B 22 57 45 4C 4B 45 20 53 45 43 54 4F |.4);"WELKE SECTO|
000009B0: 52 3F 20 20 22 3B 00 DA 11 6C 07 8D 31 30 37 30 |R? ";...l..1070|
000009C0: 3A 53 B2 C5 28 49 4E 24 29 3A 8D 31 39 32 30 3A |:S..(IN$):.1920:|
000009D0: 8B 53 46 B2 31 A7 31 38 39 30 00 FD 11 76 07 99 |.SF.1.1890...v..|
000009E0: C8 28 50 4C 24 2C 31 30 29 3B 57 53 24 3B C8 28 |.(PL$,10);WS$;.(|
000009F0: 50 4C 24 2C 31 32 29 3B 57 53 24 3A 8E 00 0C 12 |PL$,12);WS$:....|
00000A00: 80 07 8B 53 B3 31 37 A7 31 39 37 30 00 22 12 8A |...S.17.1970."..|
00000A10: 07 8B 53 B3 31 38 20 AF 20 54 B3 33 31 A7 31 39 |..S.18 . T.31.19|
00000A20: 37 30 00 47 12 94 07 8B 53 B3 32 30 AA 28 31 AC |70.G....S.20.(1.|
00000A30: 28 53 44 49 53 4B B2 34 29 29 20 AF 20 54 B3 32 |(SDISK.4)) . T.2|
00000A40: 35 20 A7 31 39 37 30 00 5E 12 9E 07 8B 53 B3 32 |5 .1970.^....S.2|
00000A50: 31 20 AF 20 54 B3 31 38 20 A7 31 39 37 30 00 6D |1 . T.18 .1970.m|
00000A60: 12 A8 07 53 46 B2 31 3A 89 31 39 38 30 00 76 12 |...SF.1:.1980.v.|
00000A70: B2 07 53 46 B2 30 00 7C 12 BC 07 8E 00 A1 12 BE |..SF.0.|........|
00000A80: 07 54 B2 C2 28 39 33 37 29 3A 53 B2 C2 28 39 33 |.T..(937):S..(93|
00000A90: 38 29 3A 8B 54 B3 31 B0 54 B1 33 35 A7 31 38 36 |8):.T.1.T.35.186|
00000AA0: 35 00 AB 12 C0 07 8D 31 39 32 30 00 BD 12 C2 07 |5......1920.....|
00000AB0: 8B 20 53 46 B2 31 20 A7 20 31 38 36 35 00 C7 12 |. SF.1 . 1865...|
00000AC0: C4 07 89 31 39 31 30 00 E7 12 C6 07 8F 20 20 20 |...1910...... |
00000AD0: 53 55 42 52 20 53 54 4F 50 20 4F 4E 48 45 52 53 |SUBR STOP ONHERS|
00000AE0: 54 2E 20 46 4F 55 54 00 04 13 D0 07 99 22 13 22 |T. FOUT......"."|
00000AF0: 3A 81 52 B2 31 A4 32 30 3A 99 57 53 24 3A 82 3A |:.R.1.20:.WS$:.:|
00000B00: 99 22 13 22 00 48 13 D5 07 8D 32 32 37 30 3A 99 |.".".H....2270:.|
00000B10: 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B |PL$;".";WS$;PL$;|
00000B20: 22 12 20 20 4F 4E 48 45 52 53 54 45 4C 42 41 52 |". ONHERSTELBAR|
00000B30: 45 20 46 4F 55 54 21 20 53 54 41 52 54 20 4D 45 |E FOUT! START ME|
00000B40: 54 20 43 4F 4E 54 13 22 00 4E 13 DA 07 90 00 5F |T CONT.".N....._|
00000B50: 13 E4 07 9C 3A 49 54 B2 31 3A 89 32 35 30 30 00 |....:IT.1:.2500.|
00000B60: 7C 13 EE 07 8F 20 20 20 53 55 42 52 20 56 45 52 ||.... SUBR VER|
00000B70: 41 4E 44 45 52 20 31 20 42 59 54 45 00 B5 13 F8 |ANDER 1 BYTE....|
00000B80: 07 58 48 B2 58 AA 28 31 32 38 AC 28 58 B1 31 32 |.XH.X.(128.(X.12|
00000B90: 37 29 29 3A 52 45 B2 33 AA B5 28 58 48 AD 38 29 |7)):RE.3..(XH.8)|
00000BA0: 3A 50 53 B2 36 AA 28 58 AD 38 AB B5 28 58 AD 38 |:PS.6.(X.8..(X.8|
00000BB0: 29 29 AC 33 32 00 DE 13 02 08 8B 41 25 28 58 29 |)).32......A%(X)|
00000BC0: B1 33 34 AF 41 25 28 58 29 B3 39 35 A7 48 24 B2 |.34.A%(X).95.H$.|
00000BD0: C7 28 41 25 28 58 29 29 3A 89 32 30 37 30 00 EB |.(A%(X)):.2070..|
00000BE0: 13 0C 08 48 24 B2 C7 28 33 32 29 00 12 14 16 08 |...H$..(32).....|
00000BF0: 42 24 B2 22 12 22 AA C9 28 28 22 20 20 22 AA C4 |B$."."..((" "..|
00000C00: 28 41 25 28 58 29 29 29 2C 33 29 AA 22 92 22 AA |(A%(X))),3).".".|
00000C10: 48 24 00 29 14 20 08 99 C8 28 50 4C 24 2C 52 45 |H$.). ...(PL$,RE|
00000C20: 29 3B A6 50 53 29 3B 42 24 00 48 14 2A 08 99 50 |);.PS);B$.H.*..P|
00000C30: 4C 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B 3A |L$;".";WS$;PL$;:|
00000C40: 58 48 24 B2 C4 28 58 29 00 6C 14 34 08 99 22 12 |XH$..(X).l.4..".|
00000C50: 20 42 59 54 45 22 3B 58 48 24 3B 22 20 4D 4F 45 | BYTE";XH$;" MOE|
00000C60: 54 20 57 4F 52 44 45 4E 3F 20 22 3B 00 8F 14 3E |T WORDEN? ";...>|
00000C70: 08 8D 31 30 37 30 3A 59 B2 C5 28 49 4E 24 29 3A |..1070:Y..(IN$):|
00000C80: 8B 59 B3 30 B0 59 B1 32 35 35 A7 32 30 39 30 00 |.Y.0.Y.255.2090.|
00000C90: 9B 14 48 08 41 25 28 58 29 B2 59 00 C4 14 52 08 |..H.A%(X).Y...R.|
00000CA0: 8B 41 25 28 58 29 B1 33 34 AF 41 25 28 58 29 B3 |.A%(X).34.A%(X).|
00000CB0: 39 36 A7 48 24 B2 C7 28 41 25 28 58 29 29 3A 89 |96.H$..(A%(X)):.|
00000CC0: 32 31 35 30 00 D1 14 5C 08 48 24 B2 C7 28 33 32 |2150...\.H$..(32|
00000CD0: 29 00 F9 14 66 08 42 24 B2 C9 28 28 22 20 20 20 |)...f.B$..((" |
00000CE0: 22 AA C4 28 41 25 28 58 29 29 29 2C 33 29 AA 22 |"..(A%(X))),3)."|
00000CF0: 12 22 AA 48 24 AA 22 92 22 00 10 15 70 08 99 C8 |.".H$."."...p...|
00000D00: 28 50 4C 24 2C 52 45 29 3B A6 50 53 29 3B 42 24 |(PL$,RE);.PS);B$|
00000D10: 00 16 15 7A 08 8E 00 39 15 84 08 8F 2A 2A 53 55 |...z...9....**SU|
00000D20: 42 52 20 49 4E 50 55 54 20 45 52 52 4F 52 43 48 |BR INPUT ERRORCH|
00000D30: 41 4E 4E 45 4C 2A 2A 2A 2A 00 51 15 8E 08 84 31 |ANNEL****.Q....1|
00000D40: 35 2C 45 31 24 2C 45 32 24 2C 45 33 24 2C 45 34 |5,E1$,E2$,E3$,E4|
00000D50: 24 00 7A 15 98 08 45 31 B2 C5 28 45 31 24 29 3A |$.z...E1..(E1$):|
00000D60: 8B 45 31 B3 32 30 A7 4F 4B B2 30 3A 99 50 4C 24 |.E1.20.OK.0:.PL$|
00000D70: 3B 57 53 24 3B 22 13 22 3A 8E 00 A5 15 A2 08 99 |;WS$;".":.......|
00000D80: 50 4C 24 3B 57 53 24 3B 50 4C 24 3B 22 46 4F 55 |PL$;WS$;PL$;"FOU|
00000D90: 54 20 4E 52 3A 20 12 22 3B 45 31 24 3B 22 2D 22 |T NR: .";E1$;"-"|
00000DA0: 3B 45 32 24 3B 00 D0 15 AC 08 8B 28 45 31 B1 31 |;E2$;......(E1.1|
00000DB0: 39 AF 45 31 B3 33 30 29 B0 45 31 B2 36 35 A7 99 |9.E1.30).E1.65..|
00000DC0: 22 2D 22 3B 45 33 24 3B 22 2C 22 3B 45 34 24 3B |"-";E3$;",";E4$;|
00000DD0: 00 D9 15 B6 08 99 22 13 22 00 EB 15 C0 08 98 31 |......"."......1|
00000DE0: 35 2C 22 49 30 22 3A 4F 4B B2 31 00 F1 15 CA 08 |5,"I0":OK.1.....|
00000DF0: 8E 00 07 16 D4 08 8F 20 20 20 20 20 20 53 55 42 |....... SUB|
00000E00: 52 20 54 49 54 45 4C 00 27 16 DE 08 97 35 33 32 |R TITEL.'....532|
00000E10: 38 30 2C 31 31 3A 97 35 33 32 38 31 2C 31 31 3A |80,11:.53281,11:|
00000E20: 97 36 34 36 2C 31 33 00 58 16 E3 08 99 22 13 20 |.646,13.X....". |
00000E30: 12 20 50 52 4F 47 52 41 4D 4D 41 20 52 45 41 44 |. PROGRAMMA READ|
00000E40: 2D 28 43 48 41 4E 47 45 29 2D 57 52 49 54 45 20 |-(CHANGE)-WRITE |
00000E50: 42 4C 4F 43 4B 20 92 22 00 5E 16 E8 08 8E 00 78 |BLOCK .".^.....x|
00000E60: 16 F2 08 8F 20 20 20 20 53 55 42 52 20 49 4E 53 |.... SUBR INS|
00000E70: 54 52 55 43 54 49 45 53 00 94 16 FC 08 99 C8 28 |TRUCTIES.......(|
00000E80: 50 4C 24 2C 34 29 3B A6 34 29 3B 22 55 20 4B 55 |PL$,4);.4);"U KU|
00000E90: 4E 54 3A 22 00 C4 16 06 09 99 22 11 20 20 12 31 |NT:"......". .1|
00000EA0: 92 20 53 45 43 54 4F 52 45 4E 20 28 42 4C 4F 43 |. SECTOREN (BLOC|
00000EB0: 4B 53 29 20 56 41 4E 20 44 45 20 44 49 53 4B 45 |KS) VAN DE DISKE|
00000EC0: 54 54 45 22 00 E2 16 10 09 99 A6 34 29 22 49 4E |TTE".......4)"IN|
00000ED0: 20 44 52 49 56 45 20 30 20 49 4E 4C 45 5A 45 4E | DRIVE 0 INLEZEN|
00000EE0: 2E 22 00 13 17 1A 09 99 22 11 20 20 12 32 92 20 |."......". .2. |
00000EF0: 42 59 54 45 53 20 49 4E 20 44 45 5A 45 20 53 45 |BYTES IN DEZE SE|
00000F00: 43 54 4F 52 45 4E 20 56 45 52 41 4E 44 45 52 45 |CTOREN VERANDERE|
00000F10: 4E 2E 22 00 42 17 24 09 99 22 11 20 20 12 33 92 |N.".B.$..". .3.|
00000F20: 20 44 45 20 4E 49 45 55 57 45 20 4F 46 20 4F 55 | DE NIEUWE OF OU|
00000F30: 44 45 20 49 4E 48 4F 55 44 20 56 41 4E 20 48 45 |DE INHOUD VAN HE|
00000F40: 54 22 00 6F 17 2E 09 99 A6 34 29 22 42 4C 4F 43 |T".o.....4)"BLOC|
00000F50: 4B 20 54 45 52 55 47 53 43 48 52 49 4A 56 45 4E |K TERUGSCHRIJVEN|
00000F60: 20 4E 41 41 52 20 44 45 20 44 49 53 4B 2C 22 00 | NAAR DE DISK,".|
00000F70: 96 17 38 09 99 A6 34 29 22 49 4E 20 44 45 5A 45 |..8...4)"IN DEZE|
00000F80: 4C 46 44 45 20 53 45 43 54 4F 52 20 4F 46 20 49 |LFDE SECTOR OF I|
00000F90: 4E 20 45 45 4E 22 00 AF 17 42 09 99 A6 34 29 22 |N EEN"...B...4)"|
00000FA0: 41 4E 44 45 52 45 20 53 45 43 54 4F 52 2E 22 00 |ANDERE SECTOR.".|
00000FB0: DF 17 4C 09 99 22 11 20 20 12 34 92 20 50 52 4F |..L..". .4. PRO|
00000FC0: 47 52 41 4D 4D 41 20 53 54 4F 50 54 20 41 4C 53 |GRAMMA STOPT ALS|
00000FD0: 20 54 52 41 43 4B 20 30 20 57 4F 52 44 54 22 00 | TRACK 0 WORDT".|
00000FE0: F3 17 56 09 99 A6 34 29 22 47 45 56 52 41 41 47 |..V...4)"GEVRAAG|
00000FF0: 44 2E 22 00 20 18 60 09 99 22 11 20 20 4E 2E 42 |D.". .`..". N.B|
00001000: 2E 20 41 4C 4C 45 45 4E 20 44 45 20 44 49 53 4B |. ALLEEN DE DISK|
00001010: 45 54 54 45 20 49 4E 20 44 52 49 56 45 20 30 22 |ETTE IN DRIVE 0"|
00001020: 00 3D 18 6A 09 99 22 20 20 57 4F 52 44 54 20 41 |.=.j.." WORDT A|
00001030: 41 4E 47 45 53 50 52 4F 4B 45 4E 21 22 00 70 18 |ANGESPROKEN!".p.|
00001040: 74 09 99 50 4C 24 3B 22 20 12 20 20 28 43 29 44 |t..PL$;" . (C)D|
00001050: 45 43 20 31 39 38 31 20 20 20 57 2E 41 2E 41 2E |EC 1981 W.A.A.|
00001060: 20 56 41 4E 20 5A 55 4E 44 45 52 54 20 20 92 22 | VAN ZUNDERT ."|
00001070: 00 9A 18 7E 09 99 C8 28 50 4C 24 2C 32 32 29 3B |...~...(PL$,22);|
00001080: A6 38 29 22 12 20 53 4C 41 20 45 45 4E 20 54 4F |.8)". SLA EEN TO|
00001090: 45 54 53 20 41 41 4E 20 92 22 00 A4 18 88 09 8D |ETS AAN ."......|
000010A0: 31 38 33 30 00 AF 18 92 09 49 54 B2 31 3A 8E 00 |1830.....IT.1:..|
000010B0: CF 18 9C 09 8F 20 20 53 55 42 52 20 50 52 49 4E |..... SUBR PRIN|
000010C0: 54 20 56 4F 4F 52 42 45 52 45 49 44 49 4E 47 00 |T VOORBEREIDING.|
000010D0: ED 18 A6 09 99 C8 28 50 4C 24 2C 52 47 29 3B 57 |......(PL$,RG);W|
000010E0: 53 24 3B C8 28 50 4C 24 2C 52 47 29 3B 00 F3 18 |S$;.(PL$,RG);...|
000010F0: B0 09 8E 00 26 19 C4 09 8D 31 30 32 30 3A 99 22 |....&....1020:."|
00001100: 93 22 3B C7 28 31 34 32 29 3A 8F 20 20 20 20 20 |.";.(142):. |
00001110: 20 20 20 20 20 20 20 20 48 4F 4F 46 44 50 52 4F | HOOFDPRO|
00001120: 47 52 41 4D 4D 41 00 3D 19 CE 09 8D 32 32 37 30 |GRAMMA.=....2270|
00001130: 3A 8B 49 54 B2 30 A7 20 8D 32 33 30 30 00 7C 19 |:.IT.0. .2300.|.|
00001140: D8 09 99 22 93 22 3A 8D 32 32 37 30 3A 52 47 B2 |...".":.2270:RG.|
00001150: 31 30 3A 8D 32 34 37 30 3A 99 22 20 20 50 4C 41 |10:.2470:." PLA|
00001160: 41 54 53 20 44 45 20 44 49 53 4B 45 54 54 45 20 |ATS DE DISKETTE |
00001170: 49 4E 20 44 52 49 56 45 20 30 2E 22 00 A8 19 E2 |IN DRIVE 0."....|
00001180: 09 52 47 B2 31 32 3A 8D 32 34 37 30 3A 99 A6 31 |.RG.12:.2470:..1|
00001190: 30 29 22 12 20 4B 4C 41 41 52 20 3F 20 28 4A 2F |0)". KLAAR ? (J/|
000011A0: 4E 29 20 92 20 20 22 3B 00 CD 19 EC 09 8D 31 30 |N) . ";......10|
000011B0: 37 30 3A 8B 49 4E 24 B2 22 22 B0 C8 28 49 4E 24 |70:.IN$.""..(IN$|
000011C0: 2C 31 29 B3 B1 22 4A 22 A7 32 35 33 30 00 EE 19 |,1).."J".2530...|
000011D0: F6 09 99 C8 28 50 4C 24 2C 31 30 29 3B 57 53 24 |....(PL$,10);WS$|
000011E0: 3B C8 28 50 4C 24 2C 31 32 29 3B 57 53 24 00 29 |;.(PL$,12);WS$.)|
000011F0: 1A 00 0A 99 C8 28 50 4C 24 2C 32 29 3B 22 20 12 |.....(PL$,2);" .|
00001200: 44 52 49 56 45 20 30 20 3D 22 3A 9F 31 35 2C 38 |DRIVE 0 =":.15,8|
00001210: 2C 31 35 2C 22 49 30 22 3A 8D 32 31 39 30 3A 8B |,15,"I0":.2190:.|
00001220: 4F 4B B2 30 A7 32 36 37 30 00 5D 1A 0A 0A 99 C8 |OK.0.2670.].....|
00001230: 28 50 4C 24 2C 32 29 3B A6 31 30 29 3B 22 12 20 |(PL$,2);.10);". |
00001240: 4E 20 4F 20 54 20 20 20 52 20 45 20 41 20 44 20 |N O T R E A D |
00001250: 59 20 21 20 20 20 20 20 20 20 20 92 22 00 93 1A |Y ! ."...|
00001260: 14 0A 52 47 B2 31 30 3A 8D 32 34 37 30 3A 99 A6 |..RG.10:.2470:..|
00001270: 32 29 3B 22 5A 49 54 20 49 4E 20 44 52 49 56 45 |2);"ZIT IN DRIVE|
00001280: 20 30 20 45 45 4E 20 44 49 53 4B 45 54 54 45 3F | 0 EEN DISKETTE?|
00001290: 20 22 3B 00 B8 1A 1E 0A 8D 31 30 37 30 3A 8B 49 | ";......1070:.I|
000012A0: 4E 24 B2 22 22 B0 20 C8 28 49 4E 24 2C 31 29 B2 |N$."". .(IN$,1).|
000012B0: 22 4A 22 A7 32 36 31 30 00 C6 1A 28 0A A0 31 35 |"J".2610...(..15|
000012C0: 3A 89 32 35 31 30 00 F9 1A 32 0A 8D 32 34 37 30 |:.2510...2..2470|
000012D0: 3A 99 22 44 52 49 56 45 20 4B 41 4E 20 44 49 52 |:."DRIVE KAN DIR|
000012E0: 45 43 54 4F 52 59 20 53 50 4F 4F 52 20 4E 49 45 |ECTORY SPOOR NIE|
000012F0: 54 20 4C 45 5A 45 4E 21 22 00 1E 1B 3C 0A 52 47 |T LEZEN!"...<.RG|
00001300: B2 31 32 3A 8D 32 34 37 30 3A 99 22 20 20 20 56 |.12:.2470:." V|
00001310: 45 52 44 45 52 20 47 41 41 4E 3F 20 22 3B 00 42 |ERDER GAAN? ";.B|
00001320: 1B 46 0A 8D 31 30 37 30 3A 8B 49 4E 24 B2 22 22 |.F..1070:.IN$.""|
00001330: B0 C8 28 49 4E 24 2C 31 29 B2 22 4A 22 A7 32 36 |..(IN$,1)."J".26|
00001340: 37 30 00 4A 1B 50 0A A0 31 35 00 85 1B 5A 0A 99 |70.J.P..15...Z..|
00001350: 50 4C 24 3B 57 53 24 3B 50 4C 24 3B 22 20 12 20 |PL$;WS$;PL$;" . |
00001360: 56 45 52 56 4F 4C 47 20 45 56 45 4E 54 55 45 45 |VERVOLG EVENTUEE|
00001370: 4C 20 4D 45 54 20 27 43 4F 4E 54 27 20 20 20 20 |L MET 'CONT' |
00001380: 20 20 20 92 22 00 8F 1B 64 0A 89 32 30 30 30 00 | ."...d..2000.|
00001390: A6 1B 6E 0A 81 52 47 B2 33 A4 32 33 3A 8D 32 34 |..n..RG.3.23:.24|
000013A0: 37 30 3A 99 3A 82 00 E1 1B 78 0A 8B 20 4F 4B B2 |70:.:....x.. OK.|
000013B0: 31 A7 99 50 4C 24 3B 22 20 12 20 20 20 20 44 49 |1..PL$;" . DI|
000013C0: 53 4B 45 54 54 45 20 4E 49 45 54 20 54 45 20 49 |SKETTE NIET TE I|
000013D0: 4E 54 49 41 4C 49 53 45 52 45 4E 21 20 20 20 92 |NTIALISEREN! .|
000013E0: 22 00 EF 1B 82 0A 5A 54 B2 54 49 AA 31 35 30 00 |".....ZT.TI.150.|
000013F0: 00 1C 8C 0A 8B 54 49 B3 B2 5A 54 A7 32 37 30 30 |.....TI..ZT.2700|
00001400: 00 1C 1C 96 0A 54 B2 31 38 3A 53 B2 30 3A 8D 31 |.....T.18:S.0:.1|
00001410: 32 31 30 3A 44 30 24 B2 22 12 20 22 00 51 1C A0 |210:D0$.". ".Q..|
00001420: 0A 8B 4F 4B B2 31 A7 44 30 24 B2 22 12 20 3F 3F |..OK.1.D0$.". ??|
00001430: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F |????????????????|
00001440: 3F 3F 3F 3F 3F 3F 3F 3F 3F 92 22 3A 89 32 37 39 |?????????.":.279|
00001450: 30 00 60 1C AA 0A 81 58 B2 31 34 33 A4 31 37 30 |0.`....X.143.170|
00001460: 00 8F 1C B4 0A 8B 58 B2 31 36 35 A7 53 44 49 53 |......X.165.SDIS|
00001470: 4B B2 34 3A 8B 41 25 28 32 29 B3 B1 36 35 A7 41 |K.4:.A%(2)..65.A|
00001480: 25 28 58 29 B2 34 39 3A 53 44 49 53 4B B2 33 00 |%(X).49:SDISK.3.|
00001490: A4 1C BE 0A 44 30 24 B2 44 30 24 AA C7 28 41 25 |....D0$.D0$..(A%|
000014A0: 28 58 29 29 00 AB 1C C8 0A 82 58 00 CF 1C D2 0A |(X))......X.....|
000014B0: 8B C3 28 44 30 24 29 B3 33 30 A7 44 30 24 B2 44 |..(D0$).30.D0$.D|
000014C0: 30 24 AA C7 28 31 36 30 29 3A 89 32 37 37 30 00 |0$..(160):.2770.|
000014D0: DF 1C DC 0A 44 30 24 B2 44 30 24 AA 22 92 22 00 |....D0$.D0$.".".|
000014E0: 05 1D E6 0A 99 C8 28 50 4C 24 2C 32 29 3B 22 20 |......(PL$,2);" |
000014F0: 12 44 52 49 56 45 20 30 20 3D 92 22 3B 44 30 24 |.DRIVE 0 =.";D0$|
00001500: 3A 50 47 B2 30 00 12 1D F0 0A 81 49 B2 30 A4 32 |:PG.0......I.0.2|
00001510: 35 35 00 28 1D FA 0A 41 25 28 49 29 B2 30 3A 42 |55.(...A%(I).0:B|
00001520: 25 28 49 29 B2 30 3A 82 00 39 1D 04 0B 99 50 4C |%(I).0:..9....PL|
00001530: 24 3B 57 53 24 3B 22 13 22 00 43 1D 0E 0B 8D 31 |$;WS$;".".C....1|
00001540: 38 36 30 00 76 1D 18 0B 8B 54 B2 30 A7 A0 31 35 |860.v....T.0..15|
00001550: 3A 99 22 93 22 3A 8D 32 32 37 30 3A 99 A6 31 35 |:.".":.2270:..15|
00001560: 29 3B 22 12 20 45 49 4E 44 45 20 92 22 3A 99 22 |);". EINDE .":."|
00001570: 11 11 11 22 3A 80 00 80 1D 22 0B 8D 31 32 31 30 |...":...."..1210|
00001580: 00 8F 1D 2C 0B 8B 4F 4B B2 30 A7 32 39 34 30 00 |...,..OK.0.2940.|
00001590: B5 1D 36 0B 52 47 B2 31 32 3A 8D 32 34 37 30 3A |..6.RG.12:.2470:|
000015A0: 99 A6 31 32 29 22 12 20 49 4E 4C 45 45 53 46 4F |..12)". INLEESFO|
000015B0: 55 54 2E 92 22 00 EF 1D 40 0B 52 47 B2 31 34 3A |UT.."...@.RG.14:|
000015C0: 8D 32 34 37 30 3A 99 22 20 49 4E 48 4F 55 44 20 |.2470:." INHOUD |
000015D0: 12 54 92 4F 4E 45 4E 20 4F 46 20 12 4F 92 50 4E |.T.ONEN OF .O.PN|
000015E0: 49 45 55 57 20 42 45 47 49 4E 4E 45 4E 3F 22 00 |IEUW BEGINNEN?".|
000015F0: 19 1E 4A 0B 52 47 B2 31 36 3A 8D 32 34 37 30 3A |..J.RG.16:.2470:|
00001600: 99 A6 31 32 29 3B 3A 8D 31 30 37 30 3A 8B 49 4E |..12);:.1070:.IN|
00001610: 24 B2 22 22 A7 32 38 39 30 00 30 1E 54 0B 8B C8 |$."".2890.0.T...|
00001620: 28 49 4E 24 2C 31 29 B2 22 54 22 89 32 39 34 30 |(IN$,1)."T".2940|
00001630: 00 47 1E 5E 0B 8B C8 28 49 4E 24 2C 31 29 B2 22 |.G.^...(IN$,1)."|
00001640: 4F 22 89 32 39 33 30 00 51 1E 68 0B 89 32 38 39 |O".2930.Q.h..289|
00001650: 30 00 66 1E 72 0B 99 22 93 22 3A 8D 32 32 37 30 |0.f.r..".":.2270|
00001660: 3A 89 32 37 39 30 00 81 1E 7C 0B 8B 50 47 B2 30 |:.2790...|..PG.0|
00001670: A7 50 47 B2 31 3A 8D 31 36 33 30 3A 89 32 39 37 |.PG.1:.1630:.297|
00001680: 30 00 9C 1E 86 0B 8B 50 47 B2 31 A7 50 47 B2 32 |0......PG.1.PG.2|
00001690: 3A 8D 31 37 33 30 3A 89 32 39 37 30 00 AB 1E 90 |:.1730:.2970....|
000016A0: 0B 50 47 B2 31 3A 8D 31 36 33 30 00 E9 1E 9A 0B |.PG.1:.1630.....|
000016B0: 52 47 B2 32 30 3A 8D 32 34 37 30 3A 99 22 20 12 |RG.20:.2470:." .|
000016C0: 50 92 3D 20 41 4E 44 45 52 45 20 50 41 47 49 4E |P.= ANDERE PAGIN|
000016D0: 41 20 DD 20 12 56 92 3D 20 42 59 54 45 20 56 45 |A . .V.= BYTE VE|
000016E0: 52 41 4E 44 45 52 45 4E 22 00 27 1F A4 0B 52 47 |RANDEREN".'...RG|
000016F0: B2 32 31 3A 8D 32 34 37 30 3A 99 22 20 12 53 92 |.21:.2470:." .S.|
00001700: 3D 20 53 43 48 52 49 4A 56 45 4E 20 42 4C 4B 20 |= SCHRIJVEN BLK |
00001710: DD 20 12 43 92 3D 20 56 4F 4C 47 45 4E 44 20 42 |. .C.= VOLGEND B|
00001720: 4C 4F 43 4B 20 20 22 00 61 1F AE 0B 54 24 B2 22 |LOCK ".a...T$."|
00001730: 20 20 20 20 54 52 41 43 4B 20 3D 22 AA C9 28 28 | TRACK ="..((|
00001740: 22 20 20 22 AA C4 28 54 29 29 2C 33 29 AA 22 20 |" "..(T)),3)." |
00001750: 20 20 20 DD 20 20 20 20 53 45 43 54 4F 52 20 3D | . SECTOR =|
00001760: 22 00 80 1F B8 0B 54 24 B2 54 24 AA C9 28 28 22 |".....T$.T$..(("|
00001770: 20 20 22 AA C4 28 53 29 29 2C 33 29 3A 99 54 24 | "..(S)),3):.T$|
00001780: 00 AD 1F C2 0B 99 50 4C 24 3B 22 12 22 3B 57 53 |......PL$;".";WS|
00001790: 24 3B 50 4C 24 3B A6 31 30 29 22 12 20 4B 45 55 |$;PL$;.10)". KEU|
000017A0: 5A 45 20 3D 20 22 3B 3A 8D 31 30 37 30 00 C8 1F |ZE = ";:.1070...|
000017B0: CC 0B 8B C3 28 49 4E 24 29 B1 31 A7 49 4E 24 B2 |....(IN$).1.IN$.|
000017C0: C8 28 49 4E 24 2C 31 29 00 DB 1F D6 0B 8B 49 4E |.(IN$,1)......IN|
000017D0: 24 B2 22 50 22 20 89 32 39 34 30 00 EE 1F E0 0B |$."P" .2940.....|
000017E0: 8B 49 4E 24 B2 22 56 22 20 89 33 30 38 30 00 01 |.IN$."V" .3080..|
000017F0: 20 EA 0B 8B 49 4E 24 B2 22 53 22 20 89 33 31 39 | ...IN$."S" .319|
00001800: 30 00 14 20 F4 0B 8B 49 4E 24 B2 22 43 22 20 89 |0.. ...IN$."C" .|
00001810: 32 39 33 30 00 27 20 F9 0B 8B 49 4E 24 B2 22 22 |2930.' ...IN$.""|
00001820: 20 20 89 32 39 33 30 00 31 20 FE 0B 89 33 30 31 | .2930.1 ...301|
00001830: 30 00 62 20 08 0C 81 52 47 B2 32 30 A4 32 33 3A |0.b ...RG.20.23:|
00001840: 8D 32 34 37 30 3A 82 3A 8F A0 20 20 20 20 20 20 |.2470:.:.. |
00001850: 20 20 20 42 59 54 45 20 56 45 52 41 4E 44 45 52 | BYTE VERANDER|
00001860: 45 4E 00 8A 20 12 0C 52 47 B2 32 30 3A 8D 32 34 |EN.. ..RG.20:.24|
00001870: 37 30 3A 99 22 20 12 50 92 3D 20 41 4E 44 45 52 |70:." .P.= ANDER|
00001880: 45 20 50 41 47 49 4E 41 20 22 00 BC 20 1C 0C 99 |E PAGINA ".. ...|
00001890: 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B |PL$;".";WS$;PL$;|
000018A0: 22 12 20 57 45 4C 4B 45 20 42 59 54 45 20 56 45 |". WELKE BYTE VE|
000018B0: 52 41 4E 44 45 52 45 4E 3F 20 22 3B 00 C6 20 26 |RANDEREN? ";.. &|
000018C0: 0C 8D 31 30 37 30 00 D9 20 30 0C 8B 49 4E 24 B3 |..1070.. 0..IN$.|
000018D0: B1 22 50 22 A7 33 31 35 30 00 F4 20 3A 0C 8B 50 |."P".3150.. :..P|
000018E0: 47 B2 31 A7 50 47 B2 32 3A 8D 31 37 33 30 3A 89 |G.1.PG.2:.1730:.|
000018F0: 33 30 38 30 00 0F 21 44 0C 8B 50 47 B2 32 A7 50 |3080..!D..PG.2.P|
00001900: 47 B2 31 3A 8D 31 36 33 30 3A 89 33 30 38 30 00 |G.1:.1630:.3080.|
00001910: 33 21 4E 0C 58 B2 C5 28 49 4E 24 29 3A 8B 50 47 |3!N.X..(IN$):.PG|
00001920: B2 31 AF 28 58 B3 30 B0 58 B1 31 32 37 29 A7 33 |.1.(X.0.X.127).3|
00001930: 31 30 30 00 50 21 58 0C 8B 50 47 B2 32 AF 28 58 |100.P!X..PG.2.(X|
00001940: B3 31 32 38 B0 58 B1 32 35 35 29 A7 33 31 30 30 |.128.X.255).3100|
00001950: 00 5A 21 62 0C 8D 32 30 34 30 00 64 21 6C 0C 89 |.Z!b..2040.d!l..|
00001960: 32 39 37 30 00 98 21 76 0C 81 52 47 B2 32 30 A4 |2970..!v..RG.20.|
00001970: 32 33 3A 8D 32 34 37 30 3A 82 3A 8F 20 20 20 20 |23:.2470:.:. |
00001980: 20 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 20 53 | BLOCK S|
00001990: 43 48 52 49 4A 56 45 4E 00 D2 21 80 0C 54 24 B2 |CHRIJVEN..!..T$.|
000019A0: 22 20 20 20 20 54 52 41 43 4B 20 3D 22 AA C9 28 |" TRACK ="..(|
000019B0: 28 22 20 20 22 AA C4 28 54 29 29 2C 33 29 AA 22 |(" "..(T)),3)."|
000019C0: 20 20 20 20 DD 20 20 20 20 53 45 43 54 4F 52 20 | . SECTOR |
000019D0: 3D 22 00 FD 21 8A 0C 54 24 B2 54 24 AA C9 28 28 |="..!..T$.T$..((|
000019E0: 22 20 20 22 AA C4 28 53 29 29 2C 33 29 3A 52 47 |" "..(S)),3):RG|
000019F0: B2 32 32 3A 8D 32 34 37 30 3A 99 54 24 00 39 22 |.22:.2470:.T$.9"|
00001A00: 94 0C 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 |...PL$;".";WS$;P|
00001A10: 4C 24 3B 22 12 20 20 20 4E 41 41 52 20 44 45 5A |L$;". NAAR DEZ|
00001A20: 45 4C 46 44 45 20 54 52 41 43 4B 20 45 4E 20 53 |ELFDE TRACK EN S|
00001A30: 45 43 54 4F 52 3F 20 22 3B 00 50 22 9E 0C 8D 31 |ECTOR? ";.P"...1|
00001A40: 30 37 30 3A 8B 49 4E 24 B2 22 22 A7 33 32 32 30 |070:.IN$."".3220|
00001A50: 00 67 22 A8 0C 8B C8 28 49 4E 24 2C 31 29 B2 22 |.g"....(IN$,1)."|
00001A60: 4A 22 A7 33 33 39 30 00 7F 22 B2 0C 8B C8 28 49 |J".3390.."....(I|
00001A70: 4E 24 2C 31 29 B3 B1 22 4E 22 A7 33 32 32 30 00 |N$,1).."N".3220.|
00001A80: AC 22 BC 0C 99 50 4C 24 3B 22 12 22 3B 57 53 24 |."...PL$;".";WS$|
00001A90: 3B 50 4C 24 3B 22 12 20 4E 41 41 52 20 57 45 4C |;PL$;". NAAR WEL|
00001AA0: 4B 45 20 54 52 41 43 4B 3F 20 22 3B 00 C3 22 C6 |KE TRACK? ";..".|
00001AB0: 0C 8D 31 30 37 30 3A 8B 49 4E 24 B2 22 22 A7 33 |..1070:.IN$."".3|
00001AC0: 32 36 30 00 E2 22 D0 0C 54 4E B2 C5 28 49 4E 24 |260.."..TN..(IN$|
00001AD0: 29 3A 8B 54 4E B3 31 B0 54 4E B1 33 35 A7 33 32 |):.TN.1.TN.35.32|
00001AE0: 36 30 00 EB 22 DA 0C 54 B2 54 4E 00 1C 23 E4 0C |60.."..T.TN..#..|
00001AF0: 99 50 4C 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 |.PL$;".";WS$;PL$|
00001B00: 3B 22 12 20 45 4E 20 4E 41 41 52 20 57 45 4C 4B |;". EN NAAR WELK|
00001B10: 45 20 53 45 43 54 4F 52 3F 20 22 3B 00 33 23 EE |E SECTOR? ";.3#.|
00001B20: 0C 8D 31 30 37 30 3A 8B 49 4E 24 B2 22 22 A7 33 |..1070:.IN$."".3|
00001B30: 33 30 30 00 4B 23 F8 0C 53 4E B2 53 3A 53 B2 C5 |300.K#..SN.S:S..|
00001B40: 28 49 4E 24 29 3A 8D 31 39 32 30 00 60 23 02 0D |(IN$):.1920.`#..|
00001B50: 8B 53 46 B2 31 A7 53 B2 53 4E 3A 89 33 33 30 30 |.SF.1.S.SN:.3300|
00001B60: 00 9A 23 0C 0D 54 24 B2 22 20 20 20 20 54 52 41 |..#..T$." TRA|
00001B70: 43 4B 20 3D 22 AA C9 28 28 22 20 20 22 AA C4 28 |CK ="..((" "..(|
00001B80: 54 29 29 2C 33 29 AA 22 20 20 20 20 DD 20 20 20 |T)),3)." . |
00001B90: 20 53 45 43 54 4F 52 20 3D 22 00 C5 23 16 0D 54 | SECTOR ="..#..T|
00001BA0: 24 B2 54 24 AA C9 28 28 22 20 20 22 AA C4 28 53 |$.T$..((" "..(S|
00001BB0: 29 29 2C 33 29 3A 52 47 B2 32 32 3A 8D 32 34 37 |)),3):RG.22:.247|
00001BC0: 30 3A 99 54 24 00 FF 23 20 0D 99 50 4C 24 3B 22 |0:.T$..# ..PL$;"|
00001BD0: 12 22 3B 57 53 24 3B 50 4C 24 3B A6 31 32 29 22 |.";WS$;PL$;.12)"|
00001BE0: 12 43 4F 52 52 45 43 54 3F 20 22 3B 3A 8D 31 30 |.CORRECT? ";:.10|
00001BF0: 37 30 3A 8B 49 4E 24 B2 22 22 A7 33 33 36 30 00 |70:.IN$."".3360.|
00001C00: 16 24 2A 0D 8B C8 28 49 4E 24 2C 31 29 B2 22 4A |.$*...(IN$,1)."J|
00001C10: 22 A7 33 33 39 30 00 20 24 34 0D 89 33 32 36 30 |".3390. $4..3260|
00001C20: 00 47 24 3E 0D 99 50 4C 24 3B 22 12 22 3B 57 53 |.G$>..PL$;".";WS|
00001C30: 24 3B 50 4C 24 3B A6 31 32 29 22 12 50 52 4F 43 |$;PL$;.12)".PROC|
00001C40: 45 53 53 49 4E 47 22 00 62 24 48 0D 81 58 B2 30 |ESSING".b$H..X.0|
00001C50: A4 32 35 35 3A 42 25 28 58 29 B2 41 25 28 58 29 |.255:B%(X).A%(X)|
00001C60: 3A 82 00 6C 24 52 0D 8D 31 33 32 30 00 84 24 5C |:..l$R..1320..$\|
00001C70: 0D 84 31 35 2C 45 31 24 2C 45 32 24 2C 45 33 24 |..15,E1$,E2$,E3$|
00001C80: 2C 45 34 24 00 A8 24 66 0D 45 31 24 B2 45 31 24 |,E4$..$f.E1$.E1$|
00001C90: AA 22 2C 22 AA 45 32 24 AA 22 2C 22 AA 45 33 24 |.",".E2$.",".E3$|
00001CA0: AA 22 2C 22 AA 45 34 24 00 CA 24 70 0D 99 50 4C |.",".E4$..$p..PL|
00001CB0: 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B A6 31 |$;".";WS$;PL$;.1|
00001CC0: 32 29 3B 22 12 22 3B 45 31 24 00 DA 24 7A 0D 81 |2);".";E1$..$z..|
00001CD0: 49 B2 30 A4 31 30 30 30 3A 82 00 E9 24 84 0D 99 |I.0.1000:...$...|
00001CE0: 22 93 22 3A 8D 32 32 37 30 00 0F 25 8E 0D 99 C8 |".":.2270..%....|
00001CF0: 28 50 4C 24 2C 32 29 3B 22 20 12 44 52 49 56 45 |(PL$,2);" .DRIVE|
00001D00: 20 30 20 3D 92 22 3B 44 30 24 3A 50 47 B2 30 00 | 0 =.";D0$:PG.0.|
00001D10: 2A 25 98 0D 52 47 B2 35 3A 8D 32 34 37 30 3A 99 |*%..RG.5:.2470:.|
00001D20: 22 20 20 57 49 4C 54 20 55 3A 00 60 25 A2 0D 52 |" WILT U:.`%..R|
00001D30: 47 B2 37 3A 8D 32 34 37 30 3A 99 22 20 20 12 31 |G.7:.2470:." .1|
00001D40: 92 20 48 45 54 20 57 45 47 47 45 53 43 48 52 45 |. HET WEGGESCHRE|
00001D50: 56 45 4E 20 42 4C 4F 43 4B 20 5A 49 45 4E 2C 22 |VEN BLOCK ZIEN,"|
00001D60: 00 98 25 AC 0D 52 47 B2 39 3A 8D 32 34 37 30 3A |..%..RG.9:.2470:|
00001D70: 99 22 20 20 12 32 92 20 48 45 54 20 4F 4F 52 53 |." .2. HET OORS|
00001D80: 50 52 4F 4E 4B 45 4C 49 4A 4B 45 20 42 4C 4F 43 |PRONKELIJKE BLOC|
00001D90: 4B 20 5A 49 45 4E 2C 22 00 D2 25 B6 0D 52 47 B2 |K ZIEN,"..%..RG.|
00001DA0: 31 31 3A 8D 32 34 37 30 3A 99 22 20 20 12 33 92 |11:.2470:." .3.|
00001DB0: 20 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 4F | HET PROGRAMMA O|
00001DC0: 50 4E 49 45 55 57 20 53 54 41 52 54 45 4E 20 4F |PNIEUW STARTEN O|
00001DD0: 46 22 00 F5 25 C0 0D 52 47 B2 31 33 3A 8D 32 34 |F"..%..RG.13:.24|
00001DE0: 37 30 3A 99 22 20 20 12 34 92 20 53 54 4F 50 50 |70:." .4. STOPP|
00001DF0: 45 4E 20 3F 22 00 22 26 CA 0D 99 50 4C 24 3B 22 |EN ?"."&...PL$;"|
00001E00: 12 22 3B 57 53 24 3B 50 4C 24 3B A6 31 32 29 3B |.";WS$;PL$;.12);|
00001E10: 22 12 4B 45 55 5A 45 20 3D 20 22 3B 3A 8D 31 30 |".KEUZE = ";:.10|
00001E20: 37 30 00 40 26 D4 0D 49 4E B2 C5 28 49 4E 24 29 |70.@&..IN..(IN$)|
00001E30: 3A 8B 49 4E B3 31 B0 49 4E B1 34 A7 33 35 33 30 |:.IN.1.IN.4.3530|
00001E40: 00 5F 26 DE 0D 91 20 49 4E 20 89 20 33 35 39 30 |._&... IN . 3590|
00001E50: 2C 33 37 39 30 2C 33 35 36 30 2C 33 35 38 30 00 |,3790,3560,3580.|
00001E60: 6E 26 E8 0D 99 22 93 22 3A 8D 32 32 37 30 00 78 |n&...".":.2270.x|
00001E70: 26 F2 0D 89 32 37 39 30 00 86 26 FC 0D 54 B2 30 |&...2790..&..T.0|
00001E80: 3A 89 32 38 34 30 00 A6 26 06 0E 8D 31 32 31 30 |:.2840..&...1210|
00001E90: 3A 8F 20 20 20 43 4F 4E 54 52 4F 4C 45 20 4F 50 |:. CONTROLE OP|
00001EA0: 20 57 52 49 54 45 00 B5 26 10 0E 8B 4F 4B B2 30 | WRITE..&...OK.0|
00001EB0: A7 33 36 38 30 00 DB 26 1A 0E 52 47 B2 31 32 3A |.3680..&..RG.12:|
00001EC0: 8D 32 34 37 30 3A 99 A6 31 32 29 22 12 20 49 4E |.2470:..12)". IN|
00001ED0: 4C 45 45 53 46 4F 55 54 2E 92 22 00 15 27 24 0E |LEESFOUT.."..'$.|
00001EE0: 52 47 B2 31 34 3A 8D 32 34 37 30 3A 99 22 20 49 |RG.14:.2470:." I|
00001EF0: 4E 48 4F 55 44 20 12 54 92 4F 4E 45 4E 20 4F 46 |NHOUD .T.ONEN OF|
00001F00: 20 12 4F 92 50 4E 49 45 55 57 20 42 45 47 49 4E | .O.PNIEUW BEGIN|
00001F10: 4E 45 4E 3F 22 00 3F 27 2E 0E 52 47 B2 31 36 3A |NEN?".?'..RG.16:|
00001F20: 8D 32 34 37 30 3A 99 A6 31 32 29 3B 3A 8D 31 30 |.2470:..12);:.10|
00001F30: 37 30 3A 8B 49 4E 24 B2 22 22 A7 33 36 33 30 00 |70:.IN$."".3630.|
00001F40: 56 27 38 0E 8B C8 28 49 4E 24 2C 31 29 B2 22 54 |V'8...(IN$,1)."T|
00001F50: 22 89 33 36 38 30 00 6D 27 42 0E 8B C8 28 49 4E |".3680.m'B...(IN|
00001F60: 24 2C 31 29 B2 22 4F 22 89 33 36 37 30 00 77 27 |$,1)."O".3670.w'|
00001F70: 4C 0E 89 33 36 33 30 00 8C 27 56 0E 99 22 93 22 |L..3630..'V.."."|
00001F80: 3A 8D 32 32 37 30 3A 89 32 37 39 30 00 A7 27 60 |:.2270:.2790..'`|
00001F90: 0E 8B 50 47 B2 30 A7 50 47 B2 31 3A 8D 31 36 33 |..PG.0.PG.1:.163|
00001FA0: 30 3A 89 33 37 31 30 00 C2 27 6A 0E 8B 50 47 B2 |0:.3710..'j..PG.|
00001FB0: 31 A7 50 47 B2 32 3A 8D 31 37 33 30 3A 89 33 37 |1.PG.2:.1730:.37|
00001FC0: 31 30 00 D1 27 74 0E 50 47 B2 31 3A 8D 31 36 33 |10..'t.PG.1:.163|
00001FD0: 30 00 0F 28 7E 0E 52 47 B2 32 30 3A 8D 32 34 37 |0..(~.RG.20:.247|
00001FE0: 30 3A 99 22 20 12 50 92 3D 20 41 4E 44 45 52 45 |0:." .P.= ANDERE|
00001FF0: 20 50 41 47 49 4E 41 20 DD 20 12 43 92 3D 20 56 | PAGINA . .C.= V|
00002000: 45 52 56 4F 4C 47 20 50 52 4F 47 52 41 4D 22 00 |ERVOLG PROGRAM".|
00002010: 49 28 88 0E 54 24 B2 22 20 20 20 20 54 52 41 43 |I(..T$." TRAC|
00002020: 4B 20 3D 22 AA C9 28 28 22 20 20 22 AA C4 28 54 |K ="..((" "..(T|
00002030: 29 29 2C 33 29 AA 22 20 20 20 20 DD 20 20 20 20 |)),3)." . |
00002040: 53 45 43 54 4F 52 20 3D 22 00 68 28 92 0E 54 24 |SECTOR =".h(..T$|
00002050: B2 54 24 AA C9 28 28 22 20 20 22 AA C4 28 53 29 |.T$..((" "..(S)|
00002060: 29 2C 33 29 3A 99 54 24 00 95 28 9C 0E 99 50 4C |),3):.T$..(...PL|
00002070: 24 3B 22 12 22 3B 57 53 24 3B 50 4C 24 3B A6 31 |$;".";WS$;PL$;.1|
00002080: 30 29 22 12 20 4B 45 55 5A 45 20 3D 20 22 3B 3A |0)". KEUZE = ";:|
00002090: 8D 31 30 37 30 00 B0 28 A6 0E 8B C3 28 49 4E 24 |.1070..(....(IN$|
000020A0: 29 B1 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 31 29 |).1.IN$..(IN$,1)|
000020B0: 00 C3 28 B0 0E 8B 49 4E 24 B2 22 50 22 20 89 33 |..(...IN$."P" .3|
000020C0: 36 38 30 00 D6 28 BA 0E 8B 49 4E 24 B2 22 43 22 |680..(...IN$."C"|
000020D0: 20 89 33 34 36 30 00 E0 28 C4 0E 89 33 37 34 30 | .3460..(...3740|
000020E0: 00 03 29 CE 0E 50 47 B2 30 3A 8F 20 20 20 56 45 |..)..PG.0:. VE|
000020F0: 52 47 45 4C 49 4A 4B 45 4E 20 4D 45 54 20 57 52 |RGELIJKEN MET WR|
00002100: 49 54 45 00 1E 29 D8 0E 8B 50 47 B2 30 A7 50 47 |ITE..)...PG.0.PG|
00002110: B2 31 3A 8D 31 34 33 30 3A 89 33 38 33 30 00 39 |.1:.1430:.3830.9|
00002120: 29 E2 0E 8B 50 47 B2 31 A7 50 47 B2 32 3A 8D 31 |)...PG.1.PG.2:.1|
00002130: 35 33 30 3A 89 33 38 33 30 00 48 29 EC 0E 50 47 |530:.3830.H)..PG|
00002140: B2 31 3A 8D 31 34 33 30 00 86 29 F6 0E 52 47 B2 |.1:.1430..)..RG.|
00002150: 32 30 3A 8D 32 34 37 30 3A 99 22 20 12 50 92 3D |20:.2470:." .P.=|
00002160: 20 41 4E 44 45 52 45 20 50 41 47 49 4E 41 20 DD | ANDERE PAGINA .|
00002170: 20 12 43 92 3D 20 56 45 52 56 4F 4C 47 20 50 52 | .C.= VERVOLG PR|
00002180: 4F 47 52 41 4D 22 00 C0 29 00 0F 54 24 B2 22 20 |OGRAM"..)..T$." |
00002190: 20 20 20 54 52 41 43 4B 20 3D 22 AA C9 28 28 22 | TRACK ="..(("|
000021A0: 20 20 22 AA C4 28 54 29 29 2C 33 29 AA 22 20 20 | "..(T)),3)." |
000021B0: 20 20 DD 20 20 20 20 53 45 43 54 4F 52 20 3D 22 | . SECTOR ="|
000021C0: 00 DF 29 0A 0F 54 24 B2 54 24 AA C9 28 28 22 20 |..)..T$.T$..((" |
000021D0: 20 22 AA C4 28 53 29 29 2C 33 29 3A 99 54 24 00 | "..(S)),3):.T$.|
000021E0: 0C 2A 14 0F 99 50 4C 24 3B 22 12 22 3B 57 53 24 |.*...PL$;".";WS$|
000021F0: 3B 50 4C 24 3B A6 31 30 29 22 12 20 4B 45 55 5A |;PL$;.10)". KEUZ|
00002200: 45 20 3D 20 22 3B 3A 8D 31 30 37 30 00 27 2A 1E |E = ";:.1070.'*.|
00002210: 0F 8B C3 28 49 4E 24 29 B1 31 A7 49 4E 24 B2 C8 |...(IN$).1.IN$..|
00002220: 28 49 4E 24 2C 31 29 00 3A 2A 28 0F 8B 49 4E 24 |(IN$,1).:*(..IN$|
00002230: B2 22 50 22 20 89 33 38 30 30 00 4D 2A 32 0F 8B |."P" .3800.M*2..|
00002240: 49 4E 24 B2 22 43 22 20 89 33 34 36 30 00 57 2A |IN$."C" .3460.W*|
00002250: 3C 0F 89 33 38 36 30 00 00 00 |<..3860... |
.......2500.0.... RCW BLOCK - W.A.A. VAN
ZUNDERT.E....A%(257),B%(257).I...PL$.".
":.X.1.23:PL$.PL$.G(17):......WS$."":.X.
1.39:WS$.WS$.G(32):..........$.. SUBR
INPUT STRINGS......198,0:IN$.G(32):ZD$.
G(20):ZC$.G(32).G(166):ZT.TI:ZC.2...8..Z
$:. INPUTROUTINE...B..Z$.."".1120.D.L..
ZT..TI..J(ZC$,ZC,1);G(157);:ZC.3.ZC:ZT.T
I.15.N.V..1080.V.`.Z.F(Z$):ZL.C(IN$):.ZL
.20.Z..13.1080...J..(Z.127).32.." .";:.1
160...T..Z.127.Z.(Z.127):Z$.G(Z).Q.~.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.R....Z.141.Z$.G
(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.1070.\....
1080.Z.... SUBR READ A BLOCK A%......
SDISK.4..15,"I0"...D..5,8,5,"#":.2190:.O
K.1.1290.E.N..15,"U1:"5;0;T;S...X.. GOSU
B1150:IFOK=1THEN360......I.0.255......#5
,A$:.A$."".A$.G(0).....A%(I).F(A$). ....
.-... 5:.2190.F....937,A%(0):.938,A%(1):
. T&S POINTERS.L........
.. SUBR WRITE A BLOCK B%...(..5,8,5,"#
"...2..15,"B-P:"5,0...<..I.0.255.I.F..5,
G(B%(I));.O.P.....Z..15,"B-P:"5,0...D..1
5,"U2:"5;0;T;S...N..2190:.E1.26. 5: 15:.
2000.!.X. 5:.2190.<.}..OK.1..5,8,5,"#":.
1370.B.....A.... SUBR PRINT PG 1 VAN B
%.P....".BYTE+";... ..X.0.7:B$.I((" "
.D(X)),4):.B$;:.:."..".B....X.0.127.8:B$
.I((" ".D(X)),3).T...."B ";B$;":";....
..Y.0.7:H$.I((" ".D(B%(X.Y))),3).3.H..B
%(X.Y).34.B%(X.Y).95.H$.H$.".".G(B%(X.Y)
).".":.1500.C.R.H$.H$.G(32).L....H$;.\..
..Y:.:.X:.:..{.... SUBR PRINT PG 2 VAN
B%......".BYTE+";......X.0.7:B$.I(("
".D(X)),4):.B$;:.:.".."......X.128.255.
8:B$.I((" ".D(X)),3)......"B ";B$;":";
..."..Y.0.7:H$.I((" ".D(B%(X.Y))),3).O.
,..B%(X.Y).34.B%(X.Y).95.H$.H$.".".G(B%(
X.Y)).".":.1600._.6.H$.H$.G(32).H.@..H$;
.X.J..Y:.:.X:.:....T..**SUBR PRINT PG 1
VAN A%*****...^..".BYTE+";.X.H..X.0.7:B$
.I((" ".D(X)),4):.B$;:.:.".."...R..X.
0.127.8:B$.I((" ".D(X)),3)...|.."B ";B
$;":";.3....Y.0.7:H$.I((" ".D(A%(X.Y)))
,3).M....A%(X.Y).34.A%(X.Y).95.H$.H$."."
.G(A%(X.Y)).".":.1700.}...H$.H$.G(32)...
...H$;......Y:.:.X:.:....... SUBR PRIN
T PG 2 VAN A%.D.B..".BYTE+";...L..X.0.7:
B$.I((" ".D(X)),4):.B$;:.:.".."...V..
X.128.255.8:B$.I((" ".D(X)),3).*...."B
";B$;":";.O....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:.:..O.... SUBR
GET 1 CHARACTER...&..198,0:.198,1:.Z$...
0.....:.. SUBR VRAAG TRACK & SECTOR. .
D..IN$."C". 1982.R.I..H(PL$,10);WS$;H(PL
$,10).5);"WELKE TRACK? ";.T.N..1070:T.E
(IN$):.T.35.T.0.1860...X..T.0.1910...B..
H(PL$,12);WS$;H(PL$,12);.4);"WELKE SECTO
R? ";.Z.L..1070:S.E(IN$):.1920:.SF.1.18
90...V..H(PL$,10);WS$;H(PL$,12);WS$:....
...S.17.1970."....S.18 . T.31.1970.G....
S.20.(1.(SDISK.4)) . T.25 .1970.^....S.2
1 . T.18 .1970.M...SF.1:.1980.V...SF.0.|
.........T.B(937):S.B(938):.T.1.T.35.186
5......1920...B.. SF.1 . 1865.G.D..1910.
..F.. SUBR STOP ONHERST. FOUT...P.."."
:.R.1.20:.WS$:.:.".".H.U..2270:.PL$;".";
WS$;PL$;". ONHERSTELBARE FOUT! START ME
T CONT.".N.Z..._....:IT.1:.2500.|....
SUBR VERANDER 1 BYTE.....XH.X.(128.(X.12
7)):RE.3..(XH.8):PS.6.(X.8..(X.8)).32...
...A%(X).34.A%(X).95.H$.G(A%(X)):.2070..
...H$.G(32).....B$.".".I((" ".D(A%(X)))
,3).".".H$.). ..H(PL$,RE);.PS);B$.H.*..P
L$;".";WS$;PL$;:XH$.D(X).L.4..". BYTE";X
H$;" MOET WORDEN? ";...>..1070:Y.E(IN$):
.Y.0.Y.255.2090...H.A%(X).Y.D.R..A%(X).3
4.A%(X).96.H$.G(A%(X)):.2150.Q.\.H$.G(32
)...F.B$.I((" ".D(A%(X))),3).".".H$.".
"...P..H(PL$,RE);.PS);B$...Z...9....**SU
BR INPUT ERRORCHANNEL****.Q....15,E1$,E2
$,E3$,E4$.Z...E1.E(E1$):.E1.20.OK.0:.PL$
;WS$;".":.......PL$;WS$;PL$;"FOUT NR: ."
;E1$;"-";E2$;.P....(E1.19.E1.30).E1.65..
"-";E3$;",";E4$;.Y...."."......15,"I0":O
K.1...J.....T.. SUBR TITEL.'....532
80,11:.53281,11:.646,13.X....". . PROGRA
MMA READ-(CHANGE)-WRITE BLOCK .".^.....X
.... SUBR INSTRUCTIES......H(PL$,4);.
4);"U KUNT:".D....". .1. SECTOREN (BLOC
KS) VAN DE DISKETTE".......4)"IN DRIVE 0
INLEZEN."......". .2. BYTES IN DEZE SE
CTOREN VERANDEREN.".B.$..". .3. DE NIEU
WE OF OUDE INHOUD VAN HET".O.....4)"BLOC
K TERUGSCHRIJVEN NAAR DE DISK,"...8...4)
"IN DEZELFDE SECTOR OF IN EEN"...B...4)"
ANDERE SECTOR."...L..". .4. PROGRAMMA S
TOPT ALS TRACK 0 WORDT"...V...4)"GEVRAAG
D.". .`..". N.B. ALLEEN DE DISKETTE IN
DRIVE 0".=.J.." WORDT AANGESPROKEN!".P.
T..PL$;" . (C)DEC 1981 W.A.A. VAN ZUN
DERT ."...~..H(PL$,22);.8)". SLA EEN TO
ETS AAN ."......1830.....IT.1:..O.... S
UBR PRINT VOORBEREIDING......H(PL$,RG);W
S$;H(PL$,RG);.......&.D..1020:.".";G(142
):. HOOFDPROGRAMMA.=.N..2270
:.IT.0. .2300.|.X..".":.2270:RG.10:.2470
:." PLAATS DE DISKETTE IN DRIVE 0."....
.RG.12:.2470:..10)". KLAAR ? (J/N) . ";
.M....1070:.IN$."".H(IN$,1).."J".2530...
...H(PL$,10);WS$;H(PL$,12);WS$.)....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 ! .".....RG.10:.2470:..
2);"ZIT IN DRIVE 0 EEN DISKETTE? ";.....
.1070:.IN$."". H(IN$,1)."J".2610.F.(. 15
:.2510...2..2470:."DRIVE KAN DIRECTORY S
POOR NIET LEZEN!"...<.RG.12:.2470:." V
ERDER GAAN? ";.B.F..1070:.IN$."".H(IN$,1
)."J".2670.J.P. 15...Z..PL$;WS$;PL$;" .
VERVOLG EVENTUEEL MET 'CONT' ."...
D..2000...N..RG.3.23:.2470:.:....X.. OK.
1..PL$;" . DISKETTE NIET TE INTIALISE
REN! .".....ZT.TI.150......TI..ZT.2700
.....T.18:S.0:.1210:D0$.". ".Q. ..OK.1.D
0$.". ???????????????????????????.":.279
0.`....X.143.170......X.165.SDISK.4:.A%(
2)..65.A%(X).49:SDISK.3.....D0$.D0$.G(A%
(X))...H..X.O.R..C(D0$).30.D0$.D0$.G(160
):.2770.....D0$.D0$."."......H(PL$,2);"
.DRIVE 0 =.";D0$:PG.0......I.0.255.(...A
%(I).0:B%(I).0:..9....PL$;WS$;".".C....1
860.V....T.0. 15:.".":.2270:..15);". EIN
DE .":."...":...."..1210...,..OK.0.2940.
..6.RG.12:.2470:..12)". INLEESFOUT.."...
@.RG.14:.2470:." INHOUD .T.ONEN OF .O.PN
IEUW BEGINNEN?"...J.RG.16:.2470:..12);:.
1070:.IN$."".2890.0.T..H(IN$,1)."T".2940
.G.^..H(IN$,1)."O".2930.Q.H..2890.F.R.."
.":.2270:.2790...|..PG.0.PG.1:.1630:.297
0......PG.1.PG.2:.1730:.2970.....PG.1:.1
630.....RG.20:.2470:." .P.= ANDERE PAGIN
A . .V.= BYTE VERANDEREN".'...RG.21:.247
0:." .S.= SCHRIJVEN BLK . .C.= VOLGEND B
LOCK ".A...T$." TRACK =".I((" ".D(T
)),3)." . SECTOR =".....T$.T$.I(("
".D(S)),3):.T$...B..PL$;".";WS$;PL$;.1
0)". KEUZE = ";:.1070.H.L..C(IN$).1.IN$.
H(IN$,1)...V..IN$."P" .2940......IN$."V"
.3080.. ...IN$."S" .3190.. ...IN$."C" .
2930.' ...IN$."" .2930.1 ...3010.B ...R
G.20.23:.2470:.:. BYTE VERANDER
EN.. ..RG.20:.2470:." .P.= ANDERE PAGINA
".. ...PL$;".";WS$;PL$;". WELKE BYTE VE
RANDEREN? ";.F &..1070.Y 0..IN$.."P".315
0.. :..PG.1.PG.2:.1730:.3080..!D..PG.2.P
G.1:.1630:.3080.3!N.X.E(IN$):.PG.1.(X.0.
X.127).3100.P!X..PG.2.(X.128.X.255).3100
.Z!B..2040.D!L..2970..!V..RG.20.23:.2470
:.:. BLOCK SCHRIJVEN.R!..T$.
" TRACK =".I((" ".D(T)),3)." .
SECTOR ="..!..T$.T$.I((" ".D(S)),3):RG
.22:.2470:.T$.9"...PL$;".";WS$;PL$;".
NAAR DEZELFDE TRACK EN SECTOR? ";.P"...1
070:.IN$."".3220.G"...H(IN$,1)."J".3390.
"...H(IN$,1).."N".3220.."...PL$;".";WS$
;PL$;". NAAR WELKE TRACK? ";.C"F..1070:.
IN$."".3260.."P.TN.E(IN$):.TN.1.TN.35.32
60.."Z.T.TN..#...PL$;".";WS$;PL$;". EN N
AAR WELKE SECTOR? ";.3#...1070:.IN$."".3
300.K#..SN.S:S.E(IN$):.1920.`#...SF.1.S.
SN:.3300..#..T$." TRACK =".I((" ".D(
T)),3)." . SECTOR =".E#..T$.T$.I((
" ".D(S)),3):RG.22:.2470:.T$..# ..PL$;"
.";WS$;PL$;.12)".CORRECT? ";:.1070:.IN$.
"".3360..$*..H(IN$,1)."J".3390. $4..3260
.G$>..PL$;".";WS$;PL$;.12)".PROCESSING".
B$H..X.0.255:B%(X).A%(X):..L$R..1320..$\
..15,E1$,E2$,E3$,E4$..$F.E1$.E1$.",".E2$
.",".E3$.",".E4$.J$P..PL$;".";WS$;PL$;.1
2);".";E1$.Z$Z..I.0.1000:...$...".":.227
0..%...H(PL$,2);" .DRIVE 0 =.";D0$:PG.0.
*%..RG.5:.2470:." WILT U:.`%..RG.7:.247
0:." .1. HET WEGGESCHREVEN BLOCK ZIEN,"
..%..RG.9:.2470:." .2. HET OORSPRONKELI
JKE BLOCK ZIEN,".R%..RG.11:.2470:." .3.
HET PROGRAMMA OPNIEUW STARTEN OF"..%..R
G.13:.2470:." .4. STOPPEN ?"."&J..PL$;"
.";WS$;PL$;.12);".KEUZE = ";:.1070.@&T.I
N.E(IN$):.IN.1.IN.4.3530._&... IN . 3590
,3790,3560,3580.N&...".":.2270.X&...2790
..&..T.0:.2840..&...1210:. CONTROLE OP
WRITE..&...OK.0.3680..&..RG.12:.2470:..
12)". INLEESFOUT.."..'$.RG.14:.2470:." I
NHOUD .T.ONEN OF .O.PNIEUW BEGINNEN?".?'
..RG.16:.2470:..12);:.1070:.IN$."".3630.
V'8..H(IN$,1)."T".3680.M'B..H(IN$,1)."O"
.3670.W'L..3630..'V..".":.2270:.2790..'`
..PG.0.PG.1:.1630:.3710.B'J..PG.1.PG.2:.
1730:.3710.Q'T.PG.1:.1630..(~.RG.20:.247
0:." .P.= ANDERE PAGINA . .C.= VERVOLG P
ROGRAM".I(..T$." TRACK =".I((" ".D(T
)),3)." . SECTOR =".H(..T$.T$.I(("
".D(S)),3):.T$..(...PL$;".";WS$;PL$;.1
0)". KEUZE = ";:.1070..(...C(IN$).1.IN$.
H(IN$,1).C(...IN$."P" .3680.V(...IN$."C"
.3460..(D..3740..)N.PG.0:. VERGELIJKE
N MET WRITE..)X..PG.0.PG.1:.1430:.3830.9
)...PG.1.PG.2:.1530:.3830.H)..PG.1:.1430
..)..RG.20:.2470:." .P.= ANDERE PAGINA .
.C.= VERVOLG PROGRAM"..)..T$." TRACK
=".I((" ".D(T)),3)." . SECTOR ="
..)..T$.T$.I((" ".D(S)),3):.T$..*...PL$
;".";WS$;PL$;.10)". KEUZE = ";:.1070.'*.
..C(IN$).1.IN$.H(IN$,1).:*(..IN$."P" .38
00.M*2..IN$."C" .3460.W*<..3860...
> CLICK IMAGE PREVIEW FOR FULL MODAL