DISK LABEL MAKER
FILE INFORMATION
FILENAME(S): DISK LABEL MAKER
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 17:31:37
APPEARS ON: 1 disk(s)
FILE HASH
bf8cddc827575cd5040ea1e20ef0c4b673bc767a0d93d820ccb8c7483ba1441a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK FILER | DISK LABEL MAKER | PRG | UK CD | 30 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 9F 31 35 2C 38 2C 31 35 3A 97 |.. ....15,8,15:.| 00000010: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0| 00000020: 00 65 08 14 00 54 24 28 30 29 B2 22 1C C4 C5 CC |.e...T$(0)."....| 00000030: 22 3A 54 24 28 31 29 B2 22 1F D3 C5 D1 22 3A 54 |":T$(1)."....":T| 00000040: 24 28 32 29 B2 22 9E D0 D2 C7 22 3A 54 24 28 33 |$(2)."....":T$(3| 00000050: 29 B2 22 9A D5 D3 D2 22 3A 54 24 28 34 29 B2 22 |)."....":T$(4)."| 00000060: 9A D2 C5 CC 22 00 A8 08 1E 00 81 4B B2 31 A4 32 |...."......K.1.2| 00000070: 3A 99 22 93 1E 11 11 0E 20 C9 CE D3 C5 D2 D4 A0 |:."..... .......| 00000080: C4 C9 D3 CB 20 D3 C9 C4 C5 22 4B 22 C1 CE C4 20 |.... ...."K"... | 00000090: D0 D2 C5 D3 D3 20 C1 20 CB C5 D9 22 3A 97 31 39 |..... . ...":.19| 000000A0: 38 2C 30 3A 43 4C B2 30 00 BA 08 28 00 A1 43 24 |8,0:CL.0...(..C$| 000000B0: 3A 8B 43 24 B2 22 22 A7 34 30 00 D2 08 32 00 98 |:.C$."".40...2..| 000000C0: 31 35 2C 22 49 22 3A 9F 31 2C 38 2C 32 2C 22 24 |15,"I":.1,8,2,"$| 000000D0: 30 22 00 E8 08 3C 00 81 4C B2 31 A4 31 34 32 3A |0"...<..L.1.142:| 000000E0: A1 23 31 2C 41 24 3A 82 00 05 09 46 00 4A B2 31 |.#1,A$:....F.J.1| 000000F0: 36 3A 8D 33 32 30 3A 4E 24 B2 42 24 3A 4E 24 28 |6:.320:N$.B$:N$(| 00000100: 4B 29 B2 42 24 00 12 09 50 00 4A B2 33 3A 8D 33 |K).B$...P.J.3:.3| 00000110: 32 30 00 42 09 5A 00 49 24 B2 42 24 3A 99 22 93 |20.B.Z.I$.B$:.".| 00000120: 12 1E C4 C9 D3 CB 20 CE C1 CD C5 92 20 9E 22 4E |...... ..... ."N| 00000130: 24 22 20 12 1E C9 C4 92 9E 20 22 49 24 22 11 11 |$" ...... "I$"..| 00000140: 9F 22 00 4F 09 64 00 4A B2 32 3A 8D 33 32 30 00 |.".O.d.J.2:.320.| 00000150: 64 09 6E 00 81 4C B2 31 A4 38 38 3A A1 23 31 2C |d.n..L.1.88:.#1,| 00000160: 41 24 3A 82 00 6F 09 78 00 81 50 B2 31 A4 38 00 |A$:..o.x..P.1.8.| 00000170: 80 09 82 00 A1 23 31 2C 54 24 2C 41 24 2C 41 24 |.....#1,T$,A$,A$| 00000180: 00 95 09 8C 00 8B 54 24 B2 22 22 A7 54 24 B2 C7 |......T$."".T$..| 00000190: 28 31 32 38 29 00 B8 09 96 00 8B 54 24 B3 C7 28 |(128)......T$..(| 000001A0: 31 32 38 29 B0 54 24 B1 C7 28 31 33 32 29 A7 54 |128).T$..(132).T| 000001B0: 24 B2 C7 28 31 32 38 29 00 C6 09 A0 00 4A B2 31 |$..(128).....J.1| 000001C0: 35 3A 8D 33 32 30 00 EF 09 AA 00 A1 23 31 2C 41 |5:.320......#1,A| 000001D0: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$| 000001E0: 2C 41 24 2C 41 24 2C 41 24 2C 4C 24 2C 48 24 00 |,A$,A$,A$,L$,H$.| 000001F0: 02 0A B4 00 8B 54 24 B2 C7 28 31 32 38 29 A7 32 |.....T$..(128).2| 00000200: 38 30 00 2B 0A BE 00 4C B2 C6 28 4C 24 AA C7 28 |80.+...L..(L$..(| 00000210: 30 29 29 AA 32 35 36 AC C6 28 48 24 AA C7 28 30 |0)).256..(H$..(0| 00000220: 29 29 3A 8B 4C B2 30 A7 32 38 30 00 41 0A C8 00 |)):.L.0.280.A...| 00000230: 8B 43 4C B2 31 30 A7 A0 31 3A 82 4B 3A 89 34 36 |.CL.10..1:.K:.46| 00000240: 30 00 59 0A D2 00 44 24 28 43 4C 2C 4B 29 B2 42 |0.Y...D$(CL,K).B| 00000250: 24 3A 43 4C B2 43 4C AA 31 00 A5 0A DC 00 99 22 |$:CL.CL.1......"| 00000260: 23 22 43 4C 3B 22 20 1C 22 54 24 28 C6 28 54 24 |#"CL;" ."T$(.(T$| 00000270: 29 AB 31 32 38 29 3B 22 20 20 9E 22 C8 28 28 42 |).128);" .".((B| 00000280: 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 00000290: 20 20 22 29 2C 31 36 29 22 1E 20 20 20 28 59 2F | "),16)". (Y/| 000002A0: 4E 29 9F 22 3B 00 B0 0A E6 00 97 31 39 38 2C 30 |N).";......198,0| 000002B0: 00 D5 0A F0 00 A1 43 24 3A 8B 43 24 B2 22 4E 22 |......C$:.C$."N"| 000002C0: A7 43 4C B2 43 4C AB 31 3A 99 22 12 CE CF 92 22 |.CL.CL.1:."...."| 000002D0: 3A 89 32 38 30 00 EF 0A FA 00 8B 43 24 B2 22 59 |:.280......C$."Y| 000002E0: 22 A7 99 22 12 D9 C5 D3 92 22 3A 89 32 38 30 00 |"..".....":.280.| 000002F0: 06 0B 04 01 8B 43 24 B2 22 5F 22 A7 A0 31 3A 82 |.....C$."_"..1:.| 00000300: 4B 3A 89 34 36 30 00 0F 0B 0E 01 89 32 34 30 00 |K:.460......240.| 00000310: 22 0B 18 01 8B 53 54 A7 A0 31 3A 82 4B 3A 89 34 |"....ST..1:.K:.4| 00000320: 36 30 00 35 0B 22 01 8B 50 B3 38 A7 A1 23 31 2C |60.5."..P.8..#1,| 00000330: 41 24 2C 41 24 00 48 0B 2C 01 8B 53 54 A7 A0 31 |A$,A$.H.,..ST..1| 00000340: 3A 82 4B 3A 89 34 36 30 00 54 0B 36 01 82 50 3A |:.K:.460.T.6..P:| 00000350: 89 31 32 30 00 5E 0B 40 01 42 24 B2 22 22 00 69 |.120.^.@.B$."".i| 00000360: 0B 4A 01 81 4C B2 30 A4 4A 00 74 0B 54 01 A1 23 |.J..L.0.J.t.T..#| 00000370: 31 2C 41 24 00 9D 0B 5E 01 8B 41 24 B3 B1 C7 28 |1,A$...^..A$...(| 00000380: 39 36 29 A7 8B 41 24 B3 B1 C7 28 31 36 30 29 A7 |96)..A$...(160).| 00000390: 8D 34 34 30 3A 42 24 B2 42 24 AA 41 24 00 A3 0B |.440:B$.B$.A$...| 000003A0: 68 01 82 00 A9 0B 72 01 8E 00 BE 0B 7C 01 84 31 |h.....r.....|..1| 000003B0: 35 2C 45 31 2C 45 45 24 2C 45 32 2C 45 33 00 CA |5,E1,EE$,E2,E3..| 000003C0: 0B 86 01 8B 45 31 B2 30 A7 8E 00 E6 0B 90 01 99 |....E1.0........| 000003D0: 22 11 11 20 20 20 20 20 20 C4 C9 D3 CB A0 C5 D2 |".. .......| 000003E0: D2 CF D2 A0 11 22 00 F8 0B 9A 01 99 45 31 3B 45 |....."......E1;E| 000003F0: 45 24 3B 45 32 3B 45 33 00 1B 0C A4 01 99 22 11 |E$;E2;E3......".| 00000400: 20 D0 D2 C5 D3 D3 A0 C1 CE D9 A0 CB C5 D9 A0 D4 | ...............| 00000410: CF A0 C3 CF CE D4 C9 CE D5 C5 22 00 2F 0C AE 01 |.........."./...| 00000420: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 8E 00 |.198,0:.198,1:..| 00000430: 5C 0C B8 01 8B 41 24 B3 C7 28 33 32 29 B0 28 41 |\....A$..(32).(A| 00000440: 24 B1 C7 28 31 32 36 29 AF 41 24 B3 C7 28 31 36 |$..(126).A$..(16| 00000450: 30 29 29 A7 41 24 B2 C7 28 36 33 29 00 62 0C C2 |0)).A$..(63).b..| 00000460: 01 8E 00 75 0C CC 01 54 24 B2 4E 24 28 31 29 3A |...u...T$.N$(1):| 00000470: 53 24 B2 22 22 00 8D 0C D6 01 81 49 B2 31 A4 36 |S$.""......I.1.6| 00000480: 30 3A 53 24 B2 53 24 AA 22 20 22 3A 82 00 99 0C |0:S$.S$." ":....| 00000490: E0 01 54 B2 C3 28 54 24 29 00 B9 0C EA 01 54 B2 |..T..(T$).....T.| 000004A0: B5 28 28 33 30 AB 54 29 AD 32 29 3A 54 24 B2 C8 |.((30.T).2):T$..| 000004B0: 28 53 24 2C 54 29 AA 54 24 00 D0 0C F4 01 99 22 |(S$,T).T$......"| 000004C0: 93 8E 9F 22 54 24 22 11 22 3A 97 31 39 38 2C 30 |..."T$".":.198,0| 000004D0: 00 DF 0C FE 01 81 49 B2 30 A4 39 3A 99 49 3B 00 |......I.0.9:.I;.| 000004E0: FB 0C 08 02 54 B2 C3 28 44 24 28 49 2C 31 29 29 |....T..(D$(I,1))| 000004F0: AA C3 28 44 24 28 49 2C 32 29 29 00 27 0D 12 02 |..(D$(I,2)).'...| 00000500: 99 22 9E 22 44 24 28 49 2C 31 29 3B C8 28 53 24 |."."D$(I,1);.(S$| 00000510: 2C 28 33 34 AB 54 29 29 3B 44 24 28 49 2C 32 29 |,(34.T));D$(I,2)| 00000520: 3B 22 9F 22 3B 49 3B 00 2D 0D 1C 02 82 00 54 0D |;".";I;.-.....T.| 00000530: 26 02 99 22 9B 11 11 20 20 20 20 20 20 20 20 12 |&.."... .| 00000540: 45 92 44 49 54 20 20 20 20 20 20 20 20 12 53 92 |E.DIT .S.| 00000550: 57 41 50 22 00 7C 0D 30 02 99 22 11 20 20 20 20 |WAP".|.0..". | 00000560: 20 20 20 20 12 44 92 45 4C 45 54 45 20 20 20 20 | .D.ELETE | 00000570: 20 20 12 50 92 52 49 4E 54 45 52 22 00 90 0D 3A | .P.RINTER"...:| 00000580: 02 A1 44 24 3A 8B 44 24 B2 22 50 22 A7 37 36 30 |..D$:.D$."P".760| 00000590: 00 A6 0D 44 02 8B 44 24 B2 22 44 22 A7 8D 36 32 |...D..D$."D"..62| 000005A0: 30 3A 89 37 31 30 00 BC 0D 4E 02 8B 44 24 B2 22 |0:.710...N..D$."| 000005B0: 53 22 A7 8D 36 32 30 3A 89 37 33 30 00 CC 0D 58 |S"..620:.730...X| 000005C0: 02 8B 44 24 B2 22 45 22 A7 36 35 30 00 D5 0D 62 |..D$."E".650...b| 000005D0: 02 89 35 37 30 00 EB 0D 6C 02 85 22 11 53 49 44 |..570...l..".SID| 000005E0: 45 20 31 20 4F 52 20 32 22 3B 4B 00 FA 0D 76 02 |E 1 OR 2";K...v.| 000005F0: 8B 4B B2 31 B0 4B B2 32 A7 8E 00 0A 0E 80 02 99 |.K.1.K.2........| 00000600: 22 91 91 91 22 3A 89 36 32 30 00 23 0E 8A 02 99 |"...":.620.#....| 00000610: 22 11 45 44 49 54 20 54 49 54 4C 45 20 28 59 2F |".EDIT TITLE (Y/| 00000620: 4E 29 22 00 3D 0E 94 02 A1 44 24 3A 8B 44 24 B2 |N)".=....D$:.D$.| 00000630: 22 4E 22 A7 8D 36 32 30 3A 89 36 39 30 00 4E 0E |"N"..620:.690.N.| 00000640: 9E 02 8B 44 24 B3 B1 22 59 22 A7 36 36 30 00 6E |...D$.."Y".660.n| 00000650: 0E A8 02 99 22 11 20 20 22 4E 24 28 31 29 3B 22 |....". "N$(1);"| 00000660: 91 22 3A 85 4E 24 28 31 29 3A 89 34 36 30 00 A2 |.":.N$(1):.460..| 00000670: 0E B2 02 85 22 11 45 4E 54 45 52 20 4E 55 4D 42 |....".ENTER NUMB| 00000680: 45 52 20 54 4F 20 45 44 49 54 22 3B 4A 3A 8B 4A |ER TO EDIT";J:.J| 00000690: B3 30 B0 4A B1 39 A7 99 22 91 91 91 22 3A 89 36 |.0.J.9.."...":.6| 000006A0: 39 30 00 C7 0E BC 02 99 22 11 11 20 20 22 44 24 |90......".. "D$| 000006B0: 28 4A 2C 4B 29 3B 22 91 22 3A 85 44 24 28 4A 2C |(J,K);".":.D$(J,| 000006C0: 4B 29 3A 89 34 36 30 00 FD 0E C6 02 85 22 11 45 |K):.460......".E| 000006D0: 4E 54 45 52 20 4E 55 4D 42 45 52 20 54 4F 20 44 |NTER NUMBER TO D| 000006E0: 45 4C 45 54 45 22 3B 4A 3A 8B 4A B3 30 B0 4A B1 |ELETE";J:.J.0.J.| 000006F0: 39 A7 99 22 91 91 91 22 3A 89 37 31 30 00 11 0F |9.."...":.710...| 00000700: D0 02 44 24 28 4A 2C 4B 29 B2 22 22 3A 89 34 36 |..D$(J,K)."":.46| 00000710: 30 00 50 0F DA 02 99 22 11 45 4E 54 45 52 20 4E |0.P....".ENTER N| 00000720: 55 4D 42 45 52 53 20 54 4F 20 53 57 41 50 22 3A |UMBERS TO SWAP":| 00000730: 99 22 28 55 53 45 20 43 4F 4D 4D 41 20 54 4F 20 |."(USE COMMA TO | 00000740: 53 45 50 45 52 41 54 45 29 22 3B 3A 85 4A 2C 52 |SEPERATE)";:.J,R| 00000750: 00 72 0F E4 02 8B 4A B3 30 B0 4A B1 39 B0 52 B3 |.r....J.0.J.9.R.| 00000760: 30 B0 52 B1 39 A7 99 22 91 91 91 91 22 3A 89 37 |0.R.9.."....":.7| 00000770: 33 30 00 A1 0F EE 02 44 24 B2 44 24 28 52 2C 4B |30.....D$.D$(R,K| 00000780: 29 3A 44 24 28 52 2C 4B 29 B2 44 24 28 4A 2C 4B |):D$(R,K).D$(J,K| 00000790: 29 3A 44 24 28 4A 2C 4B 29 B2 44 24 3A 89 34 36 |):D$(J,K).D$:.46| 000007A0: 30 00 C9 0F F8 02 99 22 93 11 11 11 11 20 53 45 |0......"..... SE| 000007B0: 54 55 50 20 50 52 49 4E 54 45 52 20 41 4E 44 20 |TUP PRINTER AND | 000007C0: 50 52 45 53 53 20 46 31 22 00 DE 0F 02 03 A1 44 |PRESS F1"......D| 000007D0: 24 3A 8B 44 24 B3 B1 22 85 22 A7 37 37 30 00 F5 |$:.D$..".".770..| 000007E0: 0F 0C 03 9F 34 2C 34 3A 98 34 2C C7 28 32 37 29 |....4,4:.4,.(27)| 000007F0: 3B 22 40 22 3B 00 0C 10 16 03 98 34 2C C7 28 32 |;"@";......4,.(2| 00000800: 37 29 3B 22 42 22 3B C7 28 33 29 3B 00 1E 10 20 |7);"B";.(3);... | 00000810: 03 98 34 2C C7 28 32 37 29 3B 22 45 22 3B 00 30 |..4,.(27);"E";.0| 00000820: 10 2A 03 98 34 2C C7 28 32 37 29 3B 22 47 22 3B |.*..4,.(27);"G";| 00000830: 00 50 10 34 03 98 34 2C C7 28 31 34 29 3B 54 24 |.P.4..4,.(14);T$| 00000840: 3B C7 28 31 35 29 3B C7 28 32 37 29 3B 22 46 22 |;.(15);.(27);"F"| 00000850: 00 67 10 3E 03 98 34 2C C7 28 32 37 29 3B 22 53 |.g.>..4,.(27);"S| 00000860: 22 3B C7 28 30 29 3B 00 85 10 48 03 98 34 2C C7 |";.(0);...H..4,.| 00000870: 28 32 37 29 3B 22 41 22 3B C7 28 36 29 3B 3A 81 |(27);"A";.(6);:.| 00000880: 49 B2 30 A4 39 00 A1 10 52 03 54 B2 C3 28 44 24 |I.0.9...R.T..(D$| 00000890: 28 49 2C 31 29 29 AA C3 28 44 24 28 49 2C 32 29 |(I,1))..(D$(I,2)| 000008A0: 29 00 C5 10 5C 03 98 34 2C 44 24 28 49 2C 31 29 |)...\..4,D$(I,1)| 000008B0: 3B C8 28 53 24 2C 28 36 30 AB 54 29 29 3B 44 24 |;.(S$,(60.T));D$| 000008C0: 28 49 2C 32 29 00 D1 10 66 03 82 3A 98 34 3A A0 |(I,2)...f..:.4:.| 000008D0: 34 00 F3 10 70 03 99 22 93 11 11 11 11 20 20 41 |4...p.."..... A| 000008E0: 4E 4F 54 48 45 52 20 4C 41 42 45 4C 20 28 59 2F |NOTHER LABEL (Y/| 000008F0: 4E 29 22 00 05 11 7A 03 A1 44 24 3A 8B 44 24 B2 |N)"...z..D$:.D$.| 00000900: 22 59 22 A7 8A 00 16 11 84 03 8B 44 24 B3 B1 22 |"Y"........D$.."| 00000910: 4E 22 A7 38 39 30 00 1C 11 8E 03 80 00 26 11 98 |N".890.......&..| 00000920: 03 82 3A 99 3A 8E 00 00 00 |..:.:.... |
.. ....15,8,15:.53281,0:.53280,0.E...T$( 0).".DEL":T$(1).".SEQ":T$(2).".PRG":T$(3 ).".USR":T$(4).".REL"......K.1.2:."..... INSERT DISK SIDE"K"AND PRESS A KEY":.19 8,0:CL.0...(..C$:.C$."".40.R.2..15,"I":. 1,8,2,"$0"...<..L.1.142:.#1,A$:....F.J.1 6:.320:N$.B$:N$(K).B$...P.J.3:.320.B.Z.I $.B$:."...DISK NAME. ."N$" ..ID.. "I$".. .".O.D.J.2:.320.D.N..L.1.88:.#1,A$:..O.X ..P.1.8......#1,T$,A$,A$......T$."".T$.G (128)......T$.G(128).T$.G(132).T$.G(128) .F. .J.15:.320......#1,A$,A$,A$,A$,A$,A$ ,A$,A$,A$,L$,H$......T$.G(128).280.+...L .F(L$.G(0)).256.F(H$.G(0)):.L.0.280.A.H. .CL.10. 1:.K:.460.Y.R.D$(CL,K).B$:CL.CL. 1......"#"CL;" ."T$(F(T$).128);" ."H((B $." "),16)". (Y/N).";... ...198,0.U....C$:.C$."N".CL.CL.1:.".NO." :.280......C$."Y"..".YES.":.280......C$. "_". 1:.K:.460......240."....ST. 1:.K:.4 60.5."..P.8..#1,A$,A$.H.,..ST. 1:.K:.460 .T.6..P:.120.^.@.B$."".I.J..L.0.J.T.T..# 1,A$...^..A$..G(96)..A$..G(160)..440:B$. B$.A$...H.....R.....|..15,E1,EE$,E2,E3.J ....E1.0........".. DISK ERROR .".. ....E1;EE$;E2;E3......". PRESS ANY KEY T O CONTINUE"./....198,0:.198,1:..\....A$. G(32).(A$.G(126).A$.G(160)).A$.G(63).B.B ...U.L.T$.N$(1):S$.""...V..I.1.60:S$.S$. " ":......T.C(T$).....T..((30.T).2):T$.H (S$,T).T$.P...."..."T$".":.198,0......I. 0.9:.I;.....T.C(D$(I,1)).C(D$(I,2)).'... ."."D$(I,1);H(S$,(34.T));D$(I,2);".";I;. -.....T.&.."... .E.DIT .S. WAP".|.0..". .D.ELETE .P.RIN TER"...:..D$:.D$."P".760...D..D$."D"..62 0:.710...N..D$."S"..620:.730.L.X..D$."E" .650.U.B..570...L..".SIDE 1 OR 2";K...V. .K.1.K.2........"...":.620.#....".EDIT T ITLE (Y/N)".=....D$:.D$."N"..620:.690.N. ...D$.."Y".660.N....". "N$(1);".":.N$(1 ):.460......".ENTER NUMBER TO EDIT";J:.J .0.J.9.."...":.690.G....".. "D$(J,K);". ":.D$(J,K):.460...F..".ENTER NUMBER TO D ELETE";J:.J.0.J.9.."...":.710...P.D$(J,K )."":.460.P.Z..".ENTER NUMBERS TO SWAP": ."(USE COMMA TO SEPERATE)";:.J,R.R....J. 0.J.9.R.0.R.9.."....":.730.....D$.D$(R,K ):D$(R,K).D$(J,K):D$(J,K).D$:.460.I...." ..... SETUP PRINTER AND PRESS F1"......D $:.D$..".".770......4,4:.4,G(27);"@";... ...4,G(27);"B";G(3);... ..4,G(27);"E";.0 .*..4,G(27);"G";.P.4..4,G(14);T$;G(15);G (27);"F".G.>..4,G(27);"S";G(0);...H..4,G (27);"A";G(6);:.I.0.9...R.T.C(D$(I,1)).C (D$(I,2)).E.\..4,D$(I,1);H(S$,(60.T));D$ (I,2).Q.F..:.4: 4...P.."..... ANOTHER L ABEL (Y/N)"...Z..D$:.D$."Y"........D$.." N".890.......&....:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL