EASY-DISK DEMO(X
FILE INFORMATION
FILENAME(S): EASY-DISK DEMO(X
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
7dce950b024e80f8f89073756a63c8914a0c41e2668a148bc2148729897520a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC02 | EASY-DISK DEMO(X | PRG | Treasure Chest - Spook | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 00 00 9E 32 30 38 30 3A 14 14 14 14 |.......2080:....|
00000010: 14 14 14 14 45 41 53 59 20 42 41 53 49 43 00 00 |....EASY BASIC..|
00000020: 00 A9 EA 8D 28 03 A9 45 85 2B A0 00 A9 B1 49 FF |....(..E.+....I.|
00000030: 91 2B A9 41 8D 06 03 A9 08 8D 07 03 20 59 A6 4C |.+.A........ Y.L|
00000040: AE A7 6C 00 A0 00 00 08 0A 00 8F 22 8D 9E 00 6B |..l........"...k|
00000050: 08 14 00 97 35 33 32 38 30 2C 39 3A 97 35 33 32 |....53280,9:.532|
00000060: 38 31 2C 39 3A 99 22 93 8E 22 3B 00 97 08 1E 00 |81,9:."..";.....|
00000070: 99 22 1D 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 20 |."....... |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 22 00 C3 08 28 00 99 22 1D 1D | "...(.."..|
000000A0: 1D 1D 1D 12 05 20 20 20 20 54 48 45 20 45 41 53 |..... THE EAS|
000000B0: 59 2D 44 49 53 4B 20 55 54 49 4C 49 54 59 20 20 |Y-DISK UTILITY |
000000C0: 20 20 22 00 EF 08 32 00 99 22 1D 1D 1D 1D 1D 12 | "...2.."......|
000000D0: 9A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000000F0: 14 09 3C 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..<.."..........|
00000100: 05 28 43 29 1D 4E 2E 48 49 47 47 49 4E 53 1D 31 |.(C).N.HIGGINS.1|
00000110: 39 38 38 22 00 34 09 46 00 99 22 9E 11 11 1D 1D |988".4.F..".....|
00000120: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D |...............M|
00000130: 45 4E 55 22 00 60 09 50 00 99 22 1D 1D 1D 1D 1D |ENU".`.P..".....|
00000140: 12 9A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000160: 00 8C 09 5A 00 99 22 1D 1D 1D 1D 1D 12 05 20 41 |...Z.."....... A|
00000170: 29 2E 2E 52 45 41 44 20 44 49 53 4B 20 44 49 52 |)..READ DISK DIR|
00000180: 45 43 54 4F 52 59 20 20 20 20 20 22 00 B8 09 64 |ECTORY "...d|
00000190: 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 |.."....... |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 22 00 E4 09 6E 00 99 22 1D | "...n..".|
000001C0: 1D 1D 1D 1D 12 05 20 42 29 2E 2E 43 48 41 4E 47 |...... B)..CHANG|
000001D0: 45 20 44 49 53 4B 20 4E 41 4D 45 2F 49 44 20 20 |E DISK NAME/ID |
000001E0: 20 20 20 22 00 10 0A 78 00 99 22 1D 1D 1D 1D 1D | "...x..".....|
000001F0: 12 9A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000210: 00 3C 0A 82 00 99 22 1D 1D 1D 1D 1D 12 05 20 43 |.<...."....... C|
00000220: 29 2E 2E 57 52 49 54 45 20 50 52 4F 54 45 43 54 |)..WRITE PROTECT|
00000230: 2F 55 4E 50 52 4F 54 45 43 54 20 22 00 68 0A 8C |/UNPROTECT ".h..|
00000240: 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 |.."....... |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 22 00 94 0A 96 00 99 22 1D | "......".|
00000270: 1D 1D 1D 1D 12 05 20 44 29 2E 2E 46 49 4E 44 20 |...... D)..FIND |
00000280: 4C 4F 41 44 20 41 44 44 52 45 53 53 20 20 20 20 |LOAD ADDRESS |
00000290: 20 20 20 22 00 C0 0A A0 00 99 22 1D 1D 1D 1D 1D | "......".....|
000002A0: 12 9A 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 22 | "|
000002C0: 00 EC 0A AA 00 99 22 1D 1D 1D 1D 1D 12 05 20 45 |......"....... E|
000002D0: 29 2E 2E 52 45 41 44 20 45 52 52 4F 52 20 43 48 |)..READ ERROR CH|
000002E0: 41 4E 4E 45 4C 20 20 20 20 20 20 22 00 18 0B B4 |ANNEL "....|
000002F0: 00 99 22 1D 1D 1D 1D 1D 12 9A 20 20 20 20 20 20 |.."....... |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 22 00 32 0B BE 00 A1 41 24 | ".2....A$|
00000320: 3A 8B 41 24 B2 22 22 A7 8D 32 30 39 30 3A 89 31 |:.A$.""..2090:.1|
00000330: 39 30 00 4D 0B C8 00 41 B2 C6 28 41 24 29 3A 8B |90.M...A..(A$):.|
00000340: 41 B3 36 35 B0 41 B1 36 39 A7 31 39 30 00 72 0B |A.65.A.69.190.r.|
00000350: D2 00 41 B2 41 AB 36 34 3A 91 41 8D 32 39 30 2C |..A.A.64:.A.290,|
00000360: 34 39 30 2C 31 33 37 30 2C 31 37 37 30 2C 31 39 |490,1370,1770,19|
00000370: 36 30 00 7A 0B DC 00 89 32 30 00 83 0B E6 00 8F |60.z....20......|
00000380: 22 8D 05 00 A9 0B F0 00 8F 20 2A 2A 2A 2A 2A 2A |"........ ******|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 0B FA 00 8F 20 |*********...... |
000003B0: 2A 20 20 20 20 54 48 45 20 46 4F 4C 4C 4F 57 49 |* THE FOLLOWI|
000003C0: 4E 47 20 52 4F 55 54 49 4E 45 20 20 20 20 2A 00 |NG ROUTINE *.|
000003D0: F5 0B 04 01 8F 20 2A 20 52 45 41 44 53 20 54 48 |..... * READS TH|
000003E0: 45 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 |E DISK DIRECTORY|
000003F0: 2E 20 20 20 2A 00 1B 0C 0E 01 8F 20 2A 2A 2A 2A |. *...... ****|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 21 0C 18 01 |***********.!...|
00000420: 8F 00 3E 0C 22 01 99 22 05 93 11 11 11 11 11 11 |..>.".."........|
00000430: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 57 |.............".W|
00000440: 0C 2C 01 9F 31 2C 38 2C 30 2C 22 24 22 3A A1 23 |.,..1,8,0,"$":.#|
00000450: 31 2C 58 24 2C 58 24 00 7E 0C 36 01 A1 23 31 2C |1,X$,X$.~.6..#1,|
00000460: 58 24 2C 58 24 3A 8B 53 54 A7 A0 31 3A 99 22 9E |X$,X$:.ST..1:.".|
00000470: 91 91 91 91 91 22 3A 8D 32 30 36 30 3A 8E 00 8C |.....":.2060:...|
00000480: 0C 40 01 99 22 20 20 20 20 20 22 3B 00 97 0C 4A |.@.." ";...J|
00000490: 01 A1 23 31 2C 58 24 00 AA 0C 54 01 8B 58 24 B2 |..#1,X$...T..X$.|
000004A0: 22 22 A7 58 24 B2 C7 28 30 29 00 B7 0C 5E 01 4C |"".X$..(0)...^.L|
000004B0: 4F B2 C6 28 58 24 29 00 C2 0C 68 01 A1 23 31 2C |O..(X$)...h..#1,|
000004C0: 58 24 00 D5 0C 72 01 8B 58 24 B2 22 22 A7 58 24 |X$...r..X$."".X$|
000004D0: B2 C7 28 30 29 00 F4 0C 7C 01 48 49 B2 C6 28 58 |..(0)...|.HI..(X|
000004E0: 24 29 AC 32 35 36 3A 42 4C B2 4C 4F AA 48 49 3A |$).256:BL.LO.HI:|
000004F0: 99 42 4C 3B 00 FF 0C 86 01 A1 23 31 2C 58 24 00 |.BL;......#1,X$.|
00000500: 11 0D 90 01 8B 58 24 B2 22 22 A7 99 3A 89 33 31 |.....X$.""..:.31|
00000510: 30 00 1F 0D 9A 01 99 58 24 3B 3A 89 33 39 30 00 |0......X$;:.390.|
00000520: 28 0D A4 01 8F 22 8D 99 00 4E 0D AE 01 8F 20 2A |(...."...N.... *|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 |**************.t|
00000550: 0D B8 01 8F 20 2A 20 54 48 45 20 4E 45 58 54 20 |.... * THE NEXT |
00000560: 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 52 45 41 |ROUTINE WILL REA|
00000570: 44 20 20 2A 00 9A 0D C2 01 8F 20 2A 20 4F 52 20 |D *...... * OR |
00000580: 43 48 41 4E 47 45 20 54 48 45 20 43 55 52 52 45 |CHANGE THE CURRE|
00000590: 4E 54 20 44 49 53 4B 2D 20 2A 00 C0 0D CC 01 8F |NT DISK- *......|
000005A0: 20 2A 20 4E 41 4D 45 20 4F 52 20 44 49 53 4B 2D | * NAME OR DISK-|
000005B0: 49 44 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2A |ID............ *|
000005C0: 00 E6 0D D6 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 2A 2A 2A 00 EC 0D E0 01 8F 00 F5 0D EA |******..........|
000005F0: 01 99 22 93 22 00 10 0E F4 01 55 24 B2 22 30 22 |..".".....U$."0"|
00000600: 3A 42 47 B2 C5 28 55 24 29 3A 48 54 24 B2 55 24 |:BG..(U$):HT$.U$|
00000610: 00 23 0E FE 01 8B 28 42 47 AF 32 35 34 29 A7 89 |.#....(BG.254)..|
00000620: 35 30 30 00 57 0E 08 02 99 22 05 20 20 20 56 49 |500.W....". VI|
00000630: 45 57 2F 43 48 41 4E 47 45 20 44 49 53 4B 2D 12 |EW/CHANGE DISK-.|
00000640: 9E 4E 05 92 41 4D 45 20 4F 52 20 44 49 53 4B 2D |.N..AME OR DISK-|
00000650: 12 9E 49 05 92 44 22 00 5F 0E 12 02 A1 59 24 00 |..I..D"._....Y$.|
00000660: 7F 0E 1C 02 8B 59 24 B3 B1 22 4E 22 AF 59 24 B3 |.....Y$.."N".Y$.|
00000670: B1 22 49 22 A7 8D 32 30 39 30 3A 89 35 33 30 00 |."I"..2090:.530.|
00000680: 8E 0E 26 02 99 3A 9F 31 35 2C 38 2C 31 35 00 98 |..&..:.15,8,15..|
00000690: 0E 30 02 9D 31 35 2C 3B 00 AA 0E 3A 02 98 31 35 |.0..15,;...:..15|
000006A0: 2C 28 22 49 22 AA 48 54 24 29 00 B9 0E 44 02 9F |,("I".HT$)...D..|
000006B0: 31 2C 38 2C 33 2C 22 23 22 00 C3 0E 4E 02 9D 31 |1,8,3,"#"...N..1|
000006C0: 35 2C 3B 00 D0 0E 58 02 99 22 55 31 3A 33 22 3B |5,;...X.."U1:3";|
000006D0: 00 D9 0E 62 02 99 42 47 3B 00 E9 0E 6C 02 98 31 |...b..BG;...l..1|
000006E0: 35 2C 22 2C 31 38 2C 30 22 00 FB 0E 76 02 8B 20 |5,",18,0"...v.. |
000006F0: 59 24 B2 22 4E 22 A7 89 38 36 30 00 05 0F 80 02 |Y$."N"..860.....|
00000700: 9D 31 35 2C 3B 00 19 0F 8A 02 98 31 35 2C 22 42 |.15,;......15,"B|
00000710: 2D 50 3A 33 2C 31 36 32 22 00 40 0F 94 02 A1 23 |-P:3,162".@....#|
00000720: 31 2C 41 24 3A A1 23 31 2C 42 24 3A A1 23 31 2C |1,A$:.#1,B$:.#1,|
00000730: 43 24 3A A1 23 31 2C 44 24 3A A1 23 31 2C 45 24 |C$:.#1,D$:.#1,E$|
00000740: 00 64 0F 9E 02 99 22 93 11 05 20 20 20 43 55 52 |.d...."... CUR|
00000750: 52 45 4E 54 20 44 49 53 4B 2D 49 44 20 49 53 3A |RENT DISK-ID IS:|
00000760: 20 12 22 3B 00 85 0F A8 02 99 41 24 3B 3A 99 42 | .";......A$;:.B|
00000770: 24 3B 3A 99 43 24 3B 3A 99 44 24 3B 3A 99 45 24 |$;:.C$;:.D$;:.E$|
00000780: 3A 99 22 9E 22 00 8F 0F B2 02 8D 31 31 31 30 00 |:."."......1110.|
00000790: BF 0F BC 02 99 22 11 05 20 45 4E 54 45 52 20 4E |.....".. ENTER N|
000007A0: 45 57 20 44 49 53 4B 2D 49 44 20 28 4D 41 58 20 |EW DISK-ID (MAX |
000007B0: 35 20 43 48 41 52 41 43 54 45 52 53 29 11 22 00 |5 CHARACTERS).".|
000007C0: C8 0F C6 02 85 42 47 24 00 EC 0F D0 02 8B 20 C3 |.....BG$...... .|
000007D0: 28 42 47 24 29 B3 B1 34 20 A7 20 49 24 B2 C8 28 |(BG$)..4 . I$..(|
000007E0: 28 42 47 24 AA 22 20 22 29 2C 35 29 00 F6 0F DA |(BG$." "),5)....|
000007F0: 02 9D 31 35 2C 3B 00 0A 10 E4 02 98 31 35 2C 22 |..15,;......15,"|
00000800: 42 2D 50 3A 33 2C 31 36 32 22 00 13 10 EE 02 9D |B-P:3,162"......|
00000810: 31 2C 3B 00 1D 10 F8 02 99 42 47 24 3B 00 26 10 |1,;......BG$;.&.|
00000820: 02 03 98 31 2C 3B 00 30 10 0C 03 9D 31 35 2C 3B |...1,;.0....15,;|
00000830: 00 3D 10 16 03 99 22 55 32 3A 33 22 3B 00 46 10 |.=...."U2:3";.F.|
00000840: 20 03 99 42 47 3B 00 56 10 2A 03 98 31 35 2C 22 | ..BG;.V.*..15,"|
00000850: 2C 31 38 2C 30 22 00 72 10 34 03 49 24 B2 28 22 |,18,0".r.4.I$.("|
00000860: 49 22 AA CA 28 C4 28 42 47 29 2C 32 2C 32 35 35 |I"..(.(BG),2,255|
00000870: 29 29 00 7C 10 3E 03 9D 31 35 2C 3B 00 87 10 48 |)).|.>..15,;...H|
00000880: 03 98 31 35 2C 49 24 00 9F 10 52 03 A0 31 3A A0 |..15,I$...R..1:.|
00000890: 31 35 3A 99 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 |15:.".":.2060:..|
000008A0: A9 10 5C 03 9D 31 35 2C 3B 00 BD 10 66 03 98 31 |..\..15,;...f..1|
000008B0: 35 2C 22 42 2D 50 3A 33 2C 31 34 34 22 00 C8 10 |5,"B-P:3,144"...|
000008C0: 70 03 44 4E 24 B2 22 22 00 D0 10 7A 03 4C B2 31 |p.DN$.""...z.L.1|
000008D0: 00 DC 10 84 03 81 4C B2 4C A4 31 36 00 E7 10 8E |......L.L.16....|
000008E0: 03 A1 23 31 2C 41 24 00 F8 10 98 03 44 4E 24 B2 |..#1,A$.....DN$.|
000008F0: 28 44 4E 24 AA 41 24 29 00 FE 10 A2 03 82 00 22 |(DN$.A$)......."|
00000900: 11 AC 03 99 22 93 11 05 20 43 55 52 52 45 4E 54 |...."... CURRENT|
00000910: 20 44 49 53 4B 2D 4E 41 4D 45 20 49 53 3A 20 12 | DISK-NAME IS: .|
00000920: 22 3B 00 36 11 B6 03 99 44 4E 24 3A 99 22 9E 22 |";.6....DN$:."."|
00000930: 3A 8D 31 31 31 30 00 67 11 C0 03 99 22 11 05 45 |:.1110.g...."..E|
00000940: 4E 54 45 52 20 4E 45 57 20 44 49 53 4B 2D 4E 41 |NTER NEW DISK-NA|
00000950: 4D 45 20 28 4D 41 58 20 31 36 20 43 48 41 52 41 |ME (MAX 16 CHARA|
00000960: 43 54 45 52 53 29 22 00 71 11 CA 03 99 22 11 1D |CTERS)".q...."..|
00000970: 22 00 7A 11 D4 03 85 4E 44 24 00 80 11 DE 03 99 |".z....ND$......|
00000980: 00 A5 11 E8 03 4E 44 24 B2 C8 28 28 4E 44 24 AA |.....ND$..((ND$.|
00000990: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |" "|
000009A0: 29 2C 31 36 29 00 AF 11 F2 03 9D 31 35 2C 3B 00 |),16)......15,;.|
000009B0: C3 11 FC 03 98 31 35 2C 22 42 2D 50 3A 33 2C 31 |.....15,"B-P:3,1|
000009C0: 34 34 22 00 CC 11 06 04 9D 31 2C 3B 00 D6 11 10 |44"......1,;....|
000009D0: 04 99 4E 44 24 3B 00 DF 11 1A 04 98 31 2C 3B 00 |..ND$;......1,;.|
000009E0: E9 11 24 04 9D 31 35 2C 3B 00 F6 11 2E 04 99 22 |..$..15,;......"|
000009F0: 55 32 3A 33 22 3B 00 FF 11 38 04 99 42 47 3B 00 |U2:3";...8..BG;.|
00000A00: 0F 12 42 04 98 31 35 2C 22 2C 31 38 2C 30 22 00 |..B..15,",18,0".|
00000A10: 18 12 4C 04 89 38 32 30 00 45 12 56 04 99 22 11 |..L..820.E.V..".|
00000A20: 11 1D 1D 1D 1D 44 4F 20 59 4F 55 20 57 41 4E 54 |.....DO YOU WANT|
00000A30: 20 54 4F 20 43 48 41 4E 47 45 20 49 54 3F 20 12 | TO CHANGE IT? .|
00000A40: 59 2F 4E 92 22 00 4D 12 60 04 A1 58 24 00 68 12 |Y/N.".M.`..X$.h.|
00000A50: 6A 04 8B 58 24 B3 B1 22 59 22 AF 58 24 B3 B1 22 |j..X$.."Y".X$.."|
00000A60: 4E 22 A7 89 31 31 32 30 00 81 12 74 04 8B 58 24 |N"..1120...t..X$|
00000A70: B2 22 4E 22 A7 A0 31 3A A0 31 35 3A 9C 3A 89 32 |."N"..1:.15:.:.2|
00000A80: 30 00 87 12 7E 04 8E 00 90 12 88 04 8F 22 8D 96 |0...~........"..|
00000A90: 00 B5 12 92 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AB0: 2A 2A 2A 2A 2A 00 DA 12 9C 04 8F 20 2A 20 54 48 |*****...... * TH|
00000AC0: 45 20 4E 45 58 54 20 52 4F 55 54 49 4E 45 20 57 |E NEXT ROUTINE W|
00000AD0: 49 4C 4C 20 2E 2E 2E 2E 20 2A 00 FF 12 A6 04 8F |ILL .... *......|
00000AE0: 20 2A 20 50 52 4F 54 45 43 54 20 4F 52 20 55 4E | * PROTECT OR UN|
00000AF0: 50 52 4F 54 45 43 54 20 41 20 44 49 53 4B 2A 00 |PROTECT A DISK*.|
00000B00: 24 13 B0 04 8F 20 2A 20 49 4E 20 41 20 31 35 34 |$.... * IN A 154|
00000B10: 31 20 44 52 49 56 45 2E 20 20 20 20 20 20 20 20 |1 DRIVE. |
00000B20: 20 20 20 2A 00 49 13 BA 04 8F 20 2A 20 2D 2D 2D | *.I.... * ---|
00000B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B40: 2D 2D 2D 2D 2D 2D 2D 20 2A 00 6E 13 C4 04 8F 20 |------- *.n.... |
00000B50: 2A 20 49 54 20 50 52 4F 54 45 43 54 53 20 42 59 |* IT PROTECTS BY|
00000B60: 20 43 48 41 4E 47 49 4E 47 20 20 20 20 2A 00 93 | CHANGING *..|
00000B70: 13 CE 04 8F 20 2A 20 54 48 45 20 44 49 53 4B 20 |.... * THE DISK |
00000B80: 49 44 20 46 4F 52 4D 41 54 20 44 49 52 45 43 54 |ID FORMAT DIRECT|
00000B90: 4C 59 2A 00 B8 13 D8 04 8F 20 2A 20 41 54 20 4C |LY*...... * AT L|
00000BA0: 4F 43 41 54 49 4F 4E 20 2D 20 20 20 20 20 20 20 |OCATION - |
00000BB0: 20 20 20 20 20 20 20 2A 00 DD 13 E2 04 8F 20 2A | *...... *|
00000BC0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 00 02 14 |----------- *...|
00000BE0: EC 04 8F 20 2A 20 20 20 20 20 41 4E 44 20 49 54 |... * AND IT|
00000BF0: 20 55 50 52 4F 54 45 43 54 53 20 42 59 20 20 20 | UPROTECTS BY |
00000C00: 20 2A 00 27 14 F6 04 8F 20 2A 20 43 48 41 4E 47 | *.'.... * CHANG|
00000C10: 49 4E 47 20 54 48 45 20 49 44 20 46 4F 52 4D 41 |ING THE ID FORMA|
00000C20: 54 20 42 41 43 4B 2A 00 4C 14 00 05 8F 20 2A 20 |T BACK*.L.... * |
00000C30: 54 4F 20 43 48 52 24 28 20 20 20 20 20 20 20 20 |TO CHR$( |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 2A 00 71 14 0A | *.q..|
00000C50: 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C70: 2A 00 96 14 14 05 8F 20 2A 20 49 20 53 55 47 47 |*...... * I SUGG|
00000C80: 45 53 54 20 59 4F 55 20 50 55 54 20 41 20 4D 41 |EST YOU PUT A MA|
00000C90: 52 4B 45 52 20 2A 00 BB 14 1E 05 8F 20 2A 20 4F |RKER *...... * O|
00000CA0: 4E 20 41 4E 59 20 44 49 53 4B 53 20 59 4F 55 20 |N ANY DISKS YOU |
00000CB0: 28 50 52 4F 54 45 43 54 29 20 2A 00 E0 14 28 05 |(PROTECT) *...(.|
00000CC0: 8F 20 2A 20 53 4F 20 59 4F 55 20 57 49 4C 4C 20 |. * SO YOU WILL |
00000CD0: 4B 4E 4F 57 20 54 4F 20 52 45 2D 55 53 45 20 2A |KNOW TO RE-USE *|
00000CE0: 00 05 15 32 05 8F 20 2A 20 54 48 49 53 20 50 52 |...2.. * THIS PR|
00000CF0: 4F 47 52 41 4D 20 57 48 45 4E 20 59 4F 55 20 57 |OGRAM WHEN YOU W|
00000D00: 41 4E 54 20 2A 00 2A 15 3C 05 8F 20 2A 20 54 4F |ANT *.*.<.. * TO|
00000D10: 20 57 52 49 54 45 20 42 41 43 4B 20 54 4F 20 49 | WRITE BACK TO I|
00000D20: 54 2E 28 50 48 45 57 29 20 2A 00 4F 15 46 05 8F |T.(PHEW) *.O.F..|
00000D30: 20 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 2A 00 |***************.|
00000D50: 55 15 50 05 8F 00 5F 15 5A 05 99 22 93 22 3B 00 |U.P..._.Z..".";.|
00000D60: 8D 15 64 05 99 22 05 20 20 20 A4 A4 A4 A4 A4 A4 |..d..". ......|
00000D70: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000D80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 BB 15 |............"...|
00000D90: 6E 05 99 22 20 20 20 12 20 53 4F 46 54 57 41 52 |n.." . SOFTWAR|
00000DA0: 45 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 2F |E WRITE PROTECT/|
00000DB0: 55 4E 50 52 4F 54 45 43 54 20 22 00 E5 15 78 05 |UNPROTECT "...x.|
00000DC0: 99 22 11 11 11 9E 20 20 20 20 20 20 20 20 20 57 |.".... W|
00000DD0: 48 49 43 48 20 44 4F 20 59 4F 55 20 52 45 51 55 |HICH DO YOU REQU|
00000DE0: 49 52 45 3F 22 00 03 16 82 05 99 22 11 11 20 20 |IRE?"......".. |
00000DF0: 20 20 20 20 05 20 A4 20 20 20 20 20 20 20 20 20 | . . |
00000E00: 20 A4 22 00 32 16 8C 05 99 22 05 20 20 20 20 20 | .".2....". |
00000E10: 20 20 12 50 92 52 4F 54 45 43 54 20 4F 52 20 05 | .P.ROTECT OR .|
00000E20: 12 55 92 4E 50 52 4F 54 45 43 54 20 44 49 53 4B |.U.NPROTECT DISK|
00000E30: 2E 22 00 4D 16 96 05 A1 58 24 3A 8B 58 24 B2 22 |.".M....X$:.X$."|
00000E40: 22 A7 8D 32 30 39 30 3A 89 31 34 33 30 00 5E 16 |"..2090:.1430.^.|
00000E50: A0 05 8B 58 24 B2 22 50 22 A7 31 34 37 30 00 6F |...X$."P".1470.o|
00000E60: 16 AA 05 8B 58 24 B2 22 55 22 A7 31 35 36 30 00 |....X$."U".1560.|
00000E70: 79 16 B4 05 89 31 34 33 30 00 A6 16 BE 05 99 22 |y....1430......"|
00000E80: 93 05 20 20 20 49 4E 53 45 52 54 20 44 49 53 4B |.. INSERT DISK|
00000E90: 20 54 4F 20 42 45 20 12 20 50 52 4F 54 45 43 54 | TO BE . PROTECT|
00000EA0: 45 44 20 92 9E 22 00 B0 16 C8 05 8D 32 30 36 30 |ED .."......2060|
00000EB0: 00 CD 16 D2 05 9F 31 35 2C 38 2C 31 35 2C 22 49 |......15,8,15,"I|
00000EC0: 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 EA 16 |0":.2,8,2,"#"...|
00000ED0: DC 05 98 31 35 2C 22 55 31 3A 22 3B 32 3B 30 3B |...15,"U1:";2;0;|
00000EE0: 31 38 3B 30 3A 8D 31 36 37 30 00 0D 17 E6 05 98 |18;0:.1670......|
00000EF0: 31 35 2C 22 42 2D 50 3A 22 3B 32 3B 32 3A 98 32 |15,"B-P:";2;2:.2|
00000F00: 2C C7 28 37 38 29 3B 3A 8D 31 36 37 30 00 2A 17 |,.(78);:.1670.*.|
00000F10: F0 05 98 31 35 2C 22 55 32 3A 22 3B 32 3B 30 3B |...15,"U2:";2;0;|
00000F20: 31 38 3B 30 3A 8D 31 36 37 30 00 3E 17 FA 05 A0 |18;0:.1670.>....|
00000F30: 32 3A 98 31 35 2C 22 49 30 22 3A A0 31 35 00 6D |2:.15,"I0":.15.m|
00000F40: 17 04 06 99 22 93 11 11 20 43 55 52 52 45 4E 54 |...."... CURRENT|
00000F50: 20 44 49 53 4B 20 49 53 20 4E 4F 57 20 12 05 20 | DISK IS NOW .. |
00000F60: 50 52 4F 54 45 43 54 45 44 20 9A 92 22 00 7E 17 |PROTECTED ..".~.|
00000F70: 0E 06 99 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 AC |...".":.2060:...|
00000F80: 17 18 06 99 22 93 05 20 20 49 4E 53 45 52 54 20 |....".. INSERT |
00000F90: 44 49 53 4B 20 54 4F 20 42 45 20 12 20 55 4E 50 |DISK TO BE . UNP|
00000FA0: 52 4F 54 45 43 54 45 44 20 92 9E 22 00 B6 17 22 |ROTECTED .."..."|
00000FB0: 06 8D 32 30 36 30 00 D3 17 2C 06 9F 31 35 2C 38 |..2060...,..15,8|
00000FC0: 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C |,15,"I0":.2,8,2,|
00000FD0: 22 23 22 00 F0 17 36 06 98 31 35 2C 22 55 31 3A |"#"...6..15,"U1:|
00000FE0: 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 31 36 37 30 |";2;0;18;0:.1670|
00000FF0: 00 13 18 40 06 98 31 35 2C 22 42 2D 50 3A 22 3B |...@..15,"B-P:";|
00001000: 32 3B 32 3A 98 32 2C C7 28 36 35 29 3B 3A 8D 31 |2;2:.2,.(65);:.1|
00001010: 36 37 30 00 36 18 4A 06 98 31 35 2C 22 4D 2D 57 |670.6.J..15,"M-W|
00001020: 22 3B C7 28 31 29 3B C7 28 31 29 3B C7 28 31 29 |";.(1);.(1);.(1)|
00001030: 3B C7 28 36 35 29 00 59 18 54 06 98 31 35 2C 22 |;.(65).Y.T..15,"|
00001040: 4D 2D 57 22 3B C7 28 32 29 3B C7 28 37 29 3B C7 |M-W";.(2);.(7);.|
00001050: 28 31 29 3B C7 28 36 35 29 00 76 18 5E 06 98 31 |(1);.(65).v.^..1|
00001060: 35 2C 22 55 32 3A 22 3B 32 3B 30 3B 31 38 3B 30 |5,"U2:";2;0;18;0|
00001070: 3A 8D 31 36 37 30 00 8A 18 68 06 A0 32 3A 98 31 |:.1670...h..2:.1|
00001080: 35 2C 22 49 30 22 3A A0 31 35 00 BA 18 72 06 99 |5,"I0":.15...r..|
00001090: 22 93 11 11 43 55 52 52 45 4E 54 20 44 49 53 4B |"...CURRENT DISK|
000010A0: 20 49 53 20 4E 4F 57 20 12 05 20 55 4E 50 52 4F | IS NOW .. UNPRO|
000010B0: 54 45 43 54 45 44 20 92 9A 22 00 CB 18 7C 06 99 |TECTED .."...|..|
000010C0: 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 E0 18 86 06 |".":.2060:......|
000010D0: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
000010E0: 00 FB 18 90 06 8B 45 4E A7 99 22 11 22 45 4E 2C |......EN.."."EN,|
000010F0: 45 4D 24 2C 45 54 2C 45 53 3A 90 00 01 19 9A 06 |EM$,ET,ES:......|
00001100: 8E 00 0A 19 A4 06 8F 22 8D 90 00 2F 19 AE 06 8F |.......".../....|
00001110: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001130: 54 19 B8 06 8F 20 2A 20 20 20 20 54 48 45 20 46 |T.... * THE F|
00001140: 4F 4C 4C 4F 57 49 4E 47 20 52 4F 55 54 49 4E 45 |OLLOWING ROUTINE|
00001150: 20 20 20 2A 00 79 19 C2 06 8F 20 2A 20 52 45 41 | *.y.... * REA|
00001160: 44 53 20 41 4E 44 20 50 52 49 4E 54 53 20 54 48 |DS AND PRINTS TH|
00001170: 45 20 4C 4F 41 44 20 20 2A 00 9E 19 CC 06 8F 20 |E LOAD *...... |
00001180: 2A 20 41 44 44 52 45 53 53 20 4F 46 20 49 4E 50 |* ADDRESS OF INP|
00001190: 55 54 54 45 44 20 46 49 4C 45 2E 20 20 2A 00 C3 |UTTED FILE. *..|
000011A0: 19 D6 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011C0: 2A 2A 2A 00 C9 19 E0 06 8F 00 D2 19 EA 06 99 22 |***............"|
000011D0: 93 22 00 F9 19 F4 06 99 22 05 20 20 20 20 20 20 |."......". |
000011E0: 20 20 20 12 20 46 49 4C 45 20 4C 4F 41 44 20 41 | . FILE LOAD A|
000011F0: 44 44 52 45 53 53 20 92 22 00 11 1A FE 06 85 22 |DDRESS ."......"|
00001200: 11 11 11 20 46 49 4C 45 20 4E 41 4D 45 22 3B 46 |... FILE NAME";F|
00001210: 24 00 29 1A 08 07 99 22 11 20 4C 4F 41 44 20 41 |$.)....". LOAD A|
00001220: 44 44 52 45 53 53 3A 22 3B 00 3C 1A 12 07 9F 31 |DDRESS:";.<....1|
00001230: 2C 38 2C 33 2C 22 30 3A 22 AA 46 24 00 47 1A 1C |,8,3,"0:".F$.G..|
00001240: 07 A1 23 31 2C 4C 24 00 52 1A 26 07 A1 23 31 2C |..#1,L$.R.&..#1,|
00001250: 48 24 00 61 1A 30 07 8B 48 24 B2 22 22 A7 58 B2 |H$.a.0..H$."".X.|
00001260: 30 00 6D 1A 3A 07 58 B2 C6 28 48 24 29 00 85 1A |0.m.:.X..(H$)...|
00001270: 44 07 48 49 B2 58 AC 32 35 36 3A 8B 4C 24 B2 22 |D.HI.X.256:.L$."|
00001280: 22 A7 58 B2 30 00 91 1A 4E 07 58 B2 C6 28 4C 24 |".X.0...N.X..(L$|
00001290: 29 00 AD 1A 58 07 4C 4F B2 58 3A 99 22 12 9E 22 |)...X.LO.X:.".."|
000012A0: 48 49 AA 4C 4F 3B 3A 99 22 9D 20 92 22 00 B4 1A |HI.LO;:.". ."...|
000012B0: 62 07 A0 31 00 C0 1A 6C 07 8D 32 30 36 30 3A 8E |b..1...l..2060:.|
000012C0: 00 C9 1A 76 07 8F 22 8D 9B 00 EE 1A 80 07 8F 20 |...v.."........ |
000012D0: 2A 2A 2A 2A 2A 2A 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 00 13 |**************..|
000012F0: 1B 8A 07 8F 20 2A 20 20 52 45 41 44 20 44 49 53 |.... * READ DIS|
00001300: 4B 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 20 |K ERROR CHANNEL |
00001310: 20 20 2A 00 38 1B 94 07 8F 20 2A 2A 2A 2A 2A 2A | *.8.... ******|
00001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 1B 9E 07 8F 00 6B |********.>.....k|
00001340: 1B A8 07 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |...."...........|
00001350: 05 20 43 55 52 52 45 4E 54 20 44 49 53 4B 20 53 |. CURRENT DISK S|
00001360: 54 41 54 55 53 20 11 11 11 92 22 00 78 1B B2 07 |TATUS ....".x...|
00001370: 9F 31 35 2C 38 2C 31 35 00 89 1B BC 07 84 31 35 |.15,8,15......15|
00001380: 2C 45 2C 45 24 2C 54 2C 53 00 9F 1B C6 07 99 A3 |,E,E$,T,S.......|
00001390: 31 33 29 45 3B 45 24 3B 54 3B 53 3A A0 31 35 00 |13)E;E$;T;S:.15.|
000013A0: B0 1B D0 07 99 22 9E 22 3A 8D 32 30 36 30 3A 8E |.....".":.2060:.|
000013B0: 00 B9 1B DA 07 8F 22 8D 9E 00 DE 1B E4 07 8F 20 |......"........ |
000013C0: 2A 2A 2A 2A 2A 2A 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 00 03 |**************..|
000013E0: 1C EE 07 8F 20 2A 20 56 41 52 49 4F 55 53 20 4D |.... * VARIOUS M|
000013F0: 45 53 53 41 47 45 20 52 4F 55 54 49 4E 45 53 20 |ESSAGE ROUTINES |
00001400: 20 20 2A 00 28 1C F8 07 8F 20 2A 2A 2A 2A 2A 2A | *.(.... ******|
00001410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 00 2E 1C 02 08 8F 00 5B |********.......[|
00001430: 1C 0C 08 99 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D |...."...........|
00001440: 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |.PRESS ANY KEY T|
00001450: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 74 1C 16 08 |O CONTINUE".t...|
00001460: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 |.198,0:.198,1:.1|
00001470: 39 38 2C 30 00 7A 1C 20 08 8E 00 AB 1C 2A 08 99 |98,0.z. .....*..|
00001480: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E |"...............|
00001490: 20 53 45 4C 45 43 54 20 4C 45 54 54 45 52 20 22 | SELECT LETTER "|
000014A0: 3A 81 49 B2 31 A4 31 35 30 3A 82 00 DF 1C 34 08 |:.I.1.150:....4.|
000014B0: 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |."............. |
000014C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 91 | ..|
000014D0: 91 22 3A 81 49 B2 31 A4 31 35 30 3A 82 3A 8E 00 |.":.I.1.150:.:..|
000014E0: E8 1C 3E 08 99 22 93 22 00 00 00 |..>.."."... |
.......2080:........EASY BASIC......(..E
.+ ...I..+.A........ Y.L..L. ......"...K
....53280,9:.53281,9:."..";......"......
. ".C.(.."..
..... THE EASY-DISK UTILITY "...2.
."....... ".
..<.."...........(C).N.HIGGINS.1988".4.F
.."....................MENU".`.P..".....
.. "...Z..".
...... A)..READ DISK DIRECTORY "...D
.."....... "
...N.."....... B)..CHANGE DISK NAME/ID
"...X..".......
".<...."....... C)..WRITE PROTECT
/UNPROTECT ".H....".......
"......"....... D)..FIND
LOAD ADDRESS "... ..".......
"......"....... E
)..READ ERROR CHANNEL "......".....
.. ".2....A$
:.A$.""..2090:.190.M.H.A.F(A$):.A.65.A.6
9.190.R.R.A.A.64:.A.290,490,1370,1770,19
60.Z....20......"........ **************
*****************.O.... * THE FOLLOWI
NG ROUTINE *...... * READS THE DISK D
IRECTORY. *...... ********************
***********.!.....>.".."................
.....".W.,..1,8,0,"$":.#1,X$,X$.~.6..#1,
X$,X$:.ST. 1:."......":.2060:....@.."
";...J..#1,X$...T..X$."".X$.G(0)...^.L
O.F(X$).B.H..#1,X$.U.R..X$."".X$.G(0)...
|.HI.F(X$).256:BL.LO.HI:.BL;......#1,X$.
.....X$.""..:.310......X$;:.390.(...."..
.N.... *******************************.T
.... * THE NEXT ROUTINE WILL READ *...B
.. * OR CHANGE THE CURRENT DISK- *...L..
* NAME OR DISK-ID............ *...V.. *
******************************..........
..".".....U$."0":BG.E(U$):HT$.U$.#....(B
G.254)..500.W....". VIEW/CHANGE DISK-.
.N..AME OR DISK-..I..D"._....Y$.....Y$.
."N".Y$.."I"..2090:.530...&..:.15,8,15..
.0..15,;...:..15,("I".HT$)...D..1,8,3,"#
".C.N..15,;.P.X.."U1:3";.Y.B..BG;...L..1
5,",18,0"...V.. Y$."N"..860......15,;...
...15,"B-P:3,162".@....#1,A$:.#1,B$:.#1,
C$:.#1,D$:.#1,E$.D...."... CURRENT DIS
K-ID IS: .";......A$;:.B$;:.C$;:.D$;:.E$
:."."......1110......".. ENTER NEW DISK-
ID (MAX 5 CHARACTERS).".H.F..BG$...P.. C
(BG$)..4 . I$.H((BG$." "),5)...Z..15,;..
....15,"B-P:3,162"......1,;......BG$;.&.
...1,;.0....15,;.=...."U2:3";.F. ..BG;.V
.*..15,",18,0".R.4.I$.("I".J(D(BG),2,255
)).|.>..15,;...H..15,I$...R. 1: 15:.".":
.2060:....\..15,;...F..15,"B-P:3,144".H.
P.DN$."".P.Z.L.1......L.L.16......#1,A$.
....DN$.(DN$.A$)......."...."... CURRENT
DISK-NAME IS: .";.6....DN$:.".":.1110.G
...."..ENTER NEW DISK-NAME (MAX 16 CHARA
CTERS)".Q.J.."..".Z.T..ND$...........ND$
.H((ND$." "),16)......15,;.
C....15,"B-P:3,144".L....1,;.V....ND$;..
....1,;...$..15,;......"U2:3";...8..BG;.
..B..15,",18,0"...L..820.E.V.."......DO
YOU WANT TO CHANGE IT? .Y/N.".M.`..X$.H.
J..X$.."Y".X$.."N"..1120...T..X$."N". 1:
15:.:.20...~........"........ *********
*********************.Z.... * THE NEXT R
OUTINE WILL .... *...... * PROTECT OR UN
PROTECT A DISK*.$.... * IN A 1541 DRIVE.
*.I.... * -------------------
------- *.N.D.. * IT PROTECTS BY CHANGIN
G *...N.. * THE DISK ID FORMAT DIRECT
LY*...X.. * AT LOCATION - *
...... * -------------------------- *...
... * AND IT UPROTECTS BY *.'....
* CHANGING THE ID FORMAT BACK*.L.... *
TO CHR$( *.Q.... *****
*************************...... * I SUGG
EST YOU PUT A MARKER *...... * ON ANY DI
SKS YOU (PROTECT) *...(.. * SO YOU WILL
KNOW TO RE-USE *...2.. * THIS PROGRAM WH
EN YOU WANT *.*.<.. * TO WRITE BACK TO I
T.(PHEW) *.O.F.. ***********************
*******.U.P..._.Z..".";...D..". ......
............................"...N.." .
SOFTWARE WRITE PROTECT/UNPROTECT "...X.
.".... WHICH DO YOU REQUIRE?"...
...".. . . .".2....".
.P.ROTECT OR ..U.NPROTECT DISK.".M....
X$:.X$.""..2090:.1430.^. ..X$."P".1470.O
....X$."U".1560.Y....1430......".. INS
ERT DISK TO BE . PROTECTED .."...H..2060
.M.R..15,8,15,"I0":.2,8,2,"#"......15,"U
1:";2;0;18;0:.1670......15,"B-P:";2;2:.2
,G(78);:.1670.*....15,"U2:";2;0;18;0:.16
70.>... 2:.15,"I0": 15.M...."... CURRENT
DISK IS NOW .. PROTECTED ..".~....".":.
2060:.......".. INSERT DISK TO BE . UNP
ROTECTED .."..."..2060.S.,..15,8,15,"I0"
:.2,8,2,"#"...6..15,"U1:";2;0;18;0:.1670
...@..15,"B-P:";2;2:.2,G(65);:.1670.6.J.
.15,"M-W";G(1);G(1);G(1);G(65).Y.T..15,"
M-W";G(2);G(7);G(1);G(65).V.^..15,"U2:";
2;0;18;0:.1670...H. 2:.15,"I0": 15...R..
"...CURRENT DISK IS NOW .. UNPROTECTED .
.".K.|..".":.2060:.......15,EN,EM$,ET,ES
......EN.."."EN,EM$,ET,ES:............."
.../.... ******************************.
T.... * THE FOLLOWING ROUTINE *.Y.B
.. * READS AND PRINTS THE LOAD *...L..
* ADDRESS OF INPUTTED FILE. *.C.V.. ***
***************************.I.....R...."
."......". . FILE LOAD ADDRESS .
"......"... FILE NAME";F$.)....". LOAD A
DDRESS:";.<....1,8,3,"0:".F$.G....#1,L$.
R.&..#1,H$.A.0..H$."".X.0.M.:.X.F(H$)...
D.HI.X.256:.L$."".X.0...N.X.F(L$)...X.LO
.X:.".."HI.LO;:.". ."...B. 1...L..2060:.
.I.V.."........ ************************
******...... * READ DISK ERROR CHANNEL
*.8.... ******************************
.>.....K...."............ CURRENT DISK S
TATUS ....".X....15,8,15......15,E,E$,T,
S...F...13)E;E$;T;S: 15...P..".":.2060:.
...Z.."........ ************************
******...... * VARIOUS MESSAGE ROUTINES
*.(.... ******************************
.......[...."............PRESS ANY KEY T
O CONTINUE".T....198,0:.198,1:.198,0.Z.
.....*.."............... SELECT LETTER "
:.I.1.150:....4..".............
...":.I.1.150:.:....>.."."...
> CLICK IMAGE PREVIEW FOR FULL MODAL