BORDER LABELS

FILE INFORMATION

FILENAME(S): BORDER LABELS

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-10-19 22:48:31

APPEARS ON: 1 disk(s)

FILE HASH

d290aa07cc349e9b17ed52ac90e8617fddd1dcad6d892a506a5921670cf15f7a

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIES U38	BORDER LABELS	PRG	Radd Maxx	6	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 23 08 0A 00 99 22  93 22 3A 97 35 33 32 38  |..#....".":.5328|
00000010: 30 2C 36 3A 97 35 33 32  38 31 2C 30 3A 97 36 34  |0,6:.53281,0:.64|
00000020: 36 2C 37 00 31 08 14 00  99 20 C7 28 31 34 37 29  |6,7.1.... .(147)|
00000030: 3B 00 56 08 1E 00 99 20  A3 38 29 3B 22 9F 42 4F  |;.V.... .8);".BO|
00000040: 52 44 45 52 20 44 49 53  4B 20 4C 41 42 45 4C 20  |RDER DISK LABEL |
00000050: 4D 41 4B 45 52 22 00 5C  08 28 00 99 00 7B 08 32  |MAKER".\.(...{.2|
00000060: 00 99 20 22 9E 50 4C 45  41 53 45 20 50 52 45 53  |.. ".PLEASE PRES|
00000070: 53 20 3C 52 45 54 55 52  4E 3E 22 00 95 08 3C 00  |S <RETURN>"...<.|
00000080: 99 20 22 41 46 54 45 52  20 45 41 43 48 20 52 45  |. "AFTER EACH RE|
00000090: 50 4C 59 2E 22 00 9B 08  46 00 99 00 BB 08 50 00  |PLY."...F.....P.|
000000A0: 8F 20 2D 2D 49 4E 50 55  54 20 44 49 53 4B 20 4C  |. --INPUT DISK L|
000000B0: 41 42 45 4C 20 54 45 58  54 2D 2D 00 E0 08 5A 00  |ABEL TEXT--...Z.|
000000C0: 99 20 22 05 54 59 50 45  20 49 4E 46 4F 52 4D 41  |. ".TYPE INFORMA|
000000D0: 54 49 4F 4E 20 46 4F 52  20 4C 41 42 45 4C 9E 22  |TION FOR LABEL."|
000000E0: 00 E6 08 64 00 99 00 0B  09 6E 00 99 22 1E 28 44  |...d.....n..".(D|
000000F0: 4F 20 4E 4F 54 20 54 59  50 45 20 42 45 59 4F 4E  |O NOT TYPE BEYON|
00000100: 44 20 54 48 45 20 1C 2A  1E 29 22 00 40 09 78 00  |D THE .*.)".@.x.|
00000110: 99 22 11 28 32 33 20 43  48 41 52 41 43 54 45 52  |.".(23 CHARACTER|
00000120: 53 20 4F 52 20 4C 45 53  53 29 22 3A 99 A3 33 31  |S OR LESS)":..31|
00000130: 29 3A 99 22 11 11 11 1C  2A 20 53 54 4F 50 9E 22  |):."....* STOP."|
00000140: 00 53 09 82 00 85 22 9F  4C 49 4E 45 20 23 31 22  |.S....".LINE #1"|
00000150: 3B 49 24 00 81 09 8C 00  99 22 1C 20 20 20 20 20  |;I$......".     |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000170: 20 20 20 20 20 20 20 20  20 20 2A 20 53 54 4F 50  |          * STOP|
00000180: 22 00 94 09 96 00 85 22  9F 4C 49 4E 45 20 23 32  |"......".LINE #2|
00000190: 22 3B 4A 24 00 C3 09 A0  00 99 22 1C 20 20 20 20  |";J$......".    |
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 20  20 20 20 2A 20 53 54 4F  |           * STO|
000001C0: 50 9E 22 00 D6 09 AA 00  85 22 9F 4C 49 4E 45 20  |P."......".LINE |
000001D0: 23 33 22 3B 4B 24 00 DC  09 B4 00 99 00 F7 09 BE  |#3";K$..........|
000001E0: 00 85 22 9E 48 4F 57 20  4D 41 4E 59 20 4C 41 42  |..".HOW MANY LAB|
000001F0: 45 4C 53 22 3B 43 24 00  03 0A C8 00 43 B2 C5 28  |ELS";C$.....C..(|
00000200: 43 24 29 00 16 0A D2 00  8B 43 B2 B3 30 B0 43 B1  |C$)......C..0.C.|
00000210: 39 39 A7 31 39 30 00 3A  0A DC 00 8F 20 2D 2D 43  |99.190.:.... --C|
00000220: 48 4F 50 20 4F 46 46 20  45 58 54 52 41 20 43 48  |HOP OFF EXTRA CH|
00000230: 41 52 41 43 54 45 52 53  2D 2D 00 57 0A E6 00 8B  |ARACTERS--.W....|
00000240: 20 C3 28 49 24 29 B1 32  33 20 A7 20 49 24 B2 C8  | .(I$).23 . I$..|
00000250: 28 49 24 2C 32 33 29 00  86 0A F0 00 99 22 93 11  |(I$,23)......"..|
00000260: 11 20 20 20 54 55 52 4E  20 4F 4E 20 50 52 49 4E  |.   TURN ON PRIN|
00000270: 54 45 52 20 41 4E 44 20  50 52 45 53 53 20 41 4E  |TER AND PRESS AN|
00000280: 59 20 4B 45 59 22 00 8F  0A FA 00 A1 20 52 24 00  |Y KEY"...... R$.|
00000290: A1 0A 04 01 8B 20 52 24  B2 22 22 20 A7 20 32 35  |..... R$."" . 25|
000002A0: 30 00 AF 0A 0E 01 99 20  C7 28 31 34 37 29 3B 00  |0...... .(147);.|
000002B0: D3 0A 18 01 99 22 9E 1D  1D 1D 1D 1D 1D 1D 1D 11  |....."..........|
000002C0: 11 20 20 20 4C 41 42 45  4C 53 20 42 59 20 4A 2E  |.   LABELS BY J.|
000002D0: 43 2E 22 00 F9 0A 22 01  99 22 05 20 1D 1D 1D 1D  |C."..."..". ....|
000002E0: 1D 1D 1D 11 11 20 2E 2E  2E 4E 4F 57 20 50 52 49  |..... ...NOW PRI|
000002F0: 4E 54 49 4E 47 2E 2E 2E  22 00 05 0B 2C 01 9F 20  |NTING..."...,.. |
00000300: 34 2C 34 2C 32 00 12 0B  36 01 81 20 49 B2 31 A4  |4,4,2...6.. I.1.|
00000310: 20 43 00 2D 0B 40 01 8F  20 2D 2D 50 52 49 4E 54  | C.-.@.. --PRINT|
00000320: 20 54 4F 50 20 42 4F 52  44 45 52 2D 2D 00 57 0B  | TOP BORDER--.W.|
00000330: 4A 01 9D 34 2C 20 22 2A  2A 2A 2A 2A 2A 2A 2A 2A  |J..4, "*********|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000350: 2A 2A 2A 2A 2A 2A 22 00  86 0B 54 01 9D 34 2C 20  |******"...T..4, |
00000360: 22 2A 22 3B A6 28 32 39  AB C3 28 49 24 29 29 AD  |"*";.(29..(I$)).|
00000370: 32 29 3B 49 24 3B A6 31  35 AB C3 28 49 24 29 AD  |2);I$;.15..(I$).|
00000380: 32 29 3B 22 2A 22 00 A6  0B 5E 01 8F 20 2D 2D 43  |2);"*"...^.. --C|
00000390: 45 4E 54 45 52 20 41 4E  44 20 50 52 49 4E 54 20  |ENTER AND PRINT |
000003A0: 54 45 58 54 2D 2D 00 D5  0B 68 01 9D 34 2C 20 22  |TEXT--...h..4, "|
000003B0: 2A 22 3B A6 28 32 39 AB  C3 28 4A 24 29 29 AD 32  |*";.(29..(J$)).2|
000003C0: 29 3B 4A 24 3B A6 31 35  AB C3 28 4A 24 29 AD 32  |);J$;.15..(J$).2|
000003D0: 29 3B 22 2A 22 00 04 0C  72 01 9D 34 2C 20 22 2A  |);"*"...r..4, "*|
000003E0: 22 3B A6 28 32 39 AB C3  28 4B 24 29 29 AD 32 29  |";.(29..(K$)).2)|
000003F0: 3B 4B 24 3B A6 31 35 AB  C3 28 4B 24 29 AD 32 29  |;K$;.15..(K$).2)|
00000400: 3B 22 2A 22 00 22 0C 7C  01 8F 20 2D 2D 50 52 49  |;"*".".|.. --PRI|
00000410: 4E 54 20 42 4F 54 54 4F  4D 20 42 4F 52 44 45 52  |NT BOTTOM BORDER|
00000420: 2D 2D 00 4C 0C 86 01 9D  34 2C 20 22 2A 2A 2A 2A  |--.L....4, "****|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 22 00 59 0C 90  |***********".Y..|
00000450: 01 8B 49 B2 43 A7 34 32  30 00 60 0C 9A 01 9D 34  |..I.C.420.`....4|
00000460: 00 67 0C A4 01 82 49 00  87 0C AE 01 8F 20 2D 2D  |.g....I...... --|
00000470: 43 4C 4F 53 45 20 50 52  49 4E 54 45 52 20 43 48  |CLOSE PRINTER CH|
00000480: 41 4E 4E 45 4C 2D 2D 00  96 0C B8 01 98 34 3A A0  |ANNEL--......4:.|
00000490: 34 3A 99 22 93 22 00 B3  0C C2 01 8F 20 2D 2D 44  |4:."."...... --D|
000004A0: 4F 20 49 54 20 41 47 41  49 4E 20 4F 52 20 45 4E  |O IT AGAIN OR EN|
000004B0: 44 2D 2D 00 CB 0C CC 01  99 20 22 9E 44 4F 20 59  |D--...... ".DO Y|
000004C0: 4F 55 20 57 41 4E 54 20  54 4F 22 00 EE 0C D6 01  |OU WANT TO".....|
000004D0: 99 20 22 4D 41 4B 45 20  41 4E 4F 54 48 45 52 20  |. "MAKE ANOTHER |
000004E0: 4C 41 42 45 4C 3F 22 3A  97 36 34 36 2C 37 00 F7  |LABEL?":.646,7..|
000004F0: 0C E0 01 85 20 52 24 00  11 0D EA 01 8B 20 C8 28  |.... R$...... .(|
00000500: 52 24 2C 31 29 B2 22 59  22 20 A7 20 9C 3A 89 32  |R$,1)."Y" . .:.2|
00000510: 30 00 32 0D F4 01 99 3A  85 22 52 45 54 55 52 4E  |0.2....:."RETURN|
00000520: 20 54 4F 20 4D 45 4E 55  20 28 59 2F 4E 29 22 3B  | TO MENU (Y/N)";|
00000530: 59 24 00 41 0D FE 01 8B  59 24 B2 22 4E 22 A7 20  |Y$.A....Y$."N". |
00000540: 80 00 6A 0D 08 02 99 22  93 11 11 11 11 1D 1D 1D  |..j...."........|
00000550: 1D 1D 1D 1D 1D 1D 4C 4F  41 44 49 4E 47 20 50 4C  |......LOADING PL|
00000560: 45 41 53 45 20 57 41 49  54 22 00 9A 0D 12 02 99  |EASE WAIT"......|
00000570: 22 90 13 11 11 11 4C 4F  41 44 22 3B C7 28 33 34  |".....LOAD";.(34|
00000580: 29 3B 22 4C 41 42 45 4C  20 42 4F 4F 54 22 3B C7  |);"LABEL BOOT";.|
00000590: 28 33 34 29 3B 22 2C 38  13 22 00 B4 0D 1C 02 41  |(34);",8.".....A|
000005A0: 24 B2 C7 28 31 33 29 AA  22 52 55 4E 9E 22 AA C7  |$..(13)."RUN."..|
000005B0: 28 31 33 29 00 E2 0D 26  02 81 49 B2 31 20 A4 20  |(13)...&..I.1 . |
000005C0: C3 28 41 24 29 3A 97 36  33 30 AA 49 2C C6 28 CA  |.(A$):.630.I,.(.|
000005D0: 28 41 24 2C 49 29 29 3A  82 3A 97 31 39 38 2C 49  |(A$,I)):.:.198,I|
000005E0: AB 31 00 E8 0D 30 02 A2  00 00 00                 |.1...0.....     |

..#....".":.53280,6:.53281,0:.646,7.1...
. G(147);.V.... .8);".BORDER DISK LABEL 
MAKER".\.(...{.2.. ".PLEASE PRESS <RETUR
N>"...<.. "AFTER EACH REPLY."...F.....P.
. --INPUT DISK LABEL TEXT--...Z.. ".TYPE
 INFORMATION FOR LABEL."...D.....N..".(D
O NOT TYPE BEYOND THE .*.)".@.X..".(23 C
HARACTERS OR LESS)":..31):."....* STOP."
.S....".LINE #1";I$......".             
                  * STOP"......".LINE #2
";J$.C. ..".                            
   * STOP.".V....".LINE #3";K$..........
..".HOW MANY LABELS";C$...H.C.E(C$)...R.
.C..0.C.99.190.:.... --CHOP OFF EXTRA CH
ARACTERS--.W.... C(I$).23 . I$.H(I$,23).
....."...   TURN ON PRINTER AND PRESS AN
Y KEY"...... R$...... R$."" . 250...... 
G(147);.S...."...........   LABELS BY J.
C."..."..". ......... ...NOW PRINTING...
"...,.. 4,4,2...6.. I.1. C.-.@.. --PRINT
 TOP BORDER--.W.J..4, "*****************
**************"...T..4, "*";.(29.C(I$)).
2);I$;.15.C(I$).2);"*"...^.. --CENTER AN
D PRINT TEXT--.U.H..4, "*";.(29.C(J$)).2
);J$;.15.C(J$).2);"*"...R..4, "*";.(29.C
(K$)).2);K$;.15.C(K$).2);"*".".|.. --PRI
NT BOTTOM BORDER--.L....4, "************
*******************".Y....I.C.420.`....4
.G....I...... --CLOSE PRINTER CHANNEL--.
.....4: 4:."."...B.. --DO IT AGAIN OR EN
D--.K.L.. ".DO YOU WANT TO"...V.. "MAKE 
ANOTHER LABEL?":.646,7...... R$...... H(
R$,1)."Y" . .:.20.2....:."RETURN TO MENU
 (Y/N)";Y$.A....Y$."N". ..J...."........
......LOADING PLEASE WAIT"......".....LO
AD";G(34);"LABEL BOOT";G(34);",8.".....A
$.G(13)."RUN.".G(13)...&..I.1 . C(A$):.6
30.I,F(J(A$,I)):.:.198,I.1...0.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL