DISK SERVICE V2
FILE INFORMATION
FILENAME(S): DISK SERVICE V2
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 19:47:17
APPEARS ON: 3 disk(s)
FILE HASH
5e72df831fceb80e5f14c1d1889ca7b0a7a862f0b506684d3013c24d62823880
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY | DISK SERVICE V2 | PRG | Curtcool, Frank | 13 | 7 | DOWNLOAD FILE |
| X | DISK SERVICE V2 | PRG | Curtcool, Frank | 29 | 2 | DOWNLOAD FILE |
| COPY | DISK SERVICE V2 | PRG | Curtcool, Frank | 14 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 01 00 8F 20 2A 20 42 59 20 4D 4F 52 |....... * BY MOR|
00000010: 54 45 4E 20 42 52 55 4E 20 30 32 30 36 38 34 00 |TEN BRUN 020684.|
00000020: 52 08 02 00 97 35 33 32 38 30 2C 30 3A 97 35 33 |R....53280,0:.53|
00000030: 32 38 31 2C 30 3A 97 36 34 36 2C 31 3A 9C 3A 50 |281,0:.646,1:.:P|
00000040: 4F 24 B2 C7 28 34 34 29 3A 51 4F 24 B2 C7 28 33 |O$..(44):QO$..(3|
00000050: 34 29 00 7B 08 03 00 52 56 24 B2 C7 28 31 38 29 |4).{...RV$..(18)|
00000060: 3A 52 4F 24 B2 C7 28 31 34 36 29 3A 43 48 24 B2 |:RO$..(146):CH$.|
00000070: C7 28 31 34 37 29 3A 99 43 48 24 00 A8 08 04 00 |.(147):.CH$.....|
00000080: 99 22 B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |."..............|
00000090: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000A0: C3 C3 C3 C3 C3 C3 C3 AE 00 D6 08 05 00 99 22 C2 |..............".|
000000B0: 20 20 20 20 44 49 53 4B 20 53 45 52 56 49 43 45 | DISK SERVICE|
000000C0: 20 2E 56 32 20 20 20 20 20 20 20 20 20 20 45 4E | .V2 EN|
000000D0: 54 45 52 20 C2 22 00 0A 09 06 00 54 24 B2 22 AB |TER .".....T$.".|
000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 B3 22 3A 99 54 24 00 3C 09 07 00 99 |.....":.T$.<....|
00000110: 22 C2 46 4F 52 4D 41 54 20 44 49 53 4B 20 20 20 |".FORMAT DISK |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 31 20 20 20 C2 22 3A 99 54 24 00 6E 09 08 | 1 .":.T$.n..|
00000140: 00 99 22 C2 56 41 4C 49 44 41 54 45 20 44 49 53 |..".VALIDATE DIS|
00000150: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |K |
00000160: 20 20 20 20 32 20 20 20 C2 22 3A 99 54 24 00 A0 | 2 .":.T$..|
00000170: 09 09 00 99 22 C2 43 4F 50 59 20 46 49 4C 45 20 |....".COPY FILE |
00000180: 4F 4E 20 44 49 53 4B 20 20 20 20 20 20 20 20 20 |ON DISK |
00000190: 20 20 20 20 20 20 33 20 20 20 C2 22 3A 99 54 24 | 3 .":.T$|
000001A0: 00 D2 09 0A 00 99 22 C2 44 45 4C 45 54 45 20 46 |......".DELETE F|
000001B0: 49 4C 45 20 4F 4E 20 44 49 53 4B 20 20 20 20 20 |ILE ON DISK |
000001C0: 20 20 20 20 20 20 20 20 34 20 20 20 C2 22 3A 99 | 4 .":.|
000001D0: 54 24 00 04 0A 0B 00 99 22 C2 52 45 4E 41 4D 45 |T$......".RENAME|
000001E0: 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 20 20 20 | FILE ON DISK |
000001F0: 20 20 20 20 20 20 20 20 20 20 35 20 20 20 C2 22 | 5 ."|
00000200: 3A 99 54 24 00 36 0A 0C 00 99 22 C2 44 49 53 50 |:.T$.6....".DISP|
00000210: 4C 41 59 20 44 49 52 45 43 54 4F 52 59 20 20 20 |LAY DIRECTORY |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 20 | 6 |
00000230: C2 22 3A 99 54 24 00 68 0A 0D 00 99 22 C2 52 45 |.":.T$.h....".RE|
00000240: 53 45 54 20 44 52 49 56 45 20 45 52 52 4F 52 20 |SET DRIVE ERROR |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 20 | 7 |
00000260: 20 20 C2 22 3A 99 54 24 00 9A 0A 0E 00 99 22 C2 | .":.T$......".|
00000270: 43 48 41 4E 47 45 20 44 49 52 45 43 54 4F 52 59 |CHANGE DIRECTORY|
00000280: 20 48 45 41 44 45 52 20 20 20 20 20 20 20 20 20 | HEADER |
00000290: 38 20 20 20 C2 22 3A 99 54 24 00 CC 0A 0F 00 99 |8 .":.T$......|
000002A0: 22 C2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 39 20 20 20 C2 22 3A 99 54 24 00 FE 0A 10 | 9 .":.T$....|
000002D0: 00 99 22 C2 53 54 4F 50 20 20 20 20 20 20 20 20 |..".STOP |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 58 20 20 20 C2 22 3A 99 54 24 00 10 | X .":.T$..|
00000300: 0B 11 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 37 |....X$:.X$."".17|
00000310: 00 23 0B 12 00 8B 58 24 B2 22 58 22 A7 99 22 93 |.#....X$."X"..".|
00000320: 22 3A 80 00 2F 0B 13 00 58 B2 C5 28 58 24 29 00 |":../...X..(X$).|
00000330: 51 0B 14 00 91 58 8D 32 33 2C 33 35 2C 34 33 2C |Q....X.23,35,43,|
00000340: 37 35 2C 38 32 2C 35 30 2C 38 36 2C 38 37 2C 36 |75,82,50,86,87,6|
00000350: 39 00 58 0B 15 00 89 32 00 7B 0B 16 00 8F 20 2A |9.X....2.{.... *|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 20 46 4F 52 4D 41 54 20 |******** FORMAT |
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B3 0B 17 00 |***********.....|
00000380: 99 43 48 24 3B 52 56 24 3B 22 46 4F 52 4D 41 54 |.CH$;RV$;"FORMAT|
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 53 54 4F 50 3C 52 45 54 55 52 | STOP<RETUR|
000003B0: 4E 3E 22 00 E8 0B 18 00 99 3A 99 3A 85 22 12 45 |N>"......:.:.".E|
000003C0: 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 44 49 53 |NTER NAME OF DIS|
000003D0: 4B A0 20 3A 20 22 3B 4E 41 24 3A 99 3A 8B 4E 41 |K. : ";NA$:.:.NA|
000003E0: 24 B2 22 22 20 A7 20 8E 00 1A 0C 19 00 8B C3 28 |$."" . ........(|
000003F0: 4E 41 24 29 B1 31 36 A7 99 43 48 24 3B 22 4E 41 |NA$).16..CH$;"NA|
00000400: 4D 45 20 54 4F 4F 20 4C 41 52 47 45 22 3A 8D 37 |ME TOO LARGE":.7|
00000410: 30 3A 99 43 48 24 3A 89 32 34 00 41 0C 1A 00 99 |0:.CH$:.24.A....|
00000420: 3A 85 22 12 45 4E 54 45 52 20 44 49 53 4B 20 49 |:.".ENTER DISK I|
00000430: 44 20 20 20 20 20 20 20 3A 20 22 3B 4E 55 24 3A |D : ";NU$:|
00000440: 99 00 70 0C 1B 00 8B C3 28 4E 55 24 29 B1 32 A7 |..p.....(NU$).2.|
00000450: 99 43 48 24 3B 22 49 44 20 54 4F 4F 20 4C 41 52 |.CH$;"ID TOO LAR|
00000460: 47 45 22 3A 8D 37 30 3A 99 43 48 24 3A 89 32 36 |GE":.70:.CH$:.26|
00000470: 00 94 0C 1C 00 3A 99 43 48 24 3B 52 56 24 3B 22 |.....:.CH$;RV$;"|
00000480: 44 49 53 4B 20 4E 41 4D 45 22 3B 52 4F 24 2C 4E |DISK NAME";RO$,N|
00000490: 41 24 3A 99 00 CB 0C 1D 00 99 3B 52 56 24 22 44 |A$:.......;RV$"D|
000004A0: 49 53 4B 20 49 44 20 20 22 3B 52 4F 24 2C 4E 55 |ISK ID ";RO$,NU|
000004B0: 24 3A 99 3A 99 3A 99 22 41 52 45 20 59 4F 55 20 |$:.:.:."ARE YOU |
000004C0: 53 55 52 45 20 28 59 2F 4E 29 22 00 DF 0C 1E 00 |SURE (Y/N)".....|
000004D0: A1 53 56 24 3A 8B 53 56 24 B2 22 22 A7 33 30 00 |.SV$:.SV$."".30.|
000004E0: EF 0C 1F 00 8B 53 56 24 B2 22 59 22 A7 33 33 00 |.....SV$."Y".33.|
000004F0: 05 0D 20 00 4E 41 24 B2 22 22 3A 4E 55 24 B2 22 |.. .NA$."":NU$."|
00000500: 22 3A 89 32 33 00 2D 0D 21 00 9F 31 35 2C 38 2C |":.23.-.!..15,8,|
00000510: 31 35 3A 98 31 35 2C 22 4E 3A 22 AA 4E 41 24 AA |15:.15,"N:".NA$.|
00000520: 50 4F 24 AA 4E 55 24 AA 51 4F 24 3A 8E 00 51 0D |PO$.NU$.QO$:..Q.|
00000530: 22 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 20 56 41 |".. ******** VA|
00000540: 4C 49 44 41 54 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |LIDATE *********|
00000550: 2A 00 68 0D 23 00 99 43 48 24 3B 52 56 24 3B 22 |*.h.#..CH$;RV$;"|
00000560: 56 41 4C 49 44 41 54 45 00 A4 0D 24 00 99 3A 99 |VALIDATE...$..:.|
00000570: 22 57 41 52 4E 49 4E 47 22 3A 99 22 44 49 52 45 |"WARNING":."DIRE|
00000580: 43 54 20 26 20 4F 50 45 4E 20 46 49 4C 45 53 20 |CT & OPEN FILES |
00000590: 57 49 4C 4C 20 42 45 20 44 45 4C 45 54 45 44 22 |WILL BE DELETED"|
000005A0: 3A 99 3A 99 00 BA 0D 25 00 99 22 56 41 4C 49 44 |:.:....%.."VALID|
000005B0: 41 54 45 20 28 59 2F 4E 29 22 00 CE 0D 26 00 A1 |ATE (Y/N)"...&..|
000005C0: 53 54 24 3A 8B 53 54 24 B2 22 22 A7 33 38 00 DF |ST$:.ST$."".38..|
000005D0: 0D 27 00 8B 53 54 24 B2 22 59 22 A7 89 34 31 00 |.'..ST$."Y"..41.|
000005E0: E5 0D 28 00 8E 00 F7 0D 29 00 9F 31 2C 38 2C 31 |..(.....)..1,8,1|
000005F0: 35 2C 22 56 22 3A 8E 00 1C 0E 2A 00 8F 20 2A 2A |5,"V":....*.. **|
00000600: 2A 2A 20 43 4F 50 59 20 46 49 4C 45 53 20 4F 4E |** COPY FILES ON|
00000610: 20 44 49 53 4B 20 2A 2A 2A 2A 2A 2A 00 55 0E 2B | DISK ******.U.+|
00000620: 00 99 43 48 24 3B 52 56 24 3B 22 43 4F 50 59 20 |..CH$;RV$;"COPY |
00000630: 46 49 4C 45 53 20 20 20 20 20 20 20 20 20 20 20 |FILES |
00000640: 20 3C 52 45 54 55 52 4E 20 3D 3E 20 53 54 4F 50 | <RETURN => STOP|
00000650: 22 3A 99 3A 99 00 74 0E 2C 00 85 22 12 53 4F 55 |":.:..t.,..".SOU|
00000660: 52 43 45 20 46 49 4C 45 20 20 20 3A 20 22 3B 46 |RCE FILE : ";F|
00000670: 31 24 3A 99 00 82 0E 2D 00 8B 46 31 24 B2 22 22 |1$:....-..F1$.""|
00000680: A7 8E 00 A1 0E 2E 00 85 22 12 4E 45 57 20 4E 41 |........".NEW NA|
00000690: 4D 45 20 20 20 20 20 20 3A 20 22 3B 46 32 24 3A |ME : ";F2$:|
000006A0: 99 00 D1 0E 2F 00 44 45 24 B2 22 43 3A 22 AA 46 |..../.DE$."C:".F|
000006B0: 32 24 AA 22 3D 22 AA 46 31 24 3A 9F 31 35 2C 38 |2$."=".F1$:.15,8|
000006C0: 2C 31 35 2C 44 45 24 3A 84 31 35 2C 41 24 2C 42 |,15,DE$:.15,A$,B|
000006D0: 24 00 FB 0E 30 00 99 42 24 3A A0 31 35 3A 81 49 |$...0..B$:.15:.I|
000006E0: B2 31 A4 33 30 30 30 3A 82 3A 46 31 24 B2 22 22 |.1.3000:.:F1$.""|
000006F0: 3A 46 32 24 B2 22 22 3A 89 34 33 00 20 0F 31 00 |:F2$."":.43. .1.|
00000700: 8F 20 2A 2A 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 |. ****** DISPLAY|
00000710: 20 44 49 52 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | DIR ***********|
00000720: 00 35 0F 32 00 99 43 48 24 3A 9F 31 2C 38 2C 30 |.5.2..CH$:.1,8,0|
00000730: 2C 22 24 30 22 00 43 0F 33 00 A1 23 31 2C 41 24 |,"$0".C.3..#1,A$|
00000740: 2C 42 24 00 51 0F 34 00 A1 23 31 2C 41 24 2C 42 |,B$.Q.4..#1,A$,B|
00000750: 24 00 5F 0F 35 00 A1 23 31 2C 41 24 2C 42 24 00 |$._.5..#1,A$,B$.|
00000760: 67 0F 36 00 43 B2 30 00 7B 0F 37 00 8B 41 24 B3 |g.6.C.0.{.7..A$.|
00000770: B1 22 22 A7 43 B2 C6 28 41 24 29 00 95 0F 38 00 |."".C..(A$)...8.|
00000780: 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 42 24 |.B$.."".C.C..(B$|
00000790: 29 AC 32 35 36 00 A9 0F 39 00 99 CA 28 C4 28 43 |).256...9...(.(C|
000007A0: 29 2C 32 29 3B A3 33 29 3B 00 BE 0F 3A 00 A1 23 |),2);.3);...:..#|
000007B0: 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 36 36 00 D0 |1,B$:.ST..0.66..|
000007C0: 0F 3B 00 8B 42 24 B3 B1 C7 28 33 34 29 A7 35 38 |.;..B$...(34).58|
000007D0: 00 EF 0F 3C 00 A1 23 31 2C 42 24 3A 8B 42 24 B3 |...<..#1,B$:.B$.|
000007E0: B1 C7 28 33 34 29 A7 99 42 24 3B 3A 89 36 30 00 |..(34)..B$;:.60.|
000007F0: 07 10 3D 00 A1 23 31 2C 42 24 3A 8B 42 24 B2 C7 |..=..#1,B$:.B$..|
00000800: 28 33 32 29 A7 36 31 00 18 10 3E 00 99 A3 32 35 |(32).61...>...25|
00000810: 29 3B 3A 43 24 B2 22 22 00 37 10 3F 00 43 24 B2 |);:C$."".7.?.C$.|
00000820: 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 42 24 |C$.B$:.#1,B$:.B$|
00000830: B3 B1 22 22 A7 36 33 00 44 10 40 00 99 C8 28 43 |.."".63.D.@...(C|
00000840: 24 2C 33 29 00 51 10 41 00 8B 53 54 B2 30 A7 35 |$,3).Q.A..ST.0.5|
00000850: 32 00 64 10 42 00 99 22 42 4C 4F 43 4B 53 20 46 |2.d.B.."BLOCKS F|
00000860: 52 45 45 22 00 71 10 43 00 A0 31 3A 8D 37 31 3A |REE".q.C..1:.71:|
00000870: 8E 00 93 10 44 00 8F 20 2A 2A 49 4E 54 45 52 4D |....D.. **INTERM|
00000880: 45 44 49 41 54 45 20 53 54 41 54 45 4D 45 4E 54 |EDIATE STATEMENT|
00000890: 20 2A 2A 00 C1 10 45 00 99 22 93 22 3A 99 22 46 | **...E..".":."F|
000008A0: 55 4E 43 54 49 4F 4E 20 4E 4F 54 20 52 45 41 44 |UNCTION NOT READ|
000008B0: 59 22 3A 81 49 B2 31 A4 32 30 30 30 3A 82 49 3A |Y":.I.1.2000:.I:|
000008C0: 8E 00 D4 10 46 00 81 49 B2 31 A4 31 30 30 30 3A |....F..I.1.1000:|
000008D0: 82 49 3A 8E 00 F3 10 47 00 99 3A 99 22 45 4E 54 |.I:....G..:."ENT|
000008E0: 45 52 20 3D 3E 43 20 54 4F 20 43 4F 4E 54 49 4E |ER =>C TO CONTIN|
000008F0: 55 45 22 00 05 11 48 00 A1 53 24 3A 8B 53 24 B2 |UE"...H..S$:.S$.|
00000900: 22 22 A7 37 32 00 13 11 49 00 8B 53 24 B2 22 43 |"".72...I..S$."C|
00000910: 22 A7 8E 00 1B 11 4A 00 89 37 32 00 56 11 4B 00 |".....J..72.V.K.|
00000920: 99 43 48 24 3B 52 56 24 3B 22 44 45 4C 45 54 45 |.CH$;RV$;"DELETE|
00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000940: 20 3C 52 45 54 55 52 4E 3E 20 3D 3E 20 53 54 4F | <RETURN> => STO|
00000950: 50 22 3A 99 3A 99 00 7E 11 4C 00 85 22 12 4E 41 |P":.:..~.L..".NA|
00000960: 4D 45 20 4F 46 20 46 49 4C 45 20 20 3A 20 20 22 |ME OF FILE : "|
00000970: 3B 46 24 3A 99 3A 8B 46 24 B2 22 22 A7 8E 00 AE |;F$:.:.F$.""....|
00000980: 11 4D 00 44 45 24 B2 22 53 3A 22 AA 46 24 3A 9F |.M.DE$."S:".F$:.|
00000990: 31 35 2C 38 2C 31 35 2C 44 45 24 3A 84 31 35 2C |15,8,15,DE$:.15,|
000009A0: 41 24 2C 42 24 2C 43 24 3A 46 24 B2 22 22 00 CD |A$,B$,C$:F$.""..|
000009B0: 11 4E 00 8B 43 24 B2 22 30 30 22 A7 99 22 46 49 |.N..C$."00".."FI|
000009C0: 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 22 00 F0 11 |LE NOT FOUND"...|
000009D0: 4F 00 8B 43 24 B3 B1 22 30 30 22 A7 99 43 24 3B |O..C$.."00"..C$;|
000009E0: 22 20 46 49 4C 45 53 20 44 45 4C 45 54 45 44 22 |" FILES DELETED"|
000009F0: 00 08 12 50 00 A0 31 35 3A 81 49 B2 31 A4 33 30 |...P..15:.I.1.30|
00000A00: 30 30 3A 82 3A 89 37 35 00 2B 12 51 00 8F 20 2A |00:.:.75.+.Q.. *|
00000A10: 2A 2A 2A 2A 2A 2A 2A 20 52 45 4E 41 4D 45 20 2A |******* RENAME *|
00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 12 52 00 |***********.r.R.|
00000A30: 99 43 48 24 3B 52 56 24 3B 22 52 45 4E 41 4D 45 |.CH$;RV$;"RENAME|
00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A50: 20 3C 52 45 54 55 52 4E 3E 20 3D 3E 20 53 54 4F | <RETURN> => STO|
00000A60: 50 22 3A 99 3A 46 31 24 B2 22 22 3A 46 32 24 B2 |P":.:F1$."":F2$.|
00000A70: 22 22 00 9D 12 53 00 85 22 12 4E 41 4D 45 20 4F |""...S..".NAME O|
00000A80: 46 20 53 4F 55 52 43 45 46 49 4C 45 22 3B 46 31 |F SOURCEFILE";F1|
00000A90: 24 3A 99 3A 8B 46 31 24 B2 22 22 A7 8E 00 D3 12 |$:.:.F1$."".....|
00000AA0: 54 00 85 22 12 4E 45 57 20 4E 41 4D 45 20 20 20 |T..".NEW NAME |
00000AB0: 20 20 20 20 20 20 20 22 3B 46 32 24 3A 99 3A 44 | ";F2$:.:D|
00000AC0: 45 24 B2 22 52 3A 22 AA 46 32 24 AA 22 3D 22 AA |E$."R:".F2$."=".|
00000AD0: 46 31 24 00 06 13 55 00 9F 31 35 2C 38 2C 31 35 |F1$...U..15,8,15|
00000AE0: 2C 44 45 24 3A 84 31 35 2C 41 24 2C 42 24 3A 99 |,DE$:.15,A$,B$:.|
00000AF0: 42 24 3A 81 49 B2 31 A4 33 30 30 30 3A 82 3A A0 |B$:.I.1.3000:.:.|
00000B00: 31 35 3A 89 38 32 00 20 13 56 00 9F 31 35 2C 38 |15:.82. .V..15,8|
00000B10: 2C 31 35 3A 84 31 35 2C 41 24 3A A0 31 35 3A 8E |,15:.15,A$:.15:.|
00000B20: 00 46 13 57 00 8F 20 2A 2A 2A 2A 20 43 48 41 4E |.F.W.. **** CHAN|
00000B30: 47 45 20 44 49 52 45 43 54 4F 52 59 20 48 45 41 |GE DIRECTORY HEA|
00000B40: 44 45 52 20 2A 2A 00 89 13 58 00 99 43 48 24 3B |DER **...X..CH$;|
00000B50: 52 56 24 3B 22 43 48 41 4E 47 45 20 44 49 52 45 |RV$;"CHANGE DIRE|
00000B60: 43 54 4F 52 59 20 48 45 41 44 45 52 22 3A 99 3A |CTORY HEADER":.:|
00000B70: 99 52 4F 24 3B 22 41 52 45 20 59 4F 55 20 53 55 |.RO$;"ARE YOU SU|
00000B80: 52 45 20 28 59 2F 4E 29 22 00 9D 13 59 00 A1 59 |RE (Y/N)"...Y..Y|
00000B90: 4E 24 3A 8B 59 4E 24 B2 22 22 A7 38 39 00 AE 13 |N$:.YN$."".89...|
00000BA0: 5A 00 8B 59 4E 24 B2 22 59 22 A7 89 39 32 00 B4 |Z..YN$."Y"..92..|
00000BB0: 13 5B 00 8E 00 BD 13 5C 00 99 43 48 24 00 C9 13 |.[.....\..CH$...|
00000BC0: 5D 00 97 32 31 34 2C 32 32 00 D4 13 5E 00 97 36 |]..214,22...^..6|
00000BD0: 34 36 2C 31 00 0F 14 5F 00 99 A6 33 29 22 92 13 |46,1..._...3)"..|
00000BE0: 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 44 |......... D|
00000BF0: 49 53 4B 20 4E 41 4D 45 20 20 20 20 20 20 20 20 |ISK NAME |
00000C00: 20 20 49 44 20 20 20 20 46 4F 52 4D 41 54 22 00 | ID FORMAT".|
00000C10: 3B 14 60 00 99 A6 33 29 22 05 D5 C3 C3 C3 C3 C3 |;.`...3)".......|
00000C20: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 20 20 D5 |............. .|
00000C30: C3 C3 C3 C9 20 20 D5 C3 C3 C3 C9 00 66 14 61 00 |.... ......f.a.|
00000C40: 99 A6 33 29 22 C2 20 20 20 20 20 20 20 20 20 20 |..3)". |
00000C50: 20 20 20 20 20 20 20 C2 20 20 C2 20 20 20 C2 20 | . . . |
00000C60: 20 C2 20 20 20 C2 00 91 14 62 00 99 A6 33 29 22 | . ....b...3)"|
00000C70: CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000C80: C3 C3 CB 20 20 CA C3 C3 C3 CB 20 20 CA C3 C3 C3 |... ..... ....|
00000C90: CB 00 AF 14 63 00 86 44 24 28 32 30 29 3A 51 B2 |....c..D$(20):Q.|
00000CA0: 34 3A 41 B2 31 36 3A 5A B2 31 3A 8D 31 31 31 00 |4:A.16:Z.1:.111.|
00000CB0: C9 14 64 00 43 24 B2 22 20 20 20 20 20 20 20 20 |..d.C$." |
00000CC0: 20 20 20 20 20 20 20 20 22 00 F2 14 65 00 43 B2 | "...e.C.|
00000CD0: C3 28 43 24 29 AB C3 28 41 24 28 31 29 29 3A 41 |.(C$)..(A$(1)):A|
00000CE0: 24 28 31 29 B2 41 24 28 31 29 AA C9 28 43 24 2C |$(1).A$(1)..(C$,|
00000CF0: 43 29 00 1A 15 66 00 41 24 B2 41 24 28 31 29 AA |C)...f.A$.A$(1).|
00000D00: 22 A0 20 22 AA 41 24 28 32 29 AA 22 20 22 AA 41 |". ".A$(2)." ".A|
00000D10: 24 28 33 29 AA 22 20 A0 A0 22 00 31 15 67 00 9F |$(3)." ..".1.g..|
00000D20: 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 |1,8,15:.2,8,2,"#|
00000D30: 22 00 47 15 68 00 98 31 2C 22 55 31 3A 22 3B 32 |".G.h..1,"U1:";2|
00000D40: 3B 30 3B 31 38 3B 30 00 5B 15 69 00 98 31 2C 22 |;0;18;0.[.i..1,"|
00000D50: 42 2D 50 3A 22 3B 32 3B 31 34 34 00 66 15 6A 00 |B-P:";2;144.f.j.|
00000D60: 98 32 2C 41 24 3B 00 83 15 6B 00 98 31 2C 22 55 |.2,A$;...k..1,"U|
00000D70: 32 3A 22 3B 32 3B 30 3B 31 38 3B 30 3A 98 31 2C |2:";2;0;18;0:.1,|
00000D80: 22 49 22 00 8D 15 6C 00 A0 32 3A A0 31 00 AF 15 |"I"...l..2:.1...|
00000D90: 6D 00 9F 32 2C 38 2C 30 2C 22 24 22 3A 99 22 11 |m..2,8,0,"$":.".|
00000DA0: 11 11 11 11 05 20 20 20 20 20 20 20 20 22 3B 00 |..... ";.|
00000DB0: DC 15 6E 00 81 54 B2 31 A4 33 34 3A A1 23 32 2C |..n..T.1.34:.#2,|
00000DC0: 42 24 3A 99 42 24 3B 3A 82 3A A0 32 3A 81 49 B2 |B$:.B$;:.:.2:.I.|
00000DD0: 31 A4 33 30 30 30 3A 82 3A 89 32 31 00 F4 15 6F |1.3000:.:.21...o|
00000DE0: 00 97 32 31 34 2C 31 30 3A 99 3A 99 A6 51 AA 59 |..214,10:.:..Q.Y|
00000DF0: 29 22 3C 22 00 11 16 70 00 A1 47 24 3A 3A 44 24 |)"<"...p..G$::D$|
00000E00: 28 59 29 B2 47 24 3A 8B 47 24 B2 22 22 A7 31 31 |(Y).G$:.G$."".11|
00000E10: 32 00 49 16 71 00 8B C2 28 31 39 37 29 B2 30 AF |2.I.q...(197).0.|
00000E20: 59 B1 B2 31 A7 59 B2 59 AB 31 3A 97 32 31 34 2C |Y..1.Y.Y.1:.214,|
00000E30: 31 30 3A 99 3A 99 A3 51 AA 59 29 22 3C 20 22 3A |10:.:..Q.Y)"< ":|
00000E40: 8D 31 32 32 3A 89 31 31 32 00 5B 16 72 00 8B C2 |.122:.112.[.r...|
00000E50: 28 31 39 37 29 B2 30 A7 31 31 32 00 98 16 73 00 |(197).0.112...s.|
00000E60: 8B C2 28 31 39 37 29 B2 31 AF 59 B1 30 A7 43 24 |..(197).1.Y.0.C$|
00000E70: B2 22 22 3A 81 58 B2 30 A4 59 AB 31 3A 43 24 B2 |."":.X.0.Y.1:C$.|
00000E80: 43 24 AA 44 24 28 58 29 3A 82 3A 41 24 28 5A 29 |C$.D$(X):.:A$(Z)|
00000E90: B2 43 24 3A 89 31 31 39 00 A5 16 74 00 8B 59 B2 |.C$:.119...t..Y.|
00000EA0: 41 A7 31 31 33 00 D3 16 75 00 8B C2 28 31 39 37 |A.113...u...(197|
00000EB0: 29 B1 31 A7 97 32 31 34 2C 31 30 3A 99 3A 99 A3 |).1..214,10:.:..|
00000EC0: 51 AA 59 29 44 24 28 59 29 AA 22 3C 22 3A 59 B2 |Q.Y)D$(Y)."<":Y.|
00000ED0: 59 AA 31 00 E1 16 76 00 8D 31 32 32 3A 89 31 31 |Y.1...v..122:.11|
00000EE0: 32 00 00 17 77 00 8B 51 B2 34 A7 51 B2 32 35 3A |2...w..Q.4.Q.25:|
00000EF0: 41 B2 32 3A 5A B2 32 3A 59 B2 30 3A 89 31 31 31 |A.2:Z.2:Y.0:.111|
00000F00: 00 20 17 78 00 8B 51 B2 32 35 A7 51 B2 33 32 3A |. .x..Q.25.Q.32:|
00000F10: 41 B2 32 3A 5A B2 33 3A 59 B2 30 3A 89 31 31 31 |A.2:Z.3:Y.0:.111|
00000F20: 00 26 17 79 00 8E 00 3B 17 7A 00 97 31 39 38 2C |.&.y...;.z..198,|
00000F30: 30 3A 8B 59 B2 AB 31 A7 59 B2 30 00 41 17 7B 00 |0:.Y..1.Y.0.A.{.|
00000F40: 8E 00 47 17 1F |..G.. |
....... * BY MORTEN BRUN 020684.R....532
80,0:.53281,0:.646,1:.:PO$.G(44):QO$.G(3
4).{...RV$.G(18):RO$.G(146):CH$.G(147):.
CH$......".CCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCC..V...."B DISK SERVICE .V2
ENTER B".....T$.".................
.....................":.T$.<...."BFORMAT
DISK 1 B":.T$.N..
.."BVALIDATE DISK 2
B":.T$. ...."BCOPY FILE ON DISK
3 B":.T$.R...."BDELETE FILE ON D
ISK 4 B":.T$......"BRENAME
FILE ON DISK 5 B":.T$.6..
.."BDISPLAY DIRECTORY 6
B":.T$.H...."BRESET DRIVE ERROR
7 B":.T$......"BCHANGE DIRECTORY
HEADER 8 B":.T$.L...."B
9 B":.T$....
.."BSTOP X
B":.T$......X$:.X$."".17.#....X$."X"..".
":../...X.E(X$).Q....X.23,35,43,75,82,50
,86,87,69.X....2.{.... ********* FORMAT
***********......CH$;RV$;"FORMAT
STOP<RETURN>"......:.:.".E
NTER NAME OF DISK : ";NA$:.:.NA$."" . .
......C(NA$).16..CH$;"NAME TOO LARGE":.7
0:.CH$:.24.A....:.".ENTER DISK ID
: ";NU$:..P....C(NU$).2..CH$;"ID TOO LAR
GE":.70:.CH$:.26.....:.CH$;RV$;"DISK NAM
E";RO$,NA$:..K....;RV$"DISK ID ";RO$,NU
$:.:.:."ARE YOU SURE (Y/N)"......SV$:.SV
$."".30......SV$."Y".33... .NA$."":NU$."
":.23.-.!..15,8,15:.15,"N:".NA$.PO$.NU$.
QO$:..Q.".. ******** VALIDATE *********
*.H.#..CH$;RV$;"VALIDATE...$..:."WARNING
":."DIRECT & OPEN FILES WILL BE DELETED"
:.:....%.."VALIDATE (Y/N)".N.&..ST$:.ST$
."".38...'..ST$."Y"..41...(.....)..1,8,1
5,"V":....*.. **** COPY FILES ON DISK **
****.U.+..CH$;RV$;"COPY FILES
<RETURN => STOP":.:..T.,..".SOURCE FILE
: ";F1$:....-..F1$.""........".NEW NA
ME : ";F2$:..Q./.DE$."C:".F2$."=".F
1$:.15,8,15,DE$:.15,A$,B$...0..B$: 15:.I
.1.3000:.:F1$."":F2$."":.43. .1.. ******
DISPLAY DIR ***********.5.2..CH$:.1,8,0
,"$0".C.3..#1,A$,B$.Q.4..#1,A$,B$._.5..#
1,A$,B$.G.6.C.0.{.7..A$.."".C.F(A$)...8.
.B$.."".C.C.F(B$).256...9..J(D(C),2);.3)
;...:..#1,B$:.ST..0.66.P.;..B$..G(34).58
...<..#1,B$:.B$..G(34)..B$;:.60...=..#1,
B$:.B$.G(32).61...>...25);:C$."".7.?.C$.
C$.B$:.#1,B$:.B$.."".63.D.@..H(C$,3).Q.A
..ST.0.52.D.B.."BLOCKS FREE".Q.C. 1:.71:
....D.. **INTERMEDIATE STATEMENT **.A.E.
.".":."FUNCTION NOT READY":.I.1.2000:.I:
..T.F..I.1.1000:.I:....G..:."ENTER =>C T
O CONTINUE"...H..S$:.S$."".72...I..S$."C
".....J..72.V.K..CH$;RV$;"DELETE
<RETURN> => STOP":.:..~.L..".NA
ME OF FILE : ";F$:.:.F$."".....M.DE$."
S:".F$:.15,8,15,DE$:.15,A$,B$,C$:F$."".M
.N..C$."00".."FILE NOT FOUND"...O..C$.."
00"..C$;" FILES DELETED"...P. 15:.I.1.30
00:.:.75.+.Q.. ******** RENAME *********
***.R.R..CH$;RV$;"RENAME
<RETURN> => STOP":.:F1$."":F2$.""...S..
".NAME OF SOURCEFILE";F1$:.:.F1$.""...S.
T..".NEW NAME ";F2$:.:DE$."R:".
F2$."=".F1$...U..15,8,15,DE$:.15,A$,B$:.
B$:.I.1.3000:.: 15:.82. .V..15,8,15:.15,
A$: 15:..F.W.. **** CHANGE DIRECTORY HEA
DER **...X..CH$;RV$;"CHANGE DIRECTORY HE
ADER":.:.RO$;"ARE YOU SURE (Y/N)"...Y..Y
N$:.YN$."".89...Z..YN$."Y"..92...[.....\
..CH$.I.]..214,22.T.^..646,1..._...3)"..
......... DISK NAME ID
FORMAT".;.`...3)".UCCCCCCCCCCCCCCCCCI U
CCCI UCCCI.F.A...3)"B B
B B B B...B...3)"JCCCCCCCCCCCCCCC
CCK JCCCK JCCCK...C..D$(20):Q.4:A.16:Z
.1:.111.I.D.C$." "...E.C.
C(C$).C(A$(1)):A$(1).A$(1).I(C$,C)...F.A
$.A$(1)." ".A$(2)." ".A$(3)." ".1.G..
1,8,15:.2,8,2,"#".G.H..1,"U1:";2;0;18;0.
[.I..1,"B-P:";2;144.F.J..2,A$;...K..1,"U
2:";2;0;18;0:.1,"I"...L. 2: 1...M..2,8,0
,"$":."...... ";...N..T.1.34:.#2,
B$:.B$;:.: 2:.I.1.3000:.:.21...O..214,10
:.:..Q.Y)"<"...P..G$::D$(Y).G$:.G$."".11
2.I.Q..B(197).0.Y..1.Y.Y.1:.214,10:.:..Q
.Y)"< ":.122:.112.[.R..B(197).0.112...S.
.B(197).1.Y.0.C$."":.X.0.Y.1:C$.C$.D$(X)
:.:A$(Z).C$:.119...T..Y.A.113.S.U..B(197
).1..214,10:.:..Q.Y)D$(Y)."<":Y.Y.1...V.
.122:.112...W..Q.4.Q.25:A.2:Z.2:Y.0:.111
. .X..Q.25.Q.32:A.2:Z.3:Y.0:.111.&.Y...;
.Z..198,0:.Y..1.Y.0.A.{...G..
> CLICK IMAGE PREVIEW FOR FULL MODAL