RENAME DISK/ID
FILE INFORMATION
FILENAME(S): RENAME DISK/ID
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 1 disk(s)
FILE HASH
49d6be8f428b87705fdd5559a3303c3c036907e7519f0e1ca03d19a7dd04b02e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLIC DOMAIN | RENAME DISK/ID | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..(.... *******| 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 00 4F 08 14 00 8F 20 20 |********.O.... | 00000030: 2A 2A 20 52 45 4E 41 4D 45 20 26 2F 4F 52 20 52 |** RENAME &/OR R| 00000040: 45 4E 55 4D 42 45 52 20 44 49 53 4B 20 2A 2A 00 |ENUMBER DISK **.| 00000050: 76 08 1E 00 8F 20 20 2A 2A 20 20 20 20 4F 4E 20 |v.... ** ON | 00000060: 31 35 34 31 20 46 4C 4F 50 50 59 20 44 49 53 4B |1541 FLOPPY DISK| 00000070: 20 20 20 20 2A 2A 00 9D 08 28 00 8F 20 20 2A 2A | **...(.. **| 00000080: 20 20 20 20 20 20 20 42 59 20 20 4A 4F 45 20 42 | BY JOE B| 00000090: 49 5A 49 4B 20 20 20 20 20 20 20 2A 2A 00 C4 08 |IZIK **...| 000000A0: 32 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2.. ***********| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 00 E9 08 3C 00 97 35 33 32 38 31 2C |****...<..53281,| 000000D0: 31 3A 97 35 33 32 38 30 2C 31 3A 44 56 B2 30 3A |1:.53280,1:DV.0:| 000000E0: 97 34 39 32 34 36 2C 31 30 00 3B 09 46 00 43 31 |.49246,10.;.F.C1| 000000F0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00000100: 11 11 11 1D 1D 1D 22 3A 43 32 24 B2 22 13 11 11 |......":C2$."...| 00000110: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D |................| 00000120: 1D 1D 22 3A 42 31 24 B2 22 13 11 11 11 11 11 11 |..":B1$.".......| 00000130: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 00 71 09 50 00 |............q.P.| 00000140: 43 33 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |C3$."...........| 00000150: 11 11 11 1D 1D 1D 22 3A 43 34 24 B2 22 13 11 11 |......":C4$."...| 00000160: 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |................| 00000170: 22 00 99 09 5A 00 44 31 24 B2 22 13 11 11 11 11 |"...Z.D1$.".....| 00000180: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000190: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 C3 09 64 00 44 33 |........"...d.D3| 000001A0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 000001B0: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................| 000001C0: 1D 1D 22 00 01 0A 6E 00 53 31 24 B2 22 1D 1F 4E |.."...n.S1$."..N| 000001D0: 41 4D 45 20 26 20 49 44 20 23 20 43 48 41 4E 47 |AME & ID # CHANG| 000001E0: 45 22 3A 53 32 24 B2 22 5F 5D 5D 5D 5D 5D 5D 5D |E":S2$."_]]]]]]]| 000001F0: 4E 41 4D 45 20 43 48 41 4E 47 45 20 4F 4E 4C 59 |NAME CHANGE ONLY| 00000200: 22 00 1D 0A 78 00 8D 31 30 38 30 3A 8D 31 31 33 |"...x..1080:.113| 00000210: 30 3A 8D 31 32 31 30 3A 8D 31 35 36 30 00 5D 0A |0:.1210:.1560.].| 00000220: 82 00 81 54 33 B2 31 A4 33 3A 99 43 31 24 AA 22 |...T3.1.3:.C1$."| 00000230: 11 1D 1D 1D 1D 1D 1C 4D 41 4B 45 20 41 20 53 45 |.......MAKE A SE| 00000240: 4C 45 43 54 49 4F 4E 20 20 31 2C 32 2C 33 22 3A |LECTION 1,2,3":| 00000250: 81 54 34 B2 31 A4 31 35 30 3A 82 54 34 00 99 0A |.T4.1.150:.T4...| 00000260: 8C 00 99 43 31 24 AA 22 11 20 20 20 20 20 20 20 |...C1$.". | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 20 20 20 20 20 20 22 3A 81 54 35 B2 31 A4 31 35 | ":.T5.1.15| 00000290: 30 3A 82 54 35 3A 82 54 33 00 C3 0A 96 00 99 43 |0:.T5:.T3......C| 000002A0: 31 24 AA 22 11 1D 1D 1D 1D 1D 1C 4D 41 4B 45 20 |1$.".......MAKE | 000002B0: 41 20 53 45 4C 45 43 54 49 4F 4E 20 20 31 2C 32 |A SELECTION 1,2| 000002C0: 2C 33 22 00 D8 0A A0 00 A1 41 31 24 3A 8B 41 31 |,3"......A1$:.A1| 000002D0: 24 B2 22 22 A7 31 36 30 00 E9 0A AA 00 8B 41 31 |$."".160......A1| 000002E0: 24 B2 22 31 22 A7 32 31 30 00 FA 0A B4 00 8B 41 |$."1".210......A| 000002F0: 31 24 B2 22 32 22 A7 32 31 30 00 0B 0B BE 00 8B |1$."2".210......| 00000300: 41 31 24 B2 22 33 22 A7 32 31 30 00 14 0B C8 00 |A1$."3".210.....| 00000310: 89 31 36 30 00 30 0B D2 00 8D 31 30 38 30 3A 8D |.160.0....1080:.| 00000320: 31 32 38 30 3A 8D 31 32 31 30 3A 8D 31 35 36 30 |1280:.1210:.1560| 00000330: 00 71 0B DC 00 81 54 33 B2 31 A4 33 3A 99 43 33 |.q....T3.1.3:.C3| 00000340: 24 AA 22 11 1C 20 20 20 20 49 4E 53 45 52 54 20 |$.".. INSERT | 00000350: 44 49 53 4B 20 54 4F 20 42 45 20 43 48 41 4E 47 |DISK TO BE CHANG| 00000360: 45 44 22 3A 81 54 34 B2 31 A4 31 35 30 3A 82 54 |ED":.T4.1.150:.T| 00000370: 34 00 AE 0B E6 00 99 43 33 24 AA 22 11 20 20 20 |4......C3$.". | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 22 3A 81 54 35 | ":.T5| 000003A0: B2 31 A4 31 35 30 3A 82 54 35 3A 82 54 33 00 D8 |.1.150:.T5:.T3..| 000003B0: 0B F0 00 99 43 33 24 AA 22 1F 20 20 20 20 49 4E |....C3$.". IN| 000003C0: 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 |SERT DISK TO BE | 000003D0: 43 48 41 4E 47 45 44 22 00 04 0C FA 00 99 43 34 |CHANGED"......C4| 000003E0: 24 AA 22 1C 20 20 20 20 50 52 45 53 53 20 12 20 |$.". PRESS . | 000003F0: 52 45 54 55 52 4E 20 92 20 57 48 45 4E 20 52 45 |RETURN . WHEN RE| 00000400: 41 44 59 22 00 19 0C 04 01 A1 41 32 24 3A 8B 41 |ADY"......A2$:.A| 00000410: 32 24 B2 22 22 A7 32 36 30 00 2B 0C 0E 01 8B 41 |2$."".260.+....A| 00000420: 32 24 B3 B1 C7 28 31 33 29 A7 8A 00 3D 0C 18 01 |2$...(13)...=...| 00000430: 8B 41 31 24 B2 22 31 22 A7 89 33 32 30 00 4F 0C |.A1$."1"..320.O.| 00000440: 22 01 8B 41 31 24 B2 22 32 22 A7 89 33 32 30 00 |"..A1$."2"..320.| 00000450: 61 0C 2C 01 8B 41 31 24 B2 22 33 22 A7 89 35 35 |a.,..A1$."3"..55| 00000460: 30 00 6A 0C 36 01 89 32 36 30 00 90 0C 40 01 8F |0.j.6..260...@..| 00000470: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 45 4E 41 4D | ********* RENAM| 00000480: 45 20 44 49 53 4B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |E DISK *********| 00000490: 00 BA 0C 4A 01 8D 36 37 30 3A 8D 31 30 38 30 3A |...J..670:.1080:| 000004A0: 8D 31 32 38 30 3A 8D 31 32 31 30 3A 8D 31 33 37 |.1280:.1210:.137| 000004B0: 30 3A 99 44 31 24 AA 44 32 24 00 CC 0C 54 01 8B |0:.D1$.D2$...T..| 000004C0: 41 31 24 B2 22 31 22 A7 89 33 36 30 00 DE 0C 5E |A1$."1"..360...^| 000004D0: 01 8B 41 31 24 B2 22 32 22 A7 89 34 38 30 00 E8 |..A1$."2"..480..| 000004E0: 0C 68 01 8D 31 35 36 30 00 28 0D 72 01 81 54 33 |.h..1560.(.r..T3| 000004F0: B2 31 A4 33 3A 99 43 33 24 22 1D 1D 1D 1D 1C 54 |.1.3:.C3$".....T| 00000500: 59 50 45 20 44 49 53 4B 27 53 20 4E 45 57 20 4E |YPE DISK'S NEW N| 00000510: 41 4D 45 20 2C 20 49 44 23 22 3A 81 54 34 B2 31 |AME , ID#":.T4.1| 00000520: A4 31 35 30 3A 82 54 34 00 65 0D 7C 01 99 43 33 |.150:.T4.e.|..C3| 00000530: 24 22 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 20 20 20 20 | | 00000550: 20 20 22 3A 81 54 35 B2 31 A4 31 35 30 3A 82 54 | ":.T5.1.150:.T| 00000560: 35 3A 82 54 33 00 8C 0D 86 01 99 43 33 24 22 1D |5:.T3......C3$".| 00000570: 1D 1D 1D 1D 1D 1D 1C 54 59 50 45 20 44 49 53 4B |.......TYPE DISK| 00000580: 27 53 20 4E 45 57 20 4E 41 4D 45 22 00 A8 0D 90 |'S NEW NAME"....| 00000590: 01 99 43 34 24 22 1F 28 31 36 2D 43 48 41 52 45 |..C4$".(16-CHARE| 000005A0: 43 54 45 52 53 29 22 3B 00 B1 0D 9A 01 85 4E 4E |CTERS)";......NN| 000005B0: 24 00 CC 0D A4 01 8B C8 28 4E 4E 24 2C 31 29 B2 |$.......(NN$,1).| 000005C0: 22 2A 22 A7 4E 4E 24 B2 22 22 3A 8A 00 02 0E AE |"*".NN$."":.....| 000005D0: 01 99 43 34 24 22 20 20 20 20 20 20 20 20 20 20 |..C4$" | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005F0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 35 | ":.15| 00000600: 36 30 00 4B 0E B8 01 99 43 33 24 22 20 20 20 20 |60.K....C3$" | 00000610: 20 20 1C 54 59 50 45 20 44 49 53 4B 27 53 20 4E | .TYPE DISK'S N| 00000620: 45 57 20 49 44 23 20 20 20 20 20 20 22 3A 99 43 |EW ID# ":.C| 00000630: 34 24 22 1F 20 20 20 20 20 20 20 28 32 2D 43 48 |4$". (2-CH| 00000640: 41 52 45 43 54 45 52 53 29 22 3B 00 53 0E C2 01 |ARECTERS)";.S...| 00000650: 85 49 24 00 6C 0E CC 01 8B C8 28 49 24 2C 31 29 |.I$.l.....(I$,1)| 00000660: B2 22 2A 22 A7 49 24 B2 22 22 3A 8A 00 8E 0E D6 |."*".I$."":.....| 00000670: 01 4E 4E 24 B2 C8 28 4E 4E 24 2C 31 36 29 3A 49 |.NN$..(NN$,16):I| 00000680: 24 B2 C8 28 49 24 2C 32 29 3A 89 37 34 30 00 98 |$..(I$,2):.740..| 00000690: 0E E0 01 8D 31 35 36 30 00 D6 0E EA 01 81 54 33 |....1560......T3| 000006A0: B2 31 A4 33 3A 99 43 33 24 22 1D 1D 1D 1D 1D 1D |.1.3:.C3$"......| 000006B0: 1D 1D 1C 54 59 50 45 20 44 49 53 4B 27 53 20 4E |...TYPE DISK'S N| 000006C0: 45 57 20 4E 41 4D 45 22 3A 81 54 34 B2 31 A4 31 |EW NAME":.T4.1.1| 000006D0: 35 30 3A 82 54 34 00 12 0F F4 01 99 43 33 24 22 |50:.T4......C3$"| 000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000700: 3A 81 54 35 B2 31 A4 31 35 30 3A 82 54 35 3A 82 |:.T5.1.150:.T5:.| 00000710: 54 33 00 3A 0F FE 01 99 43 33 24 22 1D 1D 1D 1D |T3.:....C3$"....| 00000720: 1D 1D 1D 1D 1C 54 59 50 45 20 44 49 53 4B 27 53 |.....TYPE DISK'S| 00000730: 20 4E 45 57 20 4E 41 4D 45 22 00 56 0F 08 02 99 | NEW NAME".V....| 00000740: 43 34 24 22 1F 28 31 36 2D 43 48 41 52 41 43 54 |C4$".(16-CHARACT| 00000750: 45 52 53 29 22 3B 00 5F 0F 12 02 85 4E 4E 24 00 |ERS)";._....NN$.| 00000760: 76 0F 1C 02 4E 4E 24 B2 C8 28 4E 4E 24 2C 31 36 |v...NN$..(NN$,16| 00000770: 29 3A 89 37 34 30 00 9C 0F 26 02 8F 20 2A 2A 2A |):.740...&.. ***| 00000780: 2A 2A 2A 2A 2A 20 52 45 4E 55 4D 42 45 52 20 44 |***** RENUMBER D| 00000790: 49 53 4B 20 2A 2A 2A 2A 2A 2A 2A 2A 00 C6 0F 30 |ISK ********...0| 000007A0: 02 8D 36 37 30 3A 8D 31 30 38 30 3A 8D 31 32 38 |..670:.1080:.128| 000007B0: 30 3A 8D 31 32 31 30 3A 8D 31 33 37 30 3A 99 44 |0:.1210:.1370:.D| 000007C0: 31 24 AA 44 32 24 00 CF 0F 3A 02 89 35 38 30 00 |1$.D2$...:..580.| 000007D0: D9 0F 44 02 8D 31 35 36 30 00 16 10 4E 02 81 54 |..D..1560...N..T| 000007E0: 33 B2 31 A4 33 3A 99 43 33 24 22 1D 1D 1D 1D 1D |3.1.3:.C3$".....| 000007F0: 1D 1D 1D 1C 54 59 50 45 20 44 49 53 4B 27 53 20 |....TYPE DISK'S | 00000800: 4E 45 57 20 49 44 23 22 3A 81 54 34 B2 31 A4 31 |NEW ID#":.T4.1.1| 00000810: 35 30 3A 82 54 34 00 52 10 58 02 99 43 33 24 22 |50:.T4.R.X..C3$"| 00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000840: 3A 81 54 35 B2 31 A4 31 35 30 3A 82 54 35 3A 82 |:.T5.1.150:.T5:.| 00000850: 54 33 00 79 10 62 02 99 43 33 24 22 1D 1D 1D 1D |T3.y.b..C3$"....| 00000860: 1D 1D 1D 1D 1C 54 59 50 45 20 44 49 53 4B 27 53 |.....TYPE DISK'S| 00000870: 20 4E 45 57 20 49 44 23 22 00 9F 10 6C 02 99 43 | NEW ID#"...l..C| 00000880: 34 24 A3 34 29 22 1F 20 20 20 20 20 20 20 20 28 |4$.4)". (| 00000890: 32 2D 43 48 41 52 41 43 54 45 52 53 29 22 3B 00 |2-CHARACTERS)";.| 000008A0: A7 10 76 02 85 49 24 00 C0 10 80 02 8B C8 28 49 |..v..I$.......(I| 000008B0: 24 2C 31 29 B2 22 2A 22 A7 49 24 B2 22 22 3A 8A |$,1)."*".I$."":.| 000008C0: 00 D4 10 8A 02 49 24 B2 C8 28 49 24 2C 32 29 3A |.....I$..(I$,2):| 000008D0: 89 37 34 30 00 E7 10 94 02 A1 4D 24 3A 8B 4D 24 |.740......M$:.M$| 000008E0: B2 22 22 A7 36 36 30 00 0E 11 9E 02 8F 20 2A 2A |."".660...... **| 000008F0: 2A 2A 2A 20 47 4F 53 55 42 20 52 45 41 44 20 44 |*** GOSUB READ D| 00000900: 49 53 4B 20 4E 41 4D 45 20 2A 2A 2A 2A 2A 00 2F |ISK NAME *****./| 00000910: 11 A8 02 99 22 93 11 11 11 11 22 3A 9F 31 2C 38 |....".....":.1,8| 00000920: 2C 32 2C 22 23 22 3A 9F 31 35 2C 38 2C 31 35 00 |,2,"#":.15,8,15.| 00000930: 4B 11 B2 02 98 31 35 2C 22 55 31 3A 32 22 3B 30 |K....15,"U1:2";0| 00000940: 3B 31 38 3B 30 3A 8D 31 34 34 30 00 6C 11 BC 02 |;18;0:.1440.l...| 00000950: 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 3A |.15,"B-P:2,144":| 00000960: 8D 31 34 34 30 3A 44 4E 24 B2 22 22 00 A7 11 C6 |.1440:DN$.""....| 00000970: 02 81 49 B2 31 A4 32 30 3A A1 23 31 2C 41 24 3A |..I.1.20:.#1,A$:| 00000980: 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A 49 44 24 |DN$.DN$.A$:.:ID$| 00000990: B2 C9 28 44 4E 24 2C 32 29 3A 44 4E 24 B2 C8 28 |..(DN$,2):DN$..(| 000009A0: 44 4E 24 2C 31 36 29 00 C7 11 D0 02 44 32 24 B2 |DN$,16).....D2$.| 000009B0: 22 1C 22 AA 44 4E 24 AA 22 1F 20 20 20 49 44 23 |".".DN$.". ID#| 000009C0: 1C 20 22 AA 49 44 24 00 DC 11 DA 02 A0 31 3A 98 |. ".ID$......1:.| 000009D0: 31 35 2C 22 49 22 3A A0 31 35 3A 8E 00 2A 12 E4 |15,"I":.15:..*..| 000009E0: 02 8F 20 2A 2A 2A 2A 20 45 4E 54 45 52 20 4E 45 |.. **** ENTER NE| 000009F0: 57 20 4E 41 4D 45 20 41 4E 44 2F 4F 52 20 2A 2A |W NAME AND/OR **| 00000A00: 2A 2A 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A |** *****| 00000A10: 2A 20 20 4E 45 57 20 49 44 23 20 4F 4E 20 44 49 |* NEW ID# ON DI| 00000A20: 53 4B 20 20 2A 2A 2A 2A 2A 2A 00 3B 12 EE 02 8B |SK ******.;....| 00000A30: 41 31 24 B2 22 31 22 A7 37 38 30 00 4C 12 F8 02 |A1$."1".780.L...| 00000A40: 8B 41 31 24 B2 22 32 22 A7 37 39 30 00 5D 12 02 |.A1$."2".790.]..| 00000A50: 03 8B 41 31 24 B2 22 33 22 A7 38 30 30 00 89 12 |..A1$."3".800...| 00000A60: 0C 03 8D 31 30 38 30 3A 8D 31 32 38 30 3A 8D 31 |...1080:.1280:.1| 00000A70: 32 31 30 3A 8D 31 33 37 30 3A 8D 31 30 35 30 3A |210:.1370:.1050:| 00000A80: 8D 39 31 30 3A 8D 38 31 30 00 B5 12 16 03 8D 31 |.910:.810......1| 00000A90: 30 38 30 3A 8D 31 32 38 30 3A 8D 31 32 31 30 3A |080:.1280:.1210:| 00000AA0: 8D 31 33 37 30 3A 8D 31 30 35 30 3A 8D 39 31 30 |.1370:.1050:.910| 00000AB0: 3A 89 38 31 30 00 E1 12 20 03 8D 31 30 38 30 3A |:.810... ..1080:| 00000AC0: 8D 31 32 38 30 3A 8D 31 32 31 30 3A 8D 31 33 37 |.1280:.1210:.137| 00000AD0: 30 3A 8D 31 30 35 30 3A 8D 39 31 30 3A 89 38 31 |0:.1050:.910:.81| 00000AE0: 30 00 04 13 2A 03 8F 20 2A 2A 2A 2A 2A 20 43 4F |0...*.. ***** CO| 00000AF0: 4E 43 4C 55 44 45 20 50 52 4F 47 52 41 4D 20 2A |NCLUDE PROGRAM *| 00000B00: 2A 2A 2A 2A 00 19 13 34 03 8D 36 37 30 3A 44 34 |****...4..670:D4| 00000B10: 24 B2 44 33 24 AA 44 32 24 00 45 13 3E 03 8D 31 |$.D3$.D2$.E.>..1| 00000B20: 30 38 30 3A 8D 31 32 38 30 3A 8D 31 32 31 30 3A |080:.1280:.1210:| 00000B30: 8D 31 33 37 30 3A 99 57 32 24 3A 99 44 34 24 3A |.1370:.W2$:.D4$:| 00000B40: 8D 31 35 36 30 00 74 13 48 03 81 54 33 B2 31 A4 |.1560.t.H..T3.1.| 00000B50: 35 3A 99 43 33 24 A3 31 35 29 22 11 1C 46 49 4E |5:.C3$.15)"..FIN| 00000B60: 49 53 48 45 44 22 3A 81 54 34 B2 31 A4 31 35 30 |ISHED":.T4.1.150| 00000B70: 3A 82 54 34 00 B1 13 52 03 99 43 33 24 22 11 20 |:.T4...R..C3$". | 00000B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00000BA0: 81 54 35 B2 31 A4 31 35 30 3A 82 54 35 3A 82 54 |.T5.1.150:.T5:.T| 00000BB0: 33 00 D7 13 5C 03 99 43 33 24 A3 31 30 29 22 1C |3...\..C3$.10)".| 00000BC0: 54 4F 20 44 4F 20 41 4E 4F 54 48 45 52 20 44 49 |TO DO ANOTHER DI| 00000BD0: 53 4B 20 20 20 20 22 00 F6 13 66 03 99 43 34 24 |SK "...f..C4$| 00000BE0: A3 31 32 29 22 50 52 45 53 53 20 12 20 52 45 54 |.12)"PRESS . RET| 00000BF0: 55 52 4E 20 92 22 00 09 14 70 03 A1 42 24 3A 8B |URN ."...p..B$:.| 00000C00: 42 24 B2 22 22 A7 38 38 30 00 19 14 7A 03 8B 42 |B$."".880...z..B| 00000C10: 24 B2 C7 28 31 33 29 A7 8A 00 1F 14 84 03 80 00 |$..(13).........| 00000C20: 45 14 8E 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 57 |E.... ******** W| 00000C30: 52 49 54 45 20 54 4F 20 44 49 53 4B 20 2A 2A 2A |RITE TO DISK ***| 00000C40: 2A 2A 2A 2A 2A 00 5D 14 98 03 9F 31 2C 38 2C 32 |*****.]....1,8,2| 00000C50: 2C 22 23 22 3A 9F 31 35 2C 38 2C 31 35 00 9D 14 |,"#":.15,8,15...| 00000C60: A2 03 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 |...15,"B-P:2,144| 00000C70: 22 3A 8D 31 34 34 30 3A 49 24 B2 22 20 20 22 AA |":.1440:I$." ".| 00000C80: 49 24 AA 22 20 32 41 20 22 3A 49 44 24 B2 22 20 |I$." 2A ":ID$." | 00000C90: 20 22 AA 49 44 24 AA 22 20 32 41 20 22 00 B4 14 | ".ID$." 2A "...| 00000CA0: AC 03 8B 41 31 24 B2 22 31 22 A7 8D 39 39 30 3A |...A1$."1"..990:| 00000CB0: 89 39 37 30 00 CC 14 B6 03 8B 41 31 24 B2 22 32 |.970......A1$."2| 00000CC0: 22 A7 8D 31 30 31 30 3A 89 39 37 30 00 E4 14 C0 |"..1010:.970....| 00000CD0: 03 8B 41 31 24 B2 22 33 22 A7 8D 31 30 33 30 3A |..A1$."3"..1030:| 00000CE0: 89 39 37 30 00 F6 14 CA 03 98 31 35 2C 22 49 22 |.970......15,"I"| 00000CF0: 3A 8D 31 34 34 30 00 0B 15 D4 03 A0 31 3A 98 31 |:.1440......1:.1| 00000D00: 35 2C 22 49 22 3A A0 31 35 3A 8E 00 1F 15 DE 03 |5,"I":.15:......| 00000D10: 98 31 2C 4E 4E 24 AA 49 24 3A 8D 31 34 34 30 00 |.1,NN$.I$:.1440.| 00000D20: 3D 15 E8 03 98 31 35 2C 22 55 32 3A 32 22 3B 30 |=....15,"U2:2";0| 00000D30: 3B 31 38 3B 30 3A 8D 31 34 34 30 3A 8E 00 52 15 |;18;0:.1440:..R.| 00000D40: F2 03 98 31 2C 4E 4E 24 AA 49 44 24 3A 8D 31 34 |...1,NN$.ID$:.14| 00000D50: 34 30 00 70 15 FC 03 98 31 35 2C 22 55 32 3A 32 |40.p....15,"U2:2| 00000D60: 22 3B 30 3B 31 38 3B 30 3A 8D 31 34 34 30 3A 8E |";0;18;0:.1440:.| 00000D70: 00 84 15 06 04 98 31 2C 44 4E 24 AA 49 24 3A 8D |......1,DN$.I$:.| 00000D80: 31 34 34 30 00 A2 15 10 04 98 31 35 2C 22 55 32 |1440......15,"U2| 00000D90: 3A 32 22 3B 30 3B 31 38 3B 30 3A 8D 31 34 34 30 |:2";0;18;0:.1440| 00000DA0: 3A 8E 00 BF 15 1A 04 8F 20 2A 2A 2A 2A 2A 20 47 |:....... ***** G| 00000DB0: 4F 53 55 42 20 57 41 49 54 20 2A 2A 2A 2A 2A 00 |OSUB WAIT *****.| 00000DC0: F2 15 24 04 57 31 24 B2 43 33 24 AA 22 1C 11 1D |..$.W1$.C3$."...| 00000DD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 4C 45 41 53 45 20 |.........PLEASE | 00000DE0: 20 57 41 49 54 22 3A 57 32 24 B2 44 31 24 AA 44 | WAIT":W2$.D1$.D| 00000DF0: 32 24 00 02 16 2E 04 99 57 31 24 3A 99 57 32 24 |2$......W1$:.W2$| 00000E00: 3A 8E 00 2F 16 38 04 99 22 93 90 20 20 20 20 20 |:../.8..".. | 00000E10: D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000E20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 |..............".| 00000E30: 5A 16 42 04 99 22 20 20 20 20 20 DD 20 52 45 4E |Z.B.." . REN| 00000E40: 41 4D 45 20 41 4E 44 2F 4F 52 20 52 45 4E 55 4D |AME AND/OR RENUM| 00000E50: 42 45 52 20 49 44 23 90 20 DD 00 84 16 4C 04 99 |BER ID#. ....L..| 00000E60: 22 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 |" . | 00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E80: 20 20 20 DD 00 AF 16 56 04 99 22 20 20 20 20 20 | ....V.." | 00000E90: DD 20 4F 46 20 44 49 53 4B 20 49 4E 20 54 48 45 |. OF DISK IN THE| 00000EA0: 20 20 31 35 34 31 20 20 55 4E 49 54 90 20 DD 00 | 1541 UNIT. ..| 00000EB0: DC 16 60 04 99 22 20 20 20 20 20 CA C0 C0 C0 C0 |..`.." .....| 00000EC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000ED0: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 3A 8E 00 05 17 6A |.........":....j| 00000EE0: 04 99 22 90 20 20 20 20 20 20 20 20 D5 C0 C0 C0 |..". ....| 00000EF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000F00: C0 C0 C0 C9 22 00 2F 17 74 04 99 22 20 20 20 20 |...."./.t.." | 00000F10: 20 20 20 20 DD 20 20 20 20 1C 4D 41 4B 45 20 53 | . .MAKE S| 00000F20: 45 4C 45 43 54 49 4F 4E 90 20 20 20 20 DD 22 00 |ELECTION. .".| 00000F30: 57 17 7E 04 99 22 20 20 20 20 20 20 20 20 DD 20 |W.~.." . | 00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F50: 20 20 20 20 20 DD 22 00 81 17 88 04 99 22 20 20 | ."......" | 00000F60: 20 20 20 20 20 20 DD 20 1F 31 2D 4E 41 4D 45 20 | . .1-NAME | 00000F70: 26 20 49 44 20 23 20 43 48 41 4E 47 45 90 20 DD |& ID # CHANGE. .| 00000F80: 22 00 AB 17 92 04 99 22 20 20 20 20 20 20 20 20 |"......" | 00000F90: DD 20 1F 32 2D 4E 41 4D 45 20 43 48 41 4E 47 45 |. .2-NAME CHANGE| 00000FA0: 20 4F 4E 4C 59 90 20 20 20 DD 22 00 D5 17 9C 04 | ONLY. .".....| 00000FB0: 99 22 20 20 20 20 20 20 20 20 DD 20 1F 33 2D 49 |." . .3-I| 00000FC0: 44 20 23 20 43 48 41 4E 47 45 20 4F 4E 4C 59 90 |D # CHANGE ONLY.| 00000FD0: 20 20 20 DD 22 00 FD 17 A6 04 99 22 20 20 20 20 | ."......" | 00000FE0: 20 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............| 00000FF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 03 18 |............"...| 00001000: B0 04 8E 00 21 18 BA 04 99 22 90 20 D5 C0 C0 C0 |....!....". ....| 00001010: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................| 00001020: 22 00 3F 18 C4 04 99 22 20 DD 20 55 53 45 52 20 |".?...." . USER | 00001030: 49 4E 53 54 52 55 43 54 49 4F 4E 90 20 DD 22 00 |INSTRUCTION. .".| 00001040: 6E 18 CE 04 99 22 20 DD 20 20 20 20 20 20 20 20 |n...." . | 00001050: 20 20 20 20 20 20 20 20 20 20 CA C0 C0 C0 C0 C0 | ......| 00001060: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 9D |............."..| 00001070: 18 D8 04 99 22 20 DD 20 20 20 20 20 20 20 20 20 |...." . | 00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001090: 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 CC 18 | ."...| 000010A0: E2 04 99 22 20 DD 20 20 20 20 20 20 20 20 20 20 |..." . | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010C0: 20 20 20 20 20 20 20 20 20 20 DD 22 00 FB 18 EC | ."....| 000010D0: 04 99 22 20 DD 20 20 20 20 20 20 20 20 20 20 20 |.." . | 000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010F0: 20 20 20 20 20 20 20 20 20 DD 22 00 2C 19 F6 04 | .".,...| 00001100: 99 22 20 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." .............| 00001110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001120: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 3A 8E 00 55 19 00 |.........":..U..| 00001130: 05 99 22 90 20 20 20 20 20 20 20 20 D5 C0 C0 C0 |..". ....| 00001140: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001150: C0 C0 C0 C9 22 00 7E 19 0A 05 99 22 20 20 20 20 |....".~...." | 00001160: 20 20 20 20 DD 20 20 20 20 53 45 4C 45 43 54 49 | . SELECTI| 00001170: 4F 4E 20 4D 41 44 45 90 20 20 20 20 DD 22 00 A6 |ON MADE. ."..| 00001180: 19 14 05 99 22 20 20 20 20 20 20 20 20 DD 20 20 |...." . | 00001190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011A0: 20 20 20 20 DD 22 00 CE 19 1E 05 99 22 20 20 20 | ."......" | 000011B0: 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 | . | 000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 F6 | ."..| 000011D0: 19 28 05 99 22 20 20 20 20 20 20 20 20 CA C0 C0 |.(.." ...| 000011E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000011F0: C0 C0 C0 C0 CB 22 00 1E 1A 32 05 8B 41 31 24 B2 |....."...2..A1$.| 00001200: 22 31 22 A7 99 42 31 24 AA 22 1F 20 52 45 4E 41 |"1"..B1$.". RENA| 00001210: 4D 45 20 26 20 52 45 4E 55 4D 42 45 52 22 00 43 |ME & RENUMBER".C| 00001220: 1A 3C 05 8B 41 31 24 B2 22 32 22 A7 99 42 31 24 |.<..A1$."2"..B1$| 00001230: AA 22 1F 20 20 20 20 52 45 4E 41 4D 45 20 4F 4E |.". RENAME ON| 00001240: 4C 59 22 00 69 1A 46 05 8B 41 31 24 B2 22 33 22 |LY".i.F..A1$."3"| 00001250: A7 99 42 31 24 AA 22 1F 20 20 20 52 45 4E 55 4D |..B1$.". RENUM| 00001260: 42 45 52 20 4F 4E 4C 59 22 00 73 1A 50 05 99 22 |BER ONLY".s.P.."| 00001270: 22 3A 8E 00 91 1A 5A 05 99 22 90 20 D5 C0 C0 C0 |":....Z..". ....| 00001280: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................| 00001290: 22 00 AF 1A 64 05 99 22 20 DD 20 44 49 53 4B 20 |"...d.." . DISK | 000012A0: 4E 41 4D 45 20 26 20 49 44 20 23 90 20 DD 22 00 |NAME & ID #. .".| 000012B0: DE 1A 6E 05 99 22 20 DD 20 20 20 20 20 20 20 20 |..n.." . | 000012C0: 20 20 20 20 20 20 20 20 20 20 CA C0 C0 C0 C0 C0 | ......| 000012D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 0D |............."..| 000012E0: 1B 78 05 99 22 20 DD 4F 4C 44 3A 20 20 20 20 20 |.x.." .OLD: | 000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001300: 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 3C 1B | .".<.| 00001310: 82 05 99 22 20 DD 20 20 20 20 20 20 20 20 20 20 |..." . | 00001320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001330: 20 20 20 20 20 20 20 20 20 20 DD 22 00 6B 1B 8C | .".k..| 00001340: 05 99 22 20 DD 4E 45 57 3A 20 20 20 20 20 20 20 |.." .NEW: | 00001350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001360: 20 20 20 20 20 20 20 20 20 DD 22 00 9C 1B 96 05 | .".....| 00001370: 99 22 20 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." .............| 00001380: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001390: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 3A 8E 00 C1 1B A0 |.........":.....| 000013A0: 05 8F 20 2A 2A 2A 2A 2A 20 52 45 41 44 20 45 52 |.. ***** READ ER| 000013B0: 52 4F 52 20 43 48 41 4E 4E 45 4C 20 2A 2A 2A 2A |ROR CHANNEL ****| 000013C0: 2A 00 D5 1B AA 05 84 31 35 2C 41 24 2C 42 24 2C |*......15,A$,B$,| 000013D0: 43 24 2C 44 24 00 E4 1B B4 05 8B 41 24 B2 22 30 |C$,D$......A$."0| 000013E0: 30 22 A7 8E 00 0D 1C BE 05 8D 31 35 32 30 3A 99 |0"........1520:.| 000013F0: 22 11 11 11 1F 20 20 20 20 20 45 52 52 4F 52 20 |".... ERROR | 00001400: 4E 55 4D 42 45 52 20 1C 22 41 24 3A 99 00 2D 1C |NUMBER ."A$:..-.| 00001410: C8 05 99 22 1F 20 20 20 20 20 54 52 41 43 4B 20 |...". TRACK | 00001420: 4E 55 4D 42 45 52 1C 20 22 43 24 3A 99 00 52 1C |NUMBER. "C$:..R.| 00001430: D2 05 99 22 1F 20 20 20 20 20 42 4C 4F 43 4B 20 |...". BLOCK | 00001440: 4E 55 4D 42 45 52 1C 20 22 44 24 22 1F 22 3A 99 |NUMBER. "D$".":.| 00001450: 3A 99 00 75 1C DC 05 99 22 1F 20 20 20 20 20 44 |:..u....". D| 00001460: 45 53 43 52 49 50 54 49 4F 4E 1C 20 3A 22 42 24 |ESCRIPTION. :"B$| 00001470: 3A 99 22 1F 22 00 8A 1C E6 05 98 31 35 2C 22 49 |:."."......15,"I| 00001480: 22 3A A0 31 3A A0 31 35 3A 80 00 BA 1C F0 05 99 |":.1:.15:.......| 00001490: 22 93 11 11 11 20 20 20 20 CF B7 B7 B7 B7 B7 B7 |".... .......| 000014A0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000014B0: B7 B7 B7 B7 B7 B7 B7 B7 D0 22 00 E6 1C FA 05 99 |........."......| 000014C0: 22 20 20 20 20 B4 20 2A 2A 2A 20 52 45 41 44 20 |" . *** READ | 000014D0: 20 45 52 52 4F 52 20 20 4F 4E 20 44 49 53 4B 20 | ERROR ON DISK | 000014E0: 2A 2A 2A 20 AA 22 00 12 1D 04 06 99 22 20 20 20 |*** ."......" | 000014F0: 20 CC AF AF AF AF AF AF AF AF AF AF AF AF AF AF | ...............| 00001500: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00001510: BA 22 00 18 1D 0E 06 8E 00 3F 1D 18 06 8F 20 2A |.".......?.... *| 00001520: 2A 2A 20 53 4F 55 4E 44 20 46 4F 52 20 46 49 4E |** SOUND FOR FIN| 00001530: 49 53 48 20 2D 20 47 4F 20 53 55 42 2A 2A 2A 00 |ISH - GO SUB***.| 00001540: 61 1D 22 06 97 35 34 32 39 36 2C 31 35 3A 97 35 |a."..54296,15:.5| 00001550: 34 32 37 37 2C 30 3A 97 35 34 32 37 38 2C 32 34 |4277,0:.54278,24| 00001560: 38 00 83 1D 2C 06 97 35 34 32 37 33 2C 33 33 3A |8...,..54273,33:| 00001570: 97 35 34 32 37 32 2C 33 37 3A 97 35 34 32 37 36 |.54272,37:.54276| 00001580: 2C 31 37 00 AB 1D 36 06 54 B2 30 3A 81 54 B2 31 |,17...6.T.0:.T.1| 00001590: A4 32 35 30 3A 82 3A 97 35 34 32 37 36 2C 31 36 |.250:.:.54276,16| 000015A0: 3A 97 35 34 32 39 36 2C 30 3A 8E 00 00 00 00 |:.54296,0:..... |
..(.... *******************************
.O.... ** RENAME &/OR RENUMBER DISK **.
V.... ** ON 1541 FLOPPY DISK **..
.(.. ** BY JOE BIZIK **.D.
2.. *******************************...<
..53281,1:.53280,1:DV.0:.49246,10.;.F.C1
$."...................":C2$."...........
..........":B1$."...................Q.P.
C3$.".................":C4$."...........
........"...Z.D1$.".....................
........".C.D.D3$.".....................
.........."...N.S1$."..NAME & ID # CHANG
E":S2$."_]]]]]]]NAME CHANGE ONLY"...X..1
080:.1130:.1210:.1560.]....T3.1.3:.C1$."
.......MAKE A SELECTION 1,2,3":.T4.1.15
0:.T4......C1$.".
":.T5.1.150:.T5:.T3.C....C1$."....
...MAKE A SELECTION 1,2,3".X. ..A1$:.A1
$."".160......A1$."1".210......A1$."2".2
10......A1$."3".210...H..160.0.R..1080:.
1280:.1210:.1560.Q....T3.1.3:.C3$."..
INSERT DISK TO BE CHANGED":.T4.1.150:.T
4......C3$.".
":.T5.1.150:.T5:.T3.X....C3$.". IN
SERT DISK TO BE CHANGED"......C4$.".
PRESS . RETURN . WHEN READY"......A2$:.A
2$."".260.+....A2$..G(13)...=....A1$."1"
..320.O."..A1$."2"..320.A.,..A1$."3"..55
0.J.6..260...@.. ********* RENAME DISK *
********...J..670:.1080:.1280:.1210:.137
0:.D1$.D2$.L.T..A1$."1"..360...^..A1$."2
"..480...H..1560.(.R..T3.1.3:.C3$".....T
YPE DISK'S NEW NAME , ID#":.T4.1.150:.T4
.E.|..C3$"
":.T5.1.150:.T5:.T3......C3$"........T
YPE DISK'S NEW NAME"......C4$".(16-CHARE
CTERS)";......NN$.L....H(NN$,1)."*".NN$.
"":.......C4$"
":.1560.K....C3$" .TYPE
DISK'S NEW ID# ":.C4$". (2-CH
ARECTERS)";.S.B..I$.L.L..H(I$,1)."*".I$.
"":....V.NN$.H(NN$,16):I$.H(I$,2):.740..
....1560.V....T3.1.3:.C3$".........TYPE
DISK'S NEW NAME":.T4.1.150:.T4......C3$"
":.T5.1.1
50:.T5:.T3.:....C3$".........TYPE DISK'S
NEW NAME".V....C4$".(16-CHARACTERS)";._
....NN$.V...NN$.H(NN$,16):.740...&.. ***
***** RENUMBER DISK ********.F.0..670:.1
080:.1280:.1210:.1370:.D1$.D2$.O.:..580.
Y.D..1560...N..T3.1.3:.C3$".........TYPE
DISK'S NEW ID#":.T4.1.150:.T4.R.X..C3$"
":.T5.1.1
50:.T5:.T3.Y.B..C3$".........TYPE DISK'S
NEW ID#"...L..C4$.4)". (2-CHARAC
TERS)";...V..I$......H(I$,1)."*".I$."":.
.T...I$.H(I$,2):.740......M$:.M$."".660.
..... ***** GOSUB READ DISK NAME *****./
....".....":.1,8,2,"#":.15,8,15.K....15,
"U1:2";0;18;0:.1440.L....15,"B-P:2,144":
.1440:DN$.""...F..I.1.20:.#1,A$:DN$.DN$.
A$:.:ID$.I(DN$,2):DN$.H(DN$,16).G.P.D2$.
".".DN$.". ID#. ".ID$...Z. 1:.15,"I":
15:..*.... **** ENTER NEW NAME AND/OR **
** ****** NEW ID# ON DISK ****
**.;....A1$."1".780.L....A1$."2".790.]..
..A1$."3".800......1080:.1280:.1210:.137
0:.1050:.910:.810......1080:.1280:.1210:
.1370:.1050:.910:.810... ..1080:.1280:.1
210:.1370:.1050:.910:.810...*.. ***** CO
NCLUDE PROGRAM *****...4..670:D4$.D3$.D2
$.E.>..1080:.1280:.1210:.1370:.W2$:.D4$:
.1560.T.H..T3.1.5:.C3$.15)"..FINISHED":.
T4.1.150:.T4...R..C3$".
":.T5.1.150:.T5:.T3.W.\..C
3$.10)".TO DO ANOTHER DISK "...F..C4$
.12)"PRESS . RETURN ."...P..B$:.B$."".88
0...Z..B$.G(13).........E.... ******** W
RITE TO DISK ********.]....1,8,2,"#":.15
,8,15......15,"B-P:2,144":.1440:I$." ".
I$." 2A ":ID$." ".ID$." 2A "......A1$."
1"..990:.970.L....A1$."2"..1010:.970....
..A1$."3"..1030:.970...J..15,"I":.1440..
.T. 1:.15,"I": 15:.......1,NN$.I$:.1440.
=....15,"U2:2";0;18;0:.1440:..R....1,NN$
.ID$:.1440.P....15,"U2:2";0;18;0:.1440:.
......1,DN$.I$:.1440......15,"U2:2";0;18
;0:.1440:....... ***** GOSUB WAIT *****.
..$.W1$.C3$."............PLEASE WAIT":W
2$.D1$.D2$......W1$:.W2$:../.8.."..
U............................I".Z.B.."
. RENAME AND/OR RENUMBER ID#. ....L..
" . ....V
.." . OF DISK IN THE 1541 UNIT. ..
..`.." J............................
K":....J..". U...................
...I"./.T.." . .MAKE SELECTION
. .".W.~.." .
."......" . .1-NAME & ID # C
HANGE. ."......" . .2-NAME CHANGE
ONLY. .".U...." . .3-ID # CHAN
GE ONLY. ."......" J...........
...........K".......!....". U...........
.......I".?.D.." . USER INSTRUCTION. .".
N.N.." . J.............
....I"...X.." .
.".L...." .
."......" .
.".,...." J....
................................K":..U..
..". U......................I".~.
..." . SELECTION MADE. ."..
...." . .".N
...." . ."..
.(.." J......................K"..
.2..A1$."1"..B1$.". RENAME & RENUMBER".C
.<..A1$."2"..B1$.". RENAME ONLY".I.F.
.A1$."3"..B1$.". RENUMBER ONLY".S.P.."
":....Z..". U..................I"...D.."
. DISK NAME & ID #. ."...N.." .
J.................I"...X.." .O
LD: .".<.
..." .
.".K...." .NEW:
."......" J....................
................K":..A. .. ***** READ ER
ROR CHANNEL *****.U....15,A$,B$,C$,D$...
...A$."00"........1520:.".... ERROR
NUMBER ."A$:..-.H..". TRACK NUMBER.
"C$:..R.R..". BLOCK NUMBER. "D$".":.
:..U....". DESCRIPTION. :"B$:."."...
...15,"I": 1: 15:.......".... O......
........................P"......" . *
** READ ERROR ON DISK *** ."......"
L..............................."......
.?.... *** SOUND FOR FINISH - GO SUB***.
A."..54296,15:.54277,0:.54278,248...,..5
4273,33:.54272,37:.54276,17...6.T.0:.T.1
.250:.:.54276,16:.54296,0:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL