EASY-DISK DEMO(P
FILE INFORMATION
FILENAME(S): EASY-DISK DEMO(P
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
7d797b9a89d18841e7ea7199e0df6ffebf43ce2184cd28b022d6f80d5a1b139f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC02 | EASY-DISK DEMO(P | PRG | Treasure Chest - Spook | 11 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 8F 22 8D 9E 00 27 08 14 00 97 |......."...'....|
00000010: 35 33 32 38 30 2C 39 3A 97 35 33 32 38 31 2C 39 |53280,9:.53281,9|
00000020: 3A 99 22 93 8E 22 3B 00 53 08 1E 00 99 22 1D 1D |:."..";.S...."..|
00000030: 1D 1D 1D 12 9A 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 22 00 7F 08 28 00 99 22 1D 1D 1D 1D 1D 12 | "...(.."......|
00000060: 05 20 20 20 20 54 48 45 20 45 41 53 59 2D 44 49 |. THE EASY-DI|
00000070: 53 4B 20 55 54 49 4C 49 54 59 20 20 20 20 22 00 |SK UTILITY ".|
00000080: AB 08 32 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 20 |..2.."....... |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 20 22 00 D0 08 3C 00 | "...<.|
000000B0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 05 28 43 29 |."...........(C)|
000000C0: 1D 4E 2E 48 49 47 47 49 4E 53 1D 31 39 38 38 22 |.N.HIGGINS.1988"|
000000D0: 00 F0 08 46 00 99 22 9E 11 11 1D 1D 1D 1D 1D 1D |...F..".........|
000000E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D 45 4E 55 22 |...........MENU"|
000000F0: 00 1C 09 50 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 |...P.."....... |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 22 00 48 09 5A | ".H.Z|
00000120: 00 99 22 1D 1D 1D 1D 1D 12 05 20 41 29 2E 2E 52 |.."....... A)..R|
00000130: 45 41 44 20 44 49 53 4B 20 44 49 52 45 43 54 4F |EAD DISK DIRECTO|
00000140: 52 59 20 20 20 20 20 22 00 74 09 64 00 99 22 1D |RY ".t.d..".|
00000150: 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 20 20 20 20 |...... |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 22 00 A0 09 6E 00 99 22 1D 1D 1D 1D 1D | "...n..".....|
00000180: 12 05 20 42 29 2E 2E 43 48 41 4E 47 45 20 44 49 |.. B)..CHANGE DI|
00000190: 53 4B 20 4E 41 4D 45 2F 49 44 20 20 20 20 20 22 |SK NAME/ID "|
000001A0: 00 CC 09 78 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 |...x.."....... |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 22 00 F8 09 82 | "....|
000001D0: 00 99 22 1D 1D 1D 1D 1D 12 05 20 43 29 2E 2E 57 |.."....... C)..W|
000001E0: 52 49 54 45 20 50 52 4F 54 45 43 54 2F 55 4E 50 |RITE PROTECT/UNP|
000001F0: 52 4F 54 45 43 54 20 22 00 24 0A 8C 00 99 22 1D |ROTECT ".$....".|
00000200: 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 20 20 20 20 |...... |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 22 00 50 0A 96 00 99 22 1D 1D 1D 1D 1D | ".P....".....|
00000230: 12 05 20 44 29 2E 2E 46 49 4E 44 20 4C 4F 41 44 |.. D)..FIND LOAD|
00000240: 20 41 44 44 52 45 53 53 20 20 20 20 20 20 20 22 | ADDRESS "|
00000250: 00 7C 0A A0 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 |.|...."....... |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 22 00 A8 0A AA | "....|
00000280: 00 99 22 1D 1D 1D 1D 1D 12 05 20 45 29 2E 2E 52 |.."....... E)..R|
00000290: 45 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |EAD ERROR CHANNE|
000002A0: 4C 20 20 20 20 20 20 22 00 D4 0A B4 00 99 22 1D |L "......".|
000002B0: 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 20 20 20 20 |...... |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 22 00 EE 0A BE 00 A1 41 24 3A 8B 41 24 | "......A$:.A$|
000002E0: B2 22 22 A7 8D 32 30 39 30 3A 89 31 39 30 00 09 |.""..2090:.190..|
000002F0: 0B C8 00 41 B2 C6 28 41 24 29 3A 8B 41 B3 36 35 |...A..(A$):.A.65|
00000300: B0 41 B1 36 39 A7 31 39 30 00 2E 0B D2 00 41 B2 |.A.69.190.....A.|
00000310: 41 AB 36 34 3A 91 41 8D 32 39 30 2C 34 39 30 2C |A.64:.A.290,490,|
00000320: 31 33 37 30 2C 31 37 37 30 2C 31 39 36 30 00 36 |1370,1770,1960.6|
00000330: 0B DC 00 89 32 30 00 3F 0B E6 00 8F 22 8D 05 00 |....20.?...."...|
00000340: 65 0B F0 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |e.... **********|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 2A 2A 2A 2A 2A 00 8B 0B FA 00 8F 20 2A 20 20 20 |*****...... * |
00000370: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 52 | THE FOLLOWING R|
00000380: 4F 55 54 49 4E 45 20 20 20 20 2A 00 B1 0B 04 01 |OUTINE *.....|
00000390: 8F 20 2A 20 52 45 41 44 53 20 54 48 45 20 44 49 |. * READS THE DI|
000003A0: 53 4B 20 44 49 52 45 43 54 4F 52 59 2E 20 20 20 |SK DIRECTORY. |
000003B0: 2A 00 D7 0B 0E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 00 DD 0B 18 01 8F 00 FA 0B |*******.........|
000003E0: 22 01 99 22 05 93 11 11 11 11 11 11 11 11 11 11 |".."............|
000003F0: 11 11 11 11 11 11 11 11 11 22 00 13 0C 2C 01 9F |........."...,..|
00000400: 31 2C 38 2C 30 2C 22 24 22 3A A1 23 31 2C 58 24 |1,8,0,"$":.#1,X$|
00000410: 2C 58 24 00 3A 0C 36 01 A1 23 31 2C 58 24 2C 58 |,X$.:.6..#1,X$,X|
00000420: 24 3A 8B 53 54 A7 A0 31 3A 99 22 9E 91 91 91 91 |$:.ST..1:.".....|
00000430: 91 22 3A 8D 32 30 36 30 3A 8E 00 48 0C 40 01 99 |.":.2060:..H.@..|
00000440: 22 20 20 20 20 20 22 3B 00 53 0C 4A 01 A1 23 31 |" ";.S.J..#1|
00000450: 2C 58 24 00 66 0C 54 01 8B 58 24 B2 22 22 A7 58 |,X$.f.T..X$."".X|
00000460: 24 B2 C7 28 30 29 00 73 0C 5E 01 4C 4F B2 C6 28 |$..(0).s.^.LO..(|
00000470: 58 24 29 00 7E 0C 68 01 A1 23 31 2C 58 24 00 91 |X$).~.h..#1,X$..|
00000480: 0C 72 01 8B 58 24 B2 22 22 A7 58 24 B2 C7 28 30 |.r..X$."".X$..(0|
00000490: 29 00 B0 0C 7C 01 48 49 B2 C6 28 58 24 29 AC 32 |)...|.HI..(X$).2|
000004A0: 35 36 3A 42 4C B2 4C 4F AA 48 49 3A 99 42 4C 3B |56:BL.LO.HI:.BL;|
000004B0: 00 BB 0C 86 01 A1 23 31 2C 58 24 00 CD 0C 90 01 |......#1,X$.....|
000004C0: 8B 58 24 B2 22 22 A7 99 3A 89 33 31 30 00 DB 0C |.X$.""..:.310...|
000004D0: 9A 01 99 58 24 3B 3A 89 33 39 30 00 E4 0C A4 01 |...X$;:.390.....|
000004E0: 8F 22 8D 99 00 0A 0D AE 01 8F 20 2A 2A 2A 2A 2A |."........ *****|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 30 0D B8 01 8F |**********.0....|
00000510: 20 2A 20 54 48 45 20 4E 45 58 54 20 52 4F 55 54 | * THE NEXT ROUT|
00000520: 49 4E 45 20 57 49 4C 4C 20 52 45 41 44 20 20 2A |INE WILL READ *|
00000530: 00 56 0D C2 01 8F 20 2A 20 4F 52 20 43 48 41 4E |.V.... * OR CHAN|
00000540: 47 45 20 54 48 45 20 43 55 52 52 45 4E 54 20 44 |GE THE CURRENT D|
00000550: 49 53 4B 2D 20 2A 00 7C 0D CC 01 8F 20 2A 20 4E |ISK- *.|.... * N|
00000560: 41 4D 45 20 4F 52 20 44 49 53 4B 2D 49 44 2E 2E |AME OR DISK-ID..|
00000570: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2A 00 A2 0D D6 |.......... *....|
00000580: 01 8F 20 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 2A 2A 2A 2A 2A |****************|
000005A0: 2A 2A 00 A8 0D E0 01 8F 00 B1 0D EA 01 99 22 93 |**............".|
000005B0: 22 00 CC 0D F4 01 55 24 B2 22 30 22 3A 42 47 B2 |".....U$."0":BG.|
000005C0: C5 28 55 24 29 3A 48 54 24 B2 55 24 00 DF 0D FE |.(U$):HT$.U$....|
000005D0: 01 8B 28 42 47 AF 32 35 34 29 A7 89 35 30 30 00 |..(BG.254)..500.|
000005E0: 13 0E 08 02 99 22 05 20 20 20 56 49 45 57 2F 43 |.....". VIEW/C|
000005F0: 48 41 4E 47 45 20 44 49 53 4B 2D 12 9E 4E 05 92 |HANGE DISK-..N..|
00000600: 41 4D 45 20 4F 52 20 44 49 53 4B 2D 12 9E 49 05 |AME OR DISK-..I.|
00000610: 92 44 22 00 1B 0E 12 02 A1 59 24 00 3B 0E 1C 02 |.D"......Y$.;...|
00000620: 8B 59 24 B3 B1 22 4E 22 AF 59 24 B3 B1 22 49 22 |.Y$.."N".Y$.."I"|
00000630: A7 8D 32 30 39 30 3A 89 35 33 30 00 4A 0E 26 02 |..2090:.530.J.&.|
00000640: 99 3A 9F 31 35 2C 38 2C 31 35 00 54 0E 30 02 9D |.:.15,8,15.T.0..|
00000650: 31 35 2C 3B 00 66 0E 3A 02 98 31 35 2C 28 22 49 |15,;.f.:..15,("I|
00000660: 22 AA 48 54 24 29 00 75 0E 44 02 9F 31 2C 38 2C |".HT$).u.D..1,8,|
00000670: 33 2C 22 23 22 00 7F 0E 4E 02 9D 31 35 2C 3B 00 |3,"#"...N..15,;.|
00000680: 8C 0E 58 02 99 22 55 31 3A 33 22 3B 00 95 0E 62 |..X.."U1:3";...b|
00000690: 02 99 42 47 3B 00 A5 0E 6C 02 98 31 35 2C 22 2C |..BG;...l..15,",|
000006A0: 31 38 2C 30 22 00 B7 0E 76 02 8B 20 59 24 B2 22 |18,0"...v.. Y$."|
000006B0: 4E 22 A7 89 38 36 30 00 C1 0E 80 02 9D 31 35 2C |N"..860......15,|
000006C0: 3B 00 D5 0E 8A 02 98 31 35 2C 22 42 2D 50 3A 33 |;......15,"B-P:3|
000006D0: 2C 31 36 32 22 00 FC 0E 94 02 A1 23 31 2C 41 24 |,162"......#1,A$|
000006E0: 3A A1 23 31 2C 42 24 3A A1 23 31 2C 43 24 3A A1 |:.#1,B$:.#1,C$:.|
000006F0: 23 31 2C 44 24 3A A1 23 31 2C 45 24 00 20 0F 9E |#1,D$:.#1,E$. ..|
00000700: 02 99 22 93 11 05 20 20 20 43 55 52 52 45 4E 54 |.."... CURRENT|
00000710: 20 44 49 53 4B 2D 49 44 20 49 53 3A 20 12 22 3B | DISK-ID IS: .";|
00000720: 00 41 0F A8 02 99 41 24 3B 3A 99 42 24 3B 3A 99 |.A....A$;:.B$;:.|
00000730: 43 24 3B 3A 99 44 24 3B 3A 99 45 24 3A 99 22 9E |C$;:.D$;:.E$:.".|
00000740: 22 00 4B 0F B2 02 8D 31 31 31 30 00 7B 0F BC 02 |".K....1110.{...|
00000750: 99 22 11 05 20 45 4E 54 45 52 20 4E 45 57 20 44 |.".. ENTER NEW D|
00000760: 49 53 4B 2D 49 44 20 28 4D 41 58 20 35 20 43 48 |ISK-ID (MAX 5 CH|
00000770: 41 52 41 43 54 45 52 53 29 11 22 00 84 0F C6 02 |ARACTERS).".....|
00000780: 85 42 47 24 00 A8 0F D0 02 8B 20 C3 28 42 47 24 |.BG$...... .(BG$|
00000790: 29 B3 B1 34 20 A7 20 49 24 B2 C8 28 28 42 47 24 |)..4 . I$..((BG$|
000007A0: AA 22 20 22 29 2C 35 29 00 B2 0F DA 02 9D 31 35 |." "),5)......15|
000007B0: 2C 3B 00 C6 0F E4 02 98 31 35 2C 22 42 2D 50 3A |,;......15,"B-P:|
000007C0: 33 2C 31 36 32 22 00 CF 0F EE 02 9D 31 2C 3B 00 |3,162"......1,;.|
000007D0: D9 0F F8 02 99 42 47 24 3B 00 E2 0F 02 03 98 31 |.....BG$;......1|
000007E0: 2C 3B 00 EC 0F 0C 03 9D 31 35 2C 3B 00 F9 0F 16 |,;......15,;....|
000007F0: 03 99 22 55 32 3A 33 22 3B 00 02 10 20 03 99 42 |.."U2:3";... ..B|
00000800: 47 3B 00 12 10 2A 03 98 31 35 2C 22 2C 31 38 2C |G;...*..15,",18,|
00000810: 30 22 00 2E 10 34 03 49 24 B2 28 22 49 22 AA CA |0"...4.I$.("I"..|
00000820: 28 C4 28 42 47 29 2C 32 2C 32 35 35 29 29 00 38 |(.(BG),2,255)).8|
00000830: 10 3E 03 9D 31 35 2C 3B 00 43 10 48 03 98 31 35 |.>..15,;.C.H..15|
00000840: 2C 49 24 00 5B 10 52 03 A0 31 3A A0 31 35 3A 99 |,I$.[.R..1:.15:.|
00000850: 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 65 10 5C 03 |".":.2060:..e.\.|
00000860: 9D 31 35 2C 3B 00 79 10 66 03 98 31 35 2C 22 42 |.15,;.y.f..15,"B|
00000870: 2D 50 3A 33 2C 31 34 34 22 00 84 10 70 03 44 4E |-P:3,144"...p.DN|
00000880: 24 B2 22 22 00 8C 10 7A 03 4C B2 31 00 98 10 84 |$.""...z.L.1....|
00000890: 03 81 4C B2 4C A4 31 36 00 A3 10 8E 03 A1 23 31 |..L.L.16......#1|
000008A0: 2C 41 24 00 B4 10 98 03 44 4E 24 B2 28 44 4E 24 |,A$.....DN$.(DN$|
000008B0: AA 41 24 29 00 BA 10 A2 03 82 00 DE 10 AC 03 99 |.A$)............|
000008C0: 22 93 11 05 20 43 55 52 52 45 4E 54 20 44 49 53 |"... CURRENT DIS|
000008D0: 4B 2D 4E 41 4D 45 20 49 53 3A 20 12 22 3B 00 F2 |K-NAME IS: .";..|
000008E0: 10 B6 03 99 44 4E 24 3A 99 22 9E 22 3A 8D 31 31 |....DN$:.".":.11|
000008F0: 31 30 00 23 11 C0 03 99 22 11 05 45 4E 54 45 52 |10.#...."..ENTER|
00000900: 20 4E 45 57 20 44 49 53 4B 2D 4E 41 4D 45 20 28 | NEW DISK-NAME (|
00000910: 4D 41 58 20 31 36 20 43 48 41 52 41 43 54 45 52 |MAX 16 CHARACTER|
00000920: 53 29 22 00 2D 11 CA 03 99 22 11 1D 22 00 36 11 |S)".-...."..".6.|
00000930: D4 03 85 4E 44 24 00 3C 11 DE 03 99 00 61 11 E8 |...ND$.<.....a..|
00000940: 03 4E 44 24 B2 C8 28 28 4E 44 24 AA 22 20 20 20 |.ND$..((ND$." |
00000950: 20 20 20 20 20 20 20 20 20 20 20 22 29 2C 31 36 | "),16|
00000960: 29 00 6B 11 F2 03 9D 31 35 2C 3B 00 7F 11 FC 03 |).k....15,;.....|
00000970: 98 31 35 2C 22 42 2D 50 3A 33 2C 31 34 34 22 00 |.15,"B-P:3,144".|
00000980: 88 11 06 04 9D 31 2C 3B 00 92 11 10 04 99 4E 44 |.....1,;......ND|
00000990: 24 3B 00 9B 11 1A 04 98 31 2C 3B 00 A5 11 24 04 |$;......1,;...$.|
000009A0: 9D 31 35 2C 3B 00 B2 11 2E 04 99 22 55 32 3A 33 |.15,;......"U2:3|
000009B0: 22 3B 00 BB 11 38 04 99 42 47 3B 00 CB 11 42 04 |";...8..BG;...B.|
000009C0: 98 31 35 2C 22 2C 31 38 2C 30 22 00 D4 11 4C 04 |.15,",18,0"...L.|
000009D0: 89 38 32 30 00 01 12 56 04 99 22 11 11 1D 1D 1D |.820...V..".....|
000009E0: 1D 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |.DO YOU WANT TO |
000009F0: 43 48 41 4E 47 45 20 49 54 3F 20 12 59 2F 4E 92 |CHANGE IT? .Y/N.|
00000A00: 22 00 09 12 60 04 A1 58 24 00 24 12 6A 04 8B 58 |"...`..X$.$.j..X|
00000A10: 24 B3 B1 22 59 22 AF 58 24 B3 B1 22 4E 22 A7 89 |$.."Y".X$.."N"..|
00000A20: 31 31 32 30 00 3D 12 74 04 8B 58 24 B2 22 4E 22 |1120.=.t..X$."N"|
00000A30: A7 A0 31 3A A0 31 35 3A 9C 3A 89 32 30 00 43 12 |..1:.15:.:.20.C.|
00000A40: 7E 04 8E 00 4C 12 88 04 8F 22 8D 96 00 71 12 92 |~...L...."...q..|
00000A50: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A70: 2A 00 96 12 9C 04 8F 20 2A 20 54 48 45 20 4E 45 |*...... * THE NE|
00000A80: 58 54 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 |XT ROUTINE WILL |
00000A90: 2E 2E 2E 2E 20 2A 00 BB 12 A6 04 8F 20 2A 20 50 |.... *...... * P|
00000AA0: 52 4F 54 45 43 54 20 4F 52 20 55 4E 50 52 4F 54 |ROTECT OR UNPROT|
00000AB0: 45 43 54 20 41 20 44 49 53 4B 2A 00 E0 12 B0 04 |ECT A DISK*.....|
00000AC0: 8F 20 2A 20 49 4E 20 41 20 31 35 34 31 20 44 52 |. * IN A 1541 DR|
00000AD0: 49 56 45 2E 20 20 20 20 20 20 20 20 20 20 20 2A |IVE. *|
00000AE0: 00 05 13 BA 04 8F 20 2A 20 2D 2D 2D 2D 2D 2D 2D |...... * -------|
00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B00: 2D 2D 2D 20 2A 00 2A 13 C4 04 8F 20 2A 20 49 54 |--- *.*.... * IT|
00000B10: 20 50 52 4F 54 45 43 54 53 20 42 59 20 43 48 41 | PROTECTS BY CHA|
00000B20: 4E 47 49 4E 47 20 54 48 45 2A 00 4F 13 CE 04 8F |NGING THE*.O....|
00000B30: 20 2A 20 44 49 53 4B 20 46 4F 52 4D 41 54 20 43 | * DISK FORMAT C|
00000B40: 48 41 52 41 43 54 45 52 20 4F 4E 20 20 20 2A 00 |HARACTER ON *.|
00000B50: 74 13 D8 04 8F 20 2A 20 54 52 41 43 4B 31 38 2C |t.... * TRACK18,|
00000B60: 53 45 43 54 4F 52 30 20 2D 20 42 59 54 45 20 32 |SECTOR0 - BYTE 2|
00000B70: 20 20 20 2A 00 99 13 E2 04 8F 20 2A 20 2D 2D 2D | *...... * ---|
00000B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B90: 2D 2D 2D 2D 2D 2D 2D 20 2A 00 BE 13 EC 04 8F 20 |------- *...... |
00000BA0: 2A 20 20 20 20 20 41 4E 44 20 49 54 20 55 4E 50 |* AND IT UNP|
00000BB0: 52 4F 54 45 43 54 53 20 42 59 20 20 20 2A 00 E3 |ROTECTS BY *..|
00000BC0: 13 F6 04 8F 20 2A 20 43 48 41 4E 47 49 4E 47 20 |.... * CHANGING |
00000BD0: 54 48 45 20 49 44 20 46 4F 52 4D 41 54 20 42 41 |THE ID FORMAT BA|
00000BE0: 43 4B 2A 00 08 14 00 05 8F 20 2A 20 54 4F 20 43 |CK*...... * TO C|
00000BF0: 48 52 24 28 36 35 29 2E 20 20 20 20 20 20 20 20 |HR$(65). |
00000C00: 20 20 20 20 20 20 20 2A 00 2D 14 0A 05 8F 20 2A | *.-.... *|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 14 |*************.R.|
00000C30: 14 05 8F 20 2A 20 49 20 53 55 47 47 45 53 54 20 |... * I SUGGEST |
00000C40: 59 4F 55 20 50 55 54 20 41 20 4D 41 52 4B 45 52 |YOU PUT A MARKER|
00000C50: 20 2A 00 77 14 1E 05 8F 20 2A 20 4F 4E 20 41 4E | *.w.... * ON AN|
00000C60: 59 20 44 49 53 4B 53 20 59 4F 55 20 28 50 52 4F |Y DISKS YOU (PRO|
00000C70: 54 45 43 54 29 20 2A 00 9C 14 28 05 8F 20 2A 20 |TECT) *...(.. * |
00000C80: 53 4F 20 59 4F 55 20 57 49 4C 4C 20 4B 4E 4F 57 |SO YOU WILL KNOW|
00000C90: 20 54 4F 20 52 45 2D 55 53 45 20 2A 00 C1 14 32 | TO RE-USE *...2|
00000CA0: 05 8F 20 2A 20 54 48 49 53 20 50 52 4F 47 52 41 |.. * THIS PROGRA|
00000CB0: 4D 20 57 48 45 4E 20 59 4F 55 20 57 41 4E 54 20 |M WHEN YOU WANT |
00000CC0: 2A 00 E6 14 3C 05 8F 20 2A 20 54 4F 20 57 52 49 |*...<.. * TO WRI|
00000CD0: 54 45 20 42 41 43 4B 20 54 4F 20 49 54 2E 28 50 |TE BACK TO IT.(P|
00000CE0: 48 45 57 29 20 2A 00 0B 15 46 05 8F 20 2A 2A 2A |HEW) *...F.. ***|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 11 15 50 05 |***********...P.|
00000D10: 8F 00 1B 15 5A 05 99 22 93 22 3B 00 49 15 64 05 |....Z..".";.I.d.|
00000D20: 99 22 05 20 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |.". ..........|
00000D30: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000D40: A4 A4 A4 A4 A4 A4 A4 A4 22 00 77 15 6E 05 99 22 |........".w.n.."|
00000D50: 20 20 20 12 20 53 4F 46 54 57 41 52 45 20 57 52 | . SOFTWARE WR|
00000D60: 49 54 45 20 50 52 4F 54 45 43 54 2F 55 4E 50 52 |ITE PROTECT/UNPR|
00000D70: 4F 54 45 43 54 20 22 00 A1 15 78 05 99 22 11 11 |OTECT "...x.."..|
00000D80: 11 9E 20 20 20 20 20 20 20 20 20 57 48 49 43 48 |.. WHICH|
00000D90: 20 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 3F | DO YOU REQUIRE?|
00000DA0: 22 00 BF 15 82 05 99 22 11 11 20 20 20 20 20 20 |"......".. |
00000DB0: 05 20 A4 20 20 20 20 20 20 20 20 20 20 A4 22 00 |. . .".|
00000DC0: EE 15 8C 05 99 22 05 20 20 20 20 20 20 20 12 50 |.....". .P|
00000DD0: 92 52 4F 54 45 43 54 20 4F 52 20 05 12 55 92 4E |.ROTECT OR ..U.N|
00000DE0: 50 52 4F 54 45 43 54 20 44 49 53 4B 2E 22 00 09 |PROTECT DISK."..|
00000DF0: 16 96 05 A1 58 24 3A 8B 58 24 B2 22 22 A7 8D 32 |....X$:.X$.""..2|
00000E00: 30 39 30 3A 89 31 34 33 30 00 1A 16 A0 05 8B 58 |090:.1430......X|
00000E10: 24 B2 22 50 22 A7 31 34 37 30 00 2B 16 AA 05 8B |$."P".1470.+....|
00000E20: 58 24 B2 22 55 22 A7 31 35 36 30 00 35 16 B4 05 |X$."U".1560.5...|
00000E30: 89 31 34 33 30 00 62 16 BE 05 99 22 93 05 20 20 |.1430.b....".. |
00000E40: 20 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 | INSERT DISK TO |
00000E50: 42 45 20 12 20 50 52 4F 54 45 43 54 45 44 20 92 |BE . PROTECTED .|
00000E60: 9E 22 00 6C 16 C8 05 8D 32 30 36 30 00 89 16 D2 |.".l....2060....|
00000E70: 05 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F |..15,8,15,"I0":.|
00000E80: 32 2C 38 2C 32 2C 22 23 22 00 A6 16 DC 05 98 31 |2,8,2,"#"......1|
00000E90: 35 2C 22 55 31 3A 22 3B 32 3B 30 3B 31 38 3B 30 |5,"U1:";2;0;18;0|
00000EA0: 3A 8D 31 36 37 30 00 C9 16 E6 05 98 31 35 2C 22 |:.1670......15,"|
00000EB0: 42 2D 50 3A 22 3B 32 3B 32 3A 98 32 2C C7 28 37 |B-P:";2;2:.2,.(7|
00000EC0: 38 29 3B 3A 8D 31 36 37 30 00 E6 16 F0 05 98 31 |8);:.1670......1|
00000ED0: 35 2C 22 55 32 3A 22 3B 32 3B 30 3B 31 38 3B 30 |5,"U2:";2;0;18;0|
00000EE0: 3A 8D 31 36 37 30 00 FA 16 FA 05 A0 32 3A 98 31 |:.1670......2:.1|
00000EF0: 35 2C 22 49 30 22 3A A0 31 35 00 29 17 04 06 99 |5,"I0":.15.)....|
00000F00: 22 93 11 11 20 43 55 52 52 45 4E 54 20 44 49 53 |"... CURRENT DIS|
00000F10: 4B 20 49 53 20 4E 4F 57 20 12 05 20 50 52 4F 54 |K IS NOW .. PROT|
00000F20: 45 43 54 45 44 20 9A 92 22 00 3A 17 0E 06 99 22 |ECTED ..".:...."|
00000F30: 9E 22 3A 8D 32 30 36 30 3A 8E 00 68 17 18 06 99 |.":.2060:..h....|
00000F40: 22 93 05 20 20 49 4E 53 45 52 54 20 44 49 53 4B |".. INSERT DISK|
00000F50: 20 54 4F 20 42 45 20 12 20 55 4E 50 52 4F 54 45 | TO BE . UNPROTE|
00000F60: 43 54 45 44 20 92 9E 22 00 72 17 22 06 8D 32 30 |CTED ..".r."..20|
00000F70: 36 30 00 8F 17 2C 06 9F 31 35 2C 38 2C 31 35 2C |60...,..15,8,15,|
00000F80: 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 |"I0":.2,8,2,"#".|
00000F90: AC 17 36 06 98 31 35 2C 22 55 31 3A 22 3B 32 3B |..6..15,"U1:";2;|
00000FA0: 30 3B 31 38 3B 30 3A 8D 31 36 37 30 00 CF 17 40 |0;18;0:.1670...@|
00000FB0: 06 98 31 35 2C 22 42 2D 50 3A 22 3B 32 3B 32 3A |..15,"B-P:";2;2:|
00000FC0: 98 32 2C C7 28 36 35 29 3B 3A 8D 31 36 37 30 00 |.2,.(65);:.1670.|
00000FD0: F2 17 4A 06 98 31 35 2C 22 4D 2D 57 22 3B C7 28 |..J..15,"M-W";.(|
00000FE0: 31 29 3B C7 28 31 29 3B C7 28 31 29 3B C7 28 36 |1);.(1);.(1);.(6|
00000FF0: 35 29 00 15 18 54 06 98 31 35 2C 22 4D 2D 57 22 |5)...T..15,"M-W"|
00001000: 3B C7 28 32 29 3B C7 28 37 29 3B C7 28 31 29 3B |;.(2);.(7);.(1);|
00001010: C7 28 36 35 29 00 32 18 5E 06 98 31 35 2C 22 55 |.(65).2.^..15,"U|
00001020: 32 3A 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 31 36 |2:";2;0;18;0:.16|
00001030: 37 30 00 46 18 68 06 A0 32 3A 98 31 35 2C 22 49 |70.F.h..2:.15,"I|
00001040: 30 22 3A A0 31 35 00 76 18 72 06 99 22 93 11 11 |0":.15.v.r.."...|
00001050: 43 55 52 52 45 4E 54 20 44 49 53 4B 20 49 53 20 |CURRENT DISK IS |
00001060: 4E 4F 57 20 12 05 20 55 4E 50 52 4F 54 45 43 54 |NOW .. UNPROTECT|
00001070: 45 44 20 92 9A 22 00 87 18 7C 06 99 22 9E 22 3A |ED .."...|..".":|
00001080: 8D 32 30 36 30 3A 8E 00 9C 18 86 06 84 31 35 2C |.2060:.......15,|
00001090: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 B7 18 90 |EN,EM$,ET,ES....|
000010A0: 06 8B 45 4E A7 99 22 11 22 45 4E 2C 45 4D 24 2C |..EN.."."EN,EM$,|
000010B0: 45 54 2C 45 53 3A 90 00 BD 18 9A 06 8E 00 C6 18 |ET,ES:..........|
000010C0: A4 06 8F 22 8D 90 00 EB 18 AE 06 8F 20 2A 2A 2A |..."........ ***|
000010D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 19 B8 06 |***********.....|
000010F0: 8F 20 2A 20 20 20 20 54 48 45 20 46 4F 4C 4C 4F |. * THE FOLLO|
00001100: 57 49 4E 47 20 52 4F 55 54 49 4E 45 20 20 20 2A |WING ROUTINE *|
00001110: 00 35 19 C2 06 8F 20 2A 20 52 45 41 44 53 20 41 |.5.... * READS A|
00001120: 4E 44 20 50 52 49 4E 54 53 20 54 48 45 20 4C 4F |ND PRINTS THE LO|
00001130: 41 44 20 20 2A 00 5A 19 CC 06 8F 20 2A 20 41 44 |AD *.Z.... * AD|
00001140: 44 52 45 53 53 20 4F 46 20 49 4E 50 55 54 54 45 |DRESS OF INPUTTE|
00001150: 44 20 46 49 4C 45 2E 20 20 2A 00 7F 19 D6 06 8F |D FILE. *......|
00001160: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001180: 85 19 E0 06 8F 00 8E 19 EA 06 99 22 93 22 00 B5 |..........."."..|
00001190: 19 F4 06 99 22 05 20 20 20 20 20 20 20 20 20 12 |....". .|
000011A0: 20 46 49 4C 45 20 4C 4F 41 44 20 41 44 44 52 45 | FILE LOAD ADDRE|
000011B0: 53 53 20 92 22 00 CD 19 FE 06 85 22 11 11 11 20 |SS ."......"... |
000011C0: 46 49 4C 45 20 4E 41 4D 45 22 3B 46 24 00 E5 19 |FILE NAME";F$...|
000011D0: 08 07 99 22 11 20 4C 4F 41 44 20 41 44 44 52 45 |...". LOAD ADDRE|
000011E0: 53 53 3A 22 3B 00 F8 19 12 07 9F 31 2C 38 2C 33 |SS:";......1,8,3|
000011F0: 2C 22 30 3A 22 AA 46 24 00 03 1A 1C 07 A1 23 31 |,"0:".F$......#1|
00001200: 2C 4C 24 00 0E 1A 26 07 A1 23 31 2C 48 24 00 1D |,L$...&..#1,H$..|
00001210: 1A 30 07 8B 48 24 B2 22 22 A7 58 B2 30 00 29 1A |.0..H$."".X.0.).|
00001220: 3A 07 58 B2 C6 28 48 24 29 00 41 1A 44 07 48 49 |:.X..(H$).A.D.HI|
00001230: B2 58 AC 32 35 36 3A 8B 4C 24 B2 22 22 A7 58 B2 |.X.256:.L$."".X.|
00001240: 30 00 4D 1A 4E 07 58 B2 C6 28 4C 24 29 00 69 1A |0.M.N.X..(L$).i.|
00001250: 58 07 4C 4F B2 58 3A 99 22 12 9E 22 48 49 AA 4C |X.LO.X:.".."HI.L|
00001260: 4F 3B 3A 99 22 9D 20 92 22 00 70 1A 62 07 A0 31 |O;:.". .".p.b..1|
00001270: 00 7C 1A 6C 07 8D 32 30 36 30 3A 8E 00 85 1A 76 |.|.l..2060:....v|
00001280: 07 8F 22 8D 9B 00 AA 1A 80 07 8F 20 2A 2A 2A 2A |.."........ ****|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 1A 8A 07 8F |**********......|
000012B0: 20 2A 20 20 52 45 41 44 20 44 49 53 4B 20 45 52 | * READ DISK ER|
000012C0: 52 4F 52 20 43 48 41 4E 4E 45 4C 20 20 20 2A 00 |ROR CHANNEL *.|
000012D0: F4 1A 94 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000012E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012F0: 2A 2A 2A 2A 00 FA 1A 9E 07 8F 00 27 1B A8 07 99 |****.......'....|
00001300: 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 05 20 43 55 |"............ CU|
00001310: 52 52 45 4E 54 20 44 49 53 4B 20 53 54 41 54 55 |RRENT DISK STATU|
00001320: 53 20 11 11 11 92 22 00 34 1B B2 07 9F 31 35 2C |S ....".4....15,|
00001330: 38 2C 31 35 00 45 1B BC 07 84 31 35 2C 45 2C 45 |8,15.E....15,E,E|
00001340: 24 2C 54 2C 53 00 5B 1B C6 07 99 A3 31 33 29 45 |$,T,S.[.....13)E|
00001350: 3B 45 24 3B 54 3B 53 3A A0 31 35 00 6C 1B D0 07 |;E$;T;S:.15.l...|
00001360: 99 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 75 1B DA |.".":.2060:..u..|
00001370: 07 8F 22 8D 9E 00 9A 1B E4 07 8F 20 2A 2A 2A 2A |.."........ ****|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 1B EE 07 8F |**********......|
000013A0: 20 2A 20 56 41 52 49 4F 55 53 20 4D 45 53 53 41 | * VARIOUS MESSA|
000013B0: 47 45 20 52 4F 55 54 49 4E 45 53 20 20 20 2A 00 |GE ROUTINES *.|
000013C0: E4 1B F8 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000013D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013E0: 2A 2A 2A 2A 00 EA 1B 02 08 8F 00 17 1C 0C 08 99 |****............|
000013F0: 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 50 52 45 |"............PRE|
00001400: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001410: 4E 54 49 4E 55 45 22 00 30 1C 16 08 97 31 39 38 |NTINUE".0....198|
00001420: 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 |,0:.198,1:.198,0|
00001430: 00 36 1C 20 08 8E 00 67 1C 2A 08 99 22 11 11 1D |.6. ...g.*.."...|
00001440: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E 20 53 45 4C |............ SEL|
00001450: 45 43 54 20 4C 45 54 54 45 52 20 22 3A 81 49 B2 |ECT LETTER ":.I.|
00001460: 31 A4 31 35 30 3A 82 00 9B 1C 34 08 99 22 91 1D |1.150:....4.."..|
00001470: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 |........... |
00001480: 20 20 20 20 20 20 20 20 20 20 91 91 91 22 3A 81 | ...":.|
00001490: 49 B2 31 A4 31 35 30 3A 82 3A 8E 00 A4 1C 3E 08 |I.1.150:.:....>.|
000014A0: 99 22 93 22 00 00 00 |."."... |
......."...'....53280,9:.53281,9:."..";.
S....".......
"..(.."....... THE EASY-DISK UTILI
TY "...2..".......
".P.<.."...........(C).N.HIGGI
NS.1988"...F.."....................MENU"
...P..".......
".H.Z.."....... A)..READ DISK DIRECTO
RY ".T.D..".......
". .N.."....... B)..CHANGE DI
SK NAME/ID ".L.X..".......
"......"....... C)..W
RITE PROTECT/UNPROTECT ".$....".......
".P....".....
.. D)..FIND LOAD ADDRESS ".|. ..".
...... "....
.."....... E)..READ ERROR CHANNEL "
.T....".......
"......A$:.A$.""..2090:.190...H.A.F(A
$):.A.65.A.69.190...R.A.A.64:.A.290,490,
1370,1770,1960.6....20.?...."...E.... **
*****************************...... *
THE FOLLOWING ROUTINE *...... * READ
S THE DISK DIRECTORY. *.W.... ********
***********************.........".."....
................."...,..1,8,0,"$":.#1,X$
,X$.:.6..#1,X$,X$:.ST. 1:."......":.2060
:..H.@.." ";.S.J..#1,X$.F.T..X$."".X
$.G(0).S.^.LO.F(X$).~.H..#1,X$...R..X$."
".X$.G(0)...|.HI.F(X$).256:BL.LO.HI:.BL;
......#1,X$.M....X$.""..:.310......X$;:.
390......"........ *********************
**********.0.... * THE NEXT ROUTINE WILL
READ *.V.B.. * OR CHANGE THE CURRENT D
ISK- *.|.L.. * NAME OR DISK-ID..........
.. *...V.. *****************************
**............".".L...U$."0":BG.E(U$):HT
$.U$......(BG.254)..500......". VIEW/C
HANGE DISK-..N..AME OR DISK-..I..D".....
.Y$.;....Y$.."N".Y$.."I"..2090:.530.J.&.
.:.15,8,15.T.0..15,;.F.:..15,("I".HT$).U
.D..1,8,3,"#"..N..15,;...X.."U1:3";...B
..BG;...L..15,",18,0"...V.. Y$."N"..860.
A....15,;.U....15,"B-P:3,162"......#1,A$
:.#1,B$:.#1,C$:.#1,D$:.#1,E$. ...."...
CURRENT DISK-ID IS: .";.A....A$;:.B$;:.
C$;:.D$;:.E$:.".".K....1110.{....".. ENT
ER NEW DISK-ID (MAX 5 CHARACTERS)."...F.
.BG$...P.. C(BG$)..4 . I$.H((BG$." "),5)
...Z..15,;.F....15,"B-P:3,162".O....1,;.
Y....BG$;......1,;......15,;......"U2:3"
;... ..BG;...*..15,",18,0"...4.I$.("I".J
(D(BG),2,255)).8.>..15,;.C.H..15,I$.[.R.
1: 15:.".":.2060:..E.\..15,;.Y.F..15,"B
-P:3,144"...P.DN$.""...Z.L.1......L.L.16
......#1,A$.....DN$.(DN$.A$)............
"... CURRENT DISK-NAME IS: .";......DN$:
.".":.1110.#...."..ENTER NEW DISK-NAME (
MAX 16 CHARACTERS)".-.J.."..".6.T..ND$.<
.....A...ND$.H((ND$." "),16
).K....15,;.....15,"B-P:3,144"......1,;
......ND$;......1,;...$..15,;......"U2:3
";...8..BG;.K.B..15,",18,0".T.L..820...V
.."......DO YOU WANT TO CHANGE IT? .Y/N.
"...`..X$.$.J..X$.."Y".X$.."N"..1120.=.T
..X$."N". 1: 15:.:.20.C.~...L...."...Q..
.. ******************************......
* THE NEXT ROUTINE WILL .... *...... * P
ROTECT OR UNPROTECT A DISK*...... * IN A
1541 DRIVE. *...... * -------
------------------- *.*.D.. * IT PROTECT
S BY CHANGING THE*.O.N.. * DISK FORMAT C
HARACTER ON *.T.X.. * TRACK18,SECTOR0
- BYTE 2 *...... * -------------------
------- *...... * AND IT UNPROTECTS
BY *...... * CHANGING THE ID FORMAT BA
CK*...... * TO CHR$(65). *
.-.... ******************************.R.
... * I SUGGEST YOU PUT A MARKER *.W....
* ON ANY DISKS YOU (PROTECT) *...(.. *
SO YOU WILL KNOW TO RE-USE *.A.2.. * THI
S PROGRAM WHEN YOU WANT *...<.. * TO WRI
TE BACK TO IT.(PHEW) *...F.. ***********
*******************...P.....Z..".";.I.D.
.". ..................................
".W.N.." . SOFTWARE WRITE PROTECT/UNPR
OTECT "...X..".... WHICH DO YOU
REQUIRE?"......".. . . .".
.....". .P.ROTECT OR ..U.NPROTECT
DISK."......X$:.X$.""..2090:.1430... ..X
$."P".1470.+....X$."U".1560.5....1430.B.
...".. INSERT DISK TO BE . PROTECTED .
.".L.H..2060...R..15,8,15,"I0":.2,8,2,"#
"......15,"U1:";2;0;18;0:.1670.I....15,"
B-P:";2;2:.2,G(78);:.1670......15,"U2:";
2;0;18;0:.1670..... 2:.15,"I0": 15.)....
"... CURRENT DISK IS NOW .. PROTECTED ..
".:....".":.2060:..H....".. INSERT DISK
TO BE . UNPROTECTED ..".R."..2060...,..
15,8,15,"I0":.2,8,2,"#"...6..15,"U1:";2;
0;18;0:.1670.O.@..15,"B-P:";2;2:.2,G(65)
;:.1670...J..15,"M-W";G(1);G(1);G(1);G(6
5)...T..15,"M-W";G(2);G(7);G(1);G(65).2.
^..15,"U2:";2;0;18;0:.1670.F.H. 2:.15,"I
0": 15.V.R.."...CURRENT DISK IS NOW .. U
NPROTECTED .."...|..".":.2060:.......15,
EN,EM$,ET,ES......EN.."."EN,EM$,ET,ES:..
......F...."........ *******************
***********...... * THE FOLLOWING ROU
TINE *.5.B.. * READS AND PRINTS THE LO
AD *.Z.L.. * ADDRESS OF INPUTTED FILE.
*..V.. ******************************.
..........."."......". . FILE LO
AD ADDRESS .".M...."... FILE NAME";F$...
...". LOAD ADDRESS:";......1,8,3,"0:".F$
......#1,L$...&..#1,H$...0..H$."".X.0.).
:.X.F(H$).A.D.HI.X.256:.L$."".X.0.M.N.X.
F(L$).I.X.LO.X:.".."HI.LO;:.". .".P.B. 1
.|.L..2060:....V.."........ ************
******************.O.... * READ DISK ER
ROR CHANNEL *...... ******************
************.......'...."............ CU
RRENT DISK STATUS ....".4....15,8,15.E..
..15,E,E$,T,S.[.F...13)E;E$;T;S: 15.L.P.
.".":.2060:..U.Z.."........ ************
******************...... * VARIOUS MESSA
GE ROUTINES *...... ******************
************............"............PRE
SS ANY KEY TO CONTINUE".0....198,0:.198,
1:.198,0.6. ...G.*.."............... SEL
ECT LETTER ":.I.1.150:....4.."..........
... ...":.I.1.150:.:....>.
."."...
> CLICK IMAGE PREVIEW FOR FULL MODAL