VIP-DISK-MANAGER
FILE INFORMATION
FILENAME(S): VIP-DISK-MANAGER
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-10-19 22:48:37
APPEARS ON: 5 disk(s)
FILE HASH
d5d31705bb917247a0ef7eab494874b22d394b5b5a25d8babe52d4eeefc7e656
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIP TERMINAL 7 1 | VIP-DISK-MANAGER | PRG | Radd Maxx | 6 | 1 | DOWNLOAD FILE |
| A34B | VIP-DISK-MANAGER | PRG | Bugjam - Argentina | 7 | 0 | DOWNLOAD FILE |
| VIP TERMINAL 7 1 | VIP-DISK-MANAGER | PRG | Sailor, Ganheden | 6 | 1 | DOWNLOAD FILE |
| AD NUT PRG | VIP-DISK-MANAGER | PRG | DuncanTwain | 19 | 1 | DOWNLOAD FILE |
| VIP TERMINAL 7 1 | VIP-DISK-MANAGER | PRG | DuncanTwain | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 05 00 A0 31 35 3A A0 35 3A A0 31 00 |.......15:.5:.1.| 00000010: 30 08 06 00 46 52 B2 B8 28 30 29 3A 8B 20 46 52 |0...FR..(0):. FR| 00000020: B3 30 20 A7 20 46 52 B2 46 52 AA 36 35 35 33 36 |.0 . FR.FR.65536| 00000030: 00 41 08 07 00 53 B2 28 46 52 AB 34 30 30 29 AD |.A...S.(FR.400).| 00000040: 32 00 61 08 08 00 86 54 45 4D 50 25 28 53 29 3A |2.a....TEMP%(S):| 00000050: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,| 00000060: 30 00 81 08 09 00 44 4E 24 B2 22 13 11 11 11 11 |0.....DN$.".....| 00000070: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 9E |................| 00000080: 22 00 97 08 0A 00 99 22 93 22 3B C7 28 31 34 29 |"......".";.(14)| 00000090: 3B C7 28 33 30 29 3B 00 B8 08 0F 00 99 A3 39 29 |;.(30);.......9)| 000000A0: 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............| 000000B0: C0 C0 C0 C0 C0 C0 AE 22 00 D9 08 14 00 99 A3 39 |.......".......9| 000000C0: 29 22 DD 20 20 D6 C9 D0 20 C4 C9 D3 CB 20 CD C1 |)". ... .... ..| 000000D0: CE C1 C7 C5 D2 20 20 DD 22 00 FA 08 19 00 99 A3 |..... .".......| 000000E0: 39 29 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |9)".............| 000000F0: C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 00 09 28 00 99 |........."...(..| 00000100: 00 1B 09 32 00 99 A3 39 29 22 31 20 20 C4 49 53 |...2...9)"1 .IS| 00000110: 4B 20 44 49 52 45 43 54 4F 52 59 00 37 09 3C 00 |K DIRECTORY.7.<.| 00000120: 99 A3 39 29 22 32 20 20 C6 4F 52 4D 41 54 20 4E |..9)"2 .ORMAT N| 00000130: 45 57 20 44 49 53 4B 00 53 09 46 00 99 A3 39 29 |EW DISK.S.F...9)| 00000140: 22 33 20 20 C9 4E 49 54 49 41 4C 49 5A 45 20 44 |"3 .NITIALIZE D| 00000150: 49 53 4B 00 76 09 50 00 99 A3 39 29 22 34 20 20 |ISK.v.P...9)"4 | 00000160: C3 4F 50 59 20 46 49 4C 45 20 54 4F 20 53 41 4D |.OPY FILE TO SAM| 00000170: 45 20 44 49 53 4B 00 98 09 55 00 99 A3 39 29 22 |E DISK...U...9)"| 00000180: 35 20 20 C3 4F 50 59 20 46 49 4C 45 20 54 4F 20 |5 .OPY FILE TO | 00000190: 4E 45 57 20 44 49 53 4B 00 B2 09 56 00 99 A3 39 |NEW DISK...V...9| 000001A0: 29 22 36 20 20 D2 45 4E 41 4D 45 20 41 20 46 49 |)"6 .ENAME A FI| 000001B0: 4C 45 00 CB 09 57 00 99 A3 39 29 22 37 20 20 C5 |LE...W...9)"7 .| 000001C0: 52 41 53 45 20 41 20 46 49 4C 45 00 E6 09 58 00 |RASE A FILE...X.| 000001D0: 99 A3 39 29 22 38 20 20 D6 41 4C 49 44 41 54 45 |..9)"8 .ALIDATE| 000001E0: 20 46 49 4C 45 53 00 01 0A 59 00 99 A3 39 29 22 | FILES...Y...9)"| 000001F0: 39 20 20 C5 58 49 54 20 54 4F 20 C2 C1 D3 C9 C3 |9 .XIT TO .....| 00000200: 22 00 22 0A 5A 00 99 A3 39 29 22 C1 20 20 C1 D3 |".".Z...9)". ..| 00000210: C3 C9 C9 2D C3 C2 CD 20 43 4F 4E 56 45 52 53 49 |...-... CONVERSI| 00000220: 4F 4E 00 41 0A 5B 00 99 A3 39 29 22 C3 20 20 C3 |ON.A.[...9)". .| 00000230: 4F 4D 42 49 4E 45 20 44 49 53 4B 20 46 49 4C 45 |OMBINE DISK FILE| 00000240: 53 00 5C 0A 5D 00 99 A3 39 29 22 D0 20 20 D0 52 |S.\.]...9)". .R| 00000250: 49 4E 54 20 44 49 53 4B 46 49 4C 45 00 78 0A 5F |INT DISKFILE.x._| 00000260: 00 99 A3 39 29 22 D3 20 20 D3 50 4C 49 54 20 44 |...9)". .PLIT D| 00000270: 49 53 4B 20 46 49 4C 45 00 93 0A 61 00 99 A3 39 |ISK FILE...a...9| 00000280: 29 22 D6 20 20 D6 49 45 57 20 44 49 53 4B 20 46 |)". .IEW DISK F| 00000290: 49 4C 45 00 B2 0A 63 00 99 3A 99 A3 31 31 29 22 |ILE...c..:..11)"| 000002A0: CD 41 4B 45 20 53 45 4C 45 43 54 49 4F 4E 20 3A |.AKE SELECTION :| 000002B0: 22 3B 00 C2 0A 6E 00 8D 36 39 35 3A 44 49 24 B2 |";...n..695:DI$.| 000002C0: 22 22 00 DD 0A 73 00 8B 57 24 B2 22 41 22 A7 99 |""...s..W$."A"..| 000002D0: 57 24 3A 8D 31 35 35 30 3A 89 32 31 30 00 F8 0A |W$:.1550:.210...| 000002E0: 78 00 8B 57 24 B2 22 43 22 A7 99 57 24 3A 8D 31 |x..W$."C"..W$:.1| 000002F0: 37 30 30 3A 89 32 31 30 00 13 0B 82 00 8B 57 24 |700:.210......W$| 00000300: B2 22 50 22 A7 99 57 24 3A 8D 31 31 30 30 3A 89 |."P"..W$:.1100:.| 00000310: 32 31 30 00 2E 0B 86 00 8B 57 24 B2 22 53 22 A7 |210......W$."S".| 00000320: 99 57 24 3A 8D 31 32 30 30 3A 89 32 31 30 00 49 |.W$:.1200:.210.I| 00000330: 0B 8C 00 8B 57 24 B2 22 56 22 A7 99 57 24 3A 8D |....W$."V"..W$:.| 00000340: 31 33 30 30 3A 89 32 31 30 00 64 0B C0 00 8B 57 |1300:.210.d....W| 00000350: 24 B3 22 31 22 20 B0 20 57 24 B1 22 39 22 20 A7 |$."1" . W$."9" .| 00000360: 20 31 31 30 00 7A 0B C1 00 99 57 24 3A 43 48 B2 | 110.z....W$:CH.| 00000370: 28 C6 28 57 24 29 AB 34 38 29 00 A9 0B C8 00 91 |(.(W$).48)......| 00000380: 20 43 48 20 8D 20 32 35 30 2C 33 30 30 2C 33 35 | CH . 250,300,35| 00000390: 30 2C 34 30 30 2C 38 30 30 2C 34 35 30 2C 35 30 |0,400,800,450,50| 000003A0: 30 2C 35 35 30 2C 37 30 30 00 B1 0B D2 00 89 20 |0,550,700...... | 000003B0: 39 00 D6 0B FA 00 99 22 93 9B 22 3A 99 A3 31 31 |9......"..":..11| 000003C0: 29 22 C4 20 C9 20 D2 20 C5 20 C3 20 D4 20 CF 20 |)". . . . . . . | 000003D0: D2 20 D9 22 3A 99 00 E5 0B FB 00 9F 31 2C 38 2C |. .":.......1,8,| 000003E0: 30 2C 22 24 22 00 F3 0B FC 00 A1 23 31 2C 41 24 |0,"$"......#1,A$| 000003F0: 2C 42 24 00 FD 0B FD 00 99 22 12 22 3B 00 0B 0C |,B$......".";...| 00000400: FE 00 A1 23 31 2C 41 24 2C 42 24 00 19 0C 00 01 |...#1,A$,B$.....| 00000410: A1 23 31 2C 41 24 2C 42 24 00 39 0C 02 01 43 B2 |.#1,A$,B$.9...C.| 00000420: C6 28 41 24 AA C7 28 30 29 29 AA C6 28 42 24 AA |.(A$..(0))..(B$.| 00000430: C7 28 30 29 29 AC 32 35 36 00 48 0C 04 01 8B 53 |.(0)).256.H....S| 00000440: 54 B3 B1 30 A7 32 38 33 00 60 0C 06 01 99 A3 37 |T..0.283.`.....7| 00000450: 29 CA 28 C4 28 43 29 2C 32 29 3B A3 31 31 29 3B |).(.(C),2);.11);| 00000460: 00 76 0C 08 01 A1 23 31 2C 42 24 3A 8B 20 53 54 |.v....#1,B$:. ST| 00000470: 20 A7 20 32 38 30 00 8B 0C 0A 01 8B 42 24 B3 B1 | . 280......B$..| 00000480: C7 28 33 34 29 20 A7 20 32 36 34 00 B2 0C 0C 01 |.(34) . 264.....| 00000490: A1 20 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 20 C7 |. #1,B$:. B$.. .| 000004A0: 28 33 34 29 20 A7 20 99 20 42 24 3B 3A 89 20 32 |(34) . . B$;:. 2| 000004B0: 36 38 00 CE 0C 0E 01 A1 23 31 2C 42 24 3A 8B 20 |68......#1,B$:. | 000004C0: 42 24 B2 C7 28 33 32 29 20 A7 20 32 37 30 00 DF |B$..(32) . 270..| 000004D0: 0C 10 01 99 A3 32 39 29 3B 3A 43 24 B2 22 22 00 |.....29);:C$."".| 000004E0: 03 0D 12 01 43 24 B2 43 24 AA 42 24 3A A1 20 23 |....C$.C$.B$:. #| 000004F0: 31 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 A7 20 |1,B$:. B$.."" . | 00000500: 32 37 34 00 16 0D 14 01 99 20 C8 28 43 24 2C 33 |274...... .(C$,3| 00000510: 29 3A 8F 20 49 44 00 26 0D 18 01 8B 20 53 54 B2 |):. ID.&.... ST.| 00000520: 30 A7 20 32 35 34 00 3F 0D 1A 01 99 A3 32 31 29 |0. 254.?.....21)| 00000530: 22 C2 4C 4F 43 4B 53 20 C6 52 45 45 22 3A 99 00 |".LOCKS .REE":..| 00000540: 5A 0D 1B 01 A0 31 3A 8D 36 35 30 3A 8B 20 C5 28 |Z....1:.650:. .(| 00000550: 41 24 29 B3 B1 30 20 A7 20 8E 00 63 0D 1C 01 89 |A$)..0 . ..c....| 00000560: 36 39 30 00 69 0D 1D 01 3A 00 73 0D 2C 01 99 44 |690.i...:.s.,..D| 00000570: 4E 24 3B 00 99 0D 31 01 99 A3 37 29 22 C9 4E 53 |N$;...1...7)".NS| 00000580: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 46 |ERT DISK TO BE F| 00000590: 4F 52 4D 41 54 54 45 44 22 00 AE 0D 36 01 85 22 |ORMATTED"...6.."| 000005A0: C4 49 53 4B 20 4E 41 4D 45 22 3B 44 49 24 00 C1 |.ISK NAME";DI$..| 000005B0: 0D 3B 01 8B 20 C3 28 44 49 24 29 B2 30 20 A7 20 |.;.. .(DI$).0 . | 000005C0: 8E 00 D4 0D 40 01 85 22 C4 49 53 4B 20 C9 C4 22 |....@..".ISK .."| 000005D0: 3B 45 58 24 00 E7 0D 45 01 8B 20 C3 28 45 58 24 |;EX$...E.. .(EX$| 000005E0: 29 B2 30 20 A7 20 8E 00 0D 0E 4A 01 A0 31 35 3A |).0 . ....J..15:| 000005F0: 9F 20 31 35 2C 38 2C 31 35 2C 22 4E 3A 22 AA 44 |. 15,8,15,"N:".D| 00000600: 49 53 4B 24 AA 22 2C 22 AA 45 58 54 24 00 2F 0E |ISK$.",".EXT$./.| 00000610: 54 01 89 36 35 35 3A 8F 20 50 52 49 4E 54 20 41 |T..655:. PRINT A| 00000620: 4E 59 20 45 52 52 4F 52 53 20 26 20 52 45 54 00 |NY ERRORS & RET.| 00000630: 4D 0E 5E 01 99 44 4E 24 3B 3A 8F 20 20 20 20 2A |M.^..DN$;:. *| 00000640: 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 00 75 0E |** INITIALIZE.u.| 00000650: 68 01 99 A3 35 29 22 C9 4E 53 45 52 54 20 44 49 |h...5)".NSERT DI| 00000660: 53 4B 20 54 4F 20 42 45 20 49 4E 49 54 49 41 4C |SK TO BE INITIAL| 00000670: 49 5A 45 44 22 00 9D 0E 72 01 99 A3 37 29 3B 22 |IZED"...r...7);"| 00000680: D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 |.RESS ...... TO | 00000690: 49 4E 49 54 49 41 4C 49 5A 45 22 3A 99 00 A6 0E |INITIALIZE":....| 000006A0: 77 01 8D 36 39 35 00 BC 0E 7C 01 A0 31 35 3A 9F |w..695...|..15:.| 000006B0: 20 31 35 2C 38 2C 31 35 2C 22 49 22 00 C5 0E 86 | 15,8,15,"I"....| 000006C0: 01 89 36 35 35 00 CB 0E 8B 01 3A 00 E5 0E 90 01 |..655.....:.....| 000006D0: 99 44 4E 24 3A 8F 20 D3 20 46 49 4C 45 20 52 4F |.DN$:. . FILE RO| 000006E0: 55 54 49 4E 45 00 01 0F 9A 01 85 22 D3 4F 55 52 |UTINE......".OUR| 000006F0: 43 45 20 46 49 4C 45 20 4E 41 4D 45 22 3B 44 49 |CE FILE NAME";DI| 00000700: 24 00 14 0F 9F 01 8B 20 C3 28 44 49 24 29 B2 30 |$...... .(DI$).0| 00000710: 20 A7 20 8E 00 2D 0F A4 01 85 22 CE 45 57 20 46 | . ..-....".EW F| 00000720: 49 4C 45 20 4E 41 4D 45 22 3B 4E 57 24 00 40 0F |ILE NAME";NW$.@.| 00000730: A9 01 8B 20 C3 28 4E 57 24 29 B2 30 20 A7 20 8E |... .(NW$).0 . .| 00000740: 00 65 0F AE 01 A0 31 35 3A 9F 31 35 2C 38 2C 31 |.e....15:.15,8,1| 00000750: 35 2C 22 43 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA |5,"C:".NWS$."=".| 00000760: 44 49 53 4B 24 00 83 0F B8 01 89 36 35 35 3A 8F |DISK$......655:.| 00000770: 20 50 52 49 4E 54 20 45 52 52 4F 52 53 20 26 20 | PRINT ERRORS & | 00000780: 52 45 54 00 89 0F BD 01 3A 00 92 0F C2 01 99 44 |RET.....:......D| 00000790: 4E 24 00 AB 0F CC 01 85 22 CF 4C 44 20 46 49 4C |N$......".LD FIL| 000007A0: 45 20 4E 41 4D 45 22 3B 44 49 24 00 BE 0F D1 01 |E NAME";DI$.....| 000007B0: 8B 20 C3 28 44 49 24 29 B2 30 20 A7 20 8E 00 D8 |. .(DI$).0 . ...| 000007C0: 0F D6 01 85 22 CE 45 57 20 46 49 4C 45 20 4E 41 |....".EW FILE NA| 000007D0: 4D 45 22 3B 4E 57 53 24 00 EB 0F DB 01 8B 20 C3 |ME";NWS$...... .| 000007E0: 28 4E 57 24 29 B2 30 20 A7 20 8E 00 11 10 E0 01 |(NW$).0 . ......| 000007F0: A0 31 35 3A 9F 20 31 35 2C 38 2C 31 35 2C 22 52 |.15:. 15,8,15,"R| 00000800: 3A 22 AA 4E 57 53 24 AA 22 3D 22 AA 44 49 53 4B |:".NWS$."=".DISK| 00000810: 24 00 30 10 EA 01 89 20 36 35 35 3A 8F 20 50 52 |$.0.... 655:. PR| 00000820: 49 4E 54 20 45 52 52 4F 52 53 20 26 20 52 45 54 |INT ERRORS & RET| 00000830: 00 36 10 EF 01 3A 00 4C 10 F4 01 8F 20 20 2A 2A |.6...:.L.... **| 00000840: 2A 20 45 52 41 53 45 20 46 49 4C 45 00 66 10 FE |* ERASE FILE.f..| 00000850: 01 99 44 4E 24 3A 85 22 C6 49 4C 45 20 4E 41 4D |..DN$:.".ILE NAM| 00000860: 45 22 3B 44 49 24 00 79 10 08 02 8B 20 C3 28 44 |E";DI$.y.... .(D| 00000870: 49 24 29 B2 30 20 A7 20 8E 00 93 10 17 02 A0 31 |I$).0 . .......1| 00000880: 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 3A 22 AA |5:.15,8,15,"S:".| 00000890: 44 49 24 00 B5 10 1C 02 89 36 35 35 3A 8F 20 50 |DI$......655:. P| 000008A0: 52 49 4E 54 20 41 4E 59 20 45 52 52 4F 52 53 20 |RINT ANY ERRORS | 000008B0: 26 20 52 45 54 00 BB 10 21 02 3A 00 DA 10 26 02 |& RET...!.:...&.| 000008C0: 99 44 4E 24 3B 3A 8F 20 20 2A 2A 2A 20 56 41 4C |.DN$;:. *** VAL| 000008D0: 49 44 41 54 45 20 44 49 53 4B 00 07 11 30 02 99 |IDATE DISK...0..| 000008E0: 22 20 20 D7 C1 D2 CE C9 CE C7 3A 20 20 CF 50 45 |" .......: .PE| 000008F0: 4E 20 46 49 4C 45 53 20 57 49 4C 4C 20 42 45 20 |N FILES WILL BE | 00000900: 44 45 4C 45 54 45 44 00 31 11 3A 02 99 3A 99 A3 |DELETED.1.:..:..| 00000910: 38 29 22 D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 |8)".RESS ...... | 00000920: 54 4F 20 56 41 4C 49 44 41 54 45 22 3A 8D 36 39 |TO VALIDATE":.69| 00000930: 35 00 41 11 44 02 9F 31 2C 38 2C 31 35 2C 22 56 |5.A.D..1,8,15,"V| 00000940: 22 00 4D 11 4E 02 A0 31 3A 89 36 35 30 00 53 11 |".M.N..1:.650.S.| 00000950: 53 02 3A 00 77 11 58 02 3A 8F 20 2A 2A 2A 20 45 |S.:.w.X.:. *** E| 00000960: 20 52 20 52 20 4F 20 52 20 20 48 20 41 20 4E 20 | R R O R H A N | 00000970: 44 20 4C 20 45 20 52 00 88 11 8A 02 A0 31 35 3A |D L E R......15:| 00000980: 9F 31 35 2C 38 2C 31 35 00 9C 11 8F 02 84 31 35 |.15,8,15......15| 00000990: 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 AE 11 91 |,A$,B$,C$,D$....| 000009A0: 02 8B 20 C5 28 41 24 29 B2 30 20 A7 20 8E 00 F2 |.. .(A$).0 . ...| 000009B0: 11 94 02 45 52 24 B2 42 24 AA 22 20 23 22 AA 41 |...ER$.B$." #".A| 000009C0: 24 AA 22 20 4F 4E 20 54 52 4B 20 22 AA 43 24 AA |$." ON TRK ".C$.| 000009D0: 22 20 53 45 43 20 22 AA 44 24 3A 99 A3 28 34 30 |" SEC ".D$:..(40| 000009E0: AB C3 28 45 52 24 29 29 AD 32 29 45 52 24 3A A0 |..(ER$)).2)ER$:.| 000009F0: 31 35 00 15 12 B2 02 99 A3 37 29 22 D0 52 45 53 |15.......7)".RES| 00000A00: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON| 00000A10: 54 49 4E 55 45 00 2E 12 B7 02 57 24 B2 22 22 3A |TINUE.....W$."":| 00000A20: A1 57 24 3A 8B 57 24 B2 22 22 A7 36 39 35 00 34 |.W$:.W$."".695.4| 00000A30: 12 B8 02 8E 00 3A 12 B9 02 3A 00 55 12 BC 02 99 |.....:...:.U....| 00000A40: 22 93 22 3A A0 31 3A A0 35 3A A0 34 3A A0 31 35 |".":.1:.5:.4:.15| 00000A50: 3A A0 36 3A 80 00 5B 12 EE 02 3A 00 74 12 20 03 |:.6:..[...:.t. .| 00000A60: 99 20 22 93 22 3A 8F 20 32 20 44 52 49 56 45 20 |. ".":. 2 DRIVE | 00000A70: 43 4F 50 59 00 7D 12 22 03 A0 20 31 35 00 8E 12 |COPY.}.".. 15...| 00000A80: 23 03 4D 41 58 B2 B5 28 53 AD 32 35 36 29 00 B5 |#.MAX..(S.256)..| 00000A90: 12 24 03 99 20 22 CD 41 58 49 4D 55 4D 20 53 49 |.$.. ".AXIMUM SI| 00000AA0: 5A 45 20 4F 46 20 46 49 4C 45 20 57 48 49 43 48 |ZE OF FILE WHICH| 00000AB0: 20 43 41 4E 22 00 DA 12 25 03 99 20 22 20 20 42 | CAN"...%.. " B| 00000AC0: 45 20 43 4F 50 49 45 44 20 49 53 20 22 4D 41 58 |E COPIED IS "MAX| 00000AD0: 22 20 42 4C 4F 43 4B 53 2E 22 00 04 13 2A 03 99 |" BLOCKS."...*..| 00000AE0: 3A 99 20 22 C5 4E 54 45 52 20 4E 41 4D 45 20 4F |:. ".NTER NAME O| 00000AF0: 46 20 46 49 4C 45 20 54 4F 20 42 45 20 43 4F 50 |F FILE TO BE COP| 00000B00: 49 45 44 22 00 0E 13 34 03 85 20 46 49 24 00 21 |IED"...4.. FI$.!| 00000B10: 13 35 03 8B 20 C3 28 46 49 24 29 B2 30 20 A7 20 |.5.. .(FI$).0 . | 00000B20: 8E 00 3F 13 3E 03 99 3A 99 20 22 20 20 20 C5 4E |..?.>..:. " .N| 00000B30: 54 45 52 20 46 49 4C 45 20 54 59 50 45 3A 22 00 |TER FILE TYPE:".| 00000B40: 56 13 48 03 99 20 22 20 20 20 20 20 D0 20 50 52 |V.H.. " . PR| 00000B50: 4F 47 52 41 4D 22 00 70 13 52 03 99 20 22 20 20 |OGRAM".p.R.. " | 00000B60: 20 20 20 D3 20 53 45 51 55 45 4E 54 49 41 4C 22 | . SEQUENTIAL"| 00000B70: 00 84 13 5C 03 99 20 22 20 20 20 20 20 D5 20 55 |...\.. " . U| 00000B80: 53 45 52 22 00 9C 13 66 03 99 20 22 20 20 20 20 |SER"...f.. " | 00000B90: 20 D2 20 52 45 4C 41 54 49 56 45 22 00 A8 13 70 | . RELATIVE"...p| 00000BA0: 03 85 20 54 59 50 45 24 00 D6 13 7A 03 99 3A 99 |.. TYPE$...z..:.| 00000BB0: 20 22 C9 4E 53 45 52 54 20 53 4F 55 52 43 45 20 | ".NSERT SOURCE | 00000BC0: 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 D2 |DISK AND PRESS .| 00000BD0: C5 D4 D5 D2 CE 22 00 DF 13 84 03 8D 36 39 35 00 |....."......695.| 00000BE0: FF 13 8E 03 8D 31 30 30 30 3A 8F 20 52 45 41 44 |.....1000:. READ| 00000BF0: 20 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D 50 00 | FILE INTO TEMP.| 00000C00: 11 14 93 03 8B 20 C5 28 41 24 29 B3 B1 30 A7 20 |..... .(A$)..0. | 00000C10: 8E 00 43 14 98 03 99 3A 99 20 22 C9 4E 53 45 52 |..C....:. ".NSER| 00000C20: 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |T DESTINATION DI| 00000C30: 53 4B 20 41 4E 44 20 50 52 45 53 53 20 52 45 54 |SK AND PRESS RET| 00000C40: 55 52 4E 00 4C 14 A2 03 8D 36 39 35 00 6D 14 AC |URN.L....695.m..| 00000C50: 03 8D 31 30 35 30 3A 8F 20 57 52 49 54 45 20 46 |..1050:. WRITE F| 00000C60: 49 4C 45 20 46 52 4F 4D 20 54 45 4D 50 00 8D 14 |ILE FROM TEMP...| 00000C70: B6 03 99 3A 85 22 CD 41 4B 45 20 41 4E 4F 54 48 |...:.".AKE ANOTH| 00000C80: 45 52 20 43 4F 50 59 3F A0 22 3B 57 24 00 A7 14 |ER COPY?.";W$...| 00000C90: C0 03 8B 20 C8 28 57 24 2C 31 29 B2 22 59 22 20 |... .(W$,1)."Y" | 00000CA0: A7 20 89 20 39 32 30 00 AD 14 CA 03 8E 00 B3 14 |. . 920.........| 00000CB0: D9 03 3A 00 D0 14 E8 03 8F 20 2D 20 52 45 41 44 |..:...... - READ| 00000CC0: 20 46 49 4C 45 20 49 4E 54 4F 20 54 45 4D 50 25 | FILE INTO TEMP%| 00000CD0: 00 D8 14 EA 03 49 B2 31 00 E9 14 EC 03 A0 31 35 |.....I.1......15| 00000CE0: 3A 9F 31 35 2C 38 2C 31 35 00 F0 14 ED 03 A0 35 |:.15,8,15......5| 00000CF0: 00 16 15 EE 03 9F 20 35 2C 38 2C 35 2C 22 30 3A |...... 5,8,5,"0:| 00000D00: 22 AA 46 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 |".FILE$.",".TYPE| 00000D10: 24 AA 22 2C 52 22 00 1F 15 EF 03 8D 36 35 35 00 |$.",R"......655.| 00000D20: 32 15 F0 03 8B 20 C5 28 41 24 29 B3 B1 30 20 A7 |2.... .(A$)..0 .| 00000D30: 20 8E 00 48 15 F1 03 99 22 D2 45 41 44 49 4E 47 | ..H....".EADING| 00000D40: 20 22 46 49 4C 45 53 24 00 53 15 F2 03 A1 23 35 | "FILES$.S....#5| 00000D50: 2C 41 24 00 6B 15 F4 03 54 45 4D 50 25 28 49 29 |,A$.k...TEMP%(I)| 00000D60: B2 C6 28 41 24 AA C7 28 30 29 29 00 75 15 F6 03 |..(A$..(0)).u...| 00000D70: 49 B2 49 AA 31 00 87 15 F8 03 8B 20 53 54 B2 30 |I.I.1...... ST.0| 00000D80: 20 A7 20 31 30 31 30 00 B5 15 FA 03 99 3A 99 22 | . 1010......:."| 00000D90: C6 49 4C 45 20 4C 45 4E 47 54 48 20 49 53 22 49 |.ILE LENGTH IS"I| 00000DA0: 22 D3 54 41 54 55 53 20 49 53 22 53 54 3A A0 35 |".TATUS IS"ST:.5| 00000DB0: 3A 89 36 35 30 00 BB 15 FC 03 8E 00 D9 15 1A 04 |:.650...........| 00000DC0: 8F 20 2D 20 57 52 49 54 45 20 46 49 4C 45 20 46 |. - WRITE FILE F| 00000DD0: 52 4F 4D 20 54 45 4D 50 25 00 EB 15 1C 04 A0 31 |ROM TEMP%......1| 00000DE0: 35 3A 9F 20 31 35 2C 38 2C 31 35 00 11 16 1E 04 |5:. 15,8,15.....| 00000DF0: 9F 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 4C |. 5,8,5,"0:".FIL| 00000E00: 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA 22 2C 57 |E$.",".TYPE$.",W| 00000E10: 22 00 1B 16 1F 04 8D 20 36 35 35 00 2E 16 20 04 |"...... 655... .| 00000E20: 8B 20 C5 28 41 24 29 B3 B1 30 20 A7 20 8E 00 42 |. .(A$)..0 . ..B| 00000E30: 16 21 04 99 20 22 D7 52 49 54 49 4E 47 20 22 46 |.!.. ".RITING "F| 00000E40: 49 24 00 4A 16 22 04 4A B2 31 00 5E 16 24 04 98 |I$.J.".J.1.^.$..| 00000E50: 35 2C C7 28 54 45 4D 50 25 28 4A 29 29 3B 00 68 |5,.(TEMP%(J));.h| 00000E60: 16 26 04 4A B2 4A AA 31 00 79 16 28 04 8B 20 4A |.&.J.J.1.y.(.. J| 00000E70: B3 49 20 A7 20 31 30 36 30 00 9C 16 2A 04 99 3A |.I . 1060...*..:| 00000E80: 99 22 C6 49 4C 45 20 4C 45 4E 47 54 48 20 49 53 |.".ILE LENGTH IS| 00000E90: 22 3B 4A 3A A0 20 35 3A 89 36 35 30 00 B5 16 4C |";J:. 5:.650...L| 00000EA0: 04 99 3A 8F 20 20 20 2A 56 49 45 57 20 44 49 53 |..:. *VIEW DIS| 00000EB0: 4B 46 49 4C 45 00 DD 16 60 04 99 3A 85 22 CE 41 |KFILE...`..:.".A| 00000EC0: 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 45 |ME OF FILE TO BE| 00000ED0: 20 50 52 49 4E 54 45 44 22 3B 44 49 24 00 EF 16 | PRINTED";DI$...| 00000EE0: 62 04 8B C3 28 44 49 24 29 B2 30 20 A7 20 8E 00 |b...(DI$).0 . ..| 00000EF0: 00 17 63 04 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 |..c..15:.15,8,15| 00000F00: 00 1E 17 64 04 A0 35 3A 9F 35 2C 38 2C 35 2C 22 |...d..5:.5,8,5,"| 00000F10: 30 3A 22 AA 44 49 24 AA 22 2C 53 2C 52 22 00 35 |0:".DI$.",S,R".5| 00000F20: 17 66 04 8D 36 35 35 3A 8F 20 41 4E 59 20 45 52 |.f..655:. ANY ER| 00000F30: 52 4F 52 53 3F 00 46 17 67 04 8B C5 28 41 24 29 |RORS?.F.g...(A$)| 00000F40: B3 B1 30 A7 20 8E 00 51 17 68 04 9F 34 2C 34 2C |..0. ..Q.h..4,4,| 00000F50: 37 00 69 17 6A 04 A1 23 35 2C 41 24 3A 43 4B B2 |7.i.j..#5,A$:CK.| 00000F60: 53 54 3A 98 34 2C 41 24 3B 00 7D 17 6F 04 99 41 |ST:.4,A$;.}.o..A| 00000F70: 24 3B 3A 8B 43 4B B2 30 A7 31 31 33 30 00 84 17 |$;:.CK.0.1130...| 00000F80: 70 04 98 34 00 94 17 71 04 A0 35 3A A0 31 35 3A |p..4...q..5:.15:| 00000F90: A0 34 3A 8E 00 9A 17 AF 04 3A 00 B8 17 B0 04 99 |.4:......:......| 00000FA0: 44 4E 24 3A 8F 20 53 50 4C 49 54 20 46 49 4C 45 |DN$:. SPLIT FILE| 00000FB0: 20 52 4F 55 54 49 4E 45 00 D4 17 BA 04 85 22 D3 | ROUTINE......".| 00000FC0: 4F 55 52 43 45 20 46 49 4C 45 20 4E 41 4D 45 22 |OURCE FILE NAME"| 00000FD0: 3B 44 49 24 00 E7 17 BF 04 8B 20 C3 28 44 49 24 |;DI$...... .(DI$| 00000FE0: 29 B2 30 20 A7 20 8E 00 F8 17 C4 04 A0 31 35 3A |).0 . .......15:| 00000FF0: 9F 31 35 2C 38 2C 31 35 00 10 18 CE 04 A0 35 3A |.15,8,15......5:| 00001000: 9F 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 44 49 24 |. 5,8,5,"0:".DI$| 00001010: 00 19 18 D0 04 8D 36 35 35 00 2B 18 D2 04 8B C5 |......655.+.....| 00001020: 28 41 24 29 B3 B1 30 20 A7 20 8E 00 62 18 D5 04 |(A$)..0 . ..b...| 00001030: 53 4C B2 30 3A 85 22 C2 4C 4F 43 4B 20 4C 45 4E |SL.0:.".LOCK LEN| 00001040: 47 54 48 20 4F 46 20 45 41 43 48 20 53 45 47 4D |GTH OF EACH SEGM| 00001050: 45 4E 54 22 3B 53 4C 3A 8B 53 4C B2 30 A7 31 32 |ENT";SL:.SL.0.12| 00001060: 37 30 00 70 18 D6 04 53 4C B2 53 4C AC 32 35 34 |70.p...SL.SL.254| 00001070: 00 7E 18 D8 04 41 B2 36 34 3A 99 22 93 22 00 99 |.~...A.64:."."..| 00001080: 18 DD 04 41 B2 41 AA 31 3A 44 4F 24 B2 44 49 24 |...A.A.1:DO$.DI$| 00001090: AA 22 2E 22 AA C7 28 41 29 00 BD 18 DE 04 A0 36 |."."..(A)......6| 000010A0: 3A 9F 20 36 2C 38 2C 36 2C 22 30 3A 22 AA 44 4F |:. 6,8,6,"0:".DO| 000010B0: 24 AA 22 2C 53 2C 57 22 3A 43 54 B2 31 00 C6 18 |$.",S,W":CT.1...| 000010C0: DF 04 8D 36 35 35 00 D8 18 E0 04 8B C5 28 41 24 |...655.......(A$| 000010D0: 29 B3 B1 30 20 A7 20 8E 00 EA 18 E1 04 99 22 D3 |)..0 . .......".| 000010E0: 41 56 49 4E 47 20 22 44 4F 24 00 02 19 E2 04 A1 |AVING "DO$......| 000010F0: 23 35 2C 41 24 3A 43 4B B2 53 54 3A 98 36 2C 41 |#5,A$:CK.ST:.6,A| 00001100: 24 3B 00 1A 19 E7 04 43 54 B2 43 54 AA 31 3A 8B |$;.....CT.CT.1:.| 00001110: 43 54 B2 53 4C A7 31 32 34 35 00 29 19 EC 04 8B |CT.SL.1245.)....| 00001120: 43 4B B2 30 A7 31 32 35 30 00 39 19 F6 04 A0 35 |CK.0.1250.9....5| 00001130: 3A A0 36 3A A0 31 35 3A 8E 00 52 19 14 05 99 3A |:.6:.15:..R....:| 00001140: 8F 20 20 20 2A 56 49 45 57 20 44 49 53 4B 46 49 |. *VIEW DISKFI| 00001150: 4C 45 00 79 19 28 05 99 3A 85 22 CE 41 4D 45 20 |LE.y.(..:.".AME | 00001160: 4F 46 20 46 49 4C 45 20 54 4F 20 42 45 20 56 49 |OF FILE TO BE VI| 00001170: 45 57 45 44 22 3B 44 49 24 00 8B 19 2A 05 8B C3 |EWED";DI$...*...| 00001180: 28 44 49 24 29 B2 30 20 A7 20 8E 00 9C 19 2B 05 |(DI$).0 . ....+.| 00001190: A0 31 35 3A 9F 31 35 2C 38 2C 31 35 00 BA 19 2C |.15:.15,8,15...,| 000011A0: 05 A0 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |..5:.5,8,5,"0:".| 000011B0: 44 49 24 AA 22 2C 53 2C 52 22 00 D1 19 2E 05 8D |DI$.",S,R"......| 000011C0: 36 35 35 3A 8F 20 41 4E 59 20 45 52 52 4F 52 53 |655:. ANY ERRORS| 000011D0: 3F 00 E2 19 2F 05 8B C5 28 41 24 29 B3 B1 30 A7 |?.../...(A$)..0.| 000011E0: 20 8E 00 EB 19 30 05 99 22 93 22 00 FB 19 32 05 | ....0.."."...2.| 000011F0: A1 23 35 2C 41 24 3A 99 41 24 3B 00 11 1A 33 05 |.#5,A$:.A$;...3.| 00001200: A1 57 24 3A 8B 57 24 B3 B1 22 22 A7 20 31 33 33 |.W$:.W$.."". 133| 00001210: 37 00 20 1A 37 05 8B 53 54 B2 30 A7 31 33 33 30 |7. .7..ST.0.1330| 00001220: 00 2B 1A 38 05 99 3A 8D 36 39 30 00 38 1A 39 05 |.+.8..:.690.8.9.| 00001230: A0 35 3A A0 31 35 3A 8E 00 58 1A 0E 06 99 44 4E |.5:.15:..X....DN| 00001240: 24 3A 8F 20 43 4F 4E 56 45 52 54 20 46 49 4C 45 |$:. CONVERT FILE| 00001250: 20 52 4F 55 54 49 4E 45 00 74 1A 11 06 85 22 D3 | ROUTINE.t....".| 00001260: 4F 55 52 43 45 20 46 49 4C 45 20 4E 41 4D 45 22 |OURCE FILE NAME"| 00001270: 3B 44 49 24 00 87 1A 13 06 8B 20 C3 28 44 49 24 |;DI$...... .(DI$| 00001280: 29 B2 30 20 A7 20 8E 00 98 1A 18 06 A0 31 35 3A |).0 . .......15:| 00001290: 9F 31 35 2C 38 2C 31 35 00 B0 1A 1D 06 A0 35 3A |.15,8,15......5:| 000012A0: 9F 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 44 49 24 |. 5,8,5,"0:".DI$| 000012B0: 00 B9 1A 1F 06 8D 36 35 35 00 CB 1A 22 06 8B C5 |......655..."...| 000012C0: 28 41 24 29 B3 B1 30 20 A7 20 8E 00 EC 1A 25 06 |(A$)..0 . ....%.| 000012D0: 85 22 C4 45 53 54 49 4E 41 54 49 4F 4E 20 46 49 |.".ESTINATION FI| 000012E0: 4C 45 20 4E 41 4D 45 22 3B 44 49 24 00 FF 1A 27 |LE NAME";DI$...'| 000012F0: 06 8B 20 C3 28 44 49 24 29 B2 30 20 A7 20 8E 00 |.. .(DI$).0 . ..| 00001300: 13 1B 2B 06 44 4F 24 B2 44 49 24 AA 22 2E 43 4F |..+.DO$.DI$.".CO| 00001310: 4E 56 22 00 32 1B 2C 06 A0 36 3A 9F 20 36 2C 38 |NV".2.,..6:. 6,8| 00001320: 2C 36 2C 22 30 3A 22 AA 44 4F 24 AA 22 2C 53 2C |,6,"0:".DO$.",S,| 00001330: 57 22 00 3B 1B 31 06 8D 36 35 35 00 4D 1B 33 06 |W".;.1..655.M.3.| 00001340: 8B C5 28 41 24 29 B3 B1 30 20 A7 20 8E 00 81 1B |..(A$)..0 . ....| 00001350: 34 06 43 4F B2 30 3A 85 22 30 20 46 4F 52 20 C3 |4.CO.0:."0 FOR .| 00001360: C2 CD 20 3E 20 C1 D3 C3 C9 C9 2E 20 31 20 46 4F |.. > ...... 1 FO| 00001370: 52 20 C1 D3 C3 C9 C9 20 3E 20 C3 C2 CD 22 3B 43 |R ..... > ...";C| 00001380: 4F 00 A4 1B 36 06 A1 23 35 2C 41 24 3A 43 4B B2 |O...6..#5,A$:CK.| 00001390: 53 54 3A 8B 43 4F B2 31 A7 8D 31 36 30 30 3A 89 |ST:.CO.1..1600:.| 000013A0: 31 35 39 32 00 AE 1B 37 06 8D 31 36 36 33 00 BE |1592...7..1663..| 000013B0: 1B 38 06 99 41 24 3B 3A 98 36 2C 41 24 3B 00 CD |.8..A$;:.6,A$;..| 000013C0: 1B 39 06 8B 43 4B B2 30 A7 31 35 39 30 00 DD 1B |.9..CK.0.1590...| 000013D0: 3B 06 A0 35 3A A0 36 3A A0 31 35 3A 8E 00 E3 1B |;..5:.6:.15:....| 000013E0: 3C 06 3A 00 02 1C 40 06 3A 8F 20 41 53 43 49 49 |<.:...@.:. ASCII| 000013F0: 20 54 4F 20 43 42 4D 20 43 4F 4E 56 45 52 53 49 | TO CBM CONVERSI| 00001400: 4F 4E 00 1B 1C 4A 06 41 B2 C6 28 41 24 AA C7 28 |ON...J.A..(A$..(| 00001410: 30 29 29 3A 8B 41 B3 36 35 A7 8E 00 2B 1C 54 06 |0)):.A.65...+.T.| 00001420: 8B 41 B1 39 30 20 A7 31 36 34 30 00 45 1C 5E 06 |.A.90 .1640.E.^.| 00001430: 41 24 B2 C7 28 41 AA 31 32 38 29 3A 8E 3A 8F 20 |A$..(A.128):.:. | 00001440: 20 20 55 2F 43 00 53 1C 68 06 8B 41 B3 39 37 20 | U/C.S.h..A.97 | 00001450: A7 20 8E 00 61 1C 72 06 8B 41 B1 31 32 32 A7 20 |. ..a.r..A.122. | 00001460: 8E 00 7A 1C 7C 06 41 24 B2 C7 28 41 AB 33 32 29 |..z.|.A$..(A.32)| 00001470: 3A 8E 3A 8F 20 20 20 4C 2F 43 00 80 1C 7D 06 3A |:.:. L/C...}.:| 00001480: 00 9F 1C 7F 06 3A 8F 20 43 42 4D 20 54 4F 20 41 |.....:. CBM TO A| 00001490: 53 43 49 49 20 43 4F 4E 56 45 52 53 49 4F 4E 00 |SCII CONVERSION.| 000014A0: B8 1C 82 06 41 B2 C6 28 41 24 AA C7 28 30 29 29 |....A..(A$..(0))| 000014B0: 3A 8B 41 B3 36 35 A7 8E 00 C8 1C 85 06 8B 41 B1 |:.A.65........A.| 000014C0: 39 30 20 A7 31 36 37 32 00 DF 1C 86 06 41 24 B2 |90 .1672.....A$.| 000014D0: C7 28 41 AA 33 32 29 3A 8E 3A 8F 20 4C 2F 43 00 |.(A.32):.:. L/C.| 000014E0: ED 1C 88 06 8B 41 B3 39 37 20 A7 20 8E 00 FF 1C |.....A.97 . ....| 000014F0: 89 06 8B 41 B1 31 32 32 20 A7 20 31 36 37 35 00 |...A.122 . 1675.| 00001500: 19 1D 8A 06 41 24 B2 C7 28 41 AB 33 32 29 3A 8E |....A$..(A.32):.| 00001510: 3A 8F 20 4C 4F 20 55 2F 43 00 28 1D 8B 06 8B 41 |:. LO U/C.(....A| 00001520: B3 31 39 33 20 A7 20 8E 00 36 1D 8C 06 8B 41 B1 |.193 . ..6....A.| 00001530: 32 31 38 A7 20 8E 00 51 1D 8F 06 41 24 B2 C7 28 |218. ..Q...A$..(| 00001540: 41 AB 31 32 38 29 3A 8E 3A 8F 20 48 49 20 55 2F |A.128):.:. HI U/| 00001550: 43 00 57 1D 9A 06 3A 00 74 1D A4 06 99 22 93 22 |C.W...:.t...."."| 00001560: 3A 8F 20 43 4F 4E 43 41 54 45 4E 41 54 45 20 46 |:. CONCATENATE F| 00001570: 49 4C 45 53 00 93 1D AE 06 85 22 D3 4F 55 52 43 |ILES......".OURC| 00001580: 45 20 46 49 4C 45 20 4E 41 4D 45 20 23 31 22 3B |E FILE NAME #1";| 00001590: 44 31 24 00 A6 1D B8 06 8B 20 C3 28 44 31 24 29 |D1$...... .(D1$)| 000015A0: B2 30 20 A7 20 8E 00 C5 1D C2 06 85 22 D3 4F 55 |.0 . .......".OU| 000015B0: 52 43 45 20 46 49 4C 45 20 4E 41 4D 45 20 23 32 |RCE FILE NAME #2| 000015C0: 22 3B 44 32 24 00 D8 1D CC 06 8B 20 C3 28 44 32 |";D2$...... .(D2| 000015D0: 24 29 B2 30 20 A7 20 8E 00 EC 1D D1 06 44 43 24 |$).0 . ......DC$| 000015E0: B2 44 31 24 AA 22 2C 22 AA 44 32 24 00 0B 1E D6 |.D1$.",".D2$....| 000015F0: 06 85 22 D3 4F 55 52 43 45 20 46 49 4C 45 20 4E |..".OURCE FILE N| 00001600: 41 4D 45 20 23 33 22 3B 44 33 24 00 21 1E E0 06 |AME #3";D3$.!...| 00001610: 8B 20 C3 28 44 33 24 29 B2 30 20 A7 20 31 38 30 |. .(D3$).0 . 180| 00001620: 30 00 35 1E E5 06 44 43 24 B2 44 43 24 AA 22 2C |0.5...DC$.DC$.",| 00001630: 22 AA 44 33 24 00 54 1E EA 06 85 22 D3 4F 55 52 |".D3$.T....".OUR| 00001640: 43 45 20 46 49 4C 45 20 4E 41 4D 45 20 23 34 22 |CE FILE NAME #4"| 00001650: 3B 44 34 24 00 6A 1E F4 06 8B 20 C3 28 44 34 24 |;D4$.j.... .(D4$| 00001660: 29 B2 30 20 A7 20 31 38 30 30 00 7E 1E F9 06 44 |).0 . 1800.~...D| 00001670: 43 24 B2 44 43 24 AA 22 2C 22 AA 44 34 24 00 9F |C$.DC$.",".D4$..| 00001680: 1E 08 07 85 22 C4 45 53 54 49 4E 41 54 49 4F 4E |....".ESTINATION| 00001690: 20 46 49 4C 45 20 4E 41 4D 45 22 3B 44 4F 24 00 | FILE NAME";DO$.| 000016A0: C1 1E 12 07 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 |.....15:.15,8,15| 000016B0: 2C 22 43 3A 22 AA 44 4F 24 AA 22 3D 22 AA 44 43 |,"C:".DO$."=".DC| 000016C0: 24 00 DF 1E 17 07 89 36 35 35 3A 8F 20 50 52 49 |$......655:. PRI| 000016D0: 4E 54 20 45 52 52 4F 52 53 20 26 20 52 45 54 00 |NT ERRORS & RET.| 000016E0: 00 00 |.. |
...... 15: 5: 1.0...FR..(0):. FR.0 . FR. FR.65536.A...S.(FR.400).2.A....TEMP%(S): .53280,0:.53281,0.....DN$."............. ........"......".";G(14);G(30);.......9) "......................".Y.....9)". VIP DISK MANAGER .".......9)"............. ........."...(.....2...9)"1 DISK DIRECT ORY.7.<...9)"2 FORMAT NEW DISK.S.F...9) "3 INITIALIZE DISK.V.P...9)"4 COPY FIL E TO SAME DISK...U...9)"5 COPY FILE TO NEW DISK...V...9)"6 RENAME A FILE.K.W.. .9)"7 ERASE A FILE...X...9)"8 VALIDATE FILES...Y...9)"9 EXIT TO BASIC".".Z... 9)"A ASCII-CBM CONVERSION.A.[...9)"C C OMBINE DISK FILES.\.]...9)"P PRINT DISK FILE.X._...9)"S SPLIT DISK FILE...A...9 )"V VIEW DISK FILE...C..:..11)"MAKE SEL ECTION :";.B.N..695:DI$.""...S..W$."A".. W$:.1550:.210...X..W$."C"..W$:.1700:.210 ......W$."P"..W$:.1100:.210......W$."S". .W$:.1200:.210.I....W$."V"..W$:.1300:.21 0.D....W$."1" . W$."9" . 110.Z.A..W$:CH. (F(W$).48)...H.. CH . 250,300,350,400,80 0,450,500,550,700...R.. 9.V...."..":..11 )"D I R E C T O R Y":.......1,8,0,"$"... ...#1,A$,B$......".";......#1,A$,B$..... .#1,A$,B$.9...C.F(A$.G(0)).F(B$.G(0)).25 6.H....ST..0.283.`.....7)J(D(C),2);.11); .V....#1,B$:. ST . 280......B$..G(34) . 264...... #1,B$:. B$.. G(34) . . B$;:. 2 68.N....#1,B$:. B$.G(32) . 270.......29) ;:C$."".....C$.C$.B$:. #1,B$:. B$.."" . 274...... H(C$,3):. ID.&.... ST.0. 254.? .....21)"BLOCKS FREE":..Z... 1:.650:. E( A$)..0 . ..C....690.I...:.S.,..DN$;...1. ..7)"INSERT DISK TO BE FORMATTED"...6.." DISK NAME";DI$.A.;.. C(DI$).0 . ..T.@.." DISK ID";EX$...E.. C(EX$).0 . ....J. 15: . 15,8,15,"N:".DISK$.",".EXT$./.T..655:. PRINT ANY ERRORS & RET.M.^..DN$;:. * ** INITIALIZE.U.H...5)"INSERT DISK TO BE INITIALIZED"...R...7);"PRESS RETURN TO INITIALIZE":....W..695...|. 15:. 15,8,15 ,"I".E....655.K...:......DN$:. S FILE RO UTINE......"SOURCE FILE NAME";DI$...... C(DI$).0 . ..-...."NEW FILE NAME";NW$.@. ... C(NW$).0 . ..E... 15:.15,8,15,"C:".N WS$."=".DISK$......655:. PRINT ERRORS & RET.....:...B..DN$...L.."OLD FILE NAME"; DI$...Q.. C(DI$).0 . ..X.V.."NEW FILE NA ME";NWS$...... C(NW$).0 . ...... 15:. 15 ,8,15,"R:".NWS$."=".DISK$.0.... 655:. PR INT ERRORS & RET.6...:.L.... *** ERASE FILE.F....DN$:."FILE NAME";DI$.Y.... C(D I$).0 . ...... 15:.15,8,15,"S:".DI$..... .655:. PRINT ANY ERRORS & RET...!.:.Z.&. .DN$;:. *** VALIDATE DISK...0.." WARNI NG: OPEN FILES WILL BE DELETED.1.:..:.. 8)"PRESS RETURN TO VALIDATE":.695.A.D..1 ,8,15,"V".M.N. 1:.650.S.S.:.W.X.:. *** E R R O R H A N D L E R..... 15:.15,8,15 ......15,A$,B$,C$,D$...... E(A$).0 . ... ...ER$.B$." #".A$." ON TRK ".C$." SEC ". D$:..(40.C(ER$)).2)ER$: 15.......7)"PRES S ANY KEY TO CONTINUE.....W$."":.W$:.W$. "".695.4.....:...:.U....".": 1: 5: 4: 15 : 6:..[...:.T. .. ".":. 2 DRIVE COPY.}." . 15...#.MAX..(S.256)...$.. "MAXIMUM SI ZE OF FILE WHICH CAN".Z.%.. " BE COPIED IS "MAX" BLOCKS."...*..:. "ENTER NAME O F FILE TO BE COPIED"...4.. FI$.!.5.. C(F I$).0 . ..?.>..:. " ENTER FILE TYPE:". V.H.. " P PROGRAM".P.R.. " S SEQ UENTIAL"...\.. " U USER"...F.. " R RELATIVE"...P.. TYPE$.V.Z..:. "INSERT SOURCE DISK AND PRESS RETURN"......695. .....1000:. READ FILE INTO TEMP...... E( A$)..0. ..C....:. "INSERT DESTINATION DI SK AND PRESS RETURN.L....695.M....1050:. WRITE FILE FROM TEMP......:."MAKE ANOTH ER COPY? ";W$...... H(W$,1)."Y" . . 920. ..J.....Y.:.P.... - READ FILE INTO TEMP% .X...I.1..... 15:.15,8,15..... 5...... 5 ,8,5,"0:".FILE$.",".TYPE$.",R"......655. 2.... E(A$)..0 . ..H...."READING "FILES$ .S....#5,A$.K...TEMP%(I).F(A$.G(0)).U... I.I.1...... ST.0 . 1010......:."FILE LEN GTH IS"I"STATUS IS"ST: 5:.650.......Y... . - WRITE FILE FROM TEMP%..... 15:. 15,8 ,15...... 5,8,5,"0:".FILE$.",".TYPE$.",W "...... 655... .. E(A$)..0 . ..B.!.. "WR ITING "FI$.J.".J.1.^.$..5,G(TEMP%(J));.H .&.J.J.1.Y.(.. J.I . 1060...*..:."FILE L ENGTH IS";J: 5:.650...L..:. *VIEW DIS KFILE...`..:."NAME OF FILE TO BE PRINTED ";DI$...B..C(DI$).0 . ....C. 15:.15,8,15 ...D. 5:.5,8,5,"0:".DI$.",S,R".5.F..655: . ANY ERRORS?.F.G..E(A$)..0. ..Q.H..4,4, 7.I.J..#5,A$:CK.ST:.4,A$;.}.O..A$;:.CK.0 .1130...P..4...Q. 5: 15: 4:......:...... DN$:. SPLIT FILE ROUTINE.T...."SOURCE FI LE NAME";DI$...... C(DI$).0 . ....D. 15: .15,8,15...N. 5:. 5,8,5,"0:".DI$...P..65 5.+.R..E(A$)..0 . ..B.U.SL.0:."BLOCK LEN GTH OF EACH SEGMENT";SL:.SL.0.1270.P.V.S L.SL.254.~.X.A.64:.".".....A.A.1:DO$.DI$ .".".G(A)..... 6:. 6,8,6,"0:".DO$.",S,W" :CT.1.F....655.X....E(A$)..0 . ......."S AVING "DO$......#5,A$:CK.ST:.6,A$;.....C T.CT.1:.CT.SL.1245.)....CK.0.1250.9... 5 : 6: 15:..R....:. *VIEW DISKFILE.Y.(.. :."NAME OF FILE TO BE VIEWED";DI$...*..C (DI$).0 . ....+. 15:.15,8,15...,. 5:.5,8 ,5,"0:".DI$.",S,R".Q....655:. ANY ERRORS ?.../..E(A$)..0. ....0.."."...2..#5,A$:. A$;...3..W$:.W$.."". 1337. .7..ST.0.1330 .+.8..:.690.8.9. 5: 15:..X....DN$:. CONV ERT FILE ROUTINE.T...."SOURCE FILE NAME" ;DI$...... C(DI$).0 . ...... 15:.15,8,15 ..... 5:. 5,8,5,"0:".DI$......655.K."..E (A$)..0 . ....%.."DESTINATION FILE NAME" ;DI$...'.. C(DI$).0 . ....+.DO$.DI$.".CO NV".2.,. 6:. 6,8,6,"0:".DO$.",S,W".;.1.. 655.M.3..E(A$)..0 . ....4.CO.0:."0 FOR C BM > ASCII. 1 FOR ASCII > CBM";CO...6..# 5,A$:CK.ST:.CO.1..1600:.1592...7..1663.. .8..A$;:.6,A$;.M.9..CK.0.1590...;. 5: 6: 15:....<.:...@.:. ASCII TO CBM CONVERSI ON...J.A.F(A$.G(0)):.A.65...+.T..A.90 .1 640.E.^.A$.G(A.128):.:. U/C.S.H..A.97 . ..A.R..A.122. ..Z.|.A$.G(A.32):.:. L /C...}.:....:. CBM TO ASCII CONVERSION. ....A.F(A$.G(0)):.A.65...H....A.90 .1672 .....A$.G(A.32):.:. L/C......A.97 . .... ...A.122 . 1675.....A$.G(A.32):.:. LO U/ C.(....A.193 . ..6....A.218. ..Q...A$.G( A.128):.:. HI U/C.W...:.T....".":. CONCA TENATE FILES......"SOURCE FILE NAME #1"; D1$...... C(D1$).0 . ..E.B.."SOURCE FILE NAME #2";D2$.X.L.. C(D2$).0 . ....Q.DC$ .D1$.",".D2$...V.."SOURCE FILE NAME #3"; D3$.!.... C(D3$).0 . 1800.5...DC$.DC$.", ".D3$.T...."SOURCE FILE NAME #4";D4$.J.. .. C(D4$).0 . 1800.~...DC$.DC$.",".D4$.. ...."DESTINATION FILE NAME";DO$.A... 15: .15,8,15,"C:".DO$."=".DC$......655:. PRI NT ERRORS & RET...
> CLICK IMAGE PREVIEW FOR FULL MODAL