> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 05 00 99 22 93 22 00 33 08 0A 00 99 |.......".".3....|
00000010: 3A 99 3A 99 3A 99 22 20 20 20 20 20 20 20 20 20 |:.:.:." |
00000020: 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 | #############|
00000030: 23 23 22 00 56 08 14 00 99 22 20 20 20 20 20 20 |##".V...." |
00000040: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 | # |
00000050: 20 20 20 20 23 22 00 79 08 1E 00 99 22 20 20 20 | #".y...." |
00000060: 20 20 20 20 20 20 20 20 20 23 20 20 4C 41 42 45 | # LABE|
00000070: 4C 49 5A 45 52 20 20 23 22 00 9C 08 28 00 99 22 |LIZER #"...(.."|
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 | # |
00000090: 20 20 20 20 20 20 20 20 20 20 23 22 00 BF 08 32 | #"...2|
000000A0: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 23 |.." #|
000000B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 00 |##############".|
000000C0: ED 08 3C 00 99 3A 99 3A 99 22 20 20 20 20 54 48 |..<..:.:." TH|
000000D0: 49 53 20 53 49 4D 50 4C 45 20 50 52 4F 47 52 41 |IS SIMPLE PROGRA|
000000E0: 4D 20 57 49 4C 4C 20 50 52 49 4E 54 22 00 18 09 |M WILL PRINT"...|
000000F0: 41 00 99 22 20 20 20 20 41 4E 59 20 41 4D 4F 55 |A.." ANY AMOU|
00000100: 4E 54 20 4F 46 20 4C 41 42 45 4C 53 20 57 49 54 |NT OF LABELS WIT|
00000110: 48 20 4E 41 4D 45 2C 22 00 43 09 46 00 99 22 20 |H NAME,".C.F.." |
00000120: 20 20 20 41 44 44 52 45 53 53 20 4F 52 20 57 48 | ADDRESS OR WH|
00000130: 41 54 45 56 45 52 20 49 4E 46 4F 52 4D 41 54 49 |ATEVER INFORMATI|
00000140: 4F 4E 22 00 6D 09 4B 00 99 22 20 20 20 20 59 4F |ON".m.K.." YO|
00000150: 55 20 44 45 53 49 52 45 2E 20 20 53 49 4D 50 4C |U DESIRE. SIMPL|
00000160: 59 20 46 4F 4C 4C 4F 57 20 54 48 45 22 00 98 09 |Y FOLLOW THE"...|
00000170: 50 00 99 22 20 20 20 20 50 52 4F 4D 50 54 53 20 |P.." PROMPTS |
00000180: 54 48 52 4F 55 47 48 4F 55 54 20 54 48 45 20 50 |THROUGHOUT THE P|
00000190: 52 4F 47 52 41 4D 2E 22 00 C2 09 55 00 99 22 20 |ROGRAM."...U.." |
000001A0: 20 20 20 28 4D 41 58 49 4D 55 4D 20 4F 46 20 34 | (MAXIMUM OF 4|
000001B0: 20 4C 49 4E 45 53 20 50 45 52 20 4C 41 42 45 4C | LINES PER LABEL|
000001C0: 29 22 00 F1 09 56 00 99 22 20 20 20 20 28 4D 41 |)"...V.." (MA|
000001D0: 58 49 4D 55 4D 20 4F 46 20 33 30 20 43 48 41 52 |XIMUM OF 30 CHAR|
000001E0: 41 43 54 45 52 53 20 50 45 52 20 4C 49 4E 45 29 |ACTERS PER LINE)|
000001F0: 22 00 02 0A 5A 00 81 58 B2 31 A4 31 30 30 30 30 |"...Z..X.1.10000|
00000200: 3A 82 00 0B 0A 5F 00 99 22 93 22 00 36 0A 64 00 |:...._..".".6.d.|
00000210: 85 22 20 12 55 92 50 50 45 52 43 41 53 45 20 4F |." .U.PPERCASE O|
00000220: 52 20 12 4C 92 4F 57 45 52 43 41 53 45 20 54 45 |R .L.OWERCASE TE|
00000230: 58 54 22 3B 43 24 00 4D 0A 69 00 8B 43 24 B2 C7 |XT";C$.M.i..C$..|
00000240: 28 38 35 29 A7 56 B2 30 3A 89 31 32 30 00 61 0A |(85).V.0:.120.a.|
00000250: 6E 00 99 22 93 22 3A 99 C7 28 31 34 29 3A 56 B2 |n..".":..(14):V.|
00000260: 37 00 89 0A 78 00 99 22 93 22 3A 99 3A 99 22 45 |7...x..".":.:."E|
00000270: 4E 54 45 52 20 46 49 52 53 54 20 4C 49 4E 45 20 |NTER FIRST LINE |
00000280: 4F 46 20 4C 41 42 45 4C 22 00 94 0A 7D 00 99 3A |OF LABEL"...}..:|
00000290: 20 85 4E 24 00 AC 0A 80 00 8B C3 28 4E 24 29 B1 | .N$.......(N$).|
000002A0: 33 30 A7 8D 33 30 30 3A 89 31 32 30 00 D1 0A 82 |30..300:.120....|
000002B0: 00 99 3A 99 22 20 45 4E 54 45 52 20 53 45 43 4F |..:." ENTER SECO|
000002C0: 4E 44 20 4C 49 4E 45 20 4F 46 20 4C 41 42 45 4C |ND LINE OF LABEL|
000002D0: 22 00 DB 0A 87 00 99 3A 85 41 24 00 F3 0A 8A 00 |"......:.A$.....|
000002E0: 8B C3 28 41 24 29 B1 33 30 A7 8D 33 30 30 3A 89 |..(A$).30..300:.|
000002F0: 31 33 30 00 17 0B 8C 00 99 3A 99 22 20 45 4E 54 |130......:." ENT|
00000300: 45 52 20 54 48 49 52 44 20 4C 49 4E 45 20 4F 46 |ER THIRD LINE OF|
00000310: 20 4C 41 42 45 4C 22 00 21 0B 91 00 99 3A 85 53 | LABEL".!....:.S|
00000320: 24 00 39 0B 94 00 8B C3 28 53 24 29 B1 33 30 A7 |$.9.....(S$).30.|
00000330: 8D 33 30 30 3A 89 31 34 30 00 5E 0B 96 00 99 3A |.300:.140.^....:|
00000340: 99 22 20 45 4E 54 45 52 20 46 4F 55 52 54 48 20 |." ENTER FOURTH |
00000350: 4C 49 4E 45 20 4F 46 20 4C 41 42 45 4C 22 00 68 |LINE OF LABEL".h|
00000360: 0B 9B 00 99 3A 85 54 24 00 80 0B 9E 00 8B C3 28 |....:.T$.......(|
00000370: 54 24 29 B1 33 30 A7 8D 33 30 30 3A 89 31 35 30 |T$).30..300:.150|
00000380: 00 89 0B A0 00 99 22 93 22 00 97 0B A5 00 99 22 |......"."......"|
00000390: 31 2E 20 22 3B 4E 24 00 A5 0B AA 00 99 22 32 2E |1. ";N$......"2.|
000003A0: 20 22 3B 41 24 00 B3 0B AF 00 99 22 33 2E 20 22 | ";A$......"3. "|
000003B0: 3B 53 24 00 C1 0B B4 00 99 22 34 2E 20 22 3B 54 |;S$......"4. ";T|
000003C0: 24 00 DE 0B B9 00 99 3A 85 22 49 53 20 54 48 49 |$......:."IS THI|
000003D0: 53 20 4F 4B 20 28 59 2F 4E 29 22 3B 51 24 00 EE |S OK (Y/N)";Q$..|
000003E0: 0B BE 00 8B 51 24 B2 22 59 22 A7 33 32 30 00 12 |....Q$."Y".320..|
000003F0: 0C C3 00 99 3A 85 22 57 48 49 43 48 20 4C 49 4E |....:."WHICH LIN|
00000400: 45 20 4E 45 45 44 53 20 43 48 41 4E 47 45 44 22 |E NEEDS CHANGED"|
00000410: 3B 51 00 29 0C C5 00 91 51 89 32 32 30 2C 32 33 |;Q.)....Q.220,23|
00000420: 30 2C 32 34 30 2C 32 35 30 00 4F 0C DC 00 99 22 |0,240,250.O...."|
00000430: 93 22 3A 99 22 45 4E 54 45 52 20 46 49 52 53 54 |.":."ENTER FIRST|
00000440: 20 4C 49 4E 45 20 4F 46 20 4C 41 42 45 4C 22 00 | LINE OF LABEL".|
00000450: 5A 0C E1 00 99 3A 20 85 4E 24 00 72 0C E2 00 8B |Z....: .N$.r....|
00000460: C3 28 4E 24 29 B1 33 30 A7 8D 33 30 30 3A 89 32 |.(N$).30..300:.2|
00000470: 32 30 00 7B 0C E3 00 89 31 36 30 00 A0 0C E6 00 |20.{....160.....|
00000480: 99 3A 99 22 20 45 4E 54 45 52 20 53 45 43 4F 4E |.:." ENTER SECON|
00000490: 44 20 4C 49 4E 45 20 4F 46 20 4C 41 42 45 4C 22 |D LINE OF LABEL"|
000004A0: 00 AA 0C EB 00 99 3A 85 41 24 00 C2 0C EC 00 8B |......:.A$......|
000004B0: C3 28 41 24 29 B1 33 30 A7 8D 33 30 30 3A 89 32 |.(A$).30..300:.2|
000004C0: 33 30 00 CB 0C ED 00 89 31 36 30 00 EF 0C F0 00 |30......160.....|
000004D0: 99 3A 99 22 20 45 4E 54 45 52 20 54 48 49 52 44 |.:." ENTER THIRD|
000004E0: 20 4C 49 4E 45 20 4F 46 20 4C 41 42 45 4C 22 00 | LINE OF LABEL".|
000004F0: F9 0C F5 00 99 3A 85 53 24 00 11 0D F6 00 8B C3 |.....:.S$.......|
00000500: 28 53 24 29 B1 33 30 A7 8D 33 30 30 3A 89 32 34 |(S$).30..300:.24|
00000510: 30 00 1A 0D F7 00 89 31 36 30 00 3F 0D FA 00 99 |0......160.?....|
00000520: 3A 99 22 20 45 4E 54 45 52 20 46 4F 55 52 54 48 |:." ENTER FOURTH|
00000530: 20 4C 49 4E 45 20 4F 46 20 4C 41 42 45 4C 22 00 | LINE OF LABEL".|
00000540: 49 0D FF 00 99 3A 85 54 24 00 61 0D 00 01 8B C3 |I....:.T$.a.....|
00000550: 28 54 24 29 B1 33 30 A7 8D 33 30 30 3A 89 32 35 |(T$).30..300:.25|
00000560: 30 00 6A 0D 01 01 89 31 36 30 00 97 0D 2C 01 99 |0.j....160...,..|
00000570: 3A 99 22 4C 49 4E 45 20 54 4F 4F 20 4C 4F 4E 47 |:."LINE TOO LONG|
00000580: 2E 20 20 52 45 44 4F 2E 22 3A 81 58 B2 31 A4 32 |. REDO.":.X.1.2|
00000590: 35 30 30 3A 82 3A 8E 00 C5 0D 40 01 99 22 93 22 |500:.:....@.."."|
000005A0: 3A 99 22 20 20 20 53 48 41 4C 4C 20 57 45 20 52 |:." SHALL WE R|
000005B0: 55 4E 20 41 20 54 45 53 54 20 50 41 54 54 45 52 |UN A TEST PATTER|
000005C0: 4E 20 54 4F 22 00 F1 0D 45 01 99 22 20 20 20 41 |N TO"...E.." A|
000005D0: 4C 49 47 4E 20 54 48 45 20 4C 41 42 45 4C 53 20 |LIGN THE LABELS |
000005E0: 49 4E 20 59 4F 55 52 20 50 52 49 4E 54 45 52 3F |IN YOUR PRINTER?|
000005F0: 22 00 05 0E 4A 01 85 51 24 3A 8B 51 24 B2 22 4E |"...J..Q$:.Q$."N|
00000600: 22 A7 34 30 30 00 10 0E 4F 01 9F 34 2C 34 2C 37 |".400...O..4,4,7|
00000610: 00 38 0E 54 01 98 34 2C 22 46 49 52 53 54 20 4C |.8.T..4,"FIRST L|
00000620: 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |INE ************|
00000630: 2A 2A 2A 2A 2A 2A 2A 22 00 60 0E 59 01 98 34 2C |*******".`.Y..4,|
00000640: 22 53 45 43 4F 4E 44 20 4C 49 4E 45 20 2A 2A 2A |"SECOND LINE ***|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
00000660: 00 88 0E 5E 01 98 34 2C 22 54 48 49 52 44 20 4C |...^..4,"THIRD L|
00000670: 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |INE ************|
00000680: 2A 2A 2A 2A 2A 2A 2A 22 00 B0 0E 63 01 98 34 2C |*******"...c..4,|
00000690: 22 46 4F 55 52 54 48 20 4C 49 4E 45 20 2A 2A 2A |"FOURTH LINE ***|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
000006B0: 00 BD 0E 66 01 98 34 2C C7 28 31 30 29 00 C4 0E |...f..4,.(10)...|
000006C0: 68 01 A0 34 00 E7 0E 72 01 99 3A 85 22 20 20 20 |h..4...r..:." |
000006D0: 49 53 20 54 48 45 20 41 4C 49 47 4E 4D 45 4E 54 |IS THE ALIGNMENT|
000006E0: 20 4F 4B 22 3B 50 24 00 F8 0E 77 01 8B 50 24 B2 | OK";P$...w..P$.|
000006F0: 22 4E 22 A7 89 33 32 30 00 25 0F 90 01 99 22 93 |"N"..320.%....".|
00000700: 22 3A 99 22 20 20 20 48 4F 57 20 4D 41 4E 59 20 |":." HOW MANY |
00000710: 43 4F 50 49 45 53 20 4F 46 20 54 48 49 53 20 4C |COPIES OF THIS L|
00000720: 41 42 45 4C 22 00 3C 0F 95 01 99 22 20 20 20 44 |ABEL".<...." D|
00000730: 4F 20 59 4F 55 20 57 49 53 48 3F 22 00 46 0F 9A |O YOU WISH?".F..|
00000740: 01 99 3A 20 85 58 00 6B 0F 9F 01 99 3A 20 99 22 |..: .X.k....: ."|
00000750: 20 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | PRESS ANY KEY|
00000760: 20 54 4F 20 42 45 47 49 4E 20 22 00 8A 0F A4 01 | TO BEGIN ".....|
00000770: 99 22 20 20 20 50 52 49 4E 54 49 4E 47 22 3B 58 |." PRINTING";X|
00000780: 3B 22 4C 41 42 45 4C 53 2E 22 00 9D 0F A9 01 A1 |;"LABELS."......|
00000790: 4C 24 3A 8B 4C 24 B2 22 22 A7 34 32 35 00 A8 0F |L$:.L$."".425...|
000007A0: AE 01 9F 34 2C 34 2C 56 00 B3 0F B0 01 81 50 B2 |...4,4,V......P.|
000007B0: 31 A4 58 00 BD 0F B3 01 98 34 2C 4E 24 00 C7 0F |1.X......4,N$...|
000007C0: B8 01 98 34 2C 41 24 00 D1 0F BD 01 98 34 2C 53 |...4,A$......4,S|
000007D0: 24 00 DB 0F C2 01 98 34 2C 54 24 00 E8 0F C7 01 |$......4,T$.....|
000007E0: 98 34 2C C7 28 31 30 29 00 EF 0F CC 01 82 50 00 |.4,.(10)......P.|
.......".".3....:.:.:." #####
##########".V...." #
#".Y...." # LABELIZER #
"...(.." # #"...2
.." ###############"...<..:.:
." THIS SIMPLE PROGRAM WILL PRINT"...
A.." ANY AMOUNT OF LABELS WITH NAME,"
.C.F.." ADDRESS OR WHATEVER INFORMATI
ON".M.K.." YOU DESIRE. SIMPLY FOLLOW
THE"...P.." PROMPTS THROUGHOUT THE P
ROGRAM.".B.U.." (MAXIMUM OF 4 LINES P
ER LABEL)"...V.." (MAXIMUM OF 30 CHAR
ACTERS PER LINE)"...Z..X.1.10000:...._..
".".6.D.." .U.PPERCASE OR .L.OWERCASE TE
XT";C$.M.I..C$.G(85).V.0:.120.A.N..".":.
G(14):V.7...X..".":.:."ENTER FIRST LINE
OF LABEL"...}..: .N$......C(N$).30..300:
.120.Q....:." ENTER SECOND LINE OF LABEL
"......:.A$......C(A$).30..300:.130.....
.:." ENTER THIRD LINE OF LABEL".!....:.S
$.9....C(S$).30..300:.140.^....:." ENTER
FOURTH LINE OF LABEL".H....:.T$......C(
T$).30..300:.150... .."."......"1. ";N$.
....."2. ";A$......"3. ";S$.A...."4. ";T
$......:."IS THIS OK (Y/N)";Q$......Q$."
Y".320...C..:."WHICH LINE NEEDS CHANGED"
;Q.).E..Q.220,230,240,250.O....".":."ENT
ER FIRST LINE OF LABEL".Z....: .N$.R....
C(N$).30..300:.220.{....160. ....:." ENT
ER SECOND LINE OF LABEL"......:.A$.B....
C(A$).30..300:.230.K....160......:." ENT
ER THIRD LINE OF LABEL"......:.S$......C
(S$).30..300:.240......160.?....:." ENTE
R FOURTH LINE OF LABEL".I....:.T$.A....C
(T$).30..300:.250.J....160...,..:."LINE
TOO LONG. REDO.":.X.1.2500:.:..E.@.."."
:." SHALL WE RUN A TEST PATTERN TO"...
E.." ALIGN THE LABELS IN YOUR PRINTER?
"...J..Q$:.Q$."N".400...O..4,4,7.8.T..4,
"FIRST LINE *******************".`.Y..4,
"SECOND LINE ******************"...^..4,
"THIRD LINE *******************"...C..4,
"FOURTH LINE ******************"...F..4,
G(10).D.H. 4...R..:." IS THE ALIGNMENT
OK";P$...W..P$."N"..320.%....".":." H
OW MANY COPIES OF THIS LABEL".<...." D
O YOU WISH?".F....: .X.K....: ." PRESS
ANY KEY TO BEGIN "......" PRINTING";X
;"LABELS."......L$:.L$."".425......4,4,V
......P.1.X......4,N$.G....4,A$.Q....4,S
$...B..4,T$...G..4,G(10)...L..P.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL