Multiple names: DOP, 5 UP
FILE INFORMATION
FILENAME(S):
• DOP<br>• 5 UP
FILE TYPE(S): PRG
FILE SIZE: 15.3K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 2 disk(s)
FILE HASH
4b93b3e28d42754b686a78fb256169520cd8f6b736cadf34a4ead39796f790aa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U37 | DOP | PRG | Radd Maxx | 13 | 5 | DOWNLOAD FILE |
| C64 85 QUINX | 5 UP | PRG | hedning, Mattias H00r | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..Q....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 00 A1 08 02 00 8F 2A 20 20 20 20 20 20 20 20 |*......* |
00000060: 20 20 20 20 20 20 20 20 44 49 53 4B 20 4F 50 45 | DISK OPE|
00000070: 52 41 54 49 4F 4E 53 20 50 52 4F 47 52 41 4D 53 |RATIONS PROGRAMS|
00000080: 20 2D 20 44 4F 50 20 20 20 20 20 20 20 20 20 20 | - DOP |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 2A 00 F1 08 03 00 8F 2A 20 20 20 20 20 20 20 20 |*......* |
000000B0: 20 20 20 20 20 20 20 20 57 52 49 54 54 45 4E 20 | WRITTEN |
000000C0: 42 59 20 43 48 41 52 4C 45 53 20 4F 2E 20 47 41 |BY CHARLES O. GA|
000000D0: 55 54 48 49 45 52 20 20 20 20 20 20 20 20 20 20 |UTHIER |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 2A 00 41 09 05 00 8F 2A 20 20 20 20 20 20 20 20 |*.A....* |
00000100: 20 20 20 20 20 20 20 20 46 4F 52 20 41 4C 4C 20 | FOR ALL |
00000110: 46 52 55 53 54 52 41 54 45 44 20 44 49 53 4B 20 |FRUSTRATED DISK |
00000120: 4C 4F 56 45 52 53 20 20 20 20 20 20 20 20 20 20 |LOVERS |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 2A 00 91 09 06 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 00 B8 09 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 09 14 00 8F 2A 20 |********......* |
000001C0: 20 20 20 20 44 45 43 4C 41 52 45 20 56 41 52 49 | DECLARE VARI|
000001D0: 41 42 4C 45 53 20 20 20 20 20 20 20 20 20 2A 00 |ABLES *.|
000001E0: 06 0A 1E 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 00 14 0A 28 00 86 20 41 24 28 |******...(.. A$(|
00000210: 31 35 30 29 00 38 0A 32 00 51 4F 24 B2 C7 28 33 |150).8.2.QO$..(3|
00000220: 34 29 3A 4B 24 B2 22 20 20 20 20 20 20 20 20 20 |4):K$." |
00000230: 20 20 20 20 20 20 20 22 00 5B 0A 3C 00 4B 31 24 | ".[.<.K1$|
00000240: B2 22 12 52 92 55 4E 20 12 55 92 50 20 12 44 92 |.".R.UN .U.P .D.|
00000250: 4F 57 4E 20 12 51 92 55 49 54 22 00 7D 0A 46 00 |OWN .Q.UIT".}.F.|
00000260: 4B 32 24 B2 22 12 50 92 55 52 47 45 20 12 55 92 |K2$.".P.URGE .U.|
00000270: 50 20 12 44 92 4F 57 4E 20 12 51 92 22 00 BA 0A |P .D.OWN .Q."...|
00000280: 50 00 52 58 B2 37 38 31 3A 52 59 B2 37 38 32 3A |P.RX.781:RY.782:|
00000290: 52 50 B2 37 38 33 3A 43 50 B2 36 35 35 32 30 3A |RP.783:CP.65520:|
000002A0: 58 53 B2 32 33 3A 59 53 B2 30 3A 43 24 B2 C7 28 |XS.23:YS.0:C$..(|
000002B0: 31 33 29 3A 53 44 B2 38 32 38 00 F3 0A 5A 00 53 |13):SD.828...Z.S|
000002C0: 24 28 31 29 B2 22 12 20 20 50 55 52 47 45 2F 44 |$(1).". PURGE/D|
000002D0: 45 4C 45 54 45 20 20 92 22 3A 53 24 28 32 29 B2 |ELETE .":S$(2).|
000002E0: 22 12 1D 1D 20 20 43 20 4F 20 50 20 59 20 20 20 |"... C O P Y |
000002F0: 20 92 22 00 2E 0B 64 00 53 24 28 33 29 B2 22 12 | ."...d.S$(3).".|
00000300: 20 52 45 4E 41 4D 45 20 44 49 53 4B 20 20 20 20 | RENAME DISK |
00000310: 20 20 92 22 3A 53 24 28 34 29 B2 22 12 20 20 20 | .":S$(4).". |
00000320: 44 49 52 45 43 54 4F 52 59 20 20 20 92 22 00 68 |DIRECTORY .".h|
00000330: 0B 6E 00 53 24 28 35 29 B2 22 12 20 20 43 20 48 |.n.S$(5).". C H|
00000340: 20 41 20 4E 20 47 20 45 20 20 92 22 3A 53 24 28 | A N G E .":S$(|
00000350: 36 29 B2 22 12 90 20 20 46 20 4F 20 52 20 4D 20 |6).".. F O R M |
00000360: 41 20 54 20 20 92 05 22 00 A6 0B 78 00 53 24 28 |A T .."...x.S$(|
00000370: 37 29 B2 22 12 20 20 50 52 49 4E 54 20 44 49 52 |7).". PRINT DIR|
00000380: 45 43 54 4F 52 59 20 20 92 22 3A 53 24 28 38 29 |ECTORY .":S$(8)|
00000390: B2 22 12 90 20 20 20 4C 4F 41 44 20 2F 20 52 55 |.".. LOAD / RU|
000003A0: 4E 20 20 92 05 22 00 D7 0B 82 00 4D 31 24 B2 22 |N ..".....M1$."|
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 22 00 0A 0C 8C 00 4D 24 B2 22 | ".....M$."|
000003E0: 90 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------|
000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 05 22 00 15 0C BE 00 89 |--------."......|
00000410: 31 39 30 30 30 00 63 0C BF 00 8F 2A 2A 2A 2A 2A |19000.c....*****|
00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000460: 2A 2A 2A 00 B1 0C C0 00 8F 2A 20 20 20 20 20 20 |***......* |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 2A 00 FF 0C C1 00 8F 2A 20 20 20 20 20 20 20 20 |*......* |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 53 55 42 52 4F 55 54 49 4E 45 53 20 53 | SUBROUTINES S|
000004E0: 45 43 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 |ECTION |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000500: 4D 0D C2 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |M....* |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 9B 0D | *...|
00000550: C3 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 0D C4 00 |***********.....|
000005A0: 8F 00 C7 0D C5 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 2A 2A 2A 2A 2A 2A 2A 00 ED 0D C6 00 8F 2A 20 20 |*******......* |
000005D0: 20 20 20 20 43 48 45 43 4B 20 46 4F 52 20 59 45 | CHECK FOR YE|
000005E0: 53 2F 4E 4F 20 20 20 20 20 20 20 20 2A 00 13 0E |S/NO *...|
000005F0: C7 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000610: 2A 2A 2A 00 4C 0E C8 00 99 22 93 22 A6 32 34 30 |***.L....".".240|
00000620: 29 A6 38 30 29 A3 31 30 29 22 41 52 45 20 59 4F |).80).10)"ARE YO|
00000630: 55 20 53 55 52 45 22 3A 99 A6 35 30 29 22 59 4F |U SURE":..50)"YO|
00000640: 55 20 57 41 4E 54 20 54 4F 11 11 22 00 5C 0E D2 |U WANT TO..".\..|
00000650: 00 99 A3 38 29 53 24 28 53 29 3A 99 00 78 0E DC |...8)S$(S):..x..|
00000660: 00 99 A3 31 30 29 22 11 11 20 12 20 59 20 92 20 |...10)".. . Y . |
00000670: 20 46 4F 52 20 59 45 53 00 94 0E E6 00 99 A3 31 | FOR YES.......1|
00000680: 30 29 22 11 11 20 12 20 4E 20 92 20 20 46 4F 52 |0)".. . N . FOR|
00000690: 20 4E 4F 22 00 B1 0E F0 00 A1 47 24 3A 8B 47 24 | NO"......G$:.G$|
000006A0: B3 B1 22 59 22 AF 47 24 B3 B1 22 4E 22 A7 32 34 |.."Y".G$.."N".24|
000006B0: 30 00 C2 0E FA 00 8B 47 24 B2 22 4E 22 A7 4E 53 |0......G$."N".NS|
000006C0: B2 31 00 C8 0E FF 00 8E 00 EE 0E 01 01 8F 2A 2A |.1............**|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 14 |**************..|
000006F0: 0F 02 01 8F 2A 20 20 20 20 41 53 4B 20 50 55 52 |....* ASK PUR|
00000700: 47 45 20 4F 52 20 44 45 4C 45 54 45 20 20 20 20 |GE OR DELETE |
00000710: 20 20 20 2A 00 3A 0F 03 01 8F 2A 2A 2A 2A 2A 2A | *.:....******|
00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 76 0F 04 01 99 |**********.v....|
00000740: 22 93 22 A6 32 34 30 29 A6 38 30 29 A3 31 30 29 |".".240).80).10)|
00000750: 22 53 45 4C 45 43 54 20 57 48 49 43 48 22 3A 99 |"SELECT WHICH":.|
00000760: A6 35 30 29 22 59 4F 55 20 57 41 4E 54 20 54 4F |.50)"YOU WANT TO|
00000770: 20 44 4F 11 11 22 00 9E 0F 09 01 99 A3 36 29 22 | DO..".......6)"|
00000780: 11 11 20 12 20 46 31 20 92 20 20 46 4F 52 20 44 |.. . F1 . FOR D|
00000790: 49 52 45 43 54 4F 52 59 20 50 55 52 47 45 00 C7 |IRECTORY PURGE..|
000007A0: 0F 0E 01 99 A3 36 29 22 11 11 20 12 20 46 33 20 |.....6)".. . F3 |
000007B0: 92 20 20 46 4F 52 20 31 20 50 52 4F 47 52 41 4D |. FOR 1 PROGRAM|
000007C0: 20 44 45 4C 45 54 45 00 E4 0F 13 01 A1 47 24 3A | DELETE......G$:|
000007D0: 8B 47 24 B3 B1 22 85 22 AF 47 24 B3 B1 22 86 22 |.G$..".".G$.."."|
000007E0: A7 32 37 35 00 EA 0F 18 01 8E 00 10 10 29 01 8F |.275.........)..|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000810: 00 36 10 2A 01 8F 2A 20 20 20 20 20 20 44 49 52 |.6.*..* DIR|
00000820: 45 43 54 4F 52 59 20 43 48 45 43 4B 20 20 20 20 |ECTORY CHECK |
00000830: 20 20 20 20 20 2A 00 5C 10 2B 01 8F 2A 2A 2A 2A | *.\.+..****|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 95 10 2C |************...,|
00000860: 01 44 43 B2 30 3A 99 22 93 22 A6 32 34 30 29 A6 |.DC.0:.".".240).|
00000870: 38 30 29 22 20 20 20 44 4F 20 59 4F 55 20 57 41 |80)" DO YOU WA|
00000880: 4E 54 20 41 20 44 49 52 45 43 54 4F 52 59 20 46 |NT A DIRECTORY F|
00000890: 49 52 53 54 22 00 B1 10 36 01 99 A3 31 30 29 22 |IRST"...6...10)"|
000008A0: 11 11 20 12 20 59 20 92 20 20 46 4F 52 20 59 45 |.. . Y . FOR YE|
000008B0: 53 00 CD 10 40 01 99 A3 31 30 29 22 11 11 20 12 |S...@...10)".. .|
000008C0: 20 4E 20 92 20 20 46 4F 52 20 4E 4F 22 00 EA 10 | N . FOR NO"...|
000008D0: 4A 01 A1 42 24 3A 8B 42 24 B3 B1 22 59 22 AF 42 |J..B$:.B$.."Y".B|
000008E0: 24 B3 B1 22 4E 22 A7 33 33 30 00 FB 10 54 01 8B |$.."N".330...T..|
000008F0: 42 24 B2 22 59 22 A7 44 43 B2 31 00 01 11 5E 01 |B$."Y".DC.1...^.|
00000900: 8E 00 27 11 65 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..'.e..*********|
00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000920: 2A 2A 2A 2A 2A 2A 2A 00 4D 11 66 01 8F 2A 20 20 |*******.M.f..* |
00000930: 20 20 20 20 50 52 49 4E 54 20 42 4C 41 4E 4B 20 | PRINT BLANK |
00000940: 4C 49 4E 45 20 20 20 20 20 20 20 20 2A 00 73 11 |LINE *.s.|
00000950: 67 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |g..*************|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000970: 2A 2A 2A 00 8E 11 68 01 50 58 B2 30 3A 50 59 B2 |***...h.PX.0:PY.|
00000980: 32 33 3A 8D 34 37 30 3A 99 4D 31 24 3A 8E 00 B4 |23:.470:.M1$:...|
00000990: 11 8D 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009B0: 2A 2A 2A 2A 00 DA 11 8E 01 8F 2A 20 20 20 20 20 |****......* |
000009C0: 20 20 20 50 41 47 45 20 54 55 52 4E 45 52 20 20 | PAGE TURNER |
000009D0: 20 20 20 20 20 20 20 20 20 2A 00 00 12 8F 01 8F | *......|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A00: 00 18 12 90 01 97 52 58 2C 58 53 3A 97 52 59 2C |......RX,XS:.RY,|
00000A10: 59 53 3A 97 52 50 2C 30 00 2C 12 9A 01 9E 20 43 |YS:.RP,0.,.... C|
00000A20: 50 3A 8B 52 B2 31 A7 52 B2 30 3A 8E 00 64 12 A4 |P:.R.1.R.0:..d..|
00000A30: 01 99 22 05 50 52 45 53 53 20 12 90 20 53 50 41 |..".PRESS .. SPA|
00000A40: 43 45 42 41 52 20 92 05 20 54 4F 20 43 4F 4E 54 |CEBAR .. TO CONT|
00000A50: 49 4E 49 55 45 90 20 12 90 20 51 20 92 05 20 51 |INIUE. .. Q .. Q|
00000A60: 55 49 54 22 00 83 12 AE 01 A1 42 24 3A 8B 42 24 |UIT"......B$:.B$|
00000A70: B2 22 51 22 A7 8D 36 30 30 3A 8B 47 47 B2 30 A7 |."Q"..600:.GG.0.|
00000A80: 34 30 30 00 91 12 B8 01 8B 47 47 B2 31 A7 36 37 |400......GG.1.67|
00000A90: 30 00 A4 12 C2 01 8B 42 24 B3 B1 C7 28 33 32 29 |0......B$...(32)|
00000AA0: A7 34 33 30 00 AA 12 CC 01 8E 00 D0 12 D3 01 8F |.430............|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AD0: 00 F6 12 D4 01 8F 2A 20 20 20 20 20 20 50 4F 53 |......* POS|
00000AE0: 49 54 49 4F 4E 20 43 55 52 53 4F 52 20 20 20 20 |ITION CURSOR |
00000AF0: 20 20 20 20 20 2A 00 1C 13 D5 01 8F 2A 2A 2A 2A | *......****|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 34 13 D6 |************.4..|
00000B20: 01 97 52 58 2C 50 59 3A 97 52 59 2C 50 58 3A 97 |..RX,PY:.RY,PX:.|
00000B30: 52 50 2C 30 00 3D 13 E0 01 9E 20 43 50 00 43 13 |RP,0.=.... CP.C.|
00000B40: EA 01 8E 00 69 13 F1 01 8F 2A 2A 2A 2A 2A 2A 2A |....i....*******|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 13 F2 01 8F 2A |*********......*|
00000B70: 20 20 20 20 20 20 20 56 41 4C 49 44 41 54 45 20 | VALIDATE |
00000B80: 44 49 53 4B 20 20 20 20 20 20 20 20 20 20 2A 00 |DISK *.|
00000B90: B5 13 F3 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BB0: 2A 2A 2A 2A 2A 00 EC 13 F4 01 99 22 93 22 A6 32 |*****......".".2|
00000BC0: 34 30 29 A3 31 32 29 22 50 4C 45 41 53 45 20 53 |40).12)"PLEASE S|
00000BD0: 45 4C 45 43 54 22 3A 99 A3 31 32 29 22 20 59 4F |ELECT":..12)" YO|
00000BE0: 55 52 20 43 48 4F 49 43 45 20 11 22 00 11 14 FE |UR CHOICE ."....|
00000BF0: 01 99 A3 36 29 22 11 11 20 12 20 46 31 20 92 20 |...6)".. . F1 . |
00000C00: 20 54 4F 20 56 41 4C 49 44 41 54 45 20 44 49 53 | TO VALIDATE DIS|
00000C10: 4B 00 35 14 00 02 99 A3 31 33 29 22 28 54 48 49 |K.5.....13)"(THI|
00000C20: 53 20 4D 41 59 20 54 41 4B 45 20 41 20 57 48 49 |S MAY TAKE A WHI|
00000C30: 4C 45 21 29 22 00 5B 14 08 02 99 A3 36 29 22 11 |LE!)".[.....6)".|
00000C40: 11 20 12 20 46 33 20 92 20 20 54 4F 20 52 45 54 |. . F3 . TO RET|
00000C50: 55 52 4E 20 54 4F 20 4D 45 4E 55 00 88 14 0D 02 |URN TO MENU.....|
00000C60: 99 22 11 11 11 41 20 56 41 4C 49 44 41 54 45 20 |."...A VALIDATE |
00000C70: 4D 45 52 45 4C 59 20 52 45 2D 4F 52 47 41 4E 49 |MERELY RE-ORGANI|
00000C80: 5A 45 53 20 54 48 45 22 00 B5 14 0F 02 99 22 11 |ZES THE"......".|
00000C90: 44 49 53 4B 27 53 20 42 41 4D 20 28 42 4C 4F 43 |DISK'S BAM (BLOC|
00000CA0: 4B 20 41 56 41 49 4C 41 42 49 4C 49 54 59 20 4D |K AVAILABILITY M|
00000CB0: 41 50 29 2E 22 00 D2 14 12 02 A1 47 24 3A 8B 47 |AP)."......G$:.G|
00000CC0: 24 B3 B1 22 85 22 AF 47 24 B3 B1 22 86 22 A7 35 |$..".".G$..".".5|
00000CD0: 33 30 00 E0 14 1C 02 8B 47 24 B2 22 86 22 A7 8E |30......G$."."..|
00000CE0: 00 05 15 26 02 99 22 11 11 20 20 20 20 20 20 20 |...&..".. |
00000CF0: 20 20 12 20 4E 4F 57 20 56 41 4C 49 44 41 54 49 | . NOW VALIDATI|
00000D00: 4E 47 20 92 22 00 22 15 30 02 A0 31 35 3A 9F 31 |NG .".".0..15:.1|
00000D10: 35 2C 38 2C 31 35 3A 98 31 35 2C 22 56 22 3A A0 |5,8,15:.15,"V":.|
00000D20: 31 35 00 28 15 3A 02 8E 00 4E 15 55 02 8F 2A 2A |15.(.:...N.U..**|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 |**************.t|
00000D50: 15 56 02 8F 2A 20 20 20 20 20 20 20 20 20 51 55 |.V..* QU|
00000D60: 49 54 20 59 2F 4E 20 20 20 20 20 20 20 20 20 20 |IT Y/N |
00000D70: 20 20 20 2A 00 9A 15 57 02 8F 2A 2A 2A 2A 2A 2A | *...W..******|
00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 15 58 02 99 |**********...X..|
00000DA0: 22 93 11 11 11 11 11 11 20 50 4C 45 41 53 45 20 |"....... PLEASE |
00000DB0: 42 45 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 |BE SURE YOU WANT|
00000DC0: 20 54 4F 20 51 55 49 54 22 00 D2 15 62 02 47 47 | TO QUIT"...b.GG|
00000DD0: B2 30 00 F2 15 6C 02 99 22 11 11 20 20 20 20 20 |.0...l..".. |
00000DE0: 20 20 12 20 46 31 20 92 20 20 54 4F 20 51 55 49 | . F1 . TO QUI|
00000DF0: 54 22 00 14 16 76 02 99 22 11 11 20 20 20 20 20 |T"...v..".. |
00000E00: 20 20 12 20 46 33 20 92 20 20 54 4F 20 47 4F 20 | . F3 . TO GO |
00000E10: 42 41 43 4B 00 31 16 80 02 A1 41 24 3A 8B 41 24 |BACK.1....A$:.A$|
00000E20: B3 B1 22 85 22 AF 41 24 B3 B1 22 86 22 A7 36 34 |..".".A$..".".64|
00000E30: 30 00 42 16 8A 02 8B 41 24 B2 22 85 22 A7 47 47 |0.B....A$.".".GG|
00000E40: B2 31 00 48 16 94 02 8E 00 80 16 9E 02 99 C7 28 |.1.H...........(|
00000E50: 31 34 32 29 3A 99 22 93 20 42 59 45 20 46 4F 52 |142):.". BYE FOR|
00000E60: 20 4E 4F 57 21 21 21 21 22 3A 93 22 50 41 59 4C | NOW!!!!":."PAYL|
00000E70: 4F 41 44 20 43 4F 4E 4E 45 43 54 22 2C 38 3A 80 |OAD CONNECT",8:.|
00000E80: 00 A5 16 B8 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EA0: 2A 2A 2A 2A 2A 00 CA 16 B9 02 8F 2A 20 20 44 49 |*****......* DI|
00000EB0: 52 45 43 54 4F 52 59 20 28 20 46 34 20 4D 41 49 |RECTORY ( F4 MAI|
00000EC0: 4E 20 4D 45 4E 55 29 20 20 2A 00 EF 16 BB 02 8F |N MENU) *......|
00000ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000EF0: 19 17 BC 02 A0 31 3A A0 31 35 3A 9F 31 35 2C 38 |.....1:.15:.15,8|
00000F00: 2C 31 35 3A 9F 31 2C 38 2C 30 2C 22 24 22 3A 4E |,15:.1,8,0,"$":N|
00000F10: 46 B2 30 3A 8D 32 36 39 30 00 30 17 BE 02 8B 41 |F.0:.2690.0....A|
00000F20: 24 B3 B1 22 30 30 22 A7 A0 31 35 3A A0 31 3A 8E |$.."00"..15:.1:.|
00000F30: 00 3E 17 D0 02 A1 23 31 2C 46 24 2C 53 24 00 4C |.>....#1,F$,S$.L|
00000F40: 17 DA 02 A1 23 31 2C 46 24 2C 53 24 00 5A 17 E4 |....#1,F$,S$.Z..|
00000F50: 02 A1 23 31 2C 46 24 2C 53 24 00 66 17 EE 02 43 |..#1,F$,S$.f...C|
00000F60: 4F B2 43 4F AA 31 00 7E 17 F8 02 46 B2 30 3A 8B |O.CO.1.~...F.0:.|
00000F70: 46 24 B3 B1 22 22 A7 46 B2 C6 28 46 24 29 00 98 |F$.."".F..(F$)..|
00000F80: 17 02 03 8B 53 24 B3 B1 22 22 A7 46 B2 46 AA C6 |....S$.."".F.F..|
00000F90: 28 53 24 29 AC 32 35 36 00 B2 17 0C 03 99 CA 28 |(S$).256.......(|
00000FA0: C4 28 46 29 2C 32 29 3B A3 33 29 3B C7 28 33 34 |.(F),2);.3);.(34|
00000FB0: 29 3B 00 C8 17 16 03 A1 23 31 2C 53 24 3A 8B 53 |);......#1,S$:.S|
00000FC0: 54 B3 B1 30 A7 38 39 30 00 DB 17 20 03 8B 53 24 |T..0.890... ..S$|
00000FD0: B3 B1 C7 28 33 34 29 A7 37 39 30 00 FB 17 2A 03 |...(34).790...*.|
00000FE0: A1 23 31 2C 53 24 3A 8B 53 24 B3 B1 C7 28 33 34 |.#1,S$:.S$...(34|
00000FF0: 29 A7 99 53 24 3B 3A 89 38 31 30 00 0F 18 34 03 |)..S$;:.810...4.|
00001000: 99 C7 28 33 34 29 3B 3A 4E 46 B2 4E 46 AA 31 00 |..(34);:NF.NF.1.|
00001010: 28 18 3E 03 A1 23 31 2C 53 24 3A 8B 53 24 B2 C7 |(.>..#1,S$:.S$..|
00001020: 28 33 32 29 A7 38 33 30 00 39 18 48 03 99 A3 31 |(32).830.9.H...1|
00001030: 39 29 3B 3A 54 24 B2 22 22 00 59 18 52 03 54 24 |9);:T$."".Y.R.T$|
00001040: B2 54 24 AA 53 24 3A A1 23 31 2C 53 24 3A 8B 53 |.T$.S$:.#1,S$:.S|
00001050: 24 B3 B1 22 22 A7 38 35 30 00 66 18 5C 03 99 C8 |$.."".850.f.\...|
00001060: 28 54 24 2C 33 29 00 7B 18 66 03 8B 43 4F B2 32 |(T$,3).{.f..CO.2|
00001070: 33 A7 43 4F B2 30 3A 89 39 32 30 00 89 18 70 03 |3.CO.0:.920...p.|
00001080: 8B 53 54 B2 30 A7 37 33 30 00 9C 18 7A 03 99 22 |.ST.0.730...z.."|
00001090: 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 A4 18 84 |BLOCKS FREE"....|
000010A0: 03 A0 20 31 00 AF 18 8E 03 43 4F B2 30 3A 8E 00 |.. 1.....CO.0:..|
000010B0: E1 18 98 03 99 22 20 50 52 45 53 53 20 12 90 20 |....." PRESS .. |
000010C0: 59 20 05 92 20 46 4F 52 20 4D 4F 52 45 20 2D 20 |Y .. FOR MORE - |
000010D0: 12 90 20 4E 20 05 92 20 54 4F 20 53 54 4F 50 22 |.. N .. TO STOP"|
000010E0: 3B 00 FE 18 A2 03 A1 47 24 3A 8B 47 24 B3 B1 22 |;......G$:.G$.."|
000010F0: 59 22 AF 47 24 B3 B1 22 4E 22 A7 39 33 30 00 29 |Y".G$.."N".930.)|
00001100: 19 AC 03 8B 47 24 B2 22 4E 22 A7 A0 31 3A 43 4F |....G$."N"..1:CO|
00001110: B2 30 3A 50 58 B2 30 3A 50 59 B2 32 33 3A 8D 34 |.0:PX.0:PY.23:.4|
00001120: 37 30 3A 99 4D 31 24 3A 8E 00 37 19 B6 03 99 22 |70:.M1$:..7...."|
00001130: 93 22 3A 89 38 38 30 00 5D 19 E5 03 8F 2A 2A 2A |.":.880.]....***|
00001140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 83 19 |*************...|
00001160: E6 03 8F 2A 20 20 50 55 52 47 45 2F 44 45 4C 45 |...* PURGE/DELE|
00001170: 54 45 20 44 49 53 4B 20 46 31 20 20 20 20 20 20 |TE DISK F1 |
00001180: 20 20 2A 00 A9 19 E7 03 8F 2A 2A 2A 2A 2A 2A 2A | *......*******|
00001190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 19 E8 03 53 B2 |*********.....S.|
000011B0: 31 3A 8D 32 30 30 3A 53 B2 30 3A 8B 4E 53 B2 31 |1:.200:S.0:.NS.1|
000011C0: A7 4E 53 B2 30 3A 8E 00 DD 19 ED 03 8D 32 36 30 |.NS.0:.......260|
000011D0: 3A 8B 47 24 B2 22 86 22 A7 31 37 30 30 00 FE 19 |:.G$.".".1700...|
000011E0: F2 03 44 24 B2 22 30 22 3A 44 B2 C5 28 44 24 29 |..D$."0":D..(D$)|
000011F0: 3A 53 50 B2 31 31 30 38 3A 4C 53 B2 31 37 00 36 |:SP.1108:LS.17.6|
00001200: 1A FC 03 99 22 93 22 A6 32 34 30 29 A6 32 34 30 |....".".240).240|
00001210: 29 22 20 20 50 55 52 47 45 20 43 55 52 52 45 4E |)" PURGE CURREN|
00001220: 54 20 44 49 53 4B 20 12 20 59 20 92 20 4F 52 20 |T DISK . Y . OR |
00001230: 12 20 4E 20 92 22 00 54 1A 06 04 A1 47 24 3A 8B |. N .".T....G$:.|
00001240: 47 24 B3 B1 22 59 22 AF 47 24 B3 B1 22 4E 22 A7 |G$.."Y".G$.."N".|
00001250: 31 30 33 30 00 62 1A 10 04 8B 47 24 B2 22 4E 22 |1030.b....G$."N"|
00001260: A7 8E 00 81 1A 1A 04 99 22 93 22 3A 8D 37 30 30 |........".":.700|
00001270: 3A 50 58 B2 32 34 3A 50 59 B2 32 3A 50 4F B2 53 |:PX.24:PY.2:PO.S|
00001280: 50 00 8A 1A 24 04 8D 34 37 30 00 B1 1A 2E 04 99 |P...$..470......|
00001290: 4B 24 3A 81 54 B2 31 A4 35 30 3A 82 3A 8D 34 37 |K$:.T.1.50:.:.47|
000012A0: 30 3A 99 4B 32 24 3A 81 54 B2 31 A4 31 30 30 3A |0:.K2$:.T.1.100:|
000012B0: 82 00 DF 1A 38 04 A1 47 24 3A 8B 47 24 B3 B1 22 |....8..G$:.G$.."|
000012C0: 50 22 AF 47 24 B3 B1 22 55 22 AF 47 24 B3 B1 22 |P".G$.."U".G$.."|
000012D0: 44 22 AF 47 24 B3 B1 22 51 22 A7 31 30 36 30 00 |D".G$.."Q".1060.|
000012E0: EF 1A 42 04 8B 47 24 B2 22 51 22 A7 35 30 30 00 |..B..G$."Q".500.|
000012F0: 04 1B 4C 04 8B 47 24 B2 22 55 22 A7 8D 34 37 30 |..L..G$."U"..470|
00001300: 3A 99 4B 24 00 3B 1B 4E 04 8B 47 24 B2 22 55 22 |:.K$.;.N..G$."U"|
00001310: A7 8B 50 59 B1 32 A7 50 59 B2 50 59 AB 31 3A 50 |..PY.2.PY.PY.1:P|
00001320: 4F B2 50 4F AB 34 30 3A 8B 50 59 B3 30 A7 50 59 |O.PO.40:.PY.0.PY|
00001330: B2 30 3A 50 4F B2 53 50 AB 38 30 00 5B 1B 56 04 |.0:PO.SP.80.[.V.|
00001340: 8B 47 24 B2 22 50 22 A7 8D 31 32 30 30 3A 8B 44 |.G$."P"..1200:.D|
00001350: 31 24 B2 22 4E 22 A7 31 30 36 30 00 70 1B 60 04 |1$."N".1060.p.`.|
00001360: 8B 47 24 B2 22 44 22 A7 8D 34 37 30 3A 99 4B 24 |.G$."D"..470:.K$|
00001370: 00 A7 1B 62 04 8B 47 24 B2 22 44 22 A7 8B 50 59 |...b..G$."D"..PY|
00001380: B3 4E 46 A7 50 59 B2 50 59 AA 31 3A 50 4F B2 50 |.NF.PY.PY.1:PO.P|
00001390: 4F AA 34 30 3A 8B 50 59 B2 B1 32 33 A7 50 59 B2 |O.40:.PY..23.PY.|
000013A0: 30 3A 89 31 31 36 30 00 BF 1B 6A 04 8B 47 24 B2 |0:.1160...j..G$.|
000013B0: 22 55 22 B0 47 24 B2 22 44 22 A7 31 30 36 30 00 |"U".G$."D".1060.|
000013C0: F6 1B 74 04 8D 34 37 30 3A 99 4B 24 3A 50 59 B2 |..t..470:.K$:PY.|
000013D0: 50 59 AA 31 3A 50 4F B2 50 4F AA 34 30 3A 8B 50 |PY.1:PO.PO.40:.P|
000013E0: 59 B2 B1 32 33 A7 50 59 B2 30 3A 50 4F B2 53 50 |Y..23.PY.0:PO.SP|
000013F0: 3A 89 31 31 36 30 00 00 1C 7E 04 89 31 30 36 30 |:.1160...~..1060|
00001400: 00 33 1C 88 04 8D 33 36 30 3A 99 22 20 43 4F 4E |.3....360:." CON|
00001410: 54 49 4E 55 45 20 50 55 52 47 45 20 44 49 53 4B |TINUE PURGE DISK|
00001420: 20 12 20 59 20 92 20 4F 52 20 12 20 4E 20 92 20 | . Y . OR . N . |
00001430: 20 20 22 00 51 1C 92 04 A1 47 24 3A 8B 47 24 B3 | ".Q....G$:.G$.|
00001440: B1 22 59 22 AF 47 24 B3 B1 22 4E 22 A7 31 31 37 |."Y".G$.."N".117|
00001450: 30 00 61 1C 9C 04 8B 47 24 B2 22 4E 22 A7 35 30 |0.a....G$."N".50|
00001460: 30 00 6B 1C A6 04 89 31 30 35 30 00 89 1C B0 04 |0.k....1050.....|
00001470: 41 24 B2 22 22 3A 42 24 B2 22 22 3A 50 50 B2 50 |A$."":B$."":PP.P|
00001480: 4F 3A 81 53 B2 31 A4 4C 53 00 A8 1C BA 04 41 B2 |O:.S.1.LS.....A.|
00001490: C2 28 50 50 29 3A 8B 41 B3 33 32 A7 50 B2 41 AA |.(PP):.A.32.P.A.|
000014A0: 36 34 3A 89 31 32 33 30 00 B0 1C C4 04 50 B2 41 |64:.1230.....P.A|
000014B0: 00 D9 1C CE 04 41 24 B2 C7 28 50 29 3A 50 50 B2 |.....A$..(P):PP.|
000014C0: 50 50 AA 31 3A 8B 41 24 B2 C7 28 33 34 29 A7 53 |PP.1:.A$..(34).S|
000014D0: B2 4C 53 3A 89 31 32 35 30 00 E8 1C D8 04 42 24 |.LS:.1250.....B$|
000014E0: B2 42 24 AA 41 24 3A 82 00 17 1D E2 04 52 B2 31 |.B$.A$:......R.1|
000014F0: 3A 8D 34 30 30 3A 99 22 12 20 50 55 52 47 45 3F |:.400:.". PURGE?|
00001500: 20 92 20 22 42 24 22 20 12 20 59 20 92 20 4F 52 | . "B$" . Y . OR|
00001510: 20 12 20 4E 20 92 22 00 38 1D EC 04 A1 44 31 24 | . N .".8....D1$|
00001520: 3A 8B 44 31 24 B3 B1 22 59 22 AF 44 31 24 B3 B1 |:.D1$.."Y".D1$..|
00001530: 22 4E 22 A7 31 32 36 30 00 4A 1D F6 04 52 B2 31 |"N".1260.J...R.1|
00001540: 3A 8D 34 30 30 3A 99 4D 31 24 00 59 1D 00 05 8B |:.400:.M1$.Y....|
00001550: 44 31 24 B2 22 4E 22 A7 8E 00 66 1D 0A 05 9F 20 |D1$."N"...f.... |
00001560: 31 2C 38 2C 31 35 00 7B 1D 14 05 98 31 2C 22 53 |1,8,15.{....1,"S|
00001570: 3A 22 AA 42 24 3A 42 24 B2 22 22 00 85 1D 1E 05 |:".B$:B$."".....|
00001580: A0 20 31 3A 8E 00 9E 1D A4 06 8D 33 30 30 3A 8B |. 1:.......300:.|
00001590: 44 43 B2 31 A7 99 22 93 22 3A 8D 37 30 30 00 B7 |DC.1..".":.700..|
000015A0: 1D AE 06 8D 33 36 30 3A 50 58 B2 30 3A 50 59 B2 |....360:PX.0:PY.|
000015B0: 32 33 3A 8D 34 37 30 00 E5 1D B8 06 85 22 12 20 |23:.470......". |
000015C0: 44 45 4C 45 54 45 20 57 48 49 43 48 20 50 52 4F |DELETE WHICH PRO|
000015D0: 47 52 41 4D 20 92 22 3B 50 4E 24 3A 8B 50 4E 24 |GRAM .";PN$:.PN$|
000015E0: B2 22 22 A7 8E 00 01 1E C2 06 53 24 28 30 29 B2 |."".......S$(0).|
000015F0: 22 12 20 44 45 4C 45 54 45 20 92 20 22 AA 50 4E |". DELETE . ".PN|
00001600: 24 00 17 1E CC 06 8D 32 30 30 3A 8B 4E 53 B2 31 |$......200:.NS.1|
00001610: A7 4E 53 B2 30 3A 8E 00 24 1E D6 06 53 24 28 30 |.NS.0:..$...S$(0|
00001620: 29 B2 22 22 00 40 1E E0 06 9F 31 2C 38 2C 31 35 |)."".@....1,8,15|
00001630: 3A 98 31 2C 22 53 3A 22 AA 50 4E 24 3A A0 31 3A |:.1,"S:".PN$:.1:|
00001640: 00 4B 1E EA 06 8D 35 30 30 3A 8E 00 70 1E CD 07 |.K....500:..p...|
00001650: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001670: 00 95 1E CE 07 8F 2A 20 20 20 20 20 52 45 4E 41 |......* RENA|
00001680: 4D 45 20 2F 20 44 49 53 4B 20 49 44 20 20 46 33 |ME / DISK ID F3|
00001690: 20 20 20 20 2A 00 BA 1E CF 07 8F 2A 2A 2A 2A 2A | *......*****|
000016A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D8 1E D0 07 53 |**********.....S|
000016C0: B2 33 3A 8D 32 30 30 3A 53 B2 30 3A 8B 4E 53 B2 |.3:.200:S.0:.NS.|
000016D0: 31 A7 4E 53 B2 30 3A 8E 00 F8 1E D3 07 44 56 B2 |1.NS.0:......DV.|
000016E0: 30 3A 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 |0:SP$." |
000016F0: 20 20 20 20 20 20 20 22 00 2B 1F D4 07 4D 24 B2 | ".+...M$.|
00001700: 22 90 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |".--------------|
00001710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 05 22 00 57 1F D5 07 |---------.".W...|
00001730: 4E 24 28 31 29 B2 22 12 20 20 43 48 41 4E 47 45 |N$(1).". CHANGE|
00001740: 20 44 49 53 4B 20 4E 41 4D 45 20 20 20 22 3A 4E | DISK NAME ":N|
00001750: 24 28 32 29 B2 22 22 00 64 1F DF 07 4E 24 28 33 |$(2)."".d...N$(3|
00001760: 29 B2 22 22 00 90 1F E4 07 99 22 93 11 11 11 11 |).""......".....|
00001770: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 90 |.. .|
00001780: 12 20 44 49 53 4B 20 43 48 41 4E 47 45 20 92 22 |. DISK CHANGE ."|
00001790: 00 BA 1F E9 07 99 22 11 20 20 20 20 20 20 20 20 |......". |
000017A0: 50 4C 45 41 53 45 20 53 45 4C 45 43 54 20 59 4F |PLEASE SELECT YO|
000017B0: 55 52 20 43 48 4F 49 43 45 22 00 D8 1F EE 07 99 |UR CHOICE"......|
000017C0: 22 11 11 20 20 20 20 20 20 20 12 20 46 31 20 92 |".. . F1 .|
000017D0: 20 20 22 4E 24 28 31 29 00 07 20 FD 07 99 22 11 | "N$(1).. ...".|
000017E0: 11 20 20 20 20 20 20 20 12 20 46 37 20 92 20 20 |. . F7 . |
000017F0: 12 20 20 20 20 20 4D 41 49 4E 20 4D 45 4E 55 20 |. MAIN MENU |
00001800: 20 20 20 20 20 20 22 00 28 20 02 08 A1 43 48 24 | ".( ...CH$|
00001810: 3A 8B 43 48 24 B3 B1 22 85 22 AF 43 48 24 B3 B1 |:.CH$..".".CH$..|
00001820: 22 88 22 A7 32 30 35 30 00 42 20 07 08 56 B2 31 |".".2050.B ..V.1|
00001830: 33 36 AB C6 28 43 48 24 29 3A 8B 56 B2 33 A7 56 |36..(CH$):.V.3.V|
00001840: B2 32 00 4D 20 0C 08 8B 56 B2 30 A7 8A 00 5E 20 |.2.M ...V.0...^ |
00001850: 11 08 8D 32 33 30 35 3A 99 22 93 22 4D 24 00 88 |...2305:."."M$..|
00001860: 20 16 08 99 A3 38 29 22 12 05 20 20 20 20 4F 4C | ....8)".. OL|
00001870: 44 20 4E 41 4D 45 2F 49 44 20 20 20 20 11 22 3A |D NAME/ID .":|
00001880: 99 44 44 24 3A 99 4D 24 00 96 20 34 08 8B 56 B2 |.DD$:.M$.. 4..V.|
00001890: 31 A7 32 32 37 30 00 A0 20 57 08 8D 32 33 30 35 |1.2270.. W..2305|
000018A0: 00 E0 20 70 08 99 22 11 20 50 4C 45 41 53 45 20 |.. p..". PLEASE |
000018B0: 54 59 50 45 20 54 48 45 20 12 20 31 36 20 4C 45 |TYPE THE . 16 LE|
000018C0: 54 54 45 52 A0 92 22 3A 99 22 20 20 4E 41 4D 45 |TTER..":." NAME|
000018D0: 20 46 4F 52 20 54 48 45 20 44 49 53 4B 20 22 3B | FOR THE DISK ";|
000018E0: 00 03 21 7A 08 85 4E 4E 24 3A 8B C3 28 4E 4E 24 |..!z..NN$:..(NN$|
000018F0: 29 B1 31 36 B0 C3 28 4E 4E 24 29 B3 31 A7 8A 32 |).16..(NN$).1..2|
00001900: 30 30 33 00 40 21 7F 08 44 24 B2 22 22 3A 54 B2 |003.@!..D$."":T.|
00001910: C3 28 4E 4E 24 29 3A 44 46 B2 31 36 AB 54 3A 81 |.(NN$):DF.16.T:.|
00001920: 46 44 B2 31 A4 44 46 3A 44 24 B2 44 24 AA C7 28 |FD.1.DF:D$.D$..(|
00001930: 33 32 29 3A 82 3A 4E 4E 24 B2 4E 4E 24 AA 44 24 |32):.:NN$.NN$.D$|
00001940: 00 5C 21 84 08 4E 4E 24 B2 C8 28 4E 4E 24 2C 31 |.\!..NN$..(NN$,1|
00001950: 36 29 3A 8B 4E 4E 24 B2 22 22 A7 8A 00 6A 21 89 |6):.NN$.""...j!.|
00001960: 08 8B 56 B2 32 A7 32 33 34 30 00 A4 21 DE 08 99 |..V.2.2340..!...|
00001970: 22 11 20 50 4C 45 41 53 45 20 54 59 50 45 20 54 |". PLEASE TYPE T|
00001980: 48 45 20 12 20 54 57 4F 20 44 49 47 49 54 22 3A |HE . TWO DIGIT":|
00001990: 99 A3 34 29 22 20 4F 52 20 4C 45 54 54 45 52 20 |..4)" OR LETTER |
000019A0: 49 44 22 3B 00 BB 21 E3 08 85 49 24 3A 8B C3 28 |ID";..!...I$:..(|
000019B0: 49 24 29 B3 B1 32 A7 32 32 37 30 00 CA 21 ED 08 |I$)..2.2270..!..|
000019C0: 49 24 B2 C8 28 49 24 2C 32 29 00 D4 21 F7 08 89 |I$..(I$,2)..!...|
000019D0: 32 33 34 30 00 01 22 01 09 41 24 B2 22 22 3A 8F |2340.."..A$."":.|
000019E0: 20 3C 3C 3C 3C 20 52 45 41 44 20 43 55 52 52 45 | <<<< READ CURRE|
000019F0: 4E 54 20 44 49 53 4B 20 4E 41 4D 45 20 3E 3E 3E |NT DISK NAME >>>|
00001A00: 3E 00 20 22 06 09 A0 31 35 3A A0 31 3A 9F 31 2C |>. "...15:.1:.1,|
00001A10: 38 2C 32 2C 22 23 22 3A 9F 31 35 2C 38 2C 31 35 |8,2,"#":.15,8,15|
00001A20: 00 3C 22 0B 09 98 31 35 2C 22 55 31 3A 32 22 3B |.<"...15,"U1:2";|
00001A30: 30 3B 31 38 3B 30 3A 8D 32 36 39 30 00 5D 22 10 |0;18;0:.2690.]".|
00001A40: 09 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 |..15,"B-P:2,144"|
00001A50: 3A 8D 32 36 39 30 3A 4E 44 24 B2 22 22 00 98 22 |:.2690:ND$."".."|
00001A60: 15 09 81 49 B2 31 A4 32 30 3A A1 23 31 2C 41 24 |...I.1.20:.#1,A$|
00001A70: 3A 4E 44 24 B2 4E 44 24 AA 41 24 3A 82 3A 49 44 |:ND$.ND$.A$:.:ID|
00001A80: 24 B2 C9 28 4E 44 24 2C 32 29 3A 4E 44 24 B2 C8 |$..(ND$,2):ND$..|
00001A90: 28 4E 44 24 2C 31 36 29 00 BC 22 1A 09 44 44 24 |(ND$,16).."..DD$|
00001AA0: B2 22 05 4E 41 4D 45 20 90 22 AA 4E 44 24 AA 22 |.".NAME .".ND$."|
00001AB0: 05 20 49 44 23 90 20 22 AA 49 44 24 00 D1 22 1F |. ID#. ".ID$..".|
00001AC0: 09 A0 31 3A 98 31 35 2C 22 49 22 3A A0 31 35 3A |..1:.15,"I":.15:|
00001AD0: 8E 00 DB 22 24 09 8D 32 34 33 30 00 0C 23 4C 09 |..."$..2430..#L.|
00001AE0: 8D 32 33 30 35 3A 99 4D 24 3A 99 A3 38 29 22 12 |.2305:.M$:..8)".|
00001AF0: 05 20 20 20 20 20 4E 45 57 20 20 4E 41 4D 45 2F |. NEW NAME/|
00001B00: 49 44 20 20 20 11 22 3A 99 44 44 24 00 3E 23 56 |ID .":.DD$.>#V|
00001B10: 09 99 4D 24 3A 99 22 11 20 20 20 20 20 57 45 20 |..M$:.". WE |
00001B20: 48 41 56 45 20 46 49 4E 49 53 48 45 44 20 57 49 |HAVE FINISHED WI|
00001B30: 54 48 20 54 48 49 53 20 44 49 53 4B 11 22 00 63 |TH THIS DISK.".c|
00001B40: 23 60 09 99 A3 31 30 29 22 90 20 20 54 4F 20 44 |#`...10)". TO D|
00001B50: 4F 20 41 4E 4F 54 48 45 52 20 44 49 53 4B 20 20 |O ANOTHER DISK |
00001B60: 20 20 22 00 8B 23 65 09 99 A3 31 30 29 22 50 52 | "..#e...10)"PR|
00001B70: 45 53 53 20 12 20 59 20 92 20 4F 52 20 12 20 4E |ESS . Y . OR . N|
00001B80: 20 92 20 54 4F 20 53 54 4F 50 22 00 A9 23 6A 09 | . TO STOP"..#j.|
00001B90: A1 42 24 3A 8B 42 24 B3 B1 22 59 22 AF 42 24 B3 |.B$:.B$.."Y".B$.|
00001BA0: B1 22 4E 22 A7 32 34 31 30 00 BB 23 6F 09 8B 42 |."N".2410..#o..B|
00001BB0: 24 B2 22 59 22 A7 8A 32 30 30 33 00 C1 23 74 09 |$."Y"..2003..#t.|
00001BC0: 8A 00 E0 23 7E 09 A0 31 35 3A A0 31 3A 9F 31 2C |...#~..15:.1:.1,|
00001BD0: 38 2C 32 2C 22 23 22 3A 9F 31 35 2C 38 2C 31 35 |8,2,"#":.15,8,15|
00001BE0: 00 20 24 83 09 98 31 35 2C 22 42 2D 50 3A 32 2C |. $...15,"B-P:2,|
00001BF0: 31 34 34 22 3A 8D 32 36 39 30 3A 49 24 B2 22 20 |144":.2690:I$." |
00001C00: 20 22 AA 49 24 AA 22 20 32 41 20 22 3A 49 44 24 | ".I$." 2A ":ID$|
00001C10: B2 22 20 20 22 AA 49 44 24 AA 22 20 32 41 20 22 |." ".ID$." 2A "|
00001C20: 00 3C 24 88 09 91 56 8D 32 34 38 35 2C 32 34 37 |.<$...V.2485,247|
00001C30: 35 2C 32 34 36 35 3A 89 32 34 35 35 00 4E 24 97 |5,2465:.2455.N$.|
00001C40: 09 98 31 35 2C 22 49 22 3A 8D 32 36 39 30 00 63 |..15,"I":.2690.c|
00001C50: 24 9C 09 A0 31 3A 98 31 35 2C 22 49 22 3A A0 31 |$...1:.15,"I":.1|
00001C60: 35 3A 8E 00 77 24 A1 09 98 31 2C 4E 4E 24 AA 49 |5:..w$...1,NN$.I|
00001C70: 24 3A 8D 32 36 39 30 00 95 24 A6 09 98 31 35 2C |$:.2690..$...15,|
00001C80: 22 55 32 3A 32 22 3B 30 3B 31 38 3B 30 3A 8D 32 |"U2:2";0;18;0:.2|
00001C90: 36 39 30 3A 8E 00 AA 24 AB 09 98 31 2C 4E 4E 24 |690:...$...1,NN$|
00001CA0: AA 49 44 24 3A 8D 32 36 39 30 00 C8 24 B0 09 98 |.ID$:.2690..$...|
00001CB0: 31 35 2C 22 55 32 3A 32 22 3B 30 3B 31 38 3B 30 |15,"U2:2";0;18;0|
00001CC0: 3A 8D 32 36 39 30 3A 8E 00 DC 24 B5 09 98 31 2C |:.2690:...$...1,|
00001CD0: 4E 44 24 AA 49 24 3A 8D 32 36 39 30 00 FA 24 BA |ND$.I$:.2690..$.|
00001CE0: 09 98 31 35 2C 22 55 32 3A 32 22 3B 30 3B 31 38 |..15,"U2:2";0;18|
00001CF0: 3B 30 3A 8D 32 36 39 30 3A 8E 00 22 25 82 0A 41 |;0:.2690:.."%..A|
00001D00: 24 B2 22 22 3A 8F 20 3C 3C 3C 3C 3C 20 45 52 52 |$."":. <<<<< ERR|
00001D10: 4F 52 20 43 48 41 4E 4E 45 4C 20 3E 3E 3E 3E 3E |OR CHANNEL >>>>>|
00001D20: 3E 3E 00 36 25 87 0A 84 31 35 2C 41 24 2C 42 24 |>>.6%...15,A$,B$|
00001D30: 2C 43 24 2C 44 24 00 45 25 8C 0A 8B 41 24 B2 22 |,C$,D$.E%...A$."|
00001D40: 30 30 22 A7 8E 00 6E 25 91 0A 8D 32 37 33 30 3A |00"...n%...2730:|
00001D50: 99 22 11 11 11 1F 20 20 20 20 20 45 52 52 4F 52 |.".... ERROR|
00001D60: 20 4E 55 4D 42 45 52 20 05 22 41 24 3A 99 00 8E | NUMBER ."A$:...|
00001D70: 25 96 0A 99 22 1F 20 20 20 20 20 54 52 41 43 4B |%...". TRACK|
00001D80: 20 4E 55 4D 42 45 52 05 20 22 43 24 3A 99 00 B3 | NUMBER. "C$:...|
00001D90: 25 9B 0A 99 22 1F 20 20 20 20 20 42 4C 4F 43 4B |%...". BLOCK|
00001DA0: 20 4E 55 4D 42 45 52 90 20 22 44 24 22 1F 22 3A | NUMBER. "D$".":|
00001DB0: 99 3A 99 00 D6 25 A0 0A 99 22 1F 20 20 20 20 20 |.:...%...". |
00001DC0: 44 45 53 43 52 49 50 54 49 4F 4E 90 20 3A 22 42 |DESCRIPTION. :"B|
00001DD0: 24 3A 99 22 1F 22 00 F0 25 A5 0A 98 31 35 2C 22 |$:."."..%...15,"|
00001DE0: 49 22 3A A0 31 3A A0 31 35 3A 8D 34 30 30 3A 8A |I":.1:.15:.400:.|
00001DF0: 00 20 26 AA 0A 99 22 93 11 11 11 20 20 20 20 CF |. &...".... .|
00001E00: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00001E10: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 D0 22 |..............."|
00001E20: 00 4C 26 AF 0A 99 22 20 20 20 20 B4 20 2A 2A 2A |.L&..." . ***|
00001E30: 20 52 45 41 44 20 20 45 52 52 4F 52 20 20 4F 4E | READ ERROR ON|
00001E40: 20 44 49 53 4B 20 2A 2A 2A 20 AA 22 00 78 26 B4 | DISK *** .".x&.|
00001E50: 0A 99 22 20 20 20 20 CC AF AF AF AF AF AF AF AF |.." .........|
00001E60: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00001E70: AF AF AF AF AF AF BA 22 00 7E 26 B9 0A 8E 00 A3 |.......".~&.....|
00001E80: 26 B5 0B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |&...************|
00001E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EA0: 2A 2A 2A 00 C8 26 B6 0B 8F 2A 20 20 20 20 20 20 |***..&...* |
00001EB0: 20 43 48 41 4E 47 45 20 4E 41 4D 45 20 46 35 20 | CHANGE NAME F5 |
00001EC0: 20 20 20 20 20 20 20 2A 00 ED 26 B7 0B 8F 2A 2A | *..&...**|
00001ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0B 27 |*************..'|
00001EF0: B8 0B 53 B2 35 3A 8D 32 30 30 3A 53 B2 30 3A 8B |..S.5:.200:S.0:.|
00001F00: 4E 53 B2 31 A7 4E 53 B2 30 3A 8E 00 39 27 C2 0B |NS.1.NS.0:..9'..|
00001F10: 99 22 93 22 3A 8D 37 30 30 3A 85 22 12 20 43 48 |.".":.700:.". CH|
00001F20: 41 4E 47 45 20 57 48 49 43 48 20 50 52 4F 47 52 |ANGE WHICH PROGR|
00001F30: 41 4D 20 92 22 3B 50 4E 24 00 5C 27 CC 0B 85 22 |AM .";PN$.\'..."|
00001F40: 12 20 43 48 41 4E 47 45 20 54 4F 20 57 48 41 54 |. CHANGE TO WHAT|
00001F50: 20 4E 41 4D 45 20 92 22 3B 4E 50 24 00 88 27 D6 | NAME .";NP$..'.|
00001F60: 0B 53 B2 30 3A 53 24 28 30 29 B2 22 9D 9D 9D 9D |.S.0:S$(0)."....|
00001F70: 9D 43 48 41 4E 47 45 20 22 AA 50 4E 24 AA 22 20 |.CHANGE ".PN$." |
00001F80: 54 4F 20 22 AA 4E 50 24 00 A7 27 DB 0B 8D 32 30 |TO ".NP$..'...20|
00001F90: 30 3A 8B 4E 53 B2 31 A7 4E 53 B2 30 3A 53 24 28 |0:.NS.1.NS.0:S$(|
00001FA0: 30 29 B2 22 22 3A 8E 00 CE 27 E0 0B A0 31 3A 9F |0)."":...'...1:.|
00001FB0: 20 31 2C 38 2C 31 35 3A 98 31 2C 22 52 30 3A 22 | 1,8,15:.1,"R0:"|
00001FC0: AA 4E 50 24 AA 22 3D 30 3A 22 AA 50 4E 24 00 D7 |.NP$."=0:".PN$..|
00001FD0: 27 EA 0B A0 31 3A 8E 00 FC 27 9D 0F 8F 2A 2A 2A |'...1:...'...***|
00001FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 21 28 9E |************.!(.|
00002000: 0F 8F 2A 20 20 20 20 20 20 20 20 20 43 4F 50 49 |..* COPI|
00002010: 45 52 20 46 32 20 20 20 20 20 20 20 20 20 20 20 |ER F2 |
00002020: 2A 00 46 28 9F 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.F(...*********|
00002030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002040: 2A 2A 2A 2A 2A 2A 00 64 28 A0 0F 53 B2 32 3A 8D |******.d(..S.2:.|
00002050: 32 30 30 3A 53 B2 30 3A 8B 4E 53 B2 31 A7 4E 53 |200:S.0:.NS.1.NS|
00002060: B2 30 3A 8E 00 7C 28 AA 0F 99 22 93 20 50 52 4F |.0:..|(...". PRO|
00002070: 47 52 41 4D 20 43 4F 50 49 45 52 22 00 82 28 B4 |GRAM COPIER"..(.|
00002080: 0F 99 00 AB 28 BE 0F 85 22 20 49 4E 53 45 52 54 |....(..." INSERT|
00002090: 20 53 4F 55 52 43 45 20 44 49 53 4B 20 12 20 52 | SOURCE DISK . R|
000020A0: 45 54 55 52 4E 20 92 22 3B 41 24 00 B1 28 C8 0F |ETURN .";A$..(..|
000020B0: 99 00 D9 28 D2 0F 50 4E 24 B2 22 22 3A 85 22 20 |...(..PN$."":." |
000020C0: 46 49 4C 45 20 4E 41 4D 45 20 22 3B 50 4E 24 3A |FILE NAME ";PN$:|
000020D0: 8B 50 4E 24 B2 22 22 A7 8E 00 07 29 DC 0F 46 24 |.PN$.""....)..F$|
000020E0: B2 22 22 3A 85 22 20 46 49 4C 45 20 54 59 50 45 |."":." FILE TYPE|
000020F0: 20 28 20 53 2C 50 2C 55 29 20 22 3B 46 24 3A 8B | ( S,P,U) ";F$:.|
00002100: 46 24 B2 22 22 A7 8E 00 0D 29 E6 0F 99 00 22 29 |F$.""....)....")|
00002110: F0 0F A0 32 3A A0 31 35 3A 9F 20 31 35 2C 38 2C |...2:.15:. 15,8,|
00002120: 31 35 00 43 29 FA 0F 9F 20 32 2C 38 2C 32 2C 22 |15.C)... 2,8,2,"|
00002130: 30 3A 22 AA 50 4E 24 AA 22 2C 22 AA 46 24 AA 22 |0:".PN$.",".F$."|
00002140: 2C 52 22 00 5A 29 04 10 8D 34 33 30 30 3A 8B 52 |,R".Z)...4300:.R|
00002150: 54 B2 31 A7 52 54 B2 30 3A 8E 00 66 29 0E 10 49 |T.1.RT.0:..f)..I|
00002160: B2 31 3A 48 B2 30 00 71 29 18 10 A1 23 32 2C 41 |.1:H.0.q)...#2,A|
00002170: 24 00 84 29 22 10 8B 41 24 B2 22 22 A7 41 24 B2 |$..)"..A$."".A$.|
00002180: C7 28 30 29 00 97 29 2C 10 41 24 28 48 29 B2 41 |.(0)..),.A$(H).A|
00002190: 24 28 48 29 AA 41 24 00 AB 29 36 10 8B 53 54 B3 |$(H).A$..)6..ST.|
000021A0: B1 30 A7 A0 32 3A 89 34 31 38 30 00 CA 29 40 10 |.0..2:.4180..)@.|
000021B0: 49 B2 49 AA 31 3A 8B 49 B1 32 35 34 A7 49 B2 31 |I.I.1:.I.254.I.1|
000021C0: 3A 48 B2 48 AA 31 3A 99 48 3B 00 D4 29 4A 10 89 |:H.H.1:.H;..)J..|
000021D0: 34 31 32 30 00 DA 29 54 10 99 00 E0 29 5E 10 99 |4120..)T....)^..|
000021E0: 00 0E 2A 68 10 85 22 20 49 4E 53 45 52 54 20 44 |..*h.." INSERT D|
000021F0: 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 |ESTINATION DISK |
00002200: 12 20 52 45 54 55 52 4E 20 92 22 3B 41 24 00 1A |. RETURN .";A$..|
00002210: 2A 72 10 98 31 35 2C 22 49 22 00 3E 2A 7C 10 A0 |*r..15,"I".>*|..|
00002220: 32 3A 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 AA 50 |2:.2,8,2,"@0:".P|
00002230: 4E 24 AA 22 2C 22 AA 46 24 AA 22 2C 57 22 00 5A |N$.",".F$.",W".Z|
00002240: 2A 86 10 8D 34 33 30 30 3A 8B 52 54 B2 31 A7 52 |*...4300:.RT.1.R|
00002250: 54 B2 30 3A 54 52 B2 31 3A 8E 00 65 2A 90 10 81 |T.0:TR.1:..e*...|
00002260: 58 B2 30 A4 48 00 73 2A 9A 10 98 32 2C 41 24 28 |X.0.H.s*...2,A$(|
00002270: 58 29 3B 00 7A 2A A4 10 82 58 00 81 2A AE 10 A0 |X);.z*...X..*...|
00002280: 32 00 89 2A B8 10 A0 31 35 00 94 2A C2 10 54 52 |2..*...15..*..TR|
00002290: B2 31 3A 8E 00 A9 2A CC 10 84 31 35 2C 45 4E 2C |.1:...*...15,EN,|
000022A0: 45 4D 24 2C 45 54 2C 45 53 00 B5 2A D6 10 8B 45 |EM$,ET,ES..*...E|
000022B0: 4E B2 30 A7 8E 00 C7 2A E0 10 99 22 44 49 53 4B |N.0....*..."DISK|
000022C0: 20 45 52 52 4F 52 22 00 D9 2A EA 10 99 45 4E 3B | ERROR"..*...EN;|
000022D0: 45 4D 24 3B 45 54 3B 45 53 00 E1 2A F4 10 A0 20 |EM$;ET;ES..*... |
000022E0: 32 00 EA 2A FE 10 A0 20 31 35 00 F8 2A 08 11 8D |2..*... 15..*...|
000022F0: 34 30 30 3A 52 54 B2 31 00 FE 2A 12 11 8E 00 23 |400:RT.1..*....#|
00002300: 2B 85 13 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |+...************|
00002310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002320: 2A 2A 2A 00 48 2B 86 13 8F 2A 20 20 20 20 20 20 |***.H+...* |
00002330: 20 20 20 44 49 52 45 43 54 4F 52 59 20 46 34 20 | DIRECTORY F4 |
00002340: 20 20 20 20 20 20 20 2A 00 6D 2B 87 13 8F 2A 2A | *.m+...**|
00002350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 2B |*************..+|
00002370: 88 13 53 B2 34 3A 8D 32 30 30 3A 53 B2 30 3A 8B |..S.4:.200:S.0:.|
00002380: 4E 53 B2 31 A7 4E 53 B2 30 3A 8E 00 A0 2B 92 13 |NS.1.NS.0:...+..|
00002390: 99 22 93 22 3A 8D 37 30 30 3A 8D 34 30 30 3A 8E |.".":.700:.400:.|
000023A0: 00 C5 2B 6D 17 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..+m..**********|
000023B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023C0: 2A 2A 2A 2A 2A 00 EA 2B 6E 17 8F 2A 20 20 20 20 |*****..+n..* |
000023D0: 20 20 20 20 49 4E 49 54 2F 46 4F 52 4D 41 54 20 | INIT/FORMAT |
000023E0: 46 36 20 20 20 20 20 20 20 2A 00 0F 2C 6F 17 8F |F6 *..,o..|
000023F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002410: 2D 2C 70 17 53 B2 36 3A 8D 32 30 30 3A 53 B2 30 |-,p.S.6:.200:S.0|
00002420: 3A 8B 4E 53 B2 31 A7 4E 53 B2 30 3A 8E 00 6A 2C |:.NS.1.NS.0:..j,|
00002430: 7A 17 99 22 93 11 11 11 54 59 50 45 20 49 4E 20 |z.."....TYPE IN |
00002440: 41 20 44 49 53 4B 20 4E 41 4D 45 28 31 36 20 4D |A DISK NAME(16 M|
00002450: 41 58 2E 29 22 3A 85 44 4E 24 3A 8B C3 28 44 4E |AX.)":.DN$:..(DN|
00002460: 24 29 B1 31 36 A7 36 30 31 30 00 AA 2C 84 17 99 |$).16.6010..,...|
00002470: 22 11 11 54 59 50 45 20 49 4E 20 41 20 54 57 4F |"..TYPE IN A TWO|
00002480: 20 43 48 41 52 41 43 54 45 52 20 49 44 45 4E 54 | CHARACTER IDENT|
00002490: 49 46 49 45 52 22 3A 85 54 44 24 3A 8B C3 28 54 |IFIER":.TD$:..(T|
000024A0: 44 24 29 B1 32 A7 36 30 32 30 00 BE 2C 8E 17 4E |D$).2.6020..,..N|
000024B0: 4E 24 B2 44 4E 24 AA 22 2C 22 AA 54 44 24 00 E8 |N$.DN$.",".TD$..|
000024C0: 2C 98 17 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A |,...15:.15,8,15:|
000024D0: 98 31 35 2C 22 4E 3A 22 AA 4E 4E 24 3A 8D 32 36 |.15,"N:".NN$:.26|
000024E0: 39 30 3A A0 31 35 3A 8E 00 0D 2D 55 1B 8F 2A 2A |90:.15:...-U..**|
000024F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 2D |*************.2-|
00002510: 56 1B 8F 2A 20 20 20 20 20 20 20 20 49 4E 50 55 |V..* INPU|
00002520: 54 2F 52 55 4E 20 20 20 46 38 20 20 20 20 20 20 |T/RUN F8 |
00002530: 20 2A 00 57 2D 57 1B 8F 2A 2A 2A 2A 2A 2A 2A 2A | *.W-W..********|
00002540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002550: 2A 2A 2A 2A 2A 2A 2A 00 75 2D 58 1B 53 B2 38 3A |*******.u-X.S.8:|
00002560: 8D 32 30 30 3A 53 B2 30 3A 8B 4E 53 B2 31 A7 4E |.200:S.0:.NS.1.N|
00002570: 53 B2 30 3A 8E 00 9C 2D 5D 1B 99 22 93 22 A6 32 |S.0:...-]..".".2|
00002580: 34 30 29 A6 38 30 29 A3 31 30 29 22 53 45 4C 45 |40).80).10)"SELE|
00002590: 43 54 20 4F 4E 4C 59 20 4F 4E 45 22 00 BB 2D 62 |CT ONLY ONE"..-b|
000025A0: 1B 99 A3 31 30 29 22 11 11 20 12 20 46 31 20 92 |...10)".. . F1 .|
000025B0: 20 20 49 4E 50 55 54 20 52 55 4E 00 D9 2D 6C 1B | INPUT RUN..-l.|
000025C0: 99 A3 31 30 29 22 11 11 20 12 20 46 33 20 92 20 |..10)".. . F3 . |
000025D0: 20 4D 45 4E 55 20 52 55 4E 00 F7 2D 76 1B A1 47 | MENU RUN..-v..G|
000025E0: 24 3A 8B 47 24 B3 B1 22 85 22 AF 47 24 B3 B1 22 |$:.G$..".".G$.."|
000025F0: 86 22 A7 37 30 33 30 00 08 2E 80 1B 8B 47 24 B2 |.".7030......G$.|
00002600: 22 86 22 A7 37 31 30 30 00 26 2E 8A 1B 8D 33 30 |".".7100.&....30|
00002610: 30 3A 99 22 93 22 3A 8B 44 43 B2 31 A7 44 43 B2 |0:.".":.DC.1.DC.|
00002620: 30 3A 8D 37 30 30 00 52 2E 94 1B 99 22 20 50 4C |0:.700.R...." PL|
00002630: 45 41 53 45 20 54 59 50 45 20 54 48 45 20 50 52 |EASE TYPE THE PR|
00002640: 4F 47 52 41 4D 20 4E 41 4D 45 22 3A 50 4E 24 B2 |OGRAM NAME":PN$.|
00002650: 22 22 00 77 2E 9E 1B 99 22 20 54 48 45 4E 20 50 |"".w...." THEN P|
00002660: 52 45 53 53 20 12 20 52 45 54 55 52 4E 20 92 22 |RESS . RETURN ."|
00002670: 3B 3A 85 20 50 4E 24 00 85 2E A8 1B 8B 50 4E 24 |;:. PN$......PN$|
00002680: B2 22 22 A7 8E 00 BB 2E B2 1B 99 22 93 4C 4F 41 |.""........".LOA|
00002690: 44 22 51 4F 24 50 4E 24 51 4F 24 22 2C 38 2C 31 |D"QO$PN$QO$",8,1|
000026A0: 22 3A 97 36 33 31 2C 31 39 3A 97 36 33 32 2C 31 |":.631,19:.632,1|
000026B0: 33 31 3A 97 31 39 38 2C 32 3A 80 00 E9 2E BC 1B |31:.198,2:......|
000026C0: 99 22 93 22 3A 8D 37 30 30 20 3A 50 58 B2 32 33 |.".":.700 :PX.23|
000026D0: 3A 50 59 B2 32 3A 53 50 B2 31 31 30 38 3A 4C 53 |:PY.2:SP.1108:LS|
000026E0: B2 31 37 3A 50 4F B2 53 50 00 F2 2E C6 1B 8D 34 |.17:PO.SP......4|
000026F0: 37 30 00 19 2F D0 1B 99 4B 24 3A 81 54 B2 31 A4 |70../...K$:.T.1.|
00002700: 35 30 3A 82 3A 8D 34 37 30 3A 99 4B 31 24 3A 81 |50:.:.470:.K1$:.|
00002710: 54 B2 31 A4 31 30 30 3A 82 00 47 2F DA 1B A1 47 |T.1.100:..G/...G|
00002720: 24 3A 8B 47 24 B3 B1 22 52 22 AF 47 24 B3 B1 22 |$:.G$.."R".G$.."|
00002730: 55 22 AF 47 24 B3 B1 22 44 22 AF 47 24 B3 B1 22 |U".G$.."D".G$.."|
00002740: 51 22 A7 37 31 31 30 00 55 2F E4 1B 8B 47 24 B2 |Q".7110.U/...G$.|
00002750: 22 51 22 A7 8E 00 8F 2F EE 1B 8B 47 24 B2 22 55 |"Q"..../...G$."U|
00002760: 22 A7 8D 34 37 30 3A 99 4B 24 3A 50 59 B2 50 59 |"..470:.K$:PY.PY|
00002770: AB 31 3A 50 4F B2 50 4F AB 34 30 3A 8B 50 59 B3 |.1:PO.PO.40:.PY.|
00002780: 30 A7 50 59 B2 30 3A 50 4F B2 53 50 AB 38 30 00 |0.PY.0:PO.SP.80.|
00002790: B5 2F F8 1B 8B 47 24 B2 22 44 22 A7 8D 34 37 30 |./...G$."D"..470|
000027A0: 3A 99 4B 24 3A 50 59 B2 50 59 AA 31 3A 50 4F B2 |:.K$:PY.PY.1:PO.|
000027B0: 50 4F AA 34 30 00 D1 2F 02 1C 8B 50 59 B2 32 32 |PO.40../...PY.22|
000027C0: A7 50 59 B2 30 3A 50 4F B2 53 50 3A 89 37 33 30 |.PY.0:PO.SP:.730|
000027D0: 30 00 E2 2F 0C 1C 8B 47 24 B2 22 52 22 A7 37 32 |0../...G$."R".72|
000027E0: 30 30 00 EC 2F 16 1C 89 37 31 31 30 00 0A 30 20 |00../...7110..0 |
000027F0: 1C 41 24 B2 22 22 3A 42 24 B2 22 22 3A 50 50 B2 |.A$."":B$."":PP.|
00002800: 50 4F 3A 81 53 B2 31 A4 4C 53 00 29 30 2A 1C 41 |PO:.S.1.LS.)0*.A|
00002810: B2 C2 28 50 50 29 3A 8B 41 B3 33 32 A7 50 B2 41 |..(PP):.A.32.P.A|
00002820: AA 36 34 3A 89 37 32 33 30 00 31 30 34 1C 50 B2 |.64:.7230.104.P.|
00002830: 41 00 5A 30 3E 1C 41 24 B2 C7 28 50 29 3A 50 50 |A.Z0>.A$..(P):PP|
00002840: B2 50 50 AA 31 3A 8B 41 24 B2 C7 28 33 34 29 A7 |.PP.1:.A$..(34).|
00002850: 53 B2 4C 53 3A 89 37 32 35 30 00 69 30 48 1C 42 |S.LS:.7250.i0H.B|
00002860: 24 B2 42 24 AA 41 24 3A 82 00 95 30 52 1C 52 B2 |$.B$.A$:...0R.R.|
00002870: 31 3A 8D 34 30 30 3A 99 22 12 20 52 55 4E 20 92 |1:.400:.". RUN .|
00002880: 20 22 42 24 22 20 12 20 59 20 92 20 4F 52 20 12 | "B$" . Y . OR .|
00002890: 20 4E 20 92 22 00 B3 30 5C 1C A1 47 24 3A 8B 47 | N ."..0\..G$:.G|
000028A0: 24 B3 B1 22 59 22 AF 47 24 B3 B1 22 4E 22 A7 37 |$.."Y".G$.."N".7|
000028B0: 32 36 30 00 C5 30 66 1C 52 B2 31 3A 8D 34 30 30 |260..0f.R.1:.400|
000028C0: 3A 99 4D 31 24 00 D6 30 70 1C 8B 47 24 B2 22 4E |:.M1$..0p..G$."N|
000028D0: 22 A7 37 31 33 30 00 EF 30 7A 1C 8B 47 24 B2 22 |".7130..0z..G$."|
000028E0: 59 22 A7 50 4E 24 B2 42 24 3A 89 37 33 32 30 00 |Y".PN$.B$:.7320.|
000028F0: 1B 31 84 1C 99 22 20 50 4C 45 41 53 45 20 54 59 |.1..." PLEASE TY|
00002900: 50 45 20 54 48 45 20 50 52 4F 47 52 41 4D 20 4E |PE THE PROGRAM N|
00002910: 41 4D 45 22 3A 50 4E 24 B2 22 22 00 4A 31 8E 1C |AME":PN$."".J1..|
00002920: 99 22 20 54 48 45 4E 20 50 52 45 53 53 20 12 20 |." THEN PRESS . |
00002930: 52 45 54 55 52 4E 20 92 22 3B 3A 85 20 50 4E 24 |RETURN .";:. PN$|
00002940: 3A 8B 50 4E 24 B2 22 22 A7 8E 00 80 31 98 1C 99 |:.PN$.""....1...|
00002950: 22 93 4C 4F 41 44 22 51 4F 24 50 4E 24 51 4F 24 |".LOAD"QO$PN$QO$|
00002960: 22 2C 38 2C 31 22 3A 97 36 33 31 2C 31 39 3A 97 |",8,1":.631,19:.|
00002970: 36 33 32 2C 31 33 31 3A 97 31 39 38 2C 32 3A 80 |632,131:.198,2:.|
00002980: 00 A4 31 35 4A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..15J.**********|
00002990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000029A0: 2A 2A 2A 2A 00 C8 31 36 4A 8F 2A 20 20 20 20 20 |****..16J.* |
000029B0: 20 20 20 4F 50 45 4E 49 4E 47 20 54 49 54 4C 45 | OPENING TITLE|
000029C0: 20 20 20 20 20 20 20 2A 00 EC 31 37 4A 8F 2A 2A | *..17J.**|
000029D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000029E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F2 31 38 |************..18|
000029F0: 4A 99 00 0A 32 56 4A 97 35 33 32 38 30 2C 31 31 |J...2VJ.53280,11|
00002A00: 3A 97 35 33 32 38 31 2C 31 31 00 1A 32 60 4A 99 |:.53281,11..2`J.|
00002A10: C7 28 31 34 32 29 22 93 05 22 00 41 32 6A 4A 54 |.(142)"..".A2jJT|
00002A20: 4C 24 28 31 29 B2 22 20 12 90 20 44 49 53 4B 20 |L$(1)." .. DISK |
00002A30: 4F 50 45 52 41 54 49 4F 4E 53 20 36 34 20 92 05 |OPERATIONS 64 ..|
00002A40: 22 00 68 32 74 4A 54 4C 24 28 32 29 B2 22 20 12 |".h2tJTL$(2)." .|
00002A50: 98 20 20 20 20 42 41 53 49 43 20 56 45 52 53 49 |. BASIC VERSI|
00002A60: 4F 4E 20 20 20 92 05 22 00 97 32 7E 4A 54 31 24 |ON .."..2~JT1$|
00002A70: B2 22 20 20 D5 C3 C3 C3 20 20 D5 C3 C3 C9 20 20 |." .... .... |
00002A80: D5 C3 C3 C9 20 D5 C3 C9 D5 C3 C9 20 D5 C3 C3 C9 |.... ...... ....|
00002A90: A0 C3 C3 B2 C3 C3 22 00 C4 32 88 4A 54 32 24 B2 |......"..2.JT2$.|
00002AA0: 22 20 20 DD A0 A0 A0 A0 A0 DD 20 20 DD 20 20 DD |" ....... . .|
00002AB0: A0 A0 DD A0 DD 20 CA CB 20 DD 20 DD 20 20 DD 20 |..... .. . . . |
00002AC0: 20 20 DD 22 00 F1 32 92 4A 54 33 24 B2 22 20 20 | ."..2.JT3$." |
00002AD0: AB C3 C3 20 20 20 DD 20 20 DD 20 20 AB C3 B2 CB |... . . ....|
00002AE0: A0 DD A0 20 20 20 DD A0 AB C3 C3 B3 20 20 20 DD |... ...... .|
00002AF0: 22 00 1E 33 9C 4A 54 34 24 B2 22 20 20 DD A0 A0 |"..3.JT4$." ...|
00002B00: A0 A0 A0 CA C3 C3 CB 20 20 DD A0 DD 20 A0 DD A0 |....... ... ...|
00002B10: 20 20 20 DD 20 DD 20 20 DD 20 20 20 DD 22 00 44 | . . . .".D|
00002B20: 33 A6 4A 99 54 31 24 3A 99 54 32 24 3A 99 54 33 |3.J.T1$:.T2$:.T3|
00002B30: 24 3A 99 54 34 24 22 11 11 22 3A 50 4B 24 B2 C7 |$:.T4$"..":PK$..|
00002B40: 28 36 33 29 00 87 33 B0 4A 99 22 05 20 20 20 20 |(63)..3.J.". |
00002B50: 20 20 20 20 50 20 52 20 4F 20 47 20 52 20 41 20 | P R O G R A |
00002B60: 4D 20 4D 20 49 20 4E 20 47 11 22 3A 99 22 20 20 |M M I N G.":." |
00002B70: 20 20 20 20 20 20 20 20 20 20 20 20 50 52 45 53 | PRES|
00002B80: 45 4E 54 53 11 11 22 00 A7 33 BA 4A 99 A3 37 29 |ENTS.."..3.J..7)|
00002B90: 54 4C 24 28 31 29 22 11 22 3A 99 A3 37 29 54 4C |TL$(1)".":..7)TL|
00002BA0: 24 28 32 29 22 11 22 00 BD 33 C4 4A 99 A3 31 35 |$(2)"."..3.J..15|
00002BB0: 29 22 11 12 9E 20 42 59 20 92 11 05 22 00 C3 33 |)"... BY ..."..3|
00002BC0: CE 4A 8F 00 F9 33 D8 4A 4C 54 24 28 33 29 B2 22 |.J...3.JLT$(3)."|
00002BD0: 20 90 12 20 50 52 4F 47 52 41 4D 4D 45 44 20 42 | .. PROGRAMMED B|
00002BE0: 59 20 20 20 2D 20 43 48 41 52 4C 45 53 20 47 41 |Y - CHARLES GA|
00002BF0: 55 54 48 49 45 52 20 20 22 00 10 34 E2 4A 99 22 |UTHIER "..4.J."|
00002C00: 11 22 4C 54 24 28 33 29 3A 99 4C 54 24 28 34 29 |."LT$(3):.LT$(4)|
00002C10: 00 19 34 EC 4A 8D 34 30 30 00 3D 34 1C 4E 8F 2A |..4.J.400.=4.N.*|
00002C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 34 |*************.a4|
00002C40: 1D 4E 8F 2A 20 20 20 20 20 44 49 53 4B 20 20 4F |.N.* DISK O|
00002C50: 50 45 52 41 54 49 4F 4E 53 20 20 20 20 20 20 20 |PERATIONS |
00002C60: 2A 00 85 34 1E 4E 8F 2A 20 20 20 20 20 20 20 28 |*..4.N.* (|
00002C70: 4D 41 49 4E 20 4D 45 4E 55 29 20 20 20 20 20 20 |MAIN MENU) |
00002C80: 20 20 20 20 2A 00 A9 34 1F 4E 8F 2A 2A 2A 2A 2A | *..4.N.*****|
00002C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 34 20 4E 99 22 |*********..4 N."|
00002CB0: 93 20 20 20 20 20 12 90 20 20 20 44 49 53 4B 20 |. .. DISK |
00002CC0: 20 4F 50 45 52 41 54 49 4F 4E 53 20 20 50 52 4F | OPERATIONS PRO|
00002CD0: 47 52 41 4D 20 20 20 92 05 22 00 0A 35 25 4E 99 |GRAM .."..5%N.|
00002CE0: 22 20 20 20 20 20 12 90 20 20 20 20 20 20 20 20 |" .. |
00002CF0: 20 20 20 4D 41 49 4E 20 4D 45 4E 55 20 20 20 20 | MAIN MENU |
00002D00: 20 20 20 20 20 20 20 92 05 22 00 16 35 27 4E 99 | .."..5'N.|
00002D10: 22 11 11 22 4D 24 00 48 35 2A 4E 99 22 20 12 20 |".."M$.H5*N." . |
00002D20: 46 31 20 92 20 54 4F 20 12 20 50 55 52 47 45 2F |F1 . TO . PURGE/|
00002D30: 44 45 4C 45 54 45 20 92 20 44 49 53 4B 20 2F 20 |DELETE . DISK / |
00002D40: 50 52 4F 47 52 41 4D 22 00 50 35 34 4E 99 4D 24 |PROGRAM".P54N.M$|
00002D50: 00 7B 35 3E 4E 99 22 20 12 20 46 32 20 92 20 54 |.{5>N." . F2 . T|
00002D60: 4F 20 12 20 20 43 4F 50 59 20 20 92 20 41 20 50 |O . COPY . A P|
00002D70: 52 4F 47 52 41 4D 2F 46 49 4C 45 00 83 35 48 4E |ROGRAM/FILE..5HN|
00002D80: 99 4D 24 00 A5 35 52 4E 99 22 20 12 20 46 33 20 |.M$..5RN." . F3 |
00002D90: 92 20 54 4F 20 12 20 52 45 4E 41 4D 45 20 92 20 |. TO . RENAME . |
00002DA0: 44 49 53 4B 22 00 AD 35 5C 4E 99 4D 24 00 D6 35 |DISK"..5\N.M$..5|
00002DB0: 66 4E 99 22 20 12 20 46 34 20 92 20 54 4F 20 12 |fN." . F4 . TO .|
00002DC0: 20 44 49 52 45 43 54 4F 52 59 20 92 20 54 48 49 | DIRECTORY . THI|
00002DD0: 53 20 44 49 53 4B 00 DE 35 70 4E 99 4D 24 00 0F |S DISK..5pN.M$..|
00002DE0: 36 7A 4E 99 22 20 12 20 46 35 20 92 20 54 4F 20 |6zN." . F5 . TO |
00002DF0: 12 20 43 48 41 4E 47 45 20 92 20 54 48 45 20 4E |. CHANGE . THE N|
00002E00: 41 4D 45 20 4F 46 20 50 52 4F 47 52 41 4D 22 00 |AME OF PROGRAM".|
00002E10: 17 36 84 4E 99 4D 24 00 45 36 8E 4E 99 22 20 12 |.6.N.M$.E6.N." .|
00002E20: 20 46 36 20 92 20 12 90 20 49 4E 49 54 49 41 4C | F6 . .. INITIAL|
00002E30: 49 5A 45 2F 46 4F 52 4D 41 54 20 92 05 20 41 20 |IZE/FORMAT .. A |
00002E40: 44 49 53 4B 22 00 71 36 98 4E 99 A3 34 29 22 12 |DISK".q6.N..4)".|
00002E50: 9E 54 48 49 53 20 57 49 4C 4C 20 45 52 41 53 45 |.THIS WILL ERASE|
00002E60: 20 45 56 45 52 59 54 48 49 4E 47 21 21 21 92 05 | EVERYTHING!!!..|
00002E70: 22 00 79 36 9D 4E 99 4D 24 00 9E 36 A2 4E 99 22 |".y6.N.M$..6.N."|
00002E80: 20 12 20 46 37 20 92 20 54 4F 20 12 20 50 52 49 | . F7 . TO . PRI|
00002E90: 4E 54 20 44 49 52 45 43 54 4F 52 59 20 92 00 A6 |NT DIRECTORY ...|
00002EA0: 36 A7 4E 99 4D 24 00 CF 36 AC 4E 99 22 20 12 20 |6.N.M$..6.N." . |
00002EB0: 46 38 20 92 20 54 4F 20 12 20 4C 4F 41 44 2F 52 |F8 . TO . LOAD/R|
00002EC0: 55 4E 20 92 20 41 20 50 52 4F 47 52 41 4D 22 00 |UN . A PROGRAM".|
00002ED0: D7 36 AF 4E 99 4D 24 00 F9 36 B1 4E 99 22 20 20 |.6.N.M$..6.N." |
00002EE0: 20 20 20 20 20 20 20 20 20 20 12 20 51 20 92 20 | . Q . |
00002EF0: 20 54 4F 20 51 55 49 54 22 00 01 37 B4 4E 99 4D | TO QUIT"..7.N.M|
00002F00: 24 00 16 37 B6 4E A1 47 24 3A 8B 47 24 B2 22 22 |$..7.N.G$:.G$.""|
00002F10: A7 32 30 31 35 30 00 33 37 BB 4E 8B 47 24 B2 22 |.20150.37.N.G$."|
00002F20: 51 22 A7 8D 36 30 30 3A 8B 47 47 B2 30 A7 32 30 |Q"..600:.GG.0.20|
00002F30: 30 30 30 00 3F 37 C0 4E 56 B2 C6 28 47 24 29 00 |000.?7.NV..(G$).|
00002F40: 4D 37 C5 4E 8B 47 47 B2 31 A7 36 37 30 00 6B 37 |M7.N.GG.1.670.k7|
00002F50: CA 4E 56 31 B2 31 34 31 AB 56 3A 8B 56 31 B3 31 |.NV1.141.V:.V1.1|
00002F60: B0 56 31 B1 38 A7 32 30 31 35 30 00 9D 37 D4 4E |.V1.8.20150..7.N|
00002F70: 8F 20 4F 4E 56 31 47 4F 53 55 42 20 20 46 38 20 |. ONV1GOSUB F8 |
00002F80: 20 2C 46 36 20 2C 46 34 20 2C 46 32 20 20 2C 46 | ,F6 ,F4 ,F2 ,F|
00002F90: 37 20 2C 46 35 20 2C 46 33 20 2C 46 31 00 CE 37 |7 ,F5 ,F3 ,F1..7|
00002FA0: E8 4E 91 56 31 8D 37 30 30 30 2C 36 30 30 30 2C |.N.V1.7000,6000,|
00002FB0: 35 30 30 30 2C 34 30 30 30 2C 34 30 30 30 30 2C |5000,4000,40000,|
00002FC0: 33 30 30 30 2C 32 30 30 30 2C 31 30 30 30 00 DA |3000,2000,1000..|
00002FD0: 37 F2 4E 8B 54 52 B2 31 A7 8A 00 E5 37 FC 4E 89 |7.N.TR.1....7.N.|
00002FE0: 32 30 30 30 30 00 0A 38 3D 9C 8F 2A 2A 2A 2A 2A |20000..8=..*****|
00002FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 38 3E 9C 8F |**********./8>..|
00003010: 2A 20 20 50 52 49 4E 54 20 44 49 52 45 43 54 4F |* PRINT DIRECTO|
00003020: 52 59 20 20 20 46 37 20 20 20 20 20 20 20 2A 00 |RY F7 *.|
00003030: 5D 38 3F 9C 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |]8?..***********|
00003040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003050: 2A 2A 2A 2A 52 20 50 52 49 4E 54 45 52 00 94 38 |****R PRINTER..8|
00003060: 40 9C 99 22 93 22 A6 32 34 30 29 A3 31 32 29 22 |@..".".240).12)"|
00003070: 50 4C 45 41 53 45 20 53 45 4C 45 43 54 22 3A 99 |PLEASE SELECT":.|
00003080: A3 31 32 29 22 59 4F 55 52 20 50 52 49 4E 54 45 |.12)"YOUR PRINTE|
00003090: 52 11 11 22 00 BC 38 4A 9C 99 A3 36 29 22 11 11 |R.."..8J...6)"..|
000030A0: 20 12 20 46 31 20 92 20 20 46 4F 52 20 52 45 47 | . F1 . FOR REG|
000030B0: 55 4C 41 52 20 50 52 49 4E 54 45 52 00 DF 38 54 |ULAR PRINTER..8T|
000030C0: 9C 99 A3 36 29 22 11 11 20 12 20 46 33 20 92 20 |...6)".. . F3 . |
000030D0: 20 46 4F 52 20 47 45 4D 49 4E 49 20 31 30 58 00 | FOR GEMINI 10X.|
000030E0: 01 39 5E 9C 99 A3 36 29 22 11 11 20 12 20 46 35 |.9^...6)".. . F5|
000030F0: 20 92 20 20 46 4F 52 20 4D 41 49 4E 20 4D 45 4E | . FOR MAIN MEN|
00003100: 55 00 28 39 68 9C A1 53 24 3A 8B 53 24 B3 B1 22 |U.(9h..S$:.S$.."|
00003110: 85 22 AF 53 24 B3 B1 22 86 22 AF 53 24 B3 B1 22 |.".S$..".".S$.."|
00003120: 87 22 A7 34 30 30 34 30 00 3A 39 72 9C 8B 53 24 |.".40040.:9r..S$|
00003130: B2 22 86 22 A7 34 30 36 39 30 00 48 39 7C 9C 8B |.".".40690.H9|..|
00003140: 53 24 B2 22 87 22 A7 8A 00 53 39 86 9C 8D 34 30 |S$."."...S9...40|
00003150: 36 33 30 00 70 39 90 9C 97 35 33 32 38 30 2C 30 |630.p9...53280,0|
00003160: 3A 97 35 33 32 38 31 2C 30 3A 97 36 34 36 2C 37 |:.53281,0:.646,7|
00003170: 00 A9 39 9A 9C 99 22 93 0E 11 11 11 20 12 9C 20 |..9..."..... .. |
00003180: D4 48 45 20 D0 52 49 4E 43 45 20 4F 46 20 CC 45 |.HE .RINCE OF .E|
00003190: 47 45 4E 44 53 20 50 52 4F 55 44 4C 59 20 50 52 |GENDS PROUDLY PR|
000031A0: 45 53 45 4E 54 53 11 11 11 00 B4 39 A4 9C 99 22 |ESENTS.....9..."|
000031B0: 11 11 11 22 00 D0 39 AE 9C 99 A3 31 32 29 3B 22 |..."..9....12);"|
000031C0: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 11 11 |DISK DIRECTORY..|
000031D0: 00 E7 39 B8 9C 45 53 24 B2 C7 28 32 37 29 3A 4A |..9..ES$..(27):J|
000031E0: B2 C2 28 38 32 30 29 00 2E 3A C2 9C 99 22 11 20 |..(820)..:...". |
000031F0: 20 20 20 20 20 20 D4 59 50 45 20 20 32 20 20 46 | .YPE 2 F|
00003200: 4F 52 20 32 20 43 4F 4C 55 4D 4E 53 22 3A 99 22 |OR 2 COLUMNS":."|
00003210: 20 20 20 20 20 20 20 D4 59 50 45 20 20 33 20 20 | .YPE 3 |
00003220: 46 4F 52 20 33 20 43 4F 4C 55 4D 4E 53 22 00 4D |FOR 3 COLUMNS".M|
00003230: 3A CC 9C A1 47 24 3A 8B 47 24 B3 B1 22 32 22 AF |:...G$:.G$.."2".|
00003240: 47 24 B3 B1 22 33 22 A7 34 30 31 34 30 00 5A 3A |G$.."3".40140.Z:|
00003250: D6 9C 4E 43 B2 C5 28 47 24 29 00 89 3A E0 9C 99 |..NC..(G$)..:...|
00003260: 22 11 11 20 20 D0 52 45 53 53 20 12 20 D2 C5 D4 |".. .RESS . ...|
00003270: D5 D2 CE 20 92 20 57 48 45 4E 20 44 49 53 4B 20 |... . WHEN DISK |
00003280: 49 53 20 52 45 41 44 59 22 00 A0 3A EA 9C A1 43 |IS READY"..:...C|
00003290: 43 24 3A 8B 43 43 24 B2 22 22 A7 34 30 31 37 30 |C$:.CC$."".40170|
000032A0: 00 B6 3A F4 9C 8B 43 43 24 B3 B1 C7 28 31 33 29 |..:...CC$...(13)|
000032B0: A7 34 30 30 39 30 00 BF 3A FE 9C 50 4E B2 34 00 |.40090..:..PN.4.|
000032C0: C8 3A 08 9D 44 4E B2 38 00 D6 3A 12 9D 45 53 24 |.:..DN.8..:..ES$|
000032D0: B2 C7 28 32 37 29 00 09 3B 1C 9D 8F 20 20 20 20 |..(27)..;... |
000032E0: 20 42 49 24 3D 45 53 24 2B 43 48 52 24 28 36 36 | BI$=ES$+CHR$(66|
000032F0: 29 2B 43 48 52 24 28 33 29 3A 42 49 24 3D 42 49 |)+CHR$(3):BI$=BI|
00003300: 24 2B 4C 49 24 2B 53 50 24 00 14 3B 26 9D 42 49 |$+LI$+SP$..;&.BI|
00003310: 24 B2 22 22 00 26 3B 30 9D 52 53 24 B2 45 53 24 |$."".&;0.RS$.ES$|
00003320: AA C7 28 36 34 29 00 4B 3B 3A 9D 86 50 24 28 31 |..(64).K;:..P$(1|
00003330: 35 30 29 3A 43 24 B2 22 44 49 53 4B 20 4E 41 4D |50):C$."DISK NAM|
00003340: 45 3D 22 3A 4E 24 B2 C7 28 30 29 00 6F 3B 44 9D |E=":N$..(0).o;D.|
00003350: 54 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T$."------------|
00003360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00003370: 93 3B 4E 9D 55 24 B2 22 3D 3D 3D 3D 3D 3D 3D 3D |.;N.U$."========|
00003380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003390: 3D 3D 22 00 C0 3B 58 9D 81 49 B2 31 A4 4E 43 3A |=="..;X..I.1.NC:|
000033A0: 58 24 B2 58 24 AA 54 24 3A 59 24 B2 59 24 AA 55 |X$.X$.T$:Y$.Y$.U|
000033B0: 24 3A 82 49 3A 54 24 B2 58 24 3A 55 24 B2 59 24 |$:.I:T$.X$:U$.Y$|
000033C0: 00 E1 3B 62 9D 97 35 33 32 37 32 2C 32 33 3A 99 |..;b..53272,23:.|
000033D0: 22 93 22 3A 58 B2 31 3A 5A B2 31 3A 58 24 B2 22 |".":X.1:Z.1:X$."|
000033E0: 22 00 FE 3B 6C 9D A0 34 3A A0 36 3A 9F 34 2C 50 |"..;l..4:.6:.4,P|
000033F0: 4E 3A 9F 36 2C 44 4E 2C 30 2C 22 24 30 22 00 18 |N:.6,DN,0,"$0"..|
00003400: 3C 76 9D A1 23 36 2C 41 24 2C 41 24 2C 41 24 2C |<v..#6,A$,A$,A$,|
00003410: 41 24 2C 41 24 2C 41 24 00 30 3C 80 9D A1 23 36 |A$,A$,A$.0<...#6|
00003420: 2C 41 24 3A 8B 41 24 B2 22 22 A7 34 30 33 34 30 |,A$:.A$."".40340|
00003430: 00 44 3C 8A 9D 58 24 B2 58 24 AA 41 24 3A 89 34 |.D<..X$.X$.A$:.4|
00003440: 30 33 32 30 00 64 3C 94 9D 42 24 B2 CA 28 58 24 |0320.d<..B$..(X$|
00003450: 2C 32 31 2C 32 29 3A 41 24 B2 CA 28 58 24 2C 33 |,21,2):A$..(X$,3|
00003460: 2C 31 36 29 00 81 3C 9E 9D 44 4E 24 B2 43 24 AA |,16)..<..DN$.C$.|
00003470: C7 28 33 34 29 AA 41 24 AA C7 28 33 34 29 AA 42 |.(34).A$..(34).B|
00003480: 24 00 96 3C A8 9D 50 24 B2 22 22 3A 99 22 93 22 |$..<..P$."":."."|
00003490: 44 4E 24 22 11 22 00 B5 3C B2 9D A1 23 36 2C 41 |DN$"."..<...#6,A|
000034A0: 24 2C 41 24 3A 8B 41 24 B2 22 22 A7 A0 36 3A 89 |$,A$:.A$.""..6:.|
000034B0: 34 30 34 31 30 00 E3 3C BC 9D A1 23 36 2C 41 24 |40410..<...#6,A$|
000034C0: 2C 42 24 3A 42 24 B2 C4 28 C6 28 41 24 AA 4E 24 |,B$:B$..(.(A$.N$|
000034D0: 29 AA C6 28 42 24 AA 4E 24 29 AC 32 35 36 29 AA |)..(B$.N$).256).|
000034E0: 22 20 22 00 20 3D C6 9D A1 23 36 2C 41 24 3A 8B |" ". =...#6,A$:.|
000034F0: 41 24 B2 22 22 A7 50 24 28 58 29 B2 42 24 3A 99 |A$."".P$(X).B$:.|
00003500: 50 24 28 58 29 3B 3A 8D 34 30 35 35 30 3A 58 B2 |P$(X);:.40550:X.|
00003510: 58 AA 31 3A 42 24 B2 22 22 3A 89 34 30 33 37 30 |X.1:B$."":.40370|
00003520: 00 34 3D D0 9D 42 24 B2 42 24 AA 41 24 3A 89 34 |.4=..B$.B$.A$:.4|
00003530: 30 33 39 30 00 69 3D DA 9D 99 3A 99 22 11 11 11 |0390.i=...:."...|
00003540: 20 20 20 D0 52 45 53 53 20 12 20 D2 C5 D4 D5 D2 | .RESS . .....|
00003550: CE 20 92 20 57 48 45 4E 20 50 52 49 4E 54 45 52 |. . WHEN PRINTER|
00003560: 20 49 53 20 52 45 41 44 59 00 82 3D E4 9D A1 47 | IS READY..=...G|
00003570: 24 3A 8B 47 24 B3 B1 C7 28 31 33 29 A7 34 30 34 |$:.G$...(13).404|
00003580: 32 30 00 8F 3D EE 9D 98 34 3A 98 34 2C 55 24 00 |20..=...4:.4,U$.|
00003590: AC 3D F8 9D 98 34 2C 42 49 24 3B 42 4F 24 3B 44 |.=...4,BI$;BO$;D|
000035A0: 4E 24 3B 22 3A 22 3A 98 34 2C 54 24 00 D0 3D 02 |N$;":":.4,T$..=.|
000035B0: 9E 81 42 B2 31 A4 4E 43 3A 50 24 B2 50 24 AA C8 |..B.1.NC:P$.P$..|
000035C0: 28 50 24 28 5A 29 2C 32 36 29 3A 5A B2 5A AA 31 |(P$(Z),26):Z.Z.1|
000035D0: 00 E8 3D 0C 9E 8B 5A B2 58 AB 31 A7 98 34 2C 50 |..=...Z.X.1..4,P|
000035E0: 24 3A 89 34 30 34 39 30 00 08 3E 16 9E 82 42 3A |$:.40490..>...B:|
000035F0: 98 34 2C 50 24 3A 50 24 B2 22 22 3A 8B 5A B2 58 |.4,P$:P$."":.Z.X|
00003600: AB 31 A7 34 30 34 39 30 00 13 3E 20 9E 89 34 30 |.1.40490..> ..40|
00003610: 34 35 30 00 39 3E 2A 9E 98 34 2C 55 24 3A 98 34 |450.9>*..4,U$:.4|
00003620: 3A 99 22 11 20 41 4E 4F 54 48 45 52 20 44 49 53 |:.". ANOTHER DIS|
00003630: 4B 20 28 59 2F 4E 29 3F 22 00 43 3E 34 9E 98 34 |K (Y/N)?".C>4..4|
00003640: 2C 22 22 00 54 3E 3E 9E 98 34 3A 98 34 2C 52 53 |,"".T>>..4:.4,RS|
00003650: 24 3A A0 34 00 6E 3E 48 9E A1 41 24 3A 8B 41 24 |$:.4.n>H..A$:.A$|
00003660: B2 22 59 22 A7 A0 34 3A 8A 34 30 30 37 30 00 81 |."Y"..4:.40070..|
00003670: 3E 52 9E 8B 41 24 B3 B1 22 4E 22 A7 34 30 35 32 |>R..A$.."N".4052|
00003680: 30 00 87 3E 5C 9E 8A 00 94 3E 66 9E 8B 4A B2 31 |0..>\....>f..J.1|
00003690: A7 99 3A 8E 00 BE 3E 70 9E 8F 20 20 20 20 49 46 |..:...>p.. IF|
000036A0: 4D 49 44 24 28 50 24 28 58 29 2C 31 35 2C 31 29 |MID$(P$(X),15,1)|
000036B0: 3D 22 2E 22 54 48 45 4E 52 45 54 55 52 4E 00 E8 |="."THENRETURN..|
000036C0: 3E 7A 9E 8F 20 20 20 20 49 46 4D 49 44 24 28 50 |>z.. IFMID$(P|
000036D0: 24 28 58 29 2C 31 36 2C 31 29 3D 22 2E 22 54 48 |$(X),16,1)="."TH|
000036E0: 45 4E 52 45 54 55 52 4E 00 12 3F 84 9E 8F 20 20 |ENRETURN..?... |
000036F0: 20 20 49 46 4D 49 44 24 28 50 24 28 58 29 2C 31 | IFMID$(P$(X),1|
00003700: 37 2C 31 29 3D 22 2E 22 54 48 45 4E 52 45 54 55 |7,1)="."THENRETU|
00003710: 52 4E 00 23 3F 8E 9E 99 22 12 20 59 2F 4E 20 92 |RN.#?...". Y/N .|
00003720: 20 22 3B 00 42 3F 98 9E A1 59 24 3A 8B 59 24 B3 | ";.B?...Y$:.Y$.|
00003730: B1 22 59 22 AF 59 24 B3 B1 22 4E 22 A7 34 30 36 |."Y".Y$.."N".406|
00003740: 30 30 00 5D 3F A2 9E 8B 59 24 B2 22 4E 22 A7 50 |00.]?...Y$."N".P|
00003750: 24 28 58 29 B2 22 22 3A 58 B2 58 AB 31 00 67 3F |$(X)."":X.X.1.g?|
00003760: AC 9E 99 59 24 3A 8E 00 9F 3F B6 9E 99 22 93 22 |...Y$:...?..."."|
00003770: A6 32 34 30 29 A3 31 32 29 22 50 4C 45 41 53 45 |.240).12)"PLEASE|
00003780: 20 53 45 4C 45 43 54 22 3A 99 A3 31 32 29 22 20 | SELECT":..12)" |
00003790: 59 4F 55 52 20 43 48 4F 49 43 45 20 11 11 22 00 |YOUR CHOICE ..".|
000037A0: C5 3F C0 9E 99 A3 36 29 22 11 11 20 12 20 46 31 |.?....6)".. . F1|
000037B0: 20 92 20 20 54 4F 20 45 44 49 54 20 45 41 43 48 | . TO EDIT EACH|
000037C0: 20 46 49 4C 45 00 EC 3F CA 9E 99 A3 36 29 22 11 | FILE..?....6)".|
000037D0: 11 20 12 20 46 33 20 92 20 20 46 4F 52 20 46 55 |. . F3 . FOR FU|
000037E0: 4C 4C 20 44 49 52 20 50 52 49 4E 54 00 0B 40 D4 |LL DIR PRINT..@.|
000037F0: 9E A1 47 24 3A 8B 47 24 B3 B1 22 85 22 AF 47 24 |..G$:.G$..".".G$|
00003800: B3 B1 22 86 22 A7 34 30 36 36 30 00 28 40 DE 9E |..".".40660.(@..|
00003810: 4A 31 B2 C6 28 47 24 29 3A 4A B2 31 33 35 AB 4A |J1..(G$):J.135.J|
00003820: 31 3A 97 38 32 30 2C 4A 00 2E 40 E8 9E 8E 00 39 |1:.820,J..@....9|
00003830: 40 F2 9E 8D 34 30 36 33 30 00 56 40 FC 9E 97 35 |@...40630.V@...5|
00003840: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:|
00003850: 97 36 34 36 2C 37 00 8F 40 06 9F 99 22 93 0E 11 |.646,7..@..."...|
00003860: 11 11 20 12 9C 20 D4 48 45 20 D0 52 49 4E 43 45 |.. .. .HE .RINCE|
00003870: 20 4F 46 20 CC 45 47 45 4E 44 53 20 50 52 4F 55 | OF .EGENDS PROU|
00003880: 44 4C 59 20 50 52 45 53 45 4E 54 53 11 11 11 00 |DLY PRESENTS....|
00003890: 99 40 10 9F 99 22 11 11 11 00 B5 40 1A 9F 99 A3 |.@...".....@....|
000038A0: 31 32 29 3B 22 44 49 53 4B 20 44 49 52 45 43 54 |12);"DISK DIRECT|
000038B0: 4F 52 59 11 11 00 C3 40 24 9F 45 53 24 B2 C7 28 |ORY....@$.ES$..(|
000038C0: 32 37 29 00 D0 40 2E 9F 4A B2 C2 28 38 32 30 29 |27)..@..J..(820)|
000038D0: 00 E7 40 38 9F 4C 49 24 B2 45 53 24 AA C7 28 38 |..@8.LI$.ES$..(8|
000038E0: 33 29 AA C7 28 30 29 00 FF 40 42 9F 53 50 24 B2 |3)..(0)..@B.SP$.|
000038F0: 45 53 24 AA C7 28 35 31 29 AA C7 28 31 30 29 00 |ES$..(51)..(10).|
00003900: 37 41 4C 9F 85 22 4E 55 4D 42 45 52 20 4F 46 20 |7AL.."NUMBER OF |
00003910: 43 4F 4C 55 4D 4E 53 20 12 20 32 20 54 4F 20 35 |COLUMNS . 2 TO 5|
00003920: 20 92 22 3B 4E 43 3A 8B 4E 43 B3 32 B0 4E 43 B1 | .";NC:.NC.2.NC.|
00003930: 35 A7 34 30 37 38 30 00 40 41 56 9F 50 4E B2 34 |5.40780.@AV.PN.4|
00003940: 00 49 41 60 9F 44 4E B2 38 00 57 41 6A 9F 45 53 |.IA`.DN.8.WAj.ES|
00003950: 24 B2 C7 28 32 37 29 00 7E 41 74 9F 42 49 24 B2 |$..(27).~At.BI$.|
00003960: 45 53 24 AA C7 28 36 36 29 AA C7 28 33 29 3A 42 |ES$..(66)..(3):B|
00003970: 49 24 B2 42 49 24 AA 4C 49 24 AA 53 50 24 00 92 |I$.BI$.LI$.SP$..|
00003980: 41 7E 9F 42 49 24 B2 42 49 24 AA 4C 49 24 AA 53 |A~.BI$.BI$.LI$.S|
00003990: 50 24 00 A4 41 88 9F 52 53 24 B2 45 53 24 AA C7 |P$..A..RS$.ES$..|
000039A0: 28 36 34 29 00 C9 41 92 9F 86 50 24 28 31 35 30 |(64)..A...P$(150|
000039B0: 29 3A 43 24 B2 22 44 49 53 4B 20 4E 41 4D 45 3D |):C$."DISK NAME=|
000039C0: 22 3A 4E 24 B2 C7 28 30 29 00 EE 41 9C 9F 54 24 |":N$..(0)..A..T$|
000039D0: B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
000039E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 1D |-------------"..|
000039F0: 42 A6 9F 55 24 B2 22 3D 3D 3D 3D 3D 3D 3D 3D 3D |B..U$."=========|
00003A00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003A10: 3D 3D 22 3A 55 24 B2 42 49 24 AA 55 24 00 4A 42 |==":U$.BI$.U$.JB|
00003A20: B0 9F 81 49 B2 31 A4 4E 43 3A 58 24 B2 58 24 AA |...I.1.NC:X$.X$.|
00003A30: 54 24 3A 59 24 B2 59 24 AA 55 24 3A 82 49 3A 54 |T$:Y$.Y$.U$:.I:T|
00003A40: 24 B2 58 24 3A 55 24 B2 59 24 00 6B 42 BA 9F 97 |$.X$:U$.Y$.kB...|
00003A50: 35 33 32 37 32 2C 32 33 3A 99 22 93 22 3A 58 B2 |53272,23:.".":X.|
00003A60: 31 3A 5A B2 31 3A 58 24 B2 22 22 00 88 42 C4 9F |1:Z.1:X$.""..B..|
00003A70: A0 34 3A A0 36 3A 9F 34 2C 50 4E 3A 9F 36 2C 44 |.4:.6:.4,PN:.6,D|
00003A80: 4E 2C 30 2C 22 24 30 22 00 A2 42 CE 9F A1 23 36 |N,0,"$0"..B...#6|
00003A90: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C |,A$,A$,A$,A$,A$,|
00003AA0: 41 24 00 BA 42 D8 9F A1 23 36 2C 41 24 3A 8B 41 |A$..B...#6,A$:.A|
00003AB0: 24 B2 22 22 A7 34 30 39 34 30 00 CE 42 E2 9F 58 |$."".40940..B..X|
00003AC0: 24 B2 58 24 AA 41 24 3A 89 34 30 39 32 30 00 EE |$.X$.A$:.40920..|
00003AD0: 42 EC 9F 42 24 B2 CA 28 58 24 2C 32 31 2C 32 29 |B..B$..(X$,21,2)|
00003AE0: 3A 41 24 B2 CA 28 58 24 2C 33 2C 31 36 29 00 0B |:A$..(X$,3,16)..|
00003AF0: 43 F6 9F 44 4E 24 B2 43 24 AA C7 28 33 34 29 AA |C..DN$.C$..(34).|
00003B00: 41 24 AA C7 28 33 34 29 AA 42 24 00 21 43 00 A0 |A$..(34).B$.!C..|
00003B10: 50 24 B2 22 20 22 3A 99 22 93 22 44 4E 24 22 11 |P$." ":."."DN$".|
00003B20: 22 00 40 43 0A A0 A1 23 36 2C 41 24 2C 41 24 3A |".@C...#6,A$,A$:|
00003B30: 8B 41 24 B2 22 22 A7 A0 36 3A 89 34 31 30 31 30 |.A$.""..6:.41010|
00003B40: 00 6E 43 14 A0 A1 23 36 2C 41 24 2C 42 24 3A 42 |.nC...#6,A$,B$:B|
00003B50: 24 B2 C4 28 C6 28 41 24 AA 4E 24 29 AA C6 28 42 |$..(.(A$.N$)..(B|
00003B60: 24 AA 4E 24 29 AC 32 35 36 29 AA 22 20 22 00 AB |$.N$).256)." "..|
00003B70: 43 1E A0 A1 23 36 2C 41 24 3A 8B 41 24 B2 22 22 |C...#6,A$:.A$.""|
00003B80: A7 50 24 28 58 29 B2 42 24 3A 99 50 24 28 58 29 |.P$(X).B$:.P$(X)|
00003B90: 3B 3A 8D 34 30 35 35 30 3A 58 B2 58 AA 31 3A 42 |;:.40550:X.X.1:B|
00003BA0: 24 B2 22 22 3A 89 34 30 39 37 30 00 BF 43 28 A0 |$."":.40970..C(.|
00003BB0: 42 24 B2 42 24 AA 41 24 3A 89 34 30 39 39 30 00 |B$.B$.A$:.40990.|
00003BC0: F4 43 32 A0 99 3A 99 22 11 11 11 20 20 20 D0 52 |.C2..:."... .R|
00003BD0: 45 53 53 20 12 20 D2 C5 D4 D5 D2 CE 20 92 20 57 |ESS . ...... . W|
00003BE0: 48 45 4E 20 50 52 49 4E 54 45 52 20 49 53 20 52 |HEN PRINTER IS R|
00003BF0: 45 41 44 59 00 0D 44 3C A0 A1 47 24 3A 8B 47 24 |EADY..D<..G$:.G$|
00003C00: B3 B1 C7 28 31 33 29 A7 34 31 30 32 30 00 1B 44 |...(13).41020..D|
00003C10: 46 A0 98 34 2C 42 49 24 3B 55 24 00 48 44 50 A0 |F..4,BI$;U$.HDP.|
00003C20: 98 34 2C 42 49 24 3B 42 4F 24 3B 44 4E 24 3B 22 |.4,BI$;BO$;DN$;"|
00003C30: 3A 22 3B 4C 49 24 3B 50 24 28 58 AB 31 29 3B 42 |:";LI$;P$(X.1);B|
00003C40: 46 24 3A 98 34 2C 54 24 00 70 44 5A A0 81 42 B2 |F$:.4,T$.pDZ..B.|
00003C50: 31 A4 4E 43 3A 50 24 B2 50 24 AA C8 28 50 24 28 |1.NC:P$.P$..(P$(|
00003C60: 5A 29 2C 32 36 29 AA 22 20 22 3A 5A B2 5A AA 31 |Z),26)." ":Z.Z.1|
00003C70: 00 88 44 64 A0 8B 5A B2 58 AB 31 A7 98 34 2C 50 |..Dd..Z.X.1..4,P|
00003C80: 24 3A 89 34 31 30 39 30 00 A9 44 6E A0 82 42 3A |$:.41090..Dn..B:|
00003C90: 98 34 2C 50 24 3A 50 24 B2 22 20 22 3A 8B 5A B2 |.4,P$:P$." ":.Z.|
00003CA0: 58 AB 31 A7 34 31 30 39 30 00 B4 44 78 A0 89 34 |X.1.41090..Dx..4|
00003CB0: 31 30 35 30 00 DA 44 82 A0 98 34 2C 55 24 3A 98 |1050..D...4,U$:.|
00003CC0: 34 3A 99 22 11 20 41 4E 4F 54 48 45 52 20 44 49 |4:.". ANOTHER DI|
00003CD0: 53 4B 20 28 59 2F 4E 29 3F 22 00 EB 44 8C A0 98 |SK (Y/N)?"..D...|
00003CE0: 34 3A 98 34 2C 52 53 24 3A A0 34 00 06 45 96 A0 |4:.4,RS$:.4..E..|
00003CF0: A1 41 24 3A 8B 41 24 B2 22 59 22 A7 A0 34 3A 8A |.A$:.A$."Y"..4:.|
00003D00: 20 34 30 36 39 30 00 19 45 A0 A0 8B 41 24 B3 B1 | 40690..E...A$..|
00003D10: 22 4E 22 A7 34 31 31 31 30 00 1F 45 AA A0 8A 00 |"N".41110..E....|
00003D20: 00 00 |.. |
..Q....*********************************
****************************************
*......* DISK OPERATIONS
PROGRAMS - DOP
*......* WRITTEN BY CHARL
ES O. GAUTHIER
*.A....* FOR ALL FRUSTRAT
ED DISK LOVERS
*......*********************************
****************************************
*......*********************************
......* DECLARE VARIABLES *.
.....*********************************..
.(.. A$(150).8.2.QO$.G(34):K$."
".[.<.K1$.".R.UN .U.P .D.OWN .Q.U
IT".}.F.K2$.".P.URGE .U.P .D.OWN .Q."...
P.RX.781:RY.782:RP.783:CP.65520:XS.23:YS
.0:C$.G(13):SD.828...Z.S$(1).". PURGE/D
ELETE .":S$(2)."... C O P Y ."...D.
S$(3).". RENAME DISK .":S$(4).".
DIRECTORY .".H.N.S$(5).". C H A N G E
.":S$(6).".. F O R M A T .."...X.S$(
7).". PRINT DIRECTORY .":S$(8).".. L
OAD / RUN ..".W...M1$."
".....M$.".-------
--------------------------------."......
19000.C....*****************************
****************************************
***......*
*...A..* SUBRO
UTINES SECTION *.
M.B..*
*...
C..*************************************
***********************************...D.
..G.E..********************************.
..F..* CHECK FOR YES/NO *...
G..********************************.L.H.
.".".240).80).10)"ARE YOU SURE":..50)"YO
U WANT TO..".\.R...8)S$(S):..X.....10)".
. . Y . FOR YES.......10)".. . N . FOR
NO"......G$:.G$.."Y".G$.."N".240.B....G
$."N".NS.1.H..........******************
**************......* ASK PURGE OR DE
LETE *.:....**********************
**********.V....".".240).80).10)"SELECT
WHICH":..50)"YOU WANT TO DO..".......6)"
.. . F1 . FOR DIRECTORY PURGE.G.....6)"
.. . F3 . FOR 1 PROGRAM DELETE......G$:
.G$..".".G$..".".275.........)..********
************************.6.*..* DIR
ECTORY CHECK *.\.+..************
********************...,.DC.0:.".".240).
80)" DO YOU WANT A DIRECTORY FIRST"...
6...10)".. . Y . FOR YES.M.@...10)".. .
N . FOR NO"...J..B$:.B$.."Y".B$.."N".3
30...T..B$."Y".DC.1...^...'.E..*********
***********************.M.F..* PRIN
T BLANK LINE *.S.G..*************
*******************...H.PX.0:PY.23:.470:
.M1$:.......****************************
****.Z....* PAGE TURNER
*......********************************
......RX,XS:.RY,YS:.RP,0.,.... CP:.R.1.R
.0:..D....".PRESS .. SPACEBAR .. TO CONT
INIUE. .. Q .. QUIT"......B$:.B$."Q"..60
0:.GG.0.400......GG.1.670...B..B$..G(32)
.430...L...P.S..************************
********...T..* POSITION CURSOR
*...U..****************************
****.4.V..RX,PY:.RY,PX:.RP,0.=.... CP.C.
....I....*******************************
*......* VALIDATE DISK *.
.....********************************...
...".".240).12)"PLEASE SELECT":..12)" YO
UR CHOICE .".......6)".. . F1 . TO VALI
DATE DISK.5.....13)"(THIS MAY TAKE A WHI
LE!)".[.....6)".. . F3 . TO RETURN TO M
ENU......"...A VALIDATE MERELY RE-ORGANI
ZES THE"......".DISK'S BAM (BLOCK AVAILA
BILITY MAP).".R....G$:.G$..".".G$..".".5
30......G$.".".....&..".. . NOW
VALIDATING .".".0. 15:.15,8,15:.15,"V":
15.(.:...N.U..**************************
******.T.V..* QUIT Y/N
*...W..******************************
**.I.X.."....... PLEASE BE SURE YOU WANT
TO QUIT".R.B.GG.0...L..".. . F1 .
TO QUIT"...V..".. . F3 . TO GO
BACK.1....A$:.A$..".".A$..".".640.B....A
$.".".GG.1.H..........G(142):.". BYE FOR
NOW!!!!":."PAYLOAD CONNECT",8:.......**
*****************************.J....* DI
RECTORY ( F4 MAIN MENU) *......********
***********************..... 1: 15:.15,8
,15:.1,8,0,"$":NF.0:.2690.0....A$.."00".
15: 1:..>.P..#1,F$,S$.L.Z..#1,F$,S$.Z..
..#1,F$,S$.F...CO.CO.1.~...F.0:.F$.."".F
.F(F$)......S$.."".F.F.F(S$).256......J(
D(F),2);.3);G(34);.H....#1,S$:.ST..0.890
... ..S$..G(34).790...*..#1,S$:.S$..G(34
)..S$;:.810...4..G(34);:NF.NF.1.(.>..#1,
S$:.S$.G(32).830.9.H...19);:T$."".Y.R.T$
.T$.S$:.#1,S$:.S$.."".850.F.\..H(T$,3).{
.F..CO.23.CO.0:.920...P..ST.0.730...Z.."
BLOCKS FREE"..... 1.....CO.0:......." P
RESS .. Y .. FOR MORE - .. N .. TO STOP"
;......G$:.G$.."Y".G$.."N".930.)....G$."
N". 1:CO.0:PX.0:PY.23:.470:.M1$:..7...."
.":.880.]....***************************
*****......* PURGE/DELETE DISK F1
*......*******************************
*.G...S.1:.200:S.0:.NS.1.NS.0:.......260
:.G$.".".1700.....D$."0":D.E(D$):SP.1108
:LS.17.6....".".240).240)" PURGE CURREN
T DISK . Y . OR . N .".T....G$:.G$.."Y".
G$.."N".1030.B....G$."N"........".":.700
:PX.24:PY.2:PO.SP...$..470......K$:.T.1.
50:.:.470:.K2$:.T.1.100:....8..G$:.G$.."
P".G$.."U".G$.."D".G$.."Q".1060...B..G$.
"Q".500...L..G$."U"..470:.K$.;.N..G$."U"
..PY.2.PY.PY.1:PO.PO.40:.PY.0.PY.0:PO.SP
.80.[.V..G$."P"..1200:.D1$."N".1060.P.`.
.G$."D"..470:.K$...B..G$."D"..PY.NF.PY.P
Y.1:PO.PO.40:.PY..23.PY.0:.1160...J..G$.
"U".G$."D".1060...T..470:.K$:PY.PY.1:PO.
PO.40:.PY..23.PY.0:PO.SP:.1160...~..1060
.3....360:." CONTINUE PURGE DISK . Y . O
R . N . ".Q....G$:.G$.."Y".G$.."N".117
0.A....G$."N".500.K....1050.....A$."":B$
."":PP.PO:.S.1.LS.....A.B(PP):.A.32.P.A.
64:.1230...D.P.A.Y.N.A$.G(P):PP.PP.1:.A$
.G(34).S.LS:.1250...X.B$.B$.A$:......R.1
:.400:.". PURGE? . "B$" . Y . OR . N .".
8....D1$:.D1$.."Y".D1$.."N".1260.J...R.1
:.400:.M1$.Y....D1$."N"...F.... 1,8,15.{
....1,"S:".B$:B$.""..... 1:.......300:.
DC.1..".":.700......360:PX.0:PY.23:.470.
.....". DELETE WHICH PROGRAM .";PN$:.PN$
."".....B.S$(0).". DELETE . ".PN$...L..2
00:.NS.1.NS.0:..$.V.S$(0)."".@....1,8,15
:.1,"S:".PN$: 1:.K....500:..P.M..*******
************************...N..* RENA
ME / DISK ID F3 *...O..*************
******************.X.P.S.3:.200:S.0:.NS.
1.NS.0:....S.DV.0:SP$." "
.+.T.M$.".------------------------------
---------.".W.U.N$(1).". CHANGE DISK NA
ME ":N$(2)."".D...N$(3).""......".....
.. .. DISK CHANGE ."......".
PLEASE SELECT YOUR CHOICE".X....
".. . F1 . "N$(1).. ..."..
. F7 . . MAIN MENU ".( ...CH$
:.CH$..".".CH$..".".2050.B ..V.136.F(CH$
):.V.3.V.2.M ...V.0...^ ...2305:."."M$..
....8)".. OLD NAME/ID .":.DD$:.M$
.. 4..V.1.2270. W..2305.. P..". PLEASE
TYPE THE . 16 LETTER .":." NAME FOR THE
DISK ";..!Z..NN$:.C(NN$).16.C(NN$).1..2
003.@!.D$."":T.C(NN$):DF.16.T:.FD.1.DF:
D$.D$.G(32):.:NN$.NN$.D$.\!..NN$.H(NN$,1
6):.NN$.""...J!...V.2.2340..!...". PLEAS
E TYPE THE . TWO DIGIT":..4)" OR LETTER
ID";..!...I$:.C(I$)..2.2270.J!..I$.H(I$,
2).T!...2340.."..A$."":. <<<< READ CURRE
NT DISK NAME >>>>. ".. 15: 1:.1,8,2,"#":
.15,8,15.<"...15,"U1:2";0;18;0:.2690.]".
..15,"B-P:2,144":.2690:ND$."".."...I.1.2
0:.#1,A$:ND$.ND$.A$:.:ID$.I(ND$,2):ND$.H
(ND$,16).."..DD$.".NAME .".ND$.". ID#. "
.ID$.Q".. 1:.15,"I": 15:..."$..2430..#L.
.2305:.M$:..8)".. NEW NAME/ID .":
.DD$.>#V..M$:.". WE HAVE FINISHED WI
TH THIS DISK.".C#`...10)". TO DO ANOTHE
R DISK "..#E...10)"PRESS . Y . OR . N
. TO STOP"..#J..B$:.B$.."Y".B$.."N".241
0..#O..B$."Y"..2003.A#T....#~. 15: 1:.1,
8,2,"#":.15,8,15. $...15,"B-P:2,144":.26
90:I$." ".I$." 2A ":ID$." ".ID$." 2A "
.<$...V.2485,2475,2465:.2455.N$...15,"I"
:.2690.C$.. 1:.15,"I": 15:..W$...1,NN$.I
$:.2690..$...15,"U2:2";0;18;0:.2690:...$
...1,NN$.ID$:.2690.H$...15,"U2:2";0;18;0
:.2690:...$...1,ND$.I$:.2690..$...15,"U2
:2";0;18;0:.2690:.."%..A$."":. <<<<< ERR
OR CHANNEL >>>>>>>.6%...15,A$,B$,C$,D$.E
%...A$."00"...N%...2730:.".... ERROR
NUMBER ."A$:...%...". TRACK NUMBER.
"C$:...%...". BLOCK NUMBER. "D$".":
.:..V% ..". DESCRIPTION. :"B$:."."..
%...15,"I": 1: 15:.400:.. &...".... O
..............................P".L&..."
. *** READ ERROR ON DISK *** .".X&.
.." L..............................."
.~&.....&...****************************
***.H&...* CHANGE NAME F5 *
..&...*******************************..'
..S.5:.200:S.0:.NS.1.NS.0:..9'B..".":.70
0:.". CHANGE WHICH PROGRAM .";PN$.\'L.."
. CHANGE TO WHAT NAME .";NP$..'V.S.0:S$(
0).".....CHANGE ".PN$." TO ".NP$..'...20
0:.NS.1.NS.0:S$(0)."":..N'.. 1:. 1,8,15:
.1,"R0:".NP$."=0:".PN$.W'.. 1:...'...***
****************************.!(...*
COPIER F2 *.F(...*********
**********************.D( .S.2:.200:S.0:
.NS.1.NS.0:..|(...". PROGRAM COPIER"..(.
....(..." INSERT SOURCE DISK . RETURN ."
;A$..(H...Y(R.PN$."":." FILE NAME ";PN$:
.PN$.""....)..F$."":." FILE TYPE ( S,P,U
) ";F$:.F$.""....)....").. 2: 15:. 15,8,
15.C)... 2,8,2,"0:".PN$.",".F$.",R".Z)..
.4300:.RT.1.RT.0:..F)..I.1:H.0.Q)...#2,A
$..)"..A$."".A$.G(0)..),.A$(H).A$(H).A$.
.)6..ST..0. 2:.4180.J)@.I.I.1:.I.254.I.1
:H.H.1:.H;.T)J..4120.Z)T....)^....*H.."
INSERT DESTINATION DISK . RETURN .";A$..
*R..15,"I".>*|. 2:.2,8,2,"@0:".PN$.",".F
$.",W".Z*...4300:.RT.1.RT.0:TR.1:..E*...
X.0.H.S*...2,A$(X);.Z*...X..*.. 2..*.. 1
5..*B.TR.1:...*L..15,EN,EM$,ET,ES..*V..E
N.0...G*..."DISK ERROR".Y*...EN;EM$;ET;E
S..*.. 2..*.. 15..*...400:RT.1..*....#
+...*******************************.H+..
.* DIRECTORY F4 *.M+...**
*****************************..+..S.4:.2
00:S.0:.NS.1.NS.0:.. +...".":.700:.400:.
.E+M..*******************************..+
N..* INIT/FORMAT F6 *..,O..
*******************************.-,P.S.6:
.200:S.0:.NS.1.NS.0:..J,Z.."....TYPE IN
A DISK NAME(16 MAX.)":.DN$:.C(DN$).16.60
10..,..."..TYPE IN A TWO CHARACTER IDENT
IFIER":.TD$:.C(TD$).2.6020..,..NN$.DN$."
,".TD$..,.. 15:.15,8,15:.15,"N:".NN$:.26
90: 15:...-U..**************************
*****.2-V..* INPUT/RUN F8
*.W-W..*******************************.
U-X.S.8:.200:S.0:.NS.1.NS.0:...-]..".".2
40).80).10)"SELECT ONLY ONE"..-B...10)".
. . F1 . INPUT RUN.Y-L...10)".. . F3 .
MENU RUN..-V..G$:.G$..".".G$..".".7030.
.....G$.".".7100.&....300:.".":.DC.1.DC.
0:.700.R...." PLEASE TYPE THE PROGRAM NA
ME":PN$."".W...." THEN PRESS . RETURN ."
;:. PN$......PN$.""........".LOAD"QO$PN$
QO$",8,1":.631,19:.632,131:.198,2:......
.".":.700 :PX.23:PY.2:SP.1108:LS.17:PO.S
P...F..470../P..K$:.T.1.50:.:.470:.K1$:.
T.1.100:..G/Z..G$:.G$.."R".G$.."U".G$.."
D".G$.."Q".7110.U/...G$."Q"..../...G$."U
"..470:.K$:PY.PY.1:PO.PO.40:.PY.0.PY.0:P
O.SP.80../...G$."D"..470:.K$:PY.PY.1:PO.
PO.40.Q/...PY.22.PY.0:PO.SP:.7300../...G
$."R".7200../...7110..0 .A$."":B$."":PP.
PO:.S.1.LS.)0*.A.B(PP):.A.32.P.A.64:.723
0.104.P.A.Z0>.A$.G(P):PP.PP.1:.A$.G(34).
S.LS:.7250.I0H.B$.B$.A$:...0R.R.1:.400:.
". RUN . "B$" . Y . OR . N ."..0\..G$:.G
$.."Y".G$.."N".7260.E0F.R.1:.400:.M1$.V0
P..G$."N".7130..0Z..G$."Y".PN$.B$:.7320.
.1..." PLEASE TYPE THE PROGRAM NAME":PN$
."".J1..." THEN PRESS . RETURN .";:. PN$
:.PN$.""....1...".LOAD"QO$PN$QO$",8,1":.
631,19:.632,131:.198,2:...15J.**********
********************.H16J.* OPENI
NG TITLE *..17J.******************
************..18J...2VJ.53280,11:.53281,
11..2`J.G(142)"..".A2JJTL$(1)." .. DISK
OPERATIONS 64 ..".H2TJTL$(2)." .. BAS
IC VERSION .."..2~JT1$." UCCC UCCI
UCCI UCIUCI UCCI CC.CC".D2.JT2$." .
. . . . . JK . . . ."..2.JT3$."
.CC . . .C.K . . .CC. ."..3.JT4
$." . JCCK . . . . . . .".D
3.J.T1$:.T2$:.T3$:.T4$"..":PK$.G(63)..3.
J.". P R O G R A M M I N G.":."
PRESENTS.."..3.J..7)TL$(1)".
":..7)TL$(2)"."..3DJ..15)"... BY ...".C3
NJ...3XJLT$(3)." .. PROGRAMMED BY - CH
ARLES GAUTHIER "..4.J."."LT$(3):.LT$(4)
..4.J.400.=4.N.*************************
*****.A4.N.* DISK OPERATIONS
*..4.N.* (MAIN MENU) *..4
.N.******************************.Z4 N."
. .. DISK OPERATIONS PROGRAM .
."..5%N." .. MAIN MENU
.."..5'N.".."M$.H5*N." . F1 . TO
. PURGE/DELETE . DISK / PROGRAM".P54N.M$
.{5>N." . F2 . TO . COPY . A PROGRAM/F
ILE..5HN.M$..5RN." . F3 . TO . RENAME .
DISK"..5\N.M$.V5FN." . F4 . TO . DIRECTO
RY . THIS DISK..5PN.M$..6ZN." . F5 . TO
. CHANGE . THE NAME OF PROGRAM"..6.N.M$.
E6.N." . F6 . .. INITIALIZE/FORMAT .. A
DISK".Q6.N..4)"..THIS WILL ERASE EVERYTH
ING!!!..".Y6.N.M$..6.N." . F7 . TO . PRI
NT DIRECTORY ...6.N.M$.O6.N." . F8 . TO
. LOAD/RUN . A PROGRAM".W6.N.M$..6.N."
. Q . TO QUIT"..7.N.M$..7.N.G
$:.G$."".20150.37.N.G$."Q"..600:.GG.0.20
000.?7.NV.F(G$).M7EN.GG.1.670.K7JNV1.141
.V:.V1.1.V1.8.20150..7TN. ONV1GOSUB F8
,F6 ,F4 ,F2 ,F7 ,F5 ,F3 ,F1.N7.N.V1.70
00,6000,5000,4000,40000,3000,2000,1000.Z
7.N.TR.1....7.N.20000..8=..*************
******************./8>..* PRINT DIRECTO
RY F7 *.]8?..*******************
************R PRINTER..8@..".".240).12)"
PLEASE SELECT":..12)"YOUR PRINTER.."..8J
...6)".. . F1 . FOR REGULAR PRINTER..8T
...6)".. . F3 . FOR GEMINI 10X..9^...6)
".. . F5 . FOR MAIN MENU.(9H..S$:.S$.."
.".S$..".".S$..".".40040.:9R..S$.".".406
90.H9|..S$."."...S9...40630.P9...53280,0
:.53281,0:.646,7..9..."..... .. THE PRIN
CE OF LEGENDS PROUDLY PRESENTS.....9..."
...".P9....12);"DISK DIRECTORY....9..ES$
.G(27):J.B(820)..:B..". TYPE 2 F
OR 2 COLUMNS":." TYPE 3 FOR 3 CO
LUMNS".M:L..G$:.G$.."2".G$.."3".40140.Z:
V.NC.E(G$)..:...".. PRESS . RETURN . WH
EN DISK IS READY". :...CC$:.CC$."".40170
..:...CC$..G(13).40090..:..PN.4.H:..DN.8
.V:..ES$.G(27)..;... BI$=ES$+CHR$(66
)+CHR$(3):BI$=BI$+LI$+SP$..;&.BI$."".&;0
.RS$.ES$.G(64).K;:..P$(150):C$."DISK NAM
E=":N$.G(0).O;D.T$."--------------------
------"..;N.U$."========================
=="..;X..I.1.NC:X$.X$.T$:Y$.Y$.U$:.I:T$.
X$:U$.Y$..;B..53272,23:.".":X.1:Z.1:X$."
"..;L. 4: 6:.4,PN:.6,DN,0,"$0"..<V..#6,A
$,A$,A$,A$,A$,A$.0<...#6,A$:.A$."".40340
.D<..X$.X$.A$:.40320.D<..B$.J(X$,21,2):A
$.J(X$,3,16)..<..DN$.C$.G(34).A$.G(34).B
$..<..P$."":."."DN$"."..<...#6,A$,A$:.A$
."". 6:.40410..<...#6,A$,B$:B$.D(F(A$.N$
).F(B$.N$).256)." ". =F..#6,A$:.A$."".P$
(X).B$:.P$(X);:.40550:X.X.1:B$."":.40370
.4=P.B$.B$.A$:.40390.I=Z..:."... PRESS
. RETURN . WHEN PRINTER IS READY..=...G
$:.G$..G(13).40420..=...4:.4,U$..=...4,B
I$;BO$;DN$;":":.4,T$.P=...B.1.NC:P$.P$.H
(P$(Z),26):Z.Z.1..=...Z.X.1..4,P$:.40490
..>...B:.4,P$:P$."":.Z.X.1.40490..> ..40
450.9>*..4,U$:.4:.". ANOTHER DISK (Y/N)?
".C>4..4,"".T>>..4:.4,RS$: 4.N>H..A$:.A$
."Y". 4:.40070..>R..A$.."N".40520..>\...
.>F..J.1..:...>P.. IFMID$(P$(X),15,1)
="."THENRETURN..>Z.. IFMID$(P$(X),16,
1)="."THENRETURN..?... IFMID$(P$(X),1
7,1)="."THENRETURN.#?...". Y/N . ";.B?..
.Y$:.Y$.."Y".Y$.."N".40600.]?...Y$."N".P
$(X)."":X.X.1.G?...Y$:...?...".".240).12
)"PLEASE SELECT":..12)" YOUR CHOICE ..".
E?....6)".. . F1 . TO EDIT EACH FILE..?
J...6)".. . F3 . FOR FULL DIR PRINT..@T
..G$:.G$..".".G$..".".40660.(@..J1.F(G$)
:J.135.J1:.820,J..@....9@...40630.V@...5
3280,0:.53281,0:.646,7..@..."..... .. TH
E PRINCE OF LEGENDS PROUDLY PRESENTS....
.@...".....@....12);"DISK DIRECTORY...C@
$.ES$.G(27).P@..J.B(820)..@8.LI$.ES$.G(8
3).G(0)..@B.SP$.ES$.G(51).G(10).7AL.."NU
MBER OF COLUMNS . 2 TO 5 .";NC:.NC.2.NC.
5.40780.@AV.PN.4.IA`.DN.8.WAJ.ES$.G(27).
~AT.BI$.ES$.G(66).G(3):BI$.BI$.LI$.SP$..
A~.BI$.BI$.LI$.SP$..A..RS$.ES$.G(64).IA.
..P$(150):C$."DISK NAME=":N$.G(0)..A..T$
."---------------------------"..B..U$."=
==========================":U$.BI$.U$.JB
...I.1.NC:X$.X$.T$:Y$.Y$.U$:.I:T$.X$:U$.
Y$.KB...53272,23:.".":X.1:Z.1:X$.""..BD.
4: 6:.4,PN:.6,DN,0,"$0"..BN..#6,A$,A$,A
$,A$,A$,A$..BX..#6,A$:.A$."".40940.NB..X
$.X$.A$:.40920..B..B$.J(X$,21,2):A$.J(X$
,3,16)..C..DN$.C$.G(34).A$.G(34).B$.!C.
P$." ":."."DN$".".@C. .#6,A$,A$:.A$."".
6:.41010.NC. .#6,A$,B$:B$.D(F(A$.N$).F(B
$.N$).256)." "..C. .#6,A$:.A$."".P$(X).B
$:.P$(X);:.40550:X.X.1:B$."":.40970..C(
B$.B$.A$:.40990..C2 .:."... PRESS . RE
TURN . WHEN PRINTER IS READY..D< .G$:.G$
..G(13).41020..DF .4,BI$;U$.HDP .4,BI$;B
O$;DN$;":";LI$;P$(X.1);BF$:.4,T$.PDZ .B.
1.NC:P$.P$.H(P$(Z),26)." ":Z.Z.1..DD .Z.
X.1..4,P$:.41090..DN .B:.4,P$:P$." ":.Z.
X.1.41090..DX .41050.ZD. .4,U$:.4:.". AN
OTHER DISK (Y/N)?"..D. .4:.4,RS$: 4..E.
.A$:.A$."Y". 4:. 40690..E .A$.."N".4111
0..E. ....
> CLICK IMAGE PREVIEW FOR FULL MODAL