DISK LABELS 64
FILE INFORMATION
FILENAME(S): DISK LABELS 64
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-10-19 22:48:22
APPEARS ON: 2 disk(s)
FILE HASH
422e5586a93402ce433321502dd2fdfd01a8ec41375bbea525eb3e2cba6449c9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY | DISK LABELS 64 | PRG | Radd Maxx | 25 | 8 | DOWNLOAD FILE |
| UTILITY | DISK LABELS 64 | PRG | Radd Maxx | 25 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4D 08 05 00 8F 20 44 49 53 4B 20 4C 41 42 |..M.... DISK LAB| 00000010: 45 4C 20 4D 41 4B 45 52 20 53 45 54 20 55 50 20 |EL MAKER SET UP | 00000020: 46 4F 52 20 43 41 52 44 20 3F 20 49 4E 54 45 52 |FOR CARD ? INTER| 00000030: 46 41 43 45 20 41 4E 44 20 43 2E 20 49 54 4F 48 |FACE AND C. ITOH| 00000040: 20 50 52 4F 57 52 49 54 45 52 20 49 49 00 69 08 | PROWRITER II.i.| 00000050: 0A 00 97 35 33 32 38 30 2C 31 35 3A 97 35 33 32 |...53280,15:.532| 00000060: 38 31 2C 30 3A 99 22 9B 22 00 7A 08 0F 00 8F 20 |81,0:.".".z.... | 00000070: 49 4E 49 54 49 41 4C 49 5A 45 00 9F 08 14 00 4D |INITIALIZE.....M| 00000080: 24 B2 22 22 3A 4D 24 28 31 29 B2 22 22 3A 4D 24 |$."":M$(1)."":M$| 00000090: 28 32 29 B2 22 22 3A 4D 24 28 33 29 B2 22 22 00 |(2)."":M$(3)."".| 000000A0: C5 08 64 00 99 22 93 11 11 11 11 11 22 3B A3 31 |..d.."......";.1| 000000B0: 31 29 3B 22 44 49 53 4B 20 4C 41 42 45 4C 20 4D |1);"DISK LABEL M| 000000C0: 41 4B 45 52 22 00 E2 08 69 00 99 A6 31 31 29 3B |AKER"...i...11);| 000000D0: 22 A3 A3 A3 A3 20 A3 A3 A3 A3 A3 20 A3 A3 A3 A3 |".... ..... ....| 000000E0: A3 22 00 F1 08 6E 00 99 A6 31 38 29 3B 22 42 59 |."...n...18);"BY| 000000F0: 22 00 0E 09 78 00 99 22 11 22 A3 31 32 29 3B 22 |"...x..".".12);"| 00000100: 4B 45 56 49 4E 20 48 41 52 52 4D 41 4E 22 00 29 |KEVIN HARRMAN".)| 00000110: 09 82 00 99 22 11 22 A3 31 33 29 3B 22 4D 41 59 |....".".13);"MAY| 00000120: 20 31 33 2C 31 39 38 33 22 00 49 09 C8 00 99 22 | 13,1983".I...."| 00000130: 11 11 11 42 4F 52 44 45 52 20 43 48 41 52 41 43 |...BORDER CHARAC| 00000140: 54 45 52 20 2D 3E 20 22 3B 00 5C 09 D2 00 A1 42 |TER -> ";.\....B| 00000150: 24 3A 8B 42 24 B2 22 22 A7 32 31 30 00 64 09 DC |$:.B$."".210.d..| 00000160: 00 99 42 24 00 81 09 E6 00 99 22 11 4E 55 4D 42 |..B$......".NUMB| 00000170: 45 52 20 4F 46 20 4C 49 4E 45 20 46 45 45 44 53 |ER OF LINE FEEDS| 00000180: 22 00 9B 09 F0 00 99 22 42 45 54 57 45 45 4E 20 |"......"BETWEEN | 00000190: 4C 41 42 45 4C 53 20 2D 3E 22 3B 00 AE 09 FA 00 |LABELS ->";.....| 000001A0: A1 4C 24 3A 8B 4C 24 B2 22 22 A7 32 35 30 00 C3 |.L$:.L$."".250..| 000001B0: 09 04 01 4C B2 C5 28 4C 24 29 3A 8B 4C B3 30 A7 |...L..(L$):.L.0.| 000001C0: 32 35 30 00 CB 09 0E 01 99 4C 24 00 E9 09 18 01 |250......L$.....| 000001D0: 99 22 11 41 52 45 20 45 4E 54 52 49 45 53 20 43 |.".ARE ENTRIES C| 000001E0: 4F 52 52 45 43 54 3F 22 3B 00 FC 09 1D 01 A1 4D |ORRECT?";......M| 000001F0: 24 3A 8B 4D 24 B2 22 22 A7 32 38 35 00 0D 0A 22 |$:.M$."".285..."| 00000200: 01 8B 4D 24 B3 B1 22 59 22 A7 31 30 30 00 28 0A |..M$.."Y".100.(.| 00000210: 27 01 99 22 93 11 11 22 3A 8F 20 53 45 54 20 55 |'.."...":. SET U| 00000220: 50 20 53 43 52 45 45 4E 00 40 0A 2C 01 81 58 B2 |P SCREEN.@.,..X.| 00000230: 31 A4 33 33 3A 99 42 24 3B 3A 82 58 3A 99 42 24 |1.33:.B$;:.X:.B$| 00000240: 00 5D 0A 36 01 81 58 B2 31 A4 33 3A 54 B2 28 33 |.].6..X.1.3:T.(3| 00000250: 32 AB C3 28 4D 24 28 58 29 29 29 AD 32 00 7D 0A |2..(M$(X))).2.}.| 00000260: 3B 01 8F 20 43 45 4E 54 45 52 20 54 48 45 20 4C |;.. CENTER THE L| 00000270: 49 4E 45 20 49 4E 20 42 4F 52 44 45 52 00 94 0A |INE IN BORDER...| 00000280: 40 01 99 42 24 3B A6 54 29 3B 4D 24 28 58 29 3B |@..B$;.T);M$(X);| 00000290: A6 54 29 3B 00 C9 0A 45 01 8F 20 41 44 44 20 53 |.T);...E.. ADD S| 000002A0: 50 41 43 45 20 49 46 20 4C 49 4E 45 20 48 41 53 |PACE IF LINE HAS| 000002B0: 20 4F 44 44 20 4E 55 4D 42 45 52 20 4F 46 20 43 | ODD NUMBER OF C| 000002C0: 48 41 52 41 43 54 45 52 53 00 EE 0A 4A 01 8B C3 |HARACTERS...J...| 000002D0: 28 4D 24 28 58 29 29 AD 32 B3 B1 B5 28 C3 28 4D |(M$(X)).2...(.(M| 000002E0: 24 28 58 29 29 AD 32 29 A7 99 22 20 22 3B 00 F9 |$(X)).2).." ";..| 000002F0: 0A 54 01 99 42 24 3A 82 58 00 0D 0B 5E 01 81 58 |.T..B$:.X...^..X| 00000300: B2 31 A4 33 33 3A 99 42 24 3B 3A 82 58 00 40 0B |.1.33:.B$;:.X.@.| 00000310: 68 01 8B 53 24 B2 22 88 22 A7 53 24 B2 22 22 3A |h..S$.".".S$."":| 00000320: 99 42 24 3B 3A 8E 3A 8F 20 49 46 20 50 52 49 4E |.B$;:.:. IF PRIN| 00000330: 54 49 4E 47 20 54 48 45 4E 20 52 45 54 55 52 4E |TING THEN RETURN| 00000340: 00 48 0B 72 01 99 42 24 00 5E 0B 86 01 8F 20 4C |.H.r..B$.^.... L| 00000350: 49 53 54 20 53 45 4C 45 43 54 49 4F 4E 53 00 84 |IST SELECTIONS..| 00000360: 0B 90 01 99 22 11 11 4C 49 4E 45 20 31 22 3A 99 |...."..LINE 1":.| 00000370: 22 11 4C 49 4E 45 20 32 22 3A 99 22 11 4C 49 4E |".LINE 2":.".LIN| 00000380: 45 20 33 22 00 BA 0B 9A 01 99 22 11 11 20 12 5B |E 3"......".. .[| 00000390: 46 31 5D 92 3D 4C 49 4E 45 20 31 20 20 12 5B 46 |F1].=LINE 1 .[F| 000003A0: 33 5D 92 3D 4C 49 4E 45 20 32 20 20 12 5B 46 35 |3].=LINE 2 .[F5| 000003B0: 5D 92 3D 4C 49 4E 45 20 33 22 00 F0 0B A4 01 99 |].=LINE 3"......| 000003C0: 22 11 20 12 5B 46 37 5D 92 3D 50 52 49 4E 54 20 |". .[F7].=PRINT | 000003D0: 20 12 5B 46 32 5D 92 3D 4E 45 57 20 42 4F 52 44 | .[F2].=NEW BORD| 000003E0: 45 52 20 20 12 5B 46 38 5D 92 3D 51 55 49 54 22 |ER .[F8].=QUIT"| 000003F0: 00 11 0C AE 01 99 22 11 11 59 4F 55 52 20 53 45 |......"..YOUR SE| 00000400: 4C 45 43 54 49 4F 4E 20 12 5B 92 AF AF 12 5D 92 |LECTION .[....].| 00000410: 22 00 24 0C B8 01 A1 53 24 3A 8B 53 24 B2 22 22 |".$....S$:.S$.""| 00000420: A7 34 34 30 00 4A 0C BD 01 8F 20 4D 4F 56 45 20 |.440.J.... MOVE | 00000430: 43 55 52 53 4F 52 20 54 4F 20 41 50 50 52 4F 50 |CURSOR TO APPROP| 00000440: 52 49 41 54 45 20 4C 49 4E 45 00 75 0C C2 01 8B |RIATE LINE.u....| 00000450: 53 24 B2 22 85 22 A7 58 B2 31 3A 99 22 91 91 91 |S$.".".X.1:."...| 00000460: 91 91 91 91 91 91 91 91 91 91 22 3B A6 36 29 3B |..........";.6);| 00000470: 3A 89 35 30 30 00 9E 0C C7 01 8B 53 24 B2 22 86 |:.500......S$.".| 00000480: 22 A7 58 B2 32 3A 99 22 91 91 91 91 91 91 91 91 |".X.2:."........| 00000490: 91 91 91 22 3B A6 36 29 3B 3A 89 35 30 30 00 C5 |...";.6);:.500..| 000004A0: 0C CC 01 8B 53 24 B2 22 87 22 A7 58 B2 33 3A 99 |....S$.".".X.3:.| 000004B0: 22 91 91 91 91 91 91 91 91 91 22 3B A6 36 29 3B |".........";.6);| 000004C0: 3A 89 35 30 30 00 DB 0C D1 01 8B 53 24 B2 22 88 |:.500......S$.".| 000004D0: 22 A7 31 30 30 30 3A 8F 20 46 37 00 F0 0C D6 01 |".1000:. F7.....| 000004E0: 8B 53 24 B2 22 89 22 A7 31 30 30 3A 8F 20 46 32 |.S$.".".100:. F2| 000004F0: 00 06 0D DB 01 8B 53 24 B2 22 8C 22 A7 31 30 34 |......S$.".".104| 00000500: 30 3A 8F 20 46 38 00 0F 0D E0 01 89 34 34 30 00 |0:. F8......440.| 00000510: 2C 0D EA 01 8F 20 49 4E 50 55 54 20 4C 49 4E 45 |,.... INPUT LINE| 00000520: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 00 40 0D F4 | INFORMATION.@..| 00000530: 01 4D 24 28 58 29 B2 22 22 3A 85 4D 24 28 58 29 |.M$(X)."":.M$(X)| 00000540: 00 6C 0D F9 01 8F 20 43 48 45 43 4B 20 46 4F 52 |.l.... CHECK FOR| 00000550: 20 4D 41 58 20 4C 45 4E 47 54 48 20 4F 46 20 33 | MAX LENGTH OF 3| 00000560: 30 20 43 48 41 52 41 43 54 45 52 53 00 AB 0D FE |0 CHARACTERS....| 00000570: 01 4D B2 C3 28 4D 24 28 58 29 29 3A 8B 4D B1 33 |.M..(M$(X)):.M.3| 00000580: 30 A7 99 22 93 11 11 11 1D 1D 4D 41 58 49 4D 55 |0.."......MAXIMU| 00000590: 4D 20 4F 46 20 33 30 20 43 48 41 52 41 43 54 45 |M OF 30 CHARACTE| 000005A0: 52 53 20 41 4C 4C 4F 57 45 44 22 00 CA 0D 08 02 |RS ALLOWED".....| 000005B0: 8B 4D B1 33 30 A7 81 58 B2 31 A4 35 30 30 3A 82 |.M.30..X.1.500:.| 000005C0: 58 3A 4D 24 28 58 29 B2 22 22 00 D3 0D 1C 02 89 |X:M$(X).""......| 000005D0: 32 39 35 00 E9 0D DE 03 8F 20 50 52 49 4E 54 45 |295...... PRINTE| 000005E0: 52 20 52 4F 55 54 49 4E 45 00 F5 0D E8 03 9F 34 |R ROUTINE......4| 000005F0: 2C 34 3A 9D 34 00 FE 0D F2 03 8D 33 30 30 00 22 |,4:.4......300."| 00000600: 0E F7 03 8F 20 4C 49 4E 45 20 46 45 45 44 53 20 |.... LINE FEEDS | 00000610: 47 49 56 45 4E 20 41 54 20 42 45 47 49 4E 4E 49 |GIVEN AT BEGINNI| 00000620: 4E 47 00 37 0E FC 03 8B 4C B1 30 A7 81 58 B2 31 |NG.7....L.0..X.1| 00000630: A4 4C 3A 99 3A 82 58 00 4A 0E 06 04 98 34 2C 22 |.L:.:.X.J....4,"| 00000640: 22 3B 3A A0 34 3A 89 32 39 35 00 87 0E 10 04 8B |";:.4:.295......| 00000650: 4C B2 30 A7 9F 34 2C 34 2C 31 3A 9D 34 3A 98 34 |L.0..4,4,1:.4:.4| 00000660: 2C 3A A0 34 3A 8F 20 50 52 49 4E 54 20 4C 41 53 |,:.4:. PRINT LAS| 00000670: 54 20 4C 49 4E 45 20 49 46 20 4C 49 4E 45 20 46 |T LINE IF LINE F| 00000680: 45 45 44 20 3D 20 30 00 9A 0E 15 04 8F 20 43 4C |EED = 0...... CL| 00000690: 45 41 52 20 53 43 52 45 45 4E 00 B9 0E 1A 04 97 |EAR SCREEN......| 000006A0: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,| 000006B0: 36 3A 99 22 93 9A 22 3A 80 00 00 00 |6:."..":.... |
..M.... DISK LABEL MAKER SET UP FOR CARD ? INTERFACE AND C. ITOH PROWRITER II.I. ...53280,15:.53281,0:.".".Z.... INITIALI ZE.....M$."":M$(1)."":M$(2)."":M$(3)."". E.D.."......";.11);"DISK LABEL MAKER"... I...11);".... ..... ....."...N...18);"BY "...X..".".12);"KEVIN HARRMAN".)....".". 13);"MAY 13,1983".I.H.."...BORDER CHARAC TER -> ";.\.R..B$:.B$."".210.D....B$.... ..".NUMBER OF LINE FEEDS"......"BETWEEN LABELS ->";......L$:.L$."".250.C...L.E(L $):.L.0.250.K....L$......".ARE ENTRIES C ORRECT?";......M$:.M$."".285..."..M$.."Y ".100.(.'.."...":. SET UP SCREEN.@.,..X. 1.33:.B$;:.X:.B$.].6..X.1.3:T.(32.C(M$(X ))).2.}.;.. CENTER THE LINE IN BORDER... @..B$;.T);M$(X);.T);.I.E.. ADD SPACE IF LINE HAS ODD NUMBER OF CHARACTERS...J..C (M$(X)).2...(C(M$(X)).2).." ";...T..B$:. X...^..X.1.33:.B$;:.X.@.H..S$.".".S$."": .B$;:.:. IF PRINTING THEN RETURN.H.R..B$ .^.... LIST SELECTIONS......"..LINE 1":. ".LINE 2":.".LINE 3"......".. .[F1].=LIN E 1 .[F3].=LINE 2 .[F5].=LINE 3"...... ". .[F7].=PRINT .[F2].=NEW BORDER .[F8 ].=QUIT"......"..YOUR SELECTION .[....]. ".$....S$:.S$."".440.J.... MOVE CURSOR T O APPROPRIATE LINE.U.B..S$.".".X.1:."... ..........";.6);:.500...G..S$.".".X.2:." ...........";.6);:.500.E.L..S$.".".X.3:. ".........";.6);:.500...Q..S$.".".1000:. F7...V..S$.".".100:. F2......S$.".".104 0:. F8......440.,.... INPUT LINE INFORMA TION.@...M$(X)."":.M$(X).L.... CHECK FOR MAX LENGTH OF 30 CHARACTERS.....M.C(M$( X)):.M.30.."......MAXIMUM OF 30 CHARACTE RS ALLOWED".J....M.30..X.1.500:.X:M$(X). "".S....295...... PRINTER ROUTINE......4 ,4:.4......300.".... LINE FEEDS GIVEN AT BEGINNING.7....L.0..X.1.L:.:.X.J....4," ";: 4:.295......L.0..4,4,1:.4:.4,: 4:. P RINT LAST LINE IF LINE FEED = 0...... CL EAR SCREEN......53280,14:.53281,6:."..": ....
> CLICK IMAGE PREVIEW FOR FULL MODAL