LABEL PRINTER
FILE INFORMATION
FILENAME(S): LABEL PRINTER
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
674eea0c5efb657bd1b645dfd58345f0ecc2dd6273aedd4c1792da2cc57e4751
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | LABEL PRINTER | PRG | Sailor, Ganheden | 27 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 00 00 89 31 30 00 42 08 01 00 9F 31 |.......10.B....1| 00000010: 35 2C 38 2C 31 35 2C 22 53 30 3A 4C 41 42 45 4C |5,8,15,"S0:LABEL| 00000020: 20 50 52 49 4E 54 45 52 22 3A A0 31 35 3A 94 22 | PRINTER":.15:."| 00000030: 4C 41 42 45 4C 20 50 52 49 4E 54 45 52 22 2C 38 |LABEL PRINTER",8| 00000040: 3A 80 00 58 08 0A 00 86 4C 24 28 35 29 2C 45 25 |:..X....L$(5),E%| 00000050: 28 35 29 3A 44 56 B2 34 00 8A 08 0F 00 99 54 C7 |(5):DV.4......T.| 00000060: 28 39 29 C7 28 31 34 32 29 C7 28 38 29 22 1F 93 |(9).(142).(8)"..| 00000070: 41 4C 49 47 4E 20 50 52 49 4E 54 20 48 45 41 44 |ALIGN PRINT HEAD| 00000080: 20 41 53 20 53 48 4F 57 4E 22 00 C7 08 14 00 99 | AS SHOWN"......| 00000090: 22 90 11 20 20 12 DF 11 9D 9D 20 20 92 11 9D 9D |".. ..... ....| 000000A0: 9D 12 20 20 92 D4 11 9D D4 91 9C C0 C0 4C 41 42 |.. .........LAB| 000000B0: 45 4C 20 20 20 20 20 90 12 53 49 44 45 11 9D 9D |EL ..SIDE...| 000000C0: 9D 9D 56 49 45 57 22 00 DF 08 19 00 99 22 9C DD |..VIEW"......"..| 000000D0: 11 9D CA C0 50 52 49 4E 54 20 48 45 41 44 22 00 |....PRINT HEAD".| 000000E0: 03 09 1E 00 99 22 11 11 11 11 90 20 20 20 D2 D2 |....."..... ..| 000000F0: D2 11 9D 9D 9D 9D 9D 12 A9 BC BE DF 11 9D 9D 9D |................| 00000100: 20 20 22 00 20 09 23 00 99 22 9C 91 91 91 1D 1D | ". .#.."......| 00000110: 1D 1D 1D 1D 1D C9 11 9D CA C0 4C 41 42 45 4C 22 |..........LABEL"| 00000120: 00 4A 09 25 00 99 22 11 11 20 20 CA C0 50 52 49 |.J.%..".. ..PRI| 00000130: 4E 54 20 48 45 41 44 20 20 91 91 90 12 54 4F 50 |NT HEAD ....TOP| 00000140: 11 9D 9D 9D 9D 56 49 45 57 22 00 71 09 28 00 99 |.....VIEW".q.(..| 00000150: 22 11 11 11 12 20 20 20 20 20 50 55 53 48 20 41 |".... PUSH A| 00000160: 4E 59 20 4B 45 59 20 20 20 20 20 22 3A 8D 33 33 |NY KEY ":.33| 00000170: 30 00 88 09 2D 00 8F 20 55 50 50 45 52 20 4C 4F |0...-.. UPPER LO| 00000180: 57 45 52 20 43 41 53 45 00 A6 09 32 00 99 22 93 |WER CASE...2..".| 00000190: 11 11 55 50 50 45 52 20 26 20 4C 4F 57 45 52 20 |..UPPER & LOWER | 000001A0: 43 41 53 45 3F 22 00 D1 09 37 00 8D 33 33 30 3A |CASE?"...7..330:| 000001B0: 8B 20 41 24 B2 22 59 22 A7 20 43 24 B2 C7 28 31 |. A$."Y". C$..(1| 000001C0: 37 29 3A 99 C7 28 39 29 C7 28 31 34 29 3A 89 36 |7):..(9).(14):.6| 000001D0: 35 00 E6 09 3C 00 43 24 B2 C7 28 31 35 29 3A 99 |5...<.C$..(15):.| 000001E0: C7 28 31 34 32 29 00 04 0A 41 00 81 49 B2 31 A4 |.(142)...A..I.1.| 000001F0: 35 3A 4C 24 28 49 29 B2 22 22 3A 45 25 28 49 29 |5:L$(I)."":E%(I)| 00000200: B2 30 3A 82 00 16 0A 46 00 8F 20 49 4E 50 55 54 |.0:....F.. INPUT| 00000210: 20 4C 41 42 4C 45 00 21 0A 4B 00 81 49 B2 31 A4 | LABLE.!.K..I.1.| 00000220: 35 00 57 0A 50 00 99 22 93 1F 59 4F 55 20 48 41 |5.W.P.."..YOU HA| 00000230: 56 45 20 41 20 4D 41 58 49 4D 55 4D 20 4F 46 20 |VE A MAXIMUM OF | 00000240: 12 20 35 20 92 20 52 4F 57 53 20 57 49 54 48 20 |. 5 . ROWS WITH | 00000250: 12 20 33 33 20 92 22 00 8C 0A 52 00 99 22 43 48 |. 33 ."...R.."CH| 00000260: 41 52 41 43 54 45 52 53 20 50 45 52 20 52 4F 57 |ARACTERS PER ROW| 00000270: 2E 22 3A 99 22 11 49 46 20 54 48 45 20 31 53 54 |.":.".IF THE 1ST| 00000280: 20 43 48 41 52 41 43 54 45 52 22 3B 00 C0 0A 55 | CHARACTER";...U| 00000290: 00 99 22 20 49 53 20 27 5E 27 20 54 48 45 4E 20 |.." IS '^' THEN | 000002A0: 54 48 45 20 52 4F 57 20 20 20 57 49 4C 4C 20 42 |THE ROW WILL B| 000002B0: 45 20 44 4F 55 42 4C 45 20 57 49 44 54 48 2E 22 |E DOUBLE WIDTH."| 000002C0: 00 D9 0A 5A 00 99 22 13 11 11 11 11 11 11 11 11 |...Z..".........| 000002D0: 11 4C 49 4E 45 20 23 22 49 00 05 0B 5F 00 99 22 |.LINE #"I..._.."| 000002E0: 20 20 22 3B C7 28 33 34 29 3B C7 28 33 34 29 3B | ";.(34);.(34);| 000002F0: C7 28 32 30 29 3B 3A 8B 20 45 25 28 49 29 A7 20 |.(20);:. E%(I). | 00000300: 99 22 5E 22 3B 00 1E 0B 64 00 99 4C 24 28 49 29 |."^";...d..L$(I)| 00000310: 3A 99 22 13 11 11 11 11 11 11 11 11 11 22 00 2A |:."..........".*| 00000320: 0B 69 00 85 20 4C 24 28 49 29 00 61 0B 6E 00 8B |.i.. L$(I).a.n..| 00000330: 20 C8 28 4C 24 28 49 29 2C 31 29 B2 22 5E 22 A7 | .(L$(I),1)."^".| 00000340: 45 25 28 49 29 B2 31 3A 4C 24 28 49 29 B2 C9 28 |E%(I).1:L$(I)..(| 00000350: 4C 24 28 49 29 2C C3 28 4C 24 28 49 29 29 AB 31 |L$(I),.(L$(I)).1| 00000360: 29 00 7C 0B 70 00 8B 20 C8 28 4C 24 28 49 29 2C |).|.p.. .(L$(I),| 00000370: 31 29 B2 22 5E 22 A7 20 89 31 32 30 00 88 0B 73 |1)."^". .120...s| 00000380: 00 45 25 28 49 29 B2 30 00 A6 0B 78 00 8B 20 C3 |.E%(I).0...x.. .| 00000390: 28 4C 24 28 49 29 29 B1 33 33 AB 45 25 28 49 29 |(L$(I)).33.E%(I)| 000003A0: AC 31 36 A7 38 30 00 AD 0B 7D 00 82 49 00 C5 0B |.16.80...}..I...| 000003B0: 82 00 8F 20 43 45 4E 54 45 52 20 56 45 52 54 49 |... CENTER VERTI| 000003C0: 43 41 4C 4C 59 00 F4 0B 87 00 99 22 11 43 45 4E |CALLY......".CEN| 000003D0: 54 45 52 45 44 20 56 45 52 54 49 43 41 4C 4C 59 |TERED VERTICALLY| 000003E0: 3F 22 3A 8D 33 33 30 3A 8B 41 24 B3 B1 22 59 22 |?":.330:.A$.."Y"| 000003F0: A7 31 38 35 00 17 0C 8C 00 4B B2 30 3A 81 49 B2 |.185.....K.0:.I.| 00000400: 31 A4 35 3A 8B 4C 24 28 49 29 B3 B1 22 22 A7 49 |1.5:.L$(I).."".I| 00000410: B2 35 3A 89 31 35 30 00 21 0C 91 00 4B B2 4B AA |.5:.150.!...K.K.| 00000420: 31 00 28 0C 96 00 82 49 00 4E 0C 9B 00 4B 4B B2 |1.(....I.N...KK.| 00000430: 30 3A 81 49 B2 31 A4 35 3A 8B 4C 24 28 36 AB 31 |0:.I.1.5:.L$(6.1| 00000440: 29 B3 B1 22 22 A7 49 B2 35 3A 89 31 36 35 00 5A |).."".I.5:.165.Z| 00000450: 0C A0 00 4B 4B B2 4B 4B AA 31 00 61 0C A5 00 82 |...KK.KK.1.a....| 00000460: 49 00 83 0C AA 00 8B 4B AA 31 B3 4B 4B A7 81 49 |I......K.1.KK..I| 00000470: B2 31 A4 4B 4B AB 4B AB 32 3A 81 4A B2 35 A4 32 |.1.KK.K.2:.J.5.2| 00000480: A9 AB 31 00 BA 0C AC 00 8B 4B AA 31 B3 4B 4B A7 |..1......K.1.KK.| 00000490: 4C 24 28 4A 29 B2 4C 24 28 4A AB 31 29 3A 45 25 |L$(J).L$(J.1):E%| 000004A0: 28 4A 29 B2 45 25 28 4A AB 31 29 3A 82 4A 3A 4C |(J).E%(J.1):.J:L| 000004B0: 24 28 31 29 B2 22 22 3A 82 49 00 E5 0C AF 00 8B |$(1)."":.I......| 000004C0: 4B B1 4B 4B A7 81 49 B2 31 A4 4B AB 4B 4B AB 31 |K.KK..I.1.K.KK.1| 000004D0: 3A 81 4A B2 31 A4 34 3A 4C 24 28 4A 29 B2 4C 24 |:.J.1.4:L$(J).L$| 000004E0: 28 4A AA 31 29 00 0C 0D B1 00 8B 4B B1 4B 4B A7 |(J.1)......K.KK.| 000004F0: 45 25 28 4A 29 B2 45 25 28 4A AA 31 29 3A 82 4A |E%(J).E%(J.1):.J| 00000500: 3A 4C 24 28 35 29 B2 22 22 3A 82 49 00 1E 0D B4 |:L$(5)."":.I....| 00000510: 00 8F 20 43 48 45 43 4B 20 4C 41 42 45 4C 00 34 |.. CHECK LABEL.4| 00000520: 0D B9 00 99 22 93 12 20 4C 41 42 45 4C 20 43 48 |....".. LABEL CH| 00000530: 45 43 4B 22 00 7A 0D BE 00 99 22 11 49 46 20 54 |ECK".z....".IF T| 00000540: 48 45 20 4C 49 4E 45 20 49 53 20 52 45 56 45 52 |HE LINE IS REVER| 00000550: 53 45 44 2C 20 54 48 45 4E 20 49 54 20 49 53 20 |SED, THEN IT IS | 00000560: 44 4F 55 42 4C 45 20 20 57 49 44 54 48 20 4C 45 |DOUBLE WIDTH LE| 00000570: 54 54 45 52 53 2E 11 11 11 22 00 A2 0D C3 00 81 |TTERS...."......| 00000580: 49 B2 31 A4 35 3A 8B 20 45 25 28 49 29 A7 20 99 |I.1.5:. E%(I). .| 00000590: 22 90 12 22 49 22 9C 22 4C 24 28 49 29 3A 89 32 |".."I"."L$(I):.2| 000005A0: 30 35 00 B6 0D C8 00 99 22 90 12 22 49 22 92 9C |05......".."I"..| 000005B0: 22 4C 24 28 49 29 00 BD 0D CD 00 82 49 00 D8 0D |"L$(I)......I...| 000005C0: D2 00 99 22 90 11 49 53 20 54 48 49 53 20 4C 41 |..."..IS THIS LA| 000005D0: 42 45 4C 20 4F 4B 3F 22 00 ED 0D D7 00 8D 33 33 |BEL OK?"......33| 000005E0: 30 3A 8B 41 24 B3 B1 22 59 22 A7 37 35 00 14 0E |0:.A$.."Y".75...| 000005F0: DC 00 99 22 93 48 4F 57 20 4D 41 4E 59 3F 22 3A |...".HOW MANY?":| 00000600: 85 41 24 3A 4E B2 C5 28 41 24 29 3A 8B 4E B3 31 |.A$:N..(A$):.N.1| 00000610: A7 31 38 35 00 42 0E E1 00 99 22 11 11 11 43 45 |.185.B...."...CE| 00000620: 4E 54 45 52 45 44 20 4F 52 20 20 20 20 20 20 20 |NTERED OR | 00000630: 20 20 20 20 4C 45 46 54 4A 55 53 54 49 46 49 45 | LEFTJUSTIFIE| 00000640: 44 22 00 60 0E E6 00 8D 33 33 30 3A 8B 41 24 B2 |D".`....330:.A$.| 00000650: 22 4C 22 A7 43 48 24 B2 22 4C 22 3A 89 32 35 30 |"L".CH$."L":.250| 00000660: 00 79 0E EB 00 8B 41 24 B2 22 43 22 A7 43 48 24 |.y....A$."C".CH$| 00000670: B2 22 43 22 3A 89 32 36 35 00 82 0E F0 00 89 32 |."C":.265......2| 00000680: 33 30 00 95 0E F5 00 8F 20 4C 45 46 54 20 4A 55 |30...... LEFT JU| 00000690: 53 54 49 46 59 00 BB 0E FA 00 4B B2 31 3A 81 49 |STIFY.....K.1:.I| 000006A0: B2 32 A4 35 3A 8B C3 28 4C 24 28 49 29 29 B1 C3 |.2.5:..(L$(I))..| 000006B0: 28 4C 24 28 4B 29 29 A7 4B B2 49 00 F6 0E FF 00 |(L$(K)).K.I.....| 000006C0: 82 49 3A 41 24 B2 22 22 3A 81 49 B2 31 A4 B5 28 |.I:A$."":.I.1..(| 000006D0: 28 33 33 AB 45 25 28 4B 29 AC 31 36 AB C3 28 4C |(33.E%(K).16..(L| 000006E0: 24 28 4B 29 29 29 AD 32 29 3A 41 24 B2 41 24 AA |$(K))).2):A$.A$.| 000006F0: 22 20 22 3A 82 49 00 0C 0F 04 01 8F 20 53 45 4E |" ":.I...... SEN| 00000700: 54 20 54 4F 20 50 52 49 4E 54 45 52 00 2A 0F 09 |T TO PRINTER.*..| 00000710: 01 9F 34 2C 34 3A 8B 43 24 B2 C7 28 31 37 29 A7 |..4,4:.C$..(17).| 00000720: 20 A0 34 3A 9F 34 2C 34 2C 37 00 46 0F 0E 01 81 | .4:.4,4,7.F....| 00000730: 4B B2 31 A4 4E 3A 99 22 13 11 11 11 11 11 11 11 |K.1.N:."........| 00000740: 12 4C 42 4C 22 4B 00 59 0F 13 01 A1 5A 24 3A 8B |.LBL"K.Y....Z$:.| 00000750: 5A 24 B2 22 22 A7 32 39 35 00 6D 0F 18 01 8B 5A |Z$."".295.m....Z| 00000760: 24 B2 22 51 22 A7 A0 34 3A 89 31 38 30 00 8C 0F |$."Q"..4:.180...| 00000770: 1D 01 99 22 13 11 11 11 11 11 11 11 11 11 12 50 |..."...........P| 00000780: 55 53 48 20 41 4E 59 20 4B 45 59 22 00 9F 0F 22 |USH ANY KEY"..."| 00000790: 01 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 39 30 00 |..Z$:.Z$."".290.| 000007A0: AF 0F 23 01 8B 5A 24 B2 22 51 22 A7 32 38 30 00 |..#..Z$."Q".280.| 000007B0: CC 0F 24 01 99 22 13 11 11 11 11 11 11 11 11 11 |..$.."..........| 000007C0: 20 20 20 20 20 20 20 20 20 20 20 22 00 F6 0F 27 | "...'| 000007D0: 01 81 49 B2 31 A4 35 3A 98 44 56 2C 43 24 3B 3A |..I.1.5:.DV,C$;:| 000007E0: 58 24 B2 22 22 3A 8B 20 45 25 28 49 29 A7 58 24 |X$."":. E%(I).X$| 000007F0: B2 C7 28 31 34 29 00 21 10 2C 01 8B 43 48 24 B2 |..(14).!.,..CH$.| 00000800: 22 4C 22 A7 98 44 56 2C 43 24 AA 41 24 AA 58 24 |"L"..DV,C$.A$.X$| 00000810: AA 4C 24 28 49 29 AA C7 28 31 35 29 3A 89 33 31 |.L$(I)..(15):.31| 00000820: 30 00 4B 10 31 01 41 24 B2 22 22 3A 81 4A B2 31 |0.K.1.A$."":.J.1| 00000830: A4 B5 28 28 33 33 AB 45 25 28 49 29 AC 31 36 AB |..((33.E%(I).16.| 00000840: C3 28 4C 24 28 49 29 29 AD 32 29 00 75 10 33 01 |.(L$(I)).2).u.3.| 00000850: 41 24 B2 41 24 AA 22 20 22 3A 82 4A 3A 98 44 56 |A$.A$." ":.J:.DV| 00000860: 2C 43 24 AA 58 24 AA 41 24 AA 4C 24 28 49 29 AA |,C$.X$.A$.L$(I).| 00000870: C7 28 31 35 29 00 86 10 36 01 82 49 3A 98 44 56 |.(15)...6..I:.DV| 00000880: 2C C7 28 31 35 29 00 90 10 3B 01 82 4B 3A A0 34 |,.(15)...;..K:.4| 00000890: 00 BC 10 40 01 99 22 11 11 44 4F 20 59 4F 55 20 |...@.."..DO YOU | 000008A0: 57 41 4E 54 20 4D 4F 52 45 3F 22 3A 8D 33 33 30 |WANT MORE?":.330| 000008B0: 3A 8B 41 24 B2 22 59 22 A7 31 38 35 00 C4 10 45 |:.A$."Y".185...E| 000008C0: 01 89 36 35 00 D7 10 4A 01 A1 41 24 3A 8B 41 24 |..65...J..A$:.A$| 000008D0: B2 22 22 A7 33 33 30 00 DD 10 4F 01 8E 00 00 00 |."".330...O.....|
.......10.B....15,8,15,"S0:LABEL PRINTER ": 15:."LABEL PRINTER",8:..X....L$(5),E% (5):DV.4......TG(9)G(142)G(8)"..ALIGN PR INT HEAD AS SHOWN".G....".. ..... .... .. .T..T....LABEL ..SIDE.....VIEW". ....."....J.PRINT HEAD"......"..... RR R............... ". .#.."...........I.. J.LABEL".J.%..".. J.PRINT HEAD ....TOP .....VIEW".Q.(..".... PUSH ANY KEY ":.330...-.. UPPER LOWER CASE...2..". ..UPPER & LOWER CASE?".Q.7..330:. A$."Y" . C$.G(17):.G(9)G(14):.65...<.C$.G(15):. G(142)...A..I.1.5:L$(I)."":E%(I).0:....F .. INPUT LABLE.!.K..I.1.5.W.P.."..YOU HA VE A MAXIMUM OF . 5 . ROWS WITH . 33 .". ..R.."CHARACTERS PER ROW.":.".IF THE 1ST CHARACTER";...U.." IS '^' THEN THE ROW WILL BE DOUBLE WIDTH.".Y.Z.."......... .LINE #"I..._.." ";G(34);G(34);G(20);:. E%(I). ."^";...D..L$(I):."..........".* .I.. L$(I).A.N.. H(L$(I),1)."^".E%(I).1: L$(I).I(L$(I),C(L$(I)).1).|.P.. H(L$(I), 1)."^". .120...S.E%(I).0...X.. C(L$(I)). 33.E%(I).16.80...}..I.E.... CENTER VERTI CALLY......".CENTERED VERTICALLY?":.330: .A$.."Y".185.....K.0:.I.1.5:.L$(I).."".I .5:.150.!...K.K.1.(....I.N...KK.0:.I.1.5 :.L$(6.1).."".I.5:.165.Z. .KK.KK.1.A.... I......K.1.KK..I.1.KK.K.2:.J.5.2..1..... .K.1.KK.L$(J).L$(J.1):E%(J).E%(J.1):.J:L $(1)."":.I......K.KK..I.1.K.KK.1:.J.1.4: L$(J).L$(J.1)......K.KK.E%(J).E%(J.1):.J :L$(5)."":.I...... CHECK LABEL.4....".. LABEL CHECK".Z....".IF THE LINE IS REVER SED, THEN IT IS DOUBLE WIDTH LETTERS... ."...C..I.1.5:. E%(I). .".."I"."L$(I):.2 05...H..".."I".."L$(I)...M..I.X.R.."..IS THIS LABEL OK?"...W..330:.A$.."Y".75... ...".HOW MANY?":.A$:N.E(A$):.N.1.185.B.. .."...CENTERED OR LEFTJUSTIFIE D".`....330:.A$."L".CH$."L":.250.Y....A$ ."C".CH$."C":.265......230...... LEFT JU STIFY.....K.1:.I.2.5:.C(L$(I)).C(L$(K)). K.I......I:A$."":.I.1..((33.E%(K).16.C(L $(K))).2):A$.A$." ":.I...... SENT TO PRI NTER.*....4,4:.C$.G(17). 4:.4,4,7.F.... K.1.N:.".........LBL"K.Y....Z$:.Z$."".29 5.M....Z$."Q". 4:.180......"...........P USH ANY KEY"..."..Z$:.Z$."".290...#..Z$. "Q".280.L.$..".......... "...' ..I.1.5:.DV,C$;:X$."":. E%(I).X$.G(14).! .,..CH$."L"..DV,C$.A$.X$.L$(I).G(15):.31 0.K.1.A$."":.J.1..((33.E%(I).16.C(L$(I)) .2).U.3.A$.A$." ":.J:.DV,C$.X$.A$.L$(I). G(15)...6..I:.DV,G(15)...;..K: 4...@..". .DO YOU WANT MORE?":.330:.A$."Y".185.D.E ..65.W.J..A$:.A$."".330...O.....
> CLICK IMAGE PREVIEW FOR FULL MODAL