DUPLICATE
FILE INFORMATION
FILENAME(S): DUPLICATE
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 21:06:55
APPEARS ON: 1 disk(s)
FILE HASH
5004bc41d10ce04577f5f62850701c2736ce196dbde8d8f3d1a7f0bcf0e0f214
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DICK 12 | DUPLICATE | PRG | DuncanTwain | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8F 20 43 4F 50 59 20 46 4C 4F |..&.... COPY FLO|
00000010: 50 50 59 27 53 20 53 45 43 54 4F 52 20 42 59 20 |PPY'S SECTOR BY |
00000020: 53 45 43 54 4F 52 00 3F 08 02 00 81 49 B2 38 32 |SECTOR.?....I.82|
00000030: 38 A4 38 38 33 3A 87 41 3A 97 49 2C 41 3A 82 00 |8.883:.A:.I,A:..|
00000040: 57 08 14 00 42 42 B2 C2 28 34 34 29 AA 32 37 3A |W...BB..(44).27:|
00000050: 97 39 39 35 2C 42 42 00 80 08 1E 00 97 39 39 38 |.995,BB......998|
00000060: 2C C2 28 35 35 29 3A 97 39 39 39 2C C2 28 35 36 |,.(55):.999,.(56|
00000070: 29 3A 97 35 35 2C 30 3A 97 35 36 2C 42 42 3A 9C |):.55,0:.56,BB:.|
00000080: 00 8E 08 28 00 42 42 B2 C2 28 39 39 35 29 00 B1 |...(.BB..(995)..|
00000090: 08 32 00 4E B2 C2 28 39 39 39 29 AB 42 42 AB 31 |.2.N..(999).BB.1|
000000A0: 3A 42 41 B2 42 42 AC 32 35 36 3A 4D 41 B2 38 32 |:BA.BB.256:MA.82|
000000B0: 38 00 C1 08 3C 00 86 42 4D 25 28 33 35 2C 32 30 |8...<..BM%(35,20|
000000C0: 29 00 DB 08 50 00 99 22 93 1D 1D 1D 12 44 55 50 |)...P..".....DUP|
000000D0: 4C 49 43 41 54 45 20 31 35 34 31 00 07 09 5A 00 |LICATE 1541...Z.|
000000E0: 99 22 11 27 47 4F 54 4F 20 31 30 30 30 30 27 49 |.".'GOTO 10000'I|
000000F0: 46 20 50 52 4F 47 20 51 55 49 54 53 20 41 42 4E |F PROG QUITS ABN|
00000100: 4F 52 4D 41 4C 4C 59 00 23 09 64 00 99 22 11 22 |ORMALLY.#.d.."."|
00000110: 4E 22 42 55 46 46 45 52 53 20 41 56 41 49 4C 41 |N"BUFFERS AVAILA|
00000120: 42 4C 45 00 2F 09 6E 00 9F 31 2C 38 2C 31 35 00 |BLE./.n..1,8,15.|
00000130: 44 09 C8 00 8F 20 4D 41 49 4E 20 46 55 4E 43 54 |D.... MAIN FUNCT|
00000140: 49 4F 4E 53 00 55 09 D2 00 8D 31 30 30 30 3A 8D |IONS.U....1000:.|
00000150: 32 30 30 30 30 00 66 09 DC 00 44 24 B2 22 53 22 |20000.f...D$."S"|
00000160: 3A 8D 33 32 30 30 00 87 09 04 01 54 46 B2 33 35 |:.3200.....TF.35|
00000170: 3A 54 B2 31 3A 53 B2 30 3A 4E 55 B2 31 3A 54 31 |:T.1:S.0:NU.1:T1|
00000180: B2 54 3A 53 31 B2 53 00 96 09 0E 01 9F 33 2C 38 |.T:S1.S......3,8|
00000190: 2C 33 2C 22 23 22 00 BF 09 18 01 99 22 52 45 41 |,3,"#"......"REA|
000001A0: 44 49 4E 47 20 42 4C 4F 43 4B 20 23 20 2C 20 54 |DING BLOCK # , T|
000001B0: 52 41 43 4B 20 2C 20 53 45 43 54 4F 52 11 11 00 |RACK , SECTOR...|
000001C0: E9 09 22 01 8B 42 4D 25 28 54 31 2C 53 31 29 B2 |.."..BM%(T1,S1).|
000001D0: 31 A7 8D 32 30 30 30 3A 4E 55 B2 4E 55 AA 31 3A |1..2000:NU.NU.1:|
000001E0: 8B 4E 55 B1 4E A7 33 32 30 00 09 0A 2C 01 53 31 |.NU.N.320...,.S1|
000001F0: B2 53 31 AA 31 3A 8B 53 31 B1 32 30 A7 53 31 B2 |.S1.1:.S1.20.S1.|
00000200: 30 3A 54 31 B2 54 31 AA 31 00 1A 0A 36 01 8B 54 |0:T1.T1.1...6..T|
00000210: 31 B3 54 46 AA 31 A7 32 39 30 00 23 0A 40 01 99 |1.TF.1.290.#.@..|
00000220: 22 11 22 00 2A 0A 4A 01 A0 33 00 3B 0A 54 01 44 |".".*.J..3.;.T.D|
00000230: 24 B2 22 44 22 3A 8D 33 32 30 30 00 4A 0A 5E 01 |$."D":.3200.J.^.|
00000240: 9F 33 2C 38 2C 33 2C 22 23 22 00 73 0A 68 01 99 |.3,8,3,"#".s.h..|
00000250: 22 57 52 49 54 49 4E 47 20 42 4C 4F 43 4B 20 23 |"WRITING BLOCK #|
00000260: 20 2C 20 54 52 41 43 4B 20 2C 20 53 45 43 54 4F | , TRACK , SECTO|
00000270: 52 11 11 00 86 0A 72 01 4E 55 B2 31 3A 54 31 B2 |R.....r.NU.1:T1.|
00000280: 54 3A 53 31 B2 53 00 B0 0A 7C 01 8B 42 4D 25 28 |T:S1.S...|..BM%(|
00000290: 54 31 2C 53 31 29 B2 31 A7 8D 32 32 30 30 3A 4E |T1,S1).1..2200:N|
000002A0: 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 34 31 30 |U.NU.1:.NU.N.410|
000002B0: 00 D0 0A 86 01 53 31 B2 53 31 AA 31 3A 8B 53 31 |.....S1.S1.1:.S1|
000002C0: B1 32 30 A7 53 31 B2 30 3A 54 31 B2 54 31 AA 31 |.20.S1.0:T1.T1.1|
000002D0: 00 E1 0A 90 01 8B 54 31 B3 54 46 AA 31 A7 33 38 |......T1.TF.1.38|
000002E0: 30 00 EA 0A 9A 01 99 22 11 22 00 F1 0A A4 01 A0 |0......"."......|
000002F0: 33 00 0E 0B AE 01 53 B2 53 31 AA 31 3A 8B 53 B1 |3.....S.S1.1:.S.|
00000300: 32 30 A7 53 B2 30 3A 54 31 B2 54 31 AA 31 00 21 |20.S.0:T1.T1.1.!|
00000310: 0B B8 01 54 B2 54 31 3A 8B 54 B1 54 46 A7 35 30 |...T.T1:.T.TF.50|
00000320: 30 00 32 0B C2 01 44 24 B2 22 53 22 3A 8D 33 32 |0.2...D$."S":.32|
00000330: 30 30 00 4A 0B CC 01 4E 55 B2 31 3A 54 31 B2 54 |00.J...NU.1:T1.T|
00000340: 3A 53 31 B2 53 3A 89 32 37 30 00 5F 0B F4 01 8F |:S1.S:.270._....|
00000350: 20 46 49 4E 49 53 48 45 44 20 58 46 45 52 53 00 | FINISHED XFERS.|
00000360: 66 0B FE 01 A0 31 00 82 0B 08 02 97 35 35 2C C2 |f....1......55,.|
00000370: 28 39 39 38 29 3A 97 35 36 2C C2 28 39 39 39 29 |(998):.56,.(999)|
00000380: 3A 9C 00 9B 0B 12 02 99 22 11 11 42 41 43 4B 55 |:......."..BACKU|
00000390: 50 20 43 4F 4D 50 4C 45 54 45 22 00 A1 0B 9E 02 |P COMPLETE".....|
000003A0: 80 00 B2 0B E8 03 8F 20 50 52 49 4E 54 20 49 4E |....... PRINT IN|
000003B0: 46 4F 00 E2 0B F2 03 99 22 11 11 1D 1D 44 49 54 |FO......"....DIT|
000003C0: 20 50 52 4F 47 52 41 4D 4D 41 20 56 45 52 57 41 | PROGRAMMA VERWA|
000003D0: 43 48 54 20 45 45 4E 20 47 45 46 4F 52 4D 41 54 |CHT EEN GEFORMAT|
000003E0: 54 45 00 09 0C FC 03 99 22 1D 1D 53 43 48 49 4A |TE......"..SCHIJ|
000003F0: 46 20 4F 4D 20 4E 41 41 52 20 54 4F 45 20 54 45 |F OM NAAR TOE TE|
00000400: 20 43 4F 50 49 45 52 45 4E 00 38 0C 06 04 99 22 | COPIEREN.8...."|
00000410: 11 11 1D 1D 4E 41 41 4D 20 45 4E 20 44 49 53 4B |....NAAM EN DISK|
00000420: 2D 49 44 20 5A 49 4A 4E 20 4E 49 45 54 20 42 45 |-ID ZIJN NIET BE|
00000430: 4C 41 4E 47 52 49 4A 4B 00 3E 0C 74 04 8E 00 64 |LANGRIJK.>.t...d|
00000440: 0C D0 07 8F 20 52 45 41 44 20 42 4C 4F 43 4B 20 |.... READ BLOCK |
00000450: 54 31 2C 53 31 20 54 4F 20 42 55 46 46 45 52 20 |T1,S1 TO BUFFER |
00000460: 23 20 4E 55 00 6C 0C DA 07 43 B2 2E 00 9F 0C E4 |# NU.l...C......|
00000470: 07 98 31 2C 22 55 31 22 3B 33 3B 30 3B 54 31 3B |..1,"U1";3;0;T1;|
00000480: 53 31 3A 8F 20 52 45 41 44 20 42 4C 4F 43 4B 20 |S1:. READ BLOCK |
00000490: 54 4F 20 44 52 49 56 45 20 42 55 46 46 45 52 00 |TO DRIVE BUFFER.|
000004A0: B3 0C EE 07 8D 33 30 30 30 3A 8B A8 45 52 A7 32 |.....3000:..ER.2|
000004B0: 30 36 30 00 C7 0C F8 07 43 B2 43 AA 31 3A 8B 43 |060.....C.C.1:.C|
000004C0: B3 33 89 32 30 32 30 00 FC 0C 02 08 99 52 24 3A |.3.2020......R$:|
000004D0: 81 4A B2 28 42 42 AA 4E 55 29 AC 32 35 36 A4 28 |.J.(BB.NU).256.(|
000004E0: 42 42 AA 4E 55 29 AC 32 35 36 AA 32 35 35 3A 97 |BB.NU).256.255:.|
000004F0: 4A 2C 2E 3A 82 4A 3A 89 32 31 30 30 00 0D 0D 0C |J,.:.J:.2100....|
00000500: 08 98 31 2C 22 42 2D 50 22 3B 33 3B 30 00 1E 0D |..1,"B-P";3;0...|
00000510: 16 08 8B 4E 55 B3 B1 30 A7 8D 34 30 30 30 00 43 |...NU..0..4000.C|
00000520: 0D 20 08 97 39 39 36 2C C2 28 33 29 3A 97 39 39 |. ..996,.(3):.99|
00000530: 37 2C C2 28 34 29 3A 97 34 2C 42 42 AA 4E 55 3A |7,.(4):.4,BB.NU:|
00000540: 9E 4D 41 00 5B 0D 25 08 97 33 2C C2 28 39 39 36 |.MA.[.%..3,.(996|
00000550: 29 3A 97 34 2C C2 28 39 39 37 29 00 79 0D 2A 08 |):.4,.(997).y.*.|
00000560: 8B 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 8D 33 |.ST....ST..64..3|
00000570: 30 30 30 3A 89 32 30 35 30 00 7F 0D 34 08 8E 00 |000:.2050...4...|
00000580: A8 0D 98 08 8F 20 57 52 49 54 45 20 42 4C 4F 43 |..... WRITE BLOC|
00000590: 4B 20 54 31 2C 53 31 20 46 52 4F 4D 20 42 55 46 |K T1,S1 FROM BUF|
000005A0: 46 45 52 20 23 20 4E 55 00 B0 0D A2 08 43 B2 2E |FER # NU.....C..|
000005B0: 00 C1 0D AC 08 98 31 2C 22 42 2D 50 22 3B 33 3B |......1,"B-P";3;|
000005C0: 30 00 CB 0D B6 08 8D 34 30 30 30 00 F2 0D C0 08 |0......4000.....|
000005D0: 97 39 39 36 2C C2 28 33 29 3A 97 39 39 37 2C C2 |.996,.(3):.997,.|
000005E0: 28 34 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E 4D 41 |(4):.4,BB.NU:.MA|
000005F0: AA 33 00 0A 0E C5 08 97 33 2C C2 28 39 39 36 29 |.3......3,.(996)|
00000600: 3A 97 34 2C C2 28 39 39 37 29 00 3D 0E CA 08 8B |:.4,.(997).=....|
00000610: 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 99 22 12 |ST....ST..64..".|
00000620: 49 45 45 45 20 57 52 49 54 45 20 45 52 52 4F 52 |IEEE WRITE ERROR|
00000630: 22 53 54 22 92 22 3A 89 31 30 30 30 30 00 6B 0E |"ST".":.10000.k.|
00000640: D4 08 98 31 2C 22 55 32 22 3B 33 3B 30 3B 54 31 |...1,"U2";3;0;T1|
00000650: 3B 53 31 3A 8F 20 57 52 49 54 45 20 42 4C 4F 43 |;S1:. WRITE BLOC|
00000660: 4B 20 54 4F 20 46 4C 4F 50 50 59 00 7F 0E DE 08 |K TO FLOPPY.....|
00000670: 8D 33 30 30 30 3A 8B A8 45 52 A7 32 33 30 30 00 |.3000:..ER.2300.|
00000680: 93 0E E8 08 43 B2 43 AA 31 3A 8B 43 B3 33 A7 32 |....C.C.1:.C.3.2|
00000690: 32 36 30 00 BF 0E F2 08 99 22 12 55 4E 52 45 43 |260......".UNREC|
000006A0: 4F 56 45 52 41 42 4C 45 20 57 52 49 54 45 20 45 |OVERABLE WRITE E|
000006B0: 52 52 4F 52 22 45 52 24 3A 89 31 30 30 30 30 00 |RROR"ER$:.10000.|
000006C0: C5 0E FC 08 8E 00 E1 0E B8 0B 8F 20 52 45 41 44 |........... READ|
000006D0: 20 45 52 52 20 43 48 20 54 4F 20 45 52 2C 45 52 | ERR CH TO ER,ER|
000006E0: 24 00 18 0F C2 0B 84 31 2C 45 30 24 2C 45 31 24 |$......1,E0$,E1$|
000006F0: 2C 45 32 24 2C 45 33 24 3A 45 52 24 B2 45 30 24 |,E2$,E3$:ER$.E0$|
00000700: AA 22 2C 22 AA 45 31 24 AA 22 2C 22 AA 45 32 24 |.",".E1$.",".E2$|
00000710: AA 22 2C 22 AA 45 33 24 00 34 0F CC 0B 45 52 B2 |.",".E3$.4...ER.|
00000720: C3 28 45 30 24 29 3A 8B 45 52 A7 45 52 B2 C5 28 |.(E0$):.ER.ER..(|
00000730: 45 30 24 29 00 3A 0F D6 0B 8E 00 65 0F 80 0C 8F |E0$).:.....e....|
00000740: 20 49 4E 53 54 52 55 43 54 20 54 4F 20 53 57 41 | INSTRUCT TO SWA|
00000750: 50 20 54 4F 20 44 49 53 4B 20 47 49 56 45 4E 20 |P TO DISK GIVEN |
00000760: 49 4E 20 44 24 00 89 0F 8A 0C 8B 44 24 B2 22 44 |IN D$......D$."D|
00000770: 22 A7 53 31 24 B2 22 44 45 53 54 49 4E 41 54 49 |".S1$."DESTINATI|
00000780: 4F 4E 22 3A 89 33 32 33 30 00 A8 0F 94 0C 53 31 |ON":.3230.....S1|
00000790: 24 B2 22 53 4F 55 52 43 45 20 20 20 20 20 22 3A |$."SOURCE ":|
000007A0: 99 22 93 11 11 11 11 22 00 D6 0F 9E 0C 99 22 11 |."....."......".|
000007B0: 1D 1D 1D 49 4E 53 45 52 54 12 20 22 3B 53 31 24 |...INSERT. ";S1$|
000007C0: 3B 22 20 44 49 53 4B 2C 92 50 52 45 53 53 20 12 |;" DISK,.PRESS .|
000007D0: 20 46 32 20 92 22 00 E1 0F A3 0C 97 31 39 38 2C | F2 ."......198,|
000007E0: 30 00 F7 0F A8 0C A1 41 24 3A 8B 41 24 B3 B1 22 |0......A$:.A$.."|
000007F0: 89 22 A7 33 32 34 30 00 02 10 E4 0C 99 22 11 22 |.".3240......"."|
00000800: 3A 8E 00 30 10 A0 0F 99 22 91 22 A3 31 32 29 22 |:..0....".".12)"|
00000810: 20 20 20 9D 9D 9D 22 3B C9 28 22 20 20 22 AA C4 | ...";.(" "..|
00000820: 28 4E 55 29 2C 33 29 3B 22 20 20 20 20 20 22 3B |(NU),3);" ";|
00000830: 00 6B 10 AA 0F 99 22 20 20 20 9D 9D 9D 22 3B C9 |.k...." ...";.|
00000840: 28 22 20 20 22 AA C4 28 54 31 29 2C 33 29 3B 22 |(" "..(T1),3);"|
00000850: 20 20 20 20 20 20 20 9D 9D 9D 22 3B C9 28 22 20 | ...";.(" |
00000860: 20 22 AA C4 28 53 31 29 2C 33 29 00 71 10 B4 0F | "..(S1),3).q...|
00000870: 8E 00 80 10 10 27 8F 20 44 52 4F 50 20 4F 55 54 |.....'. DROP OUT|
00000880: 00 9E 10 1A 27 97 35 35 2C C2 28 39 39 38 29 3A |....'.55,.(998):|
00000890: 97 35 36 2C C2 28 39 39 39 29 3A 9C 3A 90 00 DF |.56,.(999):.:...|
000008A0: 10 98 3A 83 37 36 2C 36 36 2C 33 2C 37 36 2C 39 |..:.76,66,3,76,9|
000008B0: 31 2C 33 2C 31 36 32 2C 33 2C 33 32 2C 31 39 38 |1,3,162,3,32,198|
000008C0: 2C 32 35 35 2C 31 36 30 2C 30 2C 31 33 32 2C 33 |,255,160,0,132,3|
000008D0: 2C 33 32 2C 32 30 37 2C 32 35 35 2C 31 34 35 00 |,32,207,255,145.|
000008E0: 23 11 A2 3A 83 33 2C 31 36 35 2C 31 34 34 2C 32 |#..:.3,165,144,2|
000008F0: 30 38 2C 33 2C 32 30 30 2C 32 30 38 2C 32 34 34 |08,3,200,208,244|
00000900: 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 2C 31 |,32,204,255,96,1|
00000910: 36 32 2C 33 2C 33 32 2C 32 30 31 2C 32 35 35 2C |62,3,32,201,255,|
00000920: 31 36 30 00 69 11 AC 3A 83 30 2C 31 33 32 2C 33 |160.i..:.0,132,3|
00000930: 2C 31 37 37 2C 33 2C 33 32 2C 32 31 30 2C 32 35 |,177,3,32,210,25|
00000940: 35 2C 31 36 35 2C 31 34 34 2C 32 30 38 2C 33 2C |5,165,144,208,3,|
00000950: 32 30 30 2C 32 30 38 2C 32 34 34 2C 33 32 2C 32 |200,208,244,32,2|
00000960: 30 34 2C 32 35 35 2C 39 36 00 81 11 20 4E 8F 20 |04,255,96... N. |
00000970: 53 49 4D 55 4C 41 54 45 20 46 55 4C 4C 20 42 41 |SIMULATE FULL BA|
00000980: 4D 00 95 11 34 4E 81 4A B2 31 A4 33 35 3A 81 4B |M...4N.J.1.35:.K|
00000990: B2 30 A4 32 30 00 B2 11 48 4E 8B 4A B3 B2 31 37 |.0.20...HN.J..17|
000009A0: A7 42 4D 25 28 4A 2C 4B 29 B2 31 3A 89 32 30 30 |.BM%(J,K).1:.200|
000009B0: 38 30 00 DA 11 52 4E 8B 4A B1 31 37 AF 4A B3 B2 |80...RN.J.17.J..|
000009C0: 32 34 A7 8B 4B B3 31 39 A7 42 4D 25 28 4A 2C 4B |24..K.19.BM%(J,K|
000009D0: 29 B2 31 3A 89 32 30 30 38 30 00 02 12 5C 4E 8B |).1:.20080...\N.|
000009E0: 4A B1 32 34 AF 4A B3 B2 33 30 A7 8B 4B B3 31 38 |J.24.J..30..K.18|
000009F0: A7 42 4D 25 28 4A 2C 4B 29 B2 31 3A 89 32 30 30 |.BM%(J,K).1:.200|
00000A00: 38 30 00 1D 12 66 4E 8B 4A B1 33 30 A7 8B 4B B3 |80...fN.J.30..K.|
00000A10: 31 37 A7 42 4D 25 28 4A 2C 4B 29 B2 31 00 27 12 |17.BM%(J,K).1.'.|
00000A20: 70 4E 82 4B 3A 82 4A 00 2D 12 7A 4E 8E 00 00 00 |pN.K:.J.-.zN....|
..&.... COPY FLOPPY'S SECTOR BY SECTOR.?
....I.828.883:.A:.I,A:..W...BB.B(44).27:
.995,BB......998,B(55):.999,B(56):.55,0:
.56,BB:....(.BB.B(995)...2.N.B(999).BB.1
:BA.BB.256:MA.828.A.<..BM%(35,20)...P.."
.....DUPLICATE 1541...Z..".'GOTO 10000'I
F PROG QUITS ABNORMALLY.#.D.."."N"BUFFER
S AVAILABLE./.N..1,8,15.D.H.. MAIN FUNCT
IONS.U.R..1000:.20000.F...D$."S":.3200..
...TF.35:T.1:S.0:NU.1:T1.T:S1.S......3,8
,3,"#"......"READING BLOCK # , TRACK , S
ECTOR....."..BM%(T1,S1).1..2000:NU.NU.1:
.NU.N.320...,.S1.S1.1:.S1.20.S1.0:T1.T1.
1...6..T1.TF.1.290.#.@..".".*.J. 3.;.T.D
$."D":.3200.J.^..3,8,3,"#".S.H.."WRITING
BLOCK # , TRACK , SECTOR.....R.NU.1:T1.
T:S1.S...|..BM%(T1,S1).1..2200:NU.NU.1:.
NU.N.410.P...S1.S1.1:.S1.20.S1.0:T1.T1.1
......T1.TF.1.380......"."..... 3.....S.
S1.1:.S.20.S.0:T1.T1.1.!...T.T1:.T.TF.50
0.2.B.D$."S":.3200.J.L.NU.1:T1.T:S1.S:.2
70._.... FINISHED XFERS.F... 1......55,B
(998):.56,B(999):......."..BACKUP COMPLE
TE"............ PRINT INFO......"....DIT
PROGRAMMA VERWACHT EEN GEFORMATTE......
"..SCHIJF OM NAAR TOE TE COPIEREN.8...."
....NAAM EN DISK-ID ZIJN NIET BELANGRIJK
.>.T...D.P.. READ BLOCK T1,S1 TO BUFFER
# NU.L.Z.C........1,"U1";3;0;T1;S1:. REA
D BLOCK TO DRIVE BUFFER......3000:..ER.2
060.G...C.C.1:.C.3.2020......R$:.J.(BB.N
U).256.(BB.NU).256.255:.J,.:.J:.2100....
..1,"B-P";3;0......NU..0..4000.C. ..996,
B(3):.997,B(4):.4,BB.NU:.MA.[.%..3,B(996
):.4,B(997).Y.*..ST....ST..64..3000:.205
0..4........ WRITE BLOCK T1,S1 FROM BUF
FER # NU.....C...A....1,"B-P";3;0.K....4
000......996,B(3):.997,B(4):.4,BB.NU:.MA
.3...E..3,B(996):.4,B(997).=.J..ST....ST
..64..".IEEE WRITE ERROR"ST".":.10000.K.
T..1,"U2";3;0;T1;S1:. WRITE BLOCK TO FLO
PPY.....3000:..ER.2300.....C.C.1:.C.3.2
260......".UNRECOVERABLE WRITE ERROR"ER$
:.10000.E.......... READ ERR CH TO ER,ER
$...B..1,E0$,E1$,E2$,E3$:ER$.E0$.",".E1$
.",".E2$.",".E3$.4.L.ER.C(E0$):.ER.ER.E(
E0$).:.V...E.... INSTRUCT TO SWAP TO DIS
K GIVEN IN D$......D$."D".S1$."DESTINATI
ON":.3230.....S1$."SOURCE ":."....."
.V...."....INSERT. ";S1$;" DISK,.PRESS .
F2 ."......198,0......A$:.A$..".".3240.
.....".":..0. ..".".12)" ...";I(" ".D
(NU),3);" ";.K...." ...";I(" ".D(
T1),3);" ...";I(" ".D(S1),3).Q...
.....'. DROP OUT....'.55,B(998):.56,B(99
9):.:.....:.76,66,3,76,91,3,162,3,32,198
,255,160,0,132,3,32,207,255,145.#..:.3,1
65,144,208,3,200,208,244,32,204,255,96,1
62,3,32,201,255,160.I..:.0,132,3,177,3,3
2,210,255,165,144,208,3,200,208,244,32,2
04,255,96... N. SIMULATE FULL BAM...4N.J
.1.35:.K.0.20...HN.J..17.BM%(J,K).1:.200
80.Z.RN.J.17.J..24..K.19.BM%(J,K).1:.200
80...\N.J.24.J..30..K.18.BM%(J,K).1:.200
80...FN.J.30..K.17.BM%(J,K).1.'.PN.K:.J.
-.ZN....
> CLICK IMAGE PREVIEW FOR FULL MODAL