COPY ALL ALPHA
FILE INFORMATION
FILENAME(S): COPY ALL ALPHA
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
c20c27139d2a825f22e9f68838195a343663ffdaaceb6ea18bd1cd2a68b6d7c3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | COPY ALL ALPHA | PRG | Radd Maxx | 14 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 46 04 64 00 99 22 93 20 44 49 53 4B 2E 43 |..F.d..". DISK.C|
00000010: 4F 50 59 2E 41 4C 4C 2E 41 4C 50 48 41 20 20 20 |OPY.ALL.ALPHA |
00000020: 20 20 20 4A 49 4D 20 42 55 54 54 45 52 46 49 45 | JIM BUTTERFIE|
00000030: 4C 44 20 20 41 4E 44 20 44 52 45 57 20 57 4F 4C |LD AND DREW WOL|
00000040: 4F 53 48 59 4E 22 00 64 04 6E 00 86 20 4C 25 28 |OSHYN".d.n.. L%(|
00000050: 32 33 32 29 2C 4E 24 28 32 33 32 29 2C 54 25 28 |232),N$(232),T%(|
00000060: 32 33 32 29 00 7D 04 78 00 85 22 46 52 4F 4D 20 |232).}.x.."FROM |
00000070: 55 4E 49 54 20 20 38 9D 9D 9D 22 3B 46 00 86 04 |UNIT 8...";F...|
00000080: 82 00 8D 36 37 30 00 90 04 8C 00 46 24 B2 44 24 |...670.....F$.D$|
00000090: 00 A7 04 96 00 85 22 54 4F 20 55 4E 49 54 20 20 |......"TO UNIT |
000000A0: 39 9D 9D 9D 22 3B 54 00 B0 04 A0 00 8D 36 37 30 |9...";T......670|
000000B0: 00 BA 04 AA 00 54 24 B2 44 24 00 CC 04 B4 00 8B |.....T$.D$......|
000000C0: 46 B2 54 20 AF 46 24 B2 54 24 A7 8A 00 D5 04 BE |F.T .F$.T$......|
000000D0: 00 8D 37 33 30 00 F5 04 C8 00 A0 31 3A A0 31 35 |..730......1:.15|
000000E0: 3A 9F 20 31 35 2C 46 2C 31 35 3A 98 31 35 2C 22 |:. 15,F,15:.15,"|
000000F0: 49 22 AA 46 24 00 12 05 CA 00 85 22 41 4C 50 48 |I".F$......"ALPH|
00000100: 41 42 45 54 49 5A 45 20 20 59 9D 9D 9D 22 3B 41 |ABETIZE Y...";A|
00000110: 4C 24 00 48 05 CD 00 85 22 43 4F 50 59 20 12 41 |L$.H...."COPY .A|
00000120: 92 4C 4C 20 46 49 4C 45 53 20 4F 52 20 12 53 92 |.LL FILES OR .S.|
00000130: 45 4C 45 43 54 45 44 20 46 49 4C 45 53 20 20 41 |ELECTED FILES A|
00000140: 9D 9D 9D 22 3B 57 46 24 00 5E 05 D2 00 8D 37 30 |...";WF$.^....70|
00000150: 30 3A 8B 20 45 20 A7 20 90 3A 89 32 30 30 00 88 |0:. E . .:.200..|
00000160: 05 DC 00 99 22 48 4F 4C 44 20 44 4F 57 4E 20 27 |...."HOLD DOWN '|
00000170: 59 27 20 4F 52 20 27 4E 27 20 4B 45 59 20 54 4F |Y' OR 'N' KEY TO|
00000180: 20 53 45 4C 45 43 54 22 00 A8 05 E6 00 99 22 50 | SELECT"......"P|
00000190: 52 4F 47 52 41 4D 53 20 54 4F 20 42 45 20 43 4F |ROGRAMS TO BE CO|
000001A0: 50 49 45 44 2E 2E 2E 22 00 BB 05 F0 00 9F 20 31 |PIED..."...... 1|
000001B0: 2C 46 2C 30 2C 22 24 22 AA 46 24 00 CE 05 FA 00 |,F,0,"$".F$.....|
000001C0: 8D 37 30 30 3A 8B 45 A7 90 3A 89 32 30 30 00 EB |.700:.E..:.200..|
000001D0: 05 04 01 4E B2 30 3A 52 B2 32 35 35 3A 5A B2 38 |...N.0:R.255:Z.8|
000001E0: 39 3A 8D 38 33 30 3A 89 32 38 30 00 F4 05 0E 01 |9:.830:.280.....|
000001F0: 8D 38 35 30 00 03 06 18 01 4C 25 B2 58 AA 59 AC |.850.....L%.X.Y.|
00000200: 32 35 36 00 19 06 22 01 A1 23 31 2C 58 24 3A 8B |256..."..#1,X$:.|
00000210: 58 24 B2 22 22 89 34 36 30 00 2C 06 2C 01 8B 58 |X$."".460.,.,..X|
00000220: 24 B3 B1 C7 28 33 34 29 89 32 39 30 00 36 06 36 |$...(34).290.6.6|
00000230: 01 4E 24 B2 22 22 00 4F 06 40 01 A1 23 31 2C 58 |.N$."".O.@..#1,X|
00000240: 24 3A 8B 58 24 B2 C7 28 33 34 29 89 33 34 30 00 |$:.X$..(34).340.|
00000250: 61 06 4A 01 4E 24 B2 4E 24 AA 58 24 3A 89 33 32 |a.J.N$.N$.X$:.32|
00000260: 30 00 77 06 54 01 A1 23 31 2C 58 24 3A 8B 58 24 |0.w.T..#1,X$:.X$|
00000270: B2 22 22 89 32 37 30 00 93 06 5E 01 58 B2 C6 28 |."".270...^.X..(|
00000280: 58 24 29 3A 8B 28 58 AF 31 32 37 29 B2 33 32 89 |X$):.(X.127).32.|
00000290: 33 34 30 00 AA 06 68 01 A1 23 31 2C 58 24 3A 8B |340...h..#1,X$:.|
000002A0: 58 24 B3 B1 22 22 89 33 36 30 00 BF 06 72 01 8B |X$.."".360...r..|
000002B0: 58 B3 B1 38 30 AF 58 B3 B1 38 33 89 32 37 30 00 |X..80.X..83.270.|
000002C0: D1 06 7C 01 99 4E 24 3B A3 32 30 29 3B C7 28 58 |..|..N$;.20);.(X|
000002D0: 29 00 E0 06 86 01 50 B2 C2 28 31 35 31 29 AF 52 |).....P..(151).R|
000002E0: 00 F1 06 8B 01 8B 57 46 24 B2 22 53 22 A7 33 39 |......WF$."S".39|
000002F0: 39 00 01 07 8C 01 5A 24 B2 22 59 22 3A 89 34 30 |9.....Z$."Y":.40|
00000300: 30 00 09 07 8F 01 A1 5A 24 00 1E 07 90 01 8B 5A |0......Z$......Z|
00000310: 24 B2 22 22 AF 50 B3 32 35 35 89 34 33 30 00 44 |$."".P.255.430.D|
00000320: 07 9A 01 8B 5A 24 B2 22 59 22 B0 5A 24 B2 22 4E |....Z$."Y".Z$."N|
00000330: 22 A7 5A B2 C6 28 5A 24 29 3A 52 B2 32 35 35 3A |".Z..(Z$):R.255:|
00000340: 89 34 33 30 00 5B 07 9F 01 8B 5A 24 B2 C7 28 31 |.430.[....Z$..(1|
00000350: 33 29 A7 52 B2 30 3A 89 34 33 30 00 64 07 A4 01 |3).R.0:.430.d...|
00000360: 89 33 39 39 00 8E 07 AE 01 8B 5A B3 38 30 A7 99 |.399......Z.80..|
00000370: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000380: 20 20 20 20 20 20 20 91 22 3A 89 32 37 30 00 B2 | .":.270..|
00000390: 07 B8 01 4E B2 4E AA 31 3A 4C 25 28 4E 29 B2 4C |...N.N.1:L%(N).L|
000003A0: 25 3A 4E 24 28 4E 29 B2 4E 24 3A 54 25 28 4E 29 |%:N$(N).N$:T%(N)|
000003B0: B2 58 00 BB 07 C2 01 89 32 37 30 00 D4 07 CC 01 |.X......270.....|
000003C0: A0 31 3A A0 31 35 3A 99 22 20 2A 20 2A 20 2A 20 |.1:.15:." * * * |
000003D0: 2A 20 2A 22 00 E6 07 D0 01 8B 41 4C 24 B2 22 59 |* *"......AL$."Y|
000003E0: 22 A7 8D 39 30 30 00 F1 07 D6 01 81 4A B2 31 A4 |"..900......J.1.|
000003F0: 4E 00 11 08 E0 01 4C 25 B2 4C 25 28 4A 29 3A 54 |N.....L%.L%(J):T|
00000400: 25 B2 54 25 28 4A 29 3A 8B 4C B1 4C 25 89 35 33 |%.T%(J):.L.L%.53|
00000410: 30 00 2D 08 EA 01 99 22 2A 2A 2A 20 4F 55 54 50 |0.-...."*** OUTP|
00000420: 55 54 20 44 49 53 4B 20 46 55 4C 4C 22 00 4D 08 |UT DISK FULL".M.|
00000430: F4 01 85 22 44 4F 20 59 4F 55 20 48 41 56 45 20 |..."DO YOU HAVE |
00000440: 41 20 4E 45 57 20 4F 4E 45 22 3B 5A 24 00 5E 08 |A NEW ONE";Z$.^.|
00000450: FE 01 8B C6 28 5A 24 29 B3 B1 38 39 A7 80 00 6C |....(Z$)..89...l|
00000460: 08 08 02 8D 37 33 30 3A 89 34 38 30 00 82 08 12 |....730:.480....|
00000470: 02 9F 31 34 2C 46 2C 31 35 3A 9F 31 35 2C 54 2C |..14,F,15:.15,T,|
00000480: 31 35 00 B0 08 1C 02 99 4E 24 28 4A 29 3B C8 28 |15......N$(J);.(|
00000490: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000004A0: 20 22 2C 31 37 AB C3 28 4E 24 28 4A 29 29 29 3B | ",17..(N$(J)));|
000004B0: 00 D2 08 26 02 9F 33 2C 46 2C 33 2C 46 24 AA 22 |...&..3,F,3,F$."|
000004C0: 3A 22 AA 4E 24 28 4A 29 AA 22 2C 22 AA C7 28 54 |:".N$(J).","..(T|
000004D0: 25 29 00 FE 08 30 02 84 31 34 2C 45 2C 45 24 2C |%)...0..14,E,E$,|
000004E0: 45 31 2C 45 32 3A 8D 37 31 30 3A 8B 45 A7 99 22 |E1,E2:.710:.E.."|
000004F0: 2A 2A 20 22 3B 45 24 3B 45 3A 89 36 32 30 00 2C |** ";E$;E:.620.,|
00000500: 09 3A 02 9F 34 2C 54 2C 34 2C 54 24 AA 22 3A 22 |.:..4,T,4,T$.":"|
00000510: AA 4E 24 28 4A 29 AA 22 2C 22 AA C7 28 54 25 29 |.N$(J).","..(T%)|
00000520: AA 22 2C 57 22 3A 4C B2 4C AB 4C 25 00 4A 09 44 |.",W":L.L.L%.J.D|
00000530: 02 8D 37 30 30 3A 8B 45 A7 99 22 2A 2A 2A 20 22 |..700:.E.."*** "|
00000540: 3B 45 24 3B 45 3A 89 36 32 30 00 5D 09 4E 02 9E |;E$;E:.620.].N..|
00000550: 33 35 38 34 3A 4E 24 28 4A 29 B2 22 22 00 7C 09 |3584:N$(J)."".|.|
00000560: 58 02 8D 37 30 30 3A 8B 45 A7 99 22 2A 2A 2A 2A |X..700:.E.."****|
00000570: 20 22 3B 45 24 3B 45 3A 89 36 32 30 00 85 09 62 | ";E$;E:.620...b|
00000580: 02 99 22 91 22 00 97 09 6C 02 A0 34 3A A0 33 3A |.."."...l..4:.3:|
00000590: A0 31 35 3A A0 31 34 00 9E 09 76 02 82 4A 00 C8 |.15:.14...v..J..|
000005A0: 09 80 02 58 B2 B8 28 30 29 3A 85 22 41 4E 4F 54 |...X..(0):."ANOT|
000005B0: 48 45 52 20 49 4E 50 55 54 20 44 49 53 4B 20 52 |HER INPUT DISK R|
000005C0: 45 41 44 59 22 3B 5A 24 00 DA 09 8A 02 8B C6 28 |EADY";Z$.......(|
000005D0: 5A 24 29 B2 38 39 89 32 30 30 00 E0 09 94 02 80 |Z$).89.200......|
000005E0: 00 F5 09 9E 02 85 22 44 52 49 56 45 20 20 30 9D |......"DRIVE 0.|
000005F0: 9D 9D 22 3B 44 00 05 0A A8 02 8B 44 AC 44 B3 B1 |..";D......D.D..|
00000600: 44 89 36 37 30 00 16 0A B2 02 44 24 B2 C7 28 44 |D.670.....D$..(D|
00000610: AA 34 38 29 3A 8E 00 29 0A BC 02 84 31 35 2C 45 |.48):..)....15,E|
00000620: 2C 45 24 2C 45 31 2C 45 32 00 49 0A C6 02 8B 45 |,E$,E1,E2.I....E|
00000630: B2 30 A7 45 B2 28 53 54 20 AF 20 31 39 31 29 3A |.0.E.(ST . 191):|
00000640: 45 24 B2 22 2A 53 54 2A 22 00 4F 0A D0 02 8E 00 |E$."*ST*".O.....|
00000650: 84 0A DA 02 9F 31 35 2C 54 2C 31 35 3A 85 22 57 |.....15,T,15:."W|
00000660: 41 4E 54 20 54 4F 20 4E 45 57 20 54 48 45 20 4F |ANT TO NEW THE O|
00000670: 55 54 50 55 54 20 44 49 53 4B 20 20 4E 9D 9D 9D |UTPUT DISK N...|
00000680: 22 3B 5A 24 00 97 0A E4 02 8B C6 28 5A 24 29 B3 |";Z$.......(Z$).|
00000690: B1 38 39 89 37 38 30 00 B1 0A EE 02 85 22 44 49 |.89.780......"DI|
000006A0: 53 4B 20 4E 41 4D 45 2C 49 44 22 3B 58 24 2C 59 |SK NAME,ID";X$,Y|
000006B0: 24 00 CE 0A F8 02 98 31 35 2C 22 4E 22 AA 54 24 |$......15,"N".T$|
000006C0: AA 22 3A 22 AA 58 24 AA 22 2C 22 AA 59 24 00 E1 |.":".X$.",".Y$..|
000006D0: 0A 02 03 8D 37 30 30 3A 8B 45 A7 90 3A 89 37 33 |....700:.E..:.73|
000006E0: 30 00 07 0B 0C 03 98 31 35 2C 22 49 22 AA 54 24 |0......15,"I".T$|
000006F0: 3A 9F 31 2C 54 2C 30 2C 22 24 22 AA 54 24 AA 22 |:.1,T,0,"$".T$."|
00000700: 3A 21 23 24 25 26 22 00 1A 0B 16 03 8D 37 30 30 |:!#$%&"......700|
00000710: 3A 8B 45 A7 90 3A 89 37 33 30 00 23 0B 20 03 8D |:.E..:.730.#. ..|
00000720: 38 33 30 00 48 0B 2A 03 4C B2 58 AA 59 AC 32 35 |830.H.*.L.X.Y.25|
00000730: 36 3A 99 22 28 22 3B 4C 3B 22 42 4C 4F 43 4B 53 |6:."(";L;"BLOCKS|
00000740: 20 46 52 45 45 20 29 22 00 55 0B 34 03 A0 31 3A | FREE )".U.4..1:|
00000750: A0 31 35 3A 8E 00 6F 0B 3E 03 A1 23 31 2C 58 24 |.15:..o.>..#1,X$|
00000760: 2C 58 24 2C 58 24 2C 58 24 2C 58 24 2C 58 24 00 |,X$,X$,X$,X$,X$.|
00000770: 86 0B 48 03 A1 23 31 2C 58 24 3A 8B 58 24 B3 B1 |..H..#1,X$:.X$..|
00000780: 22 22 89 38 34 30 00 97 0B 52 03 A1 23 31 2C 58 |"".840...R..#1,X|
00000790: 24 2C 58 24 2C 58 24 00 AE 0B 5C 03 58 B2 C3 28 |$,X$,X$...\.X..(|
000007A0: 58 24 29 3A 8B 58 A7 58 B2 C6 28 58 24 29 00 CC |X$):.X.X..(X$)..|
000007B0: 0B 66 03 A1 23 31 2C 58 24 3A 59 B2 C3 28 58 24 |.f..#1,X$:Y..(X$|
000007C0: 29 3A 8B 59 A7 59 B2 C6 28 58 24 29 00 D2 0B 70 |):.Y.Y..(X$)...p|
000007D0: 03 8E 00 F9 0B 84 03 8F 20 41 4C 50 48 41 42 45 |........ ALPHABE|
000007E0: 54 49 5A 45 20 46 49 4C 45 53 20 42 45 46 4F 52 |TIZE FILES BEFOR|
000007F0: 45 20 43 4F 50 59 49 4E 47 00 09 0C 8E 03 4E 31 |E COPYING.....N1|
00000800: B2 4E AB 31 3A 53 46 B2 30 00 29 0C 98 03 81 4D |.N.1:SF.0.)....M|
00000810: B2 31 A4 4E 31 3A 8B 4E 24 28 4D 29 B3 B2 4E 24 |.1.N1:.N$(M)..N$|
00000820: 28 4D AA 31 29 A7 39 36 30 00 50 0C A2 03 53 46 |(M.1).960.P...SF|
00000830: B2 31 3A 54 4C 25 B2 4C 25 28 4D 29 3A 54 4E 24 |.1:TL%.L%(M):TN$|
00000840: B2 4E 24 28 4D 29 3A 54 54 25 B2 54 25 28 4D 29 |.N$(M):TT%.T%(M)|
00000850: 00 7E 0C AC 03 4C 25 28 4D 29 B2 4C 25 28 4D AA |.~...L%(M).L%(M.|
00000860: 31 29 3A 4E 24 28 4D 29 B2 4E 24 28 4D AA 31 29 |1):N$(M).N$(M.1)|
00000870: 3A 54 25 28 4D 29 B2 54 25 28 4D AA 31 29 00 A6 |:T%(M).T%(M.1)..|
00000880: 0C B6 03 4C 25 28 4D AA 31 29 B2 54 4C 25 3A 4E |...L%(M.1).TL%:N|
00000890: 24 28 4D AA 31 29 B2 54 4E 24 3A 54 25 28 4D AA |$(M.1).TN$:T%(M.|
000008A0: 31 29 B2 54 54 25 00 AC 0C C0 03 82 00 B8 0C CA |1).TT%..........|
000008B0: 03 8B 53 46 B2 30 A7 8E 00 CE 0C D4 03 4E 31 B2 |..SF.0.......N1.|
000008C0: 4E 31 AB 31 3A 53 46 B2 30 3A 89 39 32 30 00 E6 |N1.1:SF.0:.920..|
000008D0: 0C DE 03 8F 20 45 4E 44 20 4F 46 20 42 41 53 49 |.... END OF BASI|
000008E0: 43 20 43 4F 44 45 00 00 00 00 00 00 20 CC FF A2 |C CODE...... ...|
000008F0: 03 20 C6 FF A0 05 88 30 2F 20 E4 FF 8D 40 02 A5 |. .....0/ ...@..|
00000900: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000910: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000920: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000930: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000940: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000950: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000960: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000970: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000980: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000990: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000009A0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000009B0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000009C0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000009D0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000009E0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000009F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00000A00: AA 20 CC FF A2 03 20 C6 FF A0 05 88 30 2F 20 E4 |. .... .....0/ .|
00000A10: FF 8D 40 02 A5 96 8D 41 02 29 03 D0 EE 20 CC FF |..@....A.)... ..|
00000A20: A2 04 20 C9 FF A0 05 88 30 13 AD 40 02 20 D2 FF |.. .....0..@. ..|
00000A30: A5 96 29 03 D0 F1 AD 41 02 F0 C6 85 96 4C CC FF |..)....A.....L..|
00000A40: C9 FF A0 05 88 30 13 AD 40 02 20 D2 FF A5 96 29 |.....0..@. ....)|
00000A50: 03 D0 F1 AD 41 02 F0 C6 85 96 4C CC FF AA AA AA |....A.....L.....|
00000A60: AA |. |
..F.D..". DISK.COPY.ALL.ALPHA JIM B
UTTERFIELD AND DREW WOLOSHYN".D.N.. L%(
232),N$(232),T%(232).}.X.."FROM UNIT 8.
..";F......670.....F$.D$......"TO UNIT
9...";T... ..670.....T$.D$.L....F.T .F$.
T$...U....730...H. 1: 15:. 15,F,15:.15,"
I".F$...J.."ALPHABETIZE Y...";AL$.H.M..
"COPY .A.LL FILES OR .S.ELECTED FILES A
...";WF$.^.R..700:. E . .:.200......"HOL
D DOWN 'Y' OR 'N' KEY TO SELECT"......"P
ROGRAMS TO BE COPIED..."...... 1,F,0,"$"
.F$.N....700:.E..:.200.....N.0:R.255:Z.8
9:.830:.280......850.....L%.X.Y.256...".
.#1,X$:.X$."".460.,.,..X$..G(34).290.6.6
.N$."".O.@..#1,X$:.X$.G(34).340.A.J.N$.N
$.X$:.320.W.T..#1,X$:.X$."".270...^.X.F(
X$):.(X.127).32.340...H..#1,X$:.X$.."".3
60...R..X..80.X..83.270.Q.|..N$;.20);G(X
).....P.B(151).R......WF$."S".399.....Z$
."Y":.400......Z$......Z$."".P.255.430.D
....Z$."Y".Z$."N".Z.F(Z$):R.255:.430.[..
..Z$.G(13).R.0:.430.D....399......Z.80..
". .":.270.....N.N.1
:L%(N).L%:N$(N).N$:T%(N).X...B..270.T.L.
1: 15:." * * * * *"...P..AL$."Y"..900..
.V..J.1.N.....L%.L%(J):T%.T%(J):.L.L%.53
0.-...."*** OUTPUT DISK FULL".M...."DO Y
OU HAVE A NEW ONE";Z$.^....F(Z$)..89...L
....730:.480......14,F,15:.15,T,15......
N$(J);H(" ",17.C(N$(J)));
.R.&..3,F,3,F$.":".N$(J).",".G(T%)...0..
14,E,E$,E1,E2:.710:.E.."** ";E$;E:.620.,
.:..4,T,4,T$.":".N$(J).",".G(T%).",W":L.
L.L%.J.D..700:.E.."*** ";E$;E:.620.].N..
3584:N$(J)."".|.X..700:.E.."**** ";E$;E:
.620...B.."."...L. 4: 3: 15: 14...V..J.H
...X..(0):."ANOTHER INPUT DISK READY";Z$
.Z....F(Z$).89.200............"DRIVE 0.
..";D......D.D..D.670.....D$.G(D.48):..)
....15,E,E$,E1,E2.I.F..E.0.E.(ST . 191):
E$."*ST*".O.P.....Z..15,T,15:."WANT TO N
EW THE OUTPUT DISK N...";Z$......F(Z$).
.89.780......"DISK NAME,ID";X$,Y$.N....1
5,"N".T$.":".X$.",".Y$......700:.E..:.73
0......15,"I".T$:.1,T,0,"$".T$.":!#$%&".
.....700:.E..:.730.#. ..830.H.*.L.X.Y.25
6:."(";L;"BLOCKS FREE )".U.4. 1: 15:..O.
>..#1,X$,X$,X$,X$,X$,X$...H..#1,X$:.X$..
"".840...R..#1,X$,X$,X$...\.X.C(X$):.X.X
.F(X$).L.F..#1,X$:Y.C(X$):.Y.Y.F(X$).R.P
........ ALPHABETIZE FILES BEFORE COPYIN
G.....N1.N.1:SF.0.)....M.1.N1:.N$(M)..N$
(M.1).960.P...SF.1:TL%.L%(M):TN$.N$(M):T
T%.T%(M).~...L%(M).L%(M.1):N$(M).N$(M.1)
:T%(M).T%(M.1).....L%(M.1).TL%:N$(M.1).T
N$:T%(M.1).TT%.........J..SF.0...N.T.N1.
N1.1:SF.0:.920...... END OF BASIC CODE..
.... L... F. ..0/ ...@..................
........................................
........................................
........................................
........................................
........................................
........................................
. L... F. ..0/ ...@....A.).P. L... I. ..
0..@. R...).P..A..F..LL.I. ..0..@. R...)
.P..A..F..LL.....
> CLICK IMAGE PREVIEW FOR FULL MODAL