MONODRIVE COPY
FILE INFORMATION
FILENAME(S): MONODRIVE COPY
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:05:39
APPEARS ON: 1 disk(s)
FILE HASH
7a1be5597c30617118a2404753452c85ea092a1bfe18fbab2fb6d2a07ee2baa5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIE | MONODRIVE COPY | PRG | DuncanTwain | 1 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 97 35 36 2C 33 32 3A 9C 00 29 |....d..56,32:..)| 00000010: 08 6E 00 81 49 B2 36 37 39 A4 37 34 36 3A 87 41 |.n..I.679.746:.A| 00000020: 25 3A 97 49 2C 41 25 3A 82 00 44 08 78 00 81 49 |%:.I,A%:..D.x..I| 00000030: B2 38 33 32 A4 39 31 34 3A 87 41 25 3A 97 49 2C |.832.914:.A%:.I,| 00000040: 41 25 3A 82 00 61 08 82 00 86 41 24 28 31 35 30 |A%:..a....A$(150| 00000050: 29 2C 41 25 28 31 35 30 29 2C 43 25 28 31 35 30 |),A%(150),C%(150| 00000060: 29 00 7E 08 8C 00 97 35 33 32 38 30 2C 31 35 3A |).~....53280,15:| 00000070: 97 35 33 32 38 31 2C 31 35 3A 99 22 90 22 00 87 |.53281,15:."."..| 00000080: 08 96 00 8D 37 36 30 00 B7 08 A0 00 99 22 11 11 |....760......"..| 00000090: 1D 50 4C 41 43 45 20 54 48 45 20 53 4F 52 43 45 |.PLACE THE SORCE| 000000A0: 20 44 49 53 4B 20 41 4E 44 20 54 59 50 45 20 27 | DISK AND TYPE '| 000000B0: 53 50 41 43 45 27 22 00 DA 08 AA 00 97 31 39 38 |SPACE'"......198| 000000C0: 2C 30 3A 92 31 39 38 2C 31 3A A1 43 24 3A 8B 43 |,0:.198,1:.C$:.C| 000000D0: 24 B3 B1 22 20 22 A7 31 37 30 00 12 09 B4 00 99 |$.." ".170......| 000000E0: 22 13 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |"......... | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 22 00 2C 09 BE 00 9F 31 35 2C 38 2C 31 35 3A | ".,....15,8,15:| 00000120: 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 00 5D 09 C8 |.1,8,0,"$0":.]..| 00000130: 00 99 22 91 91 20 4F 4E 45 20 4D 4F 4D 45 4E 54 |..".. ONE MOMENT| 00000140: 20 50 4C 45 41 53 45 20 21 20 52 45 41 44 49 4E | PLEASE ! READIN| 00000150: 47 20 44 49 52 45 43 54 4F 52 59 2E 22 00 77 09 |G DIRECTORY.".w.| 00000160: D2 00 A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C 41 |...#1,A$,A$,A$,A| 00000170: 24 3A 42 24 B2 22 22 00 93 09 DC 00 81 49 B2 31 |$:B$.""......I.1| 00000180: A4 32 34 3A A1 23 31 2C 41 24 3A 8B 41 24 B2 22 |.24:.#1,A$:.A$."| 00000190: 22 A7 82 00 AC 09 E6 00 8B 41 24 B2 C7 28 33 34 |"........A$..(34| 000001A0: 29 B0 41 24 B2 C7 28 31 38 29 A7 82 00 BC 09 F0 |).A$..(18)......| 000001B0: 00 42 24 B2 42 24 AA 41 24 3A 82 49 00 D3 09 FA |.B$.B$.A$:.I....| 000001C0: 00 99 22 11 20 44 49 53 4B 20 4E 41 4D 45 3A 20 |..". DISK NAME: | 000001D0: 22 42 24 00 EF 09 04 01 99 22 11 20 43 4F 52 52 |"B$......". CORR| 000001E0: 45 43 54 20 44 49 53 4B 20 3F 20 59 2F 4E 22 00 |ECT DISK ? Y/N".| 000001F0: 19 0A 0E 01 97 31 39 38 2C 30 3A 92 31 39 38 2C |.....198,0:.198,| 00000200: 31 3A A1 43 24 3A 8B 43 24 B2 22 4E 22 A7 A0 31 |1:.C$:.C$."N"..1| 00000210: 3A A0 31 35 3A 89 31 34 30 00 2A 0A 18 01 8B 43 |:.15:.140.*....C| 00000220: 24 B3 B1 22 59 22 A7 32 37 30 00 38 0A 22 01 4E |$.."Y".270.8.".N| 00000230: B2 30 3A 42 24 B2 22 22 00 4F 0A 2C 01 A1 23 31 |.0:B$."".O.,..#1| 00000240: 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 33 30 30 00 |,A$:.A$.."".300.| 00000250: 73 0A 36 01 A1 23 31 2C 41 24 2C 41 24 3A A1 23 |s.6..#1,A$,A$:.#| 00000260: 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 |1,A$:.A$."".A$..| 00000270: 28 30 29 00 95 0A 40 01 43 B2 C6 28 41 24 29 3A |(0)...@.C..(A$):| 00000280: A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 |.#1,A$:.A$."".A$| 00000290: B2 C7 28 30 29 00 AF 0A 4A 01 43 B2 43 AA C6 28 |..(0)...J.C.C..(| 000002A0: 41 24 29 AC 32 35 36 3A 41 25 28 4E 29 B2 43 00 |A$).256:A%(N).C.| 000002B0: CE 0A 54 01 81 49 B2 31 A4 32 35 3A A1 23 31 2C |..T..I.1.25:.#1,| 000002C0: 41 24 3A 8B 41 24 B2 C7 28 33 34 29 A7 82 00 E0 |A$:.A$..(34)....| 000002D0: 0A 5E 01 8B 49 B3 34 AF 41 24 B2 22 20 22 A7 82 |.^..I.4.A$." "..| 000002E0: 00 F5 0A 68 01 8B 49 B2 32 35 AF 41 24 B2 22 20 |...h..I.25.A$." | 000002F0: 22 A7 33 38 30 00 19 0B 72 01 42 24 B2 42 24 AA |".380...r.B$.B$.| 00000300: 41 24 3A 8B 42 24 B2 22 42 4C 4F 43 4B 53 20 46 |A$:.B$."BLOCKS F| 00000310: 52 45 45 2E 22 A7 34 30 30 00 1F 0B 7C 01 82 00 |REE.".400...|...| 00000320: 39 0B 7D 01 8B C3 28 42 24 29 B1 32 30 A7 42 24 |9.}...(B$).20.B$| 00000330: B2 C8 28 42 24 2C 32 30 29 00 78 0B 86 01 41 24 |..(B$,20).x...A$| 00000340: 28 4E 29 B2 42 24 3A 42 24 B2 22 22 3A 99 22 11 |(N).B$:B$."":.".| 00000350: 11 1D 22 3B 41 25 28 4E 29 3B 22 20 22 3B 41 24 |..";A%(N);" ";A$| 00000360: 28 4E 29 3B 22 20 20 20 20 91 91 91 22 3A 4E B2 |(N);" ...":N.| 00000370: 4E AA 31 3A 89 33 30 30 00 8C 0B 90 01 41 24 28 |N.1:.300.....A$(| 00000380: 4E 29 B2 42 24 3A A0 31 3A A0 31 35 00 95 0B 9A |N).B$:.1:.15....| 00000390: 01 8D 37 36 30 00 B4 0B A4 01 99 22 11 41 4E 53 |..760......".ANS| 000003A0: 57 45 52 20 59 45 53 20 4F 52 20 4E 4F 20 20 20 |WER YES OR NO | 000003B0: 59 2F 4E 22 00 E3 0B AE 01 81 49 B2 30 A4 4E AB |Y/N"......I.0.N.| 000003C0: 31 3A 8B 41 25 28 49 29 B1 32 32 35 A7 99 22 11 |1:.A%(I).225..".| 000003D0: 1C 22 3B 41 25 28 49 29 3B 41 24 28 49 29 3B 22 |.";A%(I);A$(I);"| 000003E0: 90 22 3B 00 08 0C B8 01 8B 41 25 28 49 29 B3 B2 |.";......A%(I)..| 000003F0: 32 32 35 A7 99 22 11 22 41 25 28 49 29 3B 41 24 |225.."."A%(I);A$| 00000400: 28 49 29 3B 22 90 22 3B 00 3B 0C C2 01 97 31 39 |(I);".";.;....19| 00000410: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 43 24 3A 8B |8,0:.198,1:.C$:.| 00000420: 43 24 B2 22 4E 22 A7 43 25 28 49 29 B2 30 3A 99 |C$."N".C%(I).0:.| 00000430: A3 33 30 29 43 24 3A 89 34 38 30 00 5C 0C CC 01 |.30)C$:.480.\...| 00000440: 8B 43 24 B2 22 59 22 A7 43 25 28 49 29 B2 31 3A |.C$."Y".C%(I).1:| 00000450: 99 A3 33 30 29 43 24 3A 89 34 38 30 00 65 0C D6 |..30)C$:.480.e..| 00000460: 01 89 34 35 30 00 73 0C E0 01 82 3A 49 B2 30 3A |..450.s....:I.0:| 00000470: 43 B2 30 00 7E 0C EA 01 8D 37 36 30 3A 99 00 A3 |C.0.~....760:...| 00000480: 0C F4 01 8B 43 25 28 49 29 B2 31 AF 41 25 28 49 |....C%(I).1.A%(I| 00000490: 29 B3 B2 32 32 35 A7 43 B2 43 AA 31 3A 8D 35 36 |)..225.C.C.1:.56| 000004A0: 30 3A 99 00 AD 0C FE 01 49 B2 49 AA 31 00 BF 0C |0:......I.I.1...| 000004B0: 08 02 8B 43 B2 39 A7 43 B2 30 3A 89 34 39 30 00 |...C.9.C.0:.490.| 000004C0: CD 0C 12 02 8B 49 B3 B2 4E A7 35 30 30 00 F1 0C |.....I..N.500...| 000004D0: 1C 02 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............| 000004E0: 1D 1D 1D 1D 1D 1D 1C 46 49 4E 49 53 48 45 44 90 |.......FINISHED.| 000004F0: 22 00 0E 0D 26 02 97 31 39 38 2C 30 3A 92 31 39 |"...&..198,0:.19| 00000500: 38 2C 31 3A A1 43 24 3A 9C 3A 89 31 33 30 00 47 |8,1:.C$:.:.130.G| 00000510: 0D 30 02 81 58 B2 C3 28 41 24 28 49 29 29 AB 34 |.0..X..(A$(I)).4| 00000520: A4 31 A9 AB 31 3A 8B CA 28 41 24 28 49 29 2C 58 |.1..1:..(A$(I),X| 00000530: 2C 31 29 B2 22 20 22 A7 58 24 B2 C8 28 41 24 28 |,1)." ".X$..(A$(| 00000540: 49 29 2C 58 AB 31 29 00 72 0D 3A 02 8B CA 28 41 |I),X.1).r.:...(A| 00000550: 24 28 49 29 2C 58 2C 31 29 B1 C7 28 33 32 29 A7 |$(I),X,1)..(32).| 00000560: 58 24 B2 C8 28 41 24 28 49 29 2C 58 29 3A 89 35 |X$..(A$(I),X):.5| 00000570: 39 30 00 78 0D 44 02 82 00 A8 0D 4E 02 9F 31 35 |90.x.D.....N..15| 00000580: 2C 38 2C 31 35 3A 9F 31 2C 38 2C 32 2C 58 24 AA |,8,15:.1,8,2,X$.| 00000590: 22 2C 22 AA C9 28 41 24 28 49 29 2C 33 29 AA 22 |","..(A$(I),3)."| 000005A0: 2C 52 22 3A 8D 37 32 30 00 C4 0D 58 02 99 22 1C |,R":.720...X..".| 000005B0: 20 52 45 41 44 49 4E 47 20 22 3B 41 24 28 49 29 | READING ";A$(I)| 000005C0: 3B 22 90 22 00 D5 0D 62 02 9E 36 37 39 3A 8D 37 |;"."...b..679:.7| 000005D0: 32 30 3A A0 31 00 16 0E 6C 02 99 22 50 4C 41 43 |20:.1...l.."PLAC| 000005E0: 45 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |E DESTINATION DI| 000005F0: 53 4B 2C 54 48 45 4E 20 54 59 50 45 20 53 50 41 |SK,THEN TYPE SPA| 00000600: 43 45 91 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 |CE.":.198,0:.198| 00000610: 2C 31 3A A1 43 24 00 27 0E 76 02 8B 43 24 B3 B1 |,1:.C$.'.v..C$..| 00000620: 22 20 22 A7 36 32 30 00 56 0E 80 02 99 22 20 20 |" ".620.V...." | 00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000650: 20 20 20 20 91 22 00 7D 0E 8A 02 9F 31 2C 38 2C | .".}....1,8,| 00000660: 32 2C 58 24 AA 22 2C 22 AA C9 28 41 24 28 49 29 |2,X$.","..(A$(I)| 00000670: 2C 33 29 AA 22 2C 57 22 3A 8D 37 32 30 00 9A 0E |,3).",W":.720...| 00000680: 94 02 99 22 91 1C 20 57 52 49 54 49 4E 47 20 22 |...".. WRITING "| 00000690: 3B 41 24 28 49 29 3B 22 90 22 00 A8 0E 9E 02 9E |;A$(I);"."......| 000006A0: 38 33 32 3A 8D 37 32 30 00 D6 0E A8 02 99 22 91 |832:.720......".| 000006B0: 20 43 4F 50 49 45 44 20 22 3B 41 24 28 49 29 3B | COPIED ";A$(I);| 000006C0: 22 20 20 22 3A A0 31 35 3A A0 31 3A 8B 49 B2 4E |" ":.15:.1:.I.N| 000006D0: AB 31 A7 37 31 30 00 13 0F B2 02 99 22 50 4C 41 |.1.710......"PLA| 000006E0: 43 45 20 53 4F 52 43 45 20 44 49 53 4B 2C 54 48 |CE SORCE DISK,TH| 000006F0: 45 4E 20 54 59 50 45 20 27 53 50 41 43 45 27 91 |EN TYPE 'SPACE'.| 00000700: 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |":.198,0:.198,1:| 00000710: A1 43 24 00 41 0F BC 02 99 22 20 20 20 20 20 20 |.C$.A...." | 00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .| 00000740: 22 00 47 0F C6 02 8E 00 65 0F D0 02 84 31 35 2C |".G.....e....15,| 00000750: 45 4E 2C 45 52 24 2C 45 54 2C 45 53 3A 8B 45 4E |EN,ER$,ET,ES:.EN| 00000760: B3 32 30 A7 8E 00 95 0F DA 02 99 22 12 44 49 53 |.20........".DIS| 00000770: 4B 20 45 52 52 4F 52 20 23 22 3B 45 4E 3B 22 9D |K ERROR #";EN;".| 00000780: 20 20 9D 22 3B 45 52 24 3B 45 54 3B 22 9D 22 45 | .";ER$;ET;"."E| 00000790: 53 3B 22 92 22 00 AB 0F E4 02 97 31 39 38 2C 30 |S;"."......198,0| 000007A0: 3A 92 31 39 38 2C 31 3A A1 43 24 00 BD 0F EE 02 |:.198,1:.C$.....| 000007B0: A0 31 3A A0 31 35 3A 9C 3A 89 31 33 30 00 E2 0F |.1:.15:.:.130...| 000007C0: F8 02 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............| 000007D0: 1D 1D 4D 4F 4E 4F 20 44 52 49 56 45 20 43 4F 50 |..MONO DRIVE COP| 000007E0: 59 22 00 0B 10 02 03 99 22 11 1D 1D 1D 1D 1D 1D |Y"......".......| 000007F0: 1D 28 43 29 20 31 39 38 33 20 20 45 55 52 45 4B |.(C) 1983 EUREK| 00000800: 41 20 53 4F 46 54 57 41 52 45 22 00 38 10 0C 03 |A SOFTWARE".8...| 00000810: 99 22 11 1D 1D 1D 4D 41 58 2E 20 46 49 4C 45 20 |."....MAX. FILE | 00000820: 4C 45 4E 47 48 54 20 32 32 35 20 42 4C 4F 43 4B |LENGHT 225 BLOCK| 00000830: 53 20 3D 20 35 36 4B 22 00 3E 10 16 03 8E 00 87 |S = 56K".>......| 00000840: 10 20 03 83 31 36 32 2C 31 2C 33 32 2C 31 39 38 |. ..162,1,32,198| 00000850: 2C 32 35 35 2C 31 36 39 2C 30 2C 31 33 33 2C 32 |,255,169,0,133,2| 00000860: 35 31 2C 31 36 39 2C 33 32 2C 31 33 33 2C 32 35 |51,169,32,133,25| 00000870: 32 2C 31 36 32 2C 30 2C 31 36 39 2C 31 35 39 2C |2,162,0,169,159,| 00000880: 31 39 37 2C 32 35 32 00 CD 10 2A 03 83 31 34 34 |197,252...*..144| 00000890: 2C 32 33 2C 33 32 2C 31 36 35 2C 32 35 35 2C 31 |,23,32,165,255,1| 000008A0: 32 39 2C 32 35 31 2C 33 32 2C 31 38 33 2C 32 35 |29,251,32,183,25| 000008B0: 35 2C 32 30 38 2C 39 2C 32 33 30 2C 32 35 31 2C |5,208,9,230,251,| 000008C0: 32 30 38 2C 32 2C 32 33 30 2C 32 35 32 00 17 11 |208,2,230,252...| 000008D0: 34 03 83 37 36 2C 31 38 30 2C 32 2C 33 32 2C 32 |4..76,180,2,32,2| 000008E0: 30 34 2C 32 35 35 2C 39 36 2C 33 32 2C 31 36 35 |04,255,96,32,165| 000008F0: 2C 32 35 35 2C 31 34 31 2C 36 30 2C 33 2C 31 32 |,255,141,60,3,12| 00000900: 30 2C 31 36 39 2C 35 32 2C 31 33 33 2C 31 2C 31 |0,169,52,133,1,1| 00000910: 37 33 2C 36 30 2C 33 00 3D 11 3E 03 83 31 32 39 |73,60,3.=.>..129| 00000920: 2C 32 35 31 2C 31 36 39 2C 35 35 2C 31 33 33 2C |,251,169,55,133,| 00000930: 31 2C 38 38 2C 37 36 2C 31 39 33 2C 32 00 86 11 |1,88,76,193,2...| 00000940: 48 03 83 31 36 32 2C 31 2C 33 32 2C 32 30 31 2C |H..162,1,32,201,| 00000950: 32 35 35 2C 31 36 39 2C 30 2C 31 33 33 2C 32 35 |255,169,0,133,25| 00000960: 33 2C 31 36 39 2C 33 32 2C 31 33 33 2C 32 35 34 |3,169,32,133,254| 00000970: 2C 31 36 32 2C 30 2C 31 36 39 2C 31 35 39 2C 31 |,162,0,169,159,1| 00000980: 39 37 2C 32 35 34 00 CE 11 52 03 83 31 34 34 2C |97,254...R..144,| 00000990: 33 38 2C 31 36 31 2C 32 35 33 2C 33 32 2C 31 36 |38,161,253,32,16| 000009A0: 38 2C 32 35 35 2C 33 32 2C 31 38 33 2C 32 35 35 |8,255,32,183,255| 000009B0: 2C 32 30 38 2C 31 35 2C 31 36 35 2C 32 35 34 2C |,208,15,165,254,| 000009C0: 31 39 37 2C 32 35 32 2C 32 34 30 2C 31 33 00 17 |197,252,240,13..| 000009D0: 12 5C 03 83 32 33 30 2C 32 35 33 2C 32 30 38 2C |.\..230,253,208,| 000009E0: 32 2C 32 33 30 2C 32 35 34 2C 37 36 2C 37 37 2C |2,230,254,76,77,| 000009F0: 33 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 2C |3,32,204,255,96,| 00000A00: 31 36 35 2C 32 35 33 2C 31 39 37 2C 32 35 31 2C |165,253,197,251,| 00000A10: 32 30 38 2C 32 33 37 00 5D 12 66 03 83 37 36 2C |208,237.].f..76,| 00000A20: 31 31 30 2C 33 2C 31 32 30 2C 31 36 39 2C 35 32 |110,3,120,169,52| 00000A30: 2C 31 33 33 2C 31 2C 31 36 31 2C 32 35 33 2C 31 |,133,1,161,253,1| 00000A40: 34 31 2C 36 30 2C 33 2C 31 36 39 2C 35 35 2C 31 |41,60,3,169,55,1| 00000A50: 33 33 2C 31 2C 31 37 33 2C 36 30 2C 33 00 78 12 |33,1,173,60,3.x.| 00000A60: 70 03 83 38 38 2C 33 32 2C 31 36 38 2C 32 35 35 |p..88,32,168,255| 00000A70: 2C 37 36 2C 39 30 2C 33 00 00 00 |,76,90,3... |
....D..56,32:..).N..I.679.746:.A%:.I,A%:
..D.X..I.832.914:.A%:.I,A%:..A....A$(150
),A%(150),C%(150).~....53280,15:.53281,1
5:."."......760... .."...PLACE THE SORCE
DISK AND TYPE 'SPACE'".Z....198,0:.198,
1:.C$:.C$.." ".170......".........
".,....
15,8,15:.1,8,0,"$0":.].H..".. ONE MOMENT
PLEASE ! READING DIRECTORY.".W.R..#1,A$
,A$,A$,A$:B$.""......I.1.24:.#1,A$:.A$."
"........A$.G(34).A$.G(18).......B$.B$.A
$:.I.S....". DISK NAME: "B$......". CORR
ECT DISK ? Y/N"......198,0:.198,1:.C$:.C
$."N". 1: 15:.140.*....C$.."Y".270.8.".N
.0:B$."".O.,..#1,A$:.A$.."".300.S.6..#1,
A$,A$:.#1,A$:.A$."".A$.G(0)...@.C.F(A$):
.#1,A$:.A$."".A$.G(0)...J.C.C.F(A$).256:
A%(N).C.N.T..I.1.25:.#1,A$:.A$.G(34)....
.^..I.4.A$." ".....H..I.25.A$." ".380...
R.B$.B$.A$:.B$."BLOCKS FREE.".400...|...
9.}..C(B$).20.B$.H(B$,20).X...A$(N).B$:B
$."":."...";A%(N);" ";A$(N);" ...":N.
N.1:.300.....A$(N).B$: 1: 15......760...
...".ANSWER YES OR NO Y/N"......I.0.N.
1:.A%(I).225.."..";A%(I);A$(I);".";.....
.A%(I)..225.."."A%(I);A$(I);".";.;.B..19
8,0:.198,1:.C$:.C$."N".C%(I).0:..30)C$:.
480.\.L..C$."Y".C%(I).1:..30)C$:.480.E.V
..450.S....:I.0:C.0.~....760:.......C%(I
).1.A%(I)..225.C.C.1:.560:......I.I.1...
...C.9.C.0:.490.M....I..N.500......"....
...............FINISHED."...&..198,0:.19
8,1:.C$:.:.130.G.0..X.C(A$(I)).4.1..1:.J
(A$(I),X,1)." ".X$.H(A$(I),X.1).R.:..J(A
$(I),X,1).G(32).X$.H(A$(I),X):.590.X.D..
...N..15,8,15:.1,8,2,X$.",".I(A$(I),3)."
,R":.720.D.X..". READING ";A$(I);".".U.B
..679:.720: 1...L.."PLACE DESTINATION DI
SK,THEN TYPE SPACE.":.198,0:.198,1:.C$.'
.V..C$.." ".620.V...."
.".}....1,8,2,X$.","
.I(A$(I),3).",W":.720......".. WRITING "
;A$(I);"."......832:.720.V....". COPIED
";A$(I);" ": 15: 1:.I.N.1.710......"PLA
CE SORCE DISK,THEN TYPE 'SPACE'.":.198,0
:.198,1:.C$.A...."
.".G.F...E.P..15,EN,ER$,E
T,ES:.EN.20.....Z..".DISK ERROR #";EN;".
.";ER$;ET;"."ES;"."......198,0:.198,1:
.C$..... 1: 15:.:.130......"............
..MONO DRIVE COPY"......"........(C) 198
3 EUREKA SOFTWARE".8...."....MAX. FILE
LENGHT 225 BLOCKS = 56K".>....... ..162,
1,32,198,255,169,0,133,251,169,32,133,25
2,162,0,169,159,197,252.M.*..144,23,32,1
65,255,129,251,32,183,255,208,9,230,251,
208,2,230,252...4..76,180,2,32,204,255,9
6,32,165,255,141,60,3,120,169,52,133,1,1
73,60,3.=.>..129,251,169,55,133,1,88,76,
193,2...H..162,1,32,201,255,169,0,133,25
3,169,32,133,254,162,0,169,159,197,254.N
.R..144,38,161,253,32,168,255,32,183,255
,208,15,165,254,197,252,240,13...\..230,
253,208,2,230,254,76,77,3,32,204,255,96,
165,253,197,251,208,237.].F..76,110,3,12
0,169,52,133,1,161,253,141,60,3,169,55,1
33,1,173,60,3.X.P..88,32,168,255,76,90,3
...
> CLICK IMAGE PREVIEW FOR FULL MODAL