SLEEVEMAKER
FILE INFORMATION
FILENAME(S): SLEEVEMAKER
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-10-19 22:48:38
APPEARS ON: 3 disk(s)
FILE HASH
ca9b993fd74a891f6ab4a31fec30ab9835ef23c53dbfd8c4b17af1133927f6e7
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE MAY | SLEEVEMAKER | PRG | Radd Maxx | 25 | 1 | DOWNLOAD FILE |
| GAZETTE MAY | SLEEVEMAKER | PRG | Sailor, Ganheden | 25 | 1 | DOWNLOAD FILE |
| GAZETTE MAY | SLEEVEMAKER | PRG | Sailor, Ganheden | 25 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 86 20 53 47 24 28 32 2C 31 39 |..).... SG$(2,19| 00000010: 29 2C 54 45 24 28 31 39 29 3A 8F 20 53 45 54 20 |),TE$(19):. SET | 00000020: 55 50 20 41 52 52 41 59 53 00 3C 08 14 00 81 49 |UP ARRAYS.<....I| 00000030: B2 31 A4 32 3A 81 4A B2 31 A4 31 39 00 5F 08 1E |.1.2:.J.1.19._..| 00000040: 00 53 47 24 28 49 2C 4A 29 B2 22 20 20 20 20 20 |.SG$(I,J)." | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00000060: 69 08 28 00 82 4A 3A 82 49 00 9F 08 32 00 53 45 |i.(..J:.I...2.SE| 00000070: 54 24 B2 22 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T$."+-----------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 22 00 |-------------+".| 000000A0: D6 08 3C 00 41 58 24 B2 22 2D 2D 2D 2D 2D 2D 2D |..<.AX$."-------| 000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 5A 58 |------------":ZX| 000000C0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 000000D0: 20 20 20 20 20 22 00 EA 08 46 00 46 4D 24 B2 22 | "...F.FM$."| 000000E0: 41 22 3A 46 43 24 B2 22 42 22 00 18 09 50 00 99 |A":FC$."B"...P..| 000000F0: 22 93 11 11 11 90 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00000100: 12 43 41 53 53 45 54 54 45 20 53 4C 45 45 56 45 |.CASSETTE SLEEVE| 00000110: 20 4D 41 4B 45 52 92 22 00 46 09 5A 00 99 22 11 | MAKER.".F.Z..".| 00000120: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 54 45 |............ENTE| 00000130: 52 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 |R THE NUMBER OF | 00000140: 53 49 44 45 53 22 00 6F 09 64 00 99 22 11 1D 1D |SIDES".o.d.."...| 00000150: 1D 1D 1D 1D 1D 1D 59 4F 55 20 57 49 53 48 20 54 |......YOU WISH T| 00000160: 4F 20 4C 41 42 45 4C 20 28 31 2F 32 29 22 3B 00 |O LABEL (1/2)";.| 00000170: 85 09 6E 00 85 43 3A 8B 43 B3 B1 31 AF 43 B3 B1 |..n..C:.C..1.C..| 00000180: 32 A7 31 31 30 00 8E 09 78 00 41 54 B2 43 00 B8 |2.110...x.AT.C..| 00000190: 09 82 00 99 22 93 11 11 11 11 1D 1D 1D 1D 1D 1D |...."...........| 000001A0: 1D 1D 1D 54 48 45 20 4E 45 58 54 20 53 43 52 45 |...THE NEXT SCRE| 000001B0: 45 4E 20 57 49 4C 4C 22 00 E1 09 8C 00 99 22 11 |EN WILL"......".| 000001C0: 1D 1D 1D 1D 1D 1D 1D 53 48 4F 57 20 48 41 4C 46 |.......SHOW HALF| 000001D0: 20 4F 46 20 41 20 54 41 50 45 20 4C 41 42 45 4C | OF A TAPE LABEL| 000001E0: 22 00 12 0A 96 00 99 22 11 11 11 11 1D 1D 1D 1D |"......"........| 000001F0: 1D 45 4E 54 45 52 45 44 20 4C 49 4E 45 53 20 4D |.ENTERED LINES M| 00000200: 41 59 20 12 4E 4F 54 92 20 43 4F 4E 54 41 49 4E |AY .NOT. CONTAIN| 00000210: 3A 22 00 3E 0A A0 00 99 22 11 11 11 11 1D 1D 1D |:".>....".......| 00000220: 1D 1D 1D 1D 1D 12 3B 20 4F 52 20 2C 20 4F 52 20 |......; OR , OR | 00000230: 5F 2C 20 4F 52 20 2B 2C 20 4F 52 20 5E 22 00 6B |_, OR +, OR ^".k| 00000240: 0A AA 00 99 22 11 11 11 11 11 11 1D 1D 1D 1D 1D |...."...........| 00000250: 1D 1D 1D 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |...HIT ANY KEY T| 00000260: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 7E 0A B4 00 |O CONTINUE".~...| 00000270: A1 53 24 3A 8B 53 24 B2 22 22 A7 31 38 30 00 94 |.S$:.S$."".180..| 00000280: 0A BE 00 8F 20 20 2A 4D 41 49 4E 20 50 52 4F 47 |.... *MAIN PROG| 00000290: 52 41 4D 2A 00 9F 0A C8 00 81 49 B2 31 A4 43 00 |RAM*......I.1.C.| 000002A0: AB 0A D2 00 81 4A B2 31 A4 31 39 00 BA 0A DC 00 |.....J.1.19.....| 000002B0: 8D 37 30 30 3A 8D 31 30 32 30 00 C3 0A E6 00 8D |.700:.1020......| 000002C0: 36 35 30 00 D4 0A F0 00 99 22 13 11 22 3A 81 52 |650......"..":.R| 000002D0: B2 31 A4 4A 00 E9 0A FA 00 8B 52 B2 31 35 B0 52 |.1.J......R.15.R| 000002E0: B2 31 37 A7 99 22 11 91 22 00 FC 0A 04 01 99 22 |.17..".."......"| 000002F0: 1D 1D 22 3B 53 47 24 28 49 2C 52 29 00 03 0B 0E |..";SG$(I,R)....| 00000300: 01 82 52 00 0C 0B 18 01 8D 39 31 30 00 1C 0B 22 |..R......910..."| 00000310: 01 8B 4A B1 31 35 A7 99 22 11 91 22 00 2A 0B 2C |..J.15.."..".*.,| 00000320: 01 8D 31 31 37 30 3A 85 43 24 00 4C 0B 36 01 8B |..1170:.C$.L.6..| 00000330: C8 28 43 24 2C 31 29 B2 C7 28 39 34 29 AF 4A B3 |.(C$,1)..(94).J.| 00000340: 31 35 A7 4A B2 31 35 3A 89 32 32 30 00 5C 0B 40 |15.J.15:.220.\.@| 00000350: 01 53 47 24 28 49 2C 4A 29 B2 43 24 00 7D 0B 4A |.SG$(I,J).C$.}.J| 00000360: 01 8D 39 31 30 3A 53 47 24 28 49 2C 4A 29 B2 C8 |..910:SG$(I,J)..| 00000370: 28 53 47 24 28 49 2C 4A 29 2C 31 39 29 00 87 0B |(SG$(I,J),19)...| 00000380: 54 01 8D 31 32 31 30 00 AB 0B 5E 01 42 42 24 B2 |T..1210...^.BB$.| 00000390: 53 47 24 28 49 2C 4A 29 3A 8D 31 31 31 30 3A 53 |SG$(I,J):.1110:S| 000003A0: 47 24 28 49 2C 4A 29 B2 42 42 24 00 C3 0B 68 01 |G$(I,J).BB$...h.| 000003B0: 99 22 13 11 22 3A 81 49 4B B2 31 A4 4A 3A 8D 31 |."..":.IK.1.J:.1| 000003C0: 31 35 30 00 D2 0B 72 01 8B 49 4B B2 4A A7 99 22 |150...r..IK.J.."| 000003D0: 91 22 00 EA 0B 7C 01 99 22 1D 1D 22 3B 53 47 24 |."...|.."..";SG$| 000003E0: 28 49 2C 49 4B 29 3A 82 49 4B 00 11 0C 86 01 8D |(I,IK):.IK......| 000003F0: 31 30 36 30 3A 8B 4B 53 24 B3 B1 22 59 22 AF 4B |1060:.KS$.."Y".K| 00000400: 53 24 B3 B1 22 4E 22 A7 99 22 91 22 3A 89 33 39 |S$.."N"..".":.39| 00000410: 30 00 30 0C 90 01 8B 4B 53 24 B2 22 4E 22 A7 53 |0.0....KS$."N".S| 00000420: 47 24 28 49 2C 4A 29 B2 5A 58 24 3A 89 32 32 30 |G$(I,J).ZX$:.220| 00000430: 00 37 0C 9A 01 82 4A 00 3E 0C A4 01 82 49 00 58 |.7....J.>....I.X| 00000440: 0C AE 01 8F 20 20 20 20 20 2A 2A 20 48 41 52 44 |.... ** HARD| 00000450: 20 43 4F 50 59 20 2A 2A 00 88 0C B8 01 99 22 93 | COPY **......".| 00000460: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 50 52 45 |.............PRE| 00000470: 53 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 20 50 |SS ANY KEY FOR P| 00000480: 52 49 4E 54 4F 55 54 22 00 9B 0C C2 01 A1 41 24 |RINTOUT"......A$| 00000490: 3A 8B 41 24 B2 22 22 A7 34 35 30 00 B9 0C CC 01 |:.A$."".450.....| 000004A0: 4C 42 B2 32 3A 4C 41 B2 31 3A 8B 41 54 B2 31 A7 |LB.2:LA.1:.AT.1.| 000004B0: 4C 41 B2 31 3A 4C 42 B2 32 00 C3 0C D6 01 9F 20 |LA.1:LB.2...... | 000004C0: 34 2C 34 00 CF 0C E0 01 98 34 2C 53 45 54 24 00 |4,4......4,SET$.| 000004D0: 03 0D EA 01 98 34 2C 22 2B 20 53 49 44 45 20 41 |.....4,"+ SIDE A| 000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S| 000004F0: 49 44 45 20 42 20 20 20 20 20 20 20 20 20 20 20 |IDE B | 00000500: 20 2B 22 00 0F 0D F4 01 81 4A B2 31 A4 31 39 00 | +"......J.1.19.| 00000510: 3E 0D FE 01 54 45 24 28 4A 29 B2 22 2B 20 22 AA |>...TE$(J)."+ ".| 00000520: 53 47 24 28 4C 41 2C 4A 29 AA 22 20 22 AA 53 47 |SG$(LA,J)." ".SG| 00000530: 24 28 4C 42 2C 4A 29 AA 22 2B 22 3A 82 4A 00 57 |$(LB,J)."+":.J.W| 00000540: 0D 08 02 81 4A B2 31 A4 31 34 3A 98 34 2C 54 45 |....J.1.14:.4,TE| 00000550: 24 28 4A 29 3A 82 4A 00 63 0D 12 02 98 34 2C 53 |$(J):.J.c....4,S| 00000560: 45 54 24 00 7D 0D 1C 02 98 34 2C 54 45 24 28 31 |ET$.}....4,TE$(1| 00000570: 35 29 3A 98 34 2C 54 45 24 28 31 36 29 00 89 0D |5):.4,TE$(16)...| 00000580: 26 02 98 34 2C 53 45 54 24 00 A3 0D 30 02 81 49 |&..4,SET$...0..I| 00000590: B2 31 37 A4 31 39 3A 98 34 2C 54 45 24 28 49 29 |.17.19:.4,TE$(I)| 000005A0: 3A 82 49 00 AF 0D 3A 02 98 34 2C 53 45 54 24 00 |:.I...:..4,SET$.| 000005B0: B6 0D 44 02 A0 34 00 E8 0D 4E 02 99 22 93 11 11 |..D..4...N.."...| 000005C0: 11 11 11 11 57 4F 55 4C 44 20 59 4F 55 20 4C 49 |....WOULD YOU LI| 000005D0: 4B 45 20 41 4E 4F 54 48 45 52 20 4C 41 42 45 4C |KE ANOTHER LABEL| 000005E0: 20 28 59 2F 4E 29 22 3B 00 05 0E 58 02 85 41 24 | (Y/N)";...X..A$| 000005F0: 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E |:.A$.."Y".A$.."N| 00000600: 22 A7 36 30 30 00 14 0E 62 02 8B 41 24 B2 22 59 |".600...b..A$."Y| 00000610: 22 A7 32 30 00 1F 0E 6C 02 99 22 93 22 3A 80 00 |".20...l..".":..| 00000620: 3C 0E 76 02 8F 20 20 20 20 2A 2A 2A 20 53 55 42 |<.v.. *** SUB| 00000630: 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 00 56 0E 80 |ROUTINES ***.V..| 00000640: 02 8F 20 20 2D 2D 2D 53 55 42 20 50 4F 49 4E 54 |.. ---SUB POINT| 00000650: 45 52 2D 2D 2D 2D 00 5F 0E 8A 02 8D 39 31 30 00 |ER----._....910.| 00000660: 75 0E 94 02 8D 31 31 38 30 3A 8B 4A B1 31 35 A7 |u....1180:.J.15.| 00000670: 99 22 11 91 22 00 82 0E 9E 02 99 A3 32 31 29 22 |."..".......21)"| 00000680: 5F 22 00 88 0E A8 02 8E 00 A4 0E B2 02 8F 20 20 |_"............ | 00000690: 2D 2D 2D 2D 2D 2D 53 55 42 20 53 45 54 55 50 2D |------SUB SETUP-| 000006A0: 2D 2D 2D 2D 00 B7 0E BC 02 99 22 93 22 3A 8B 20 |----......".":. | 000006B0: 49 B2 32 A7 38 31 30 00 C8 0E C6 02 46 44 24 B2 |I.2.810.....FD$.| 000006C0: 22 20 2B 22 AA 41 58 24 00 ED 0E D0 02 99 22 20 |" +".AX$......" | 000006D0: 2B 12 53 49 44 45 20 22 3B 46 4D 24 3B 22 20 20 |+.SIDE ";FM$;" | 000006E0: 20 20 20 20 20 20 20 20 20 20 20 92 22 00 04 0F | ."...| 000006F0: DA 02 81 49 49 B2 31 A4 31 34 3A 99 22 20 2B 22 |...II.1.14:." +"| 00000700: 3A 82 49 49 00 0D 0F E4 02 99 46 44 24 00 17 0F |:.II......FD$...| 00000710: EE 02 99 22 20 2B 22 00 21 0F F8 02 99 22 20 2B |..." +".!...." +| 00000720: 22 00 2A 0F 02 03 99 46 44 24 00 40 0F 0C 03 81 |".*....FD$.@....| 00000730: 49 49 B2 31 A4 33 3A 99 22 20 2B 22 3A 82 49 49 |II.1.3:." +":.II| 00000740: 00 4A 0F 16 03 99 20 46 44 24 00 55 0F 20 03 8D |.J.... FD$.U. ..| 00000750: 39 37 30 3A 8E 00 6A 0F 2A 03 46 44 24 B2 22 20 |970:..j.*.FD$." | 00000760: 20 22 AA 41 58 24 AA 22 2B 22 00 90 0F 34 03 99 | ".AX$."+"...4..| 00000770: 22 20 2B 12 53 49 44 45 20 22 3B 46 43 24 3B 22 |" +.SIDE ";FC$;"| 00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 2B 22 | .+"| 00000790: 00 AA 0F 3E 03 81 49 49 B2 31 A4 31 34 3A 99 A3 |...>..II.1.14:..| 000007A0: 32 31 29 22 2B 22 3A 82 49 49 00 B3 0F 48 03 99 |21)"+":.II...H..| 000007B0: 46 44 24 00 C0 0F 52 03 99 A3 32 31 29 22 2B 22 |FD$...R...21)"+"| 000007C0: 00 CD 0F 5C 03 99 A3 32 31 29 22 2B 22 00 D6 0F |...\...21)"+"...| 000007D0: 66 03 99 46 44 24 00 EF 0F 70 03 81 49 49 B2 31 |f..FD$...p..II.1| 000007E0: A4 33 3A 99 A3 32 31 29 22 2B 22 3A 82 49 49 00 |.3:..21)"+":.II.| 000007F0: FF 0F 7A 03 99 46 44 24 3A 8D 39 37 30 3A 8E 00 |..z..FD$:.970:..| 00000800: 1B 10 84 03 8F 20 20 2D 2D 2D 2D 20 53 55 42 20 |..... ---- SUB | 00000810: 43 55 52 53 4F 52 20 2D 2D 2D 2D 00 24 10 8E 03 |CURSOR ----.$...| 00000820: 99 22 13 22 00 2F 10 98 03 81 44 B2 31 A4 4A 00 |."."./....D.1.J.| 00000830: 39 10 A2 03 99 22 11 91 22 00 47 10 AC 03 82 44 |9...."..".G....D| 00000840: 3A 99 22 91 22 3A 8E 00 4D 10 B6 03 3A 00 70 10 |:.".":..M...:.p.| 00000850: C0 03 8F 20 20 2D 2D 2D 2D 20 53 55 42 20 31 39 |... ---- SUB 19| 00000860: 20 43 48 41 52 41 43 54 45 52 53 20 2D 2D 2D 2D | CHARACTERS ----| 00000870: 00 79 10 CA 03 99 22 13 22 00 92 10 D4 03 99 A3 |.y....".".......| 00000880: 32 32 29 22 5F 5F 5F 54 48 49 53 20 49 53 20 31 |22)"___THIS IS 1| 00000890: 39 22 00 A8 10 DE 03 99 A3 32 35 29 22 43 48 41 |9".......25)"CHA| 000008A0: 52 41 43 54 45 52 53 22 00 C1 10 E8 03 99 A3 32 |RACTERS".......2| 000008B0: 35 29 22 46 4F 52 20 52 45 46 45 52 45 4E 43 45 |5)"FOR REFERENCE| 000008C0: 22 00 C7 10 F2 03 8E 00 D0 10 FC 03 99 22 13 22 |"............"."| 000008D0: 00 F8 10 06 04 99 22 11 11 11 11 11 11 11 11 11 |......".........| 000008E0: 11 11 11 22 A3 32 33 29 22 49 4E 50 55 54 20 4C |...".23)"INPUT L| 000008F0: 49 4E 45 20 23 22 3B 4A 00 FE 10 10 04 8E 00 1B |INE #";J........| 00000900: 11 1A 04 8F 20 20 2D 2D 2D 2D 2D 2D 53 55 42 20 |.... ------SUB | 00000910: 43 4F 52 52 45 43 54 2D 2D 2D 2D 00 2B 11 24 04 |CORRECT----.+.$.| 00000920: 99 22 13 22 3A 4B 53 24 B2 22 22 00 5A 11 2E 04 |.".":KS$."".Z...| 00000930: 99 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............| 00000940: 11 11 11 11 11 22 A3 32 33 29 22 12 49 53 20 54 |.....".23)".IS T| 00000950: 48 49 53 20 45 4E 54 52 59 22 00 73 11 38 04 99 |HIS ENTRY".s.8..| 00000960: A3 32 33 29 22 43 4F 52 52 45 43 54 20 28 59 2F |.23)"CORRECT (Y/| 00000970: 4E 29 22 00 83 11 42 04 99 A3 32 39 29 3B 3A 85 |N)"...B...29);:.| 00000980: 4B 53 24 00 A8 11 4C 04 8F 20 20 20 20 2D 2D 2D |KS$...L.. ---| 00000990: 2D 2D 2D 20 53 55 42 20 31 39 20 53 54 52 49 4E |--- SUB 19 STRIN| 000009A0: 47 20 2D 2D 2D 2D 2D 2D 00 CB 11 56 04 46 52 B2 |G ------...V.FR.| 000009B0: C3 28 42 42 24 29 3A 46 B2 31 39 AB 46 52 3A 54 |.(BB$):F.19.FR:T| 000009C0: 52 24 B2 C9 28 5A 58 24 2C 46 29 00 DD 11 60 04 |R$..(ZX$,F)...`.| 000009D0: 42 42 24 B2 42 42 24 AA 54 52 24 3A 8E 00 E3 11 |BB$.BB$.TR$:....| 000009E0: 6A 04 8E 00 FC 11 74 04 8F 20 20 2D 2D 2D 2D 53 |j.....t.. ----S| 000009F0: 55 42 20 53 4B 49 50 2D 2D 2D 2D 2D 00 14 12 7E |UB SKIP-----...~| 00000A00: 04 8B 49 4B B2 31 35 B0 49 4B B2 31 37 A7 20 99 |..IK.15.IK.17. .| 00000A10: 22 11 91 22 00 1A 12 88 04 8E 00 36 12 92 04 8F |"..".......6....| 00000A20: 20 20 2D 2D 2D 53 55 42 20 49 4E 50 55 54 20 53 | ---SUB INPUT S| 00000A30: 4B 49 50 2D 2D 2D 00 4D 12 9C 04 8B 4A B2 31 35 |KIP---.M....J.15| 00000A40: B0 4A B1 B2 31 37 A7 20 99 22 11 91 22 00 53 12 |.J..17. ."..".S.| 00000A50: A6 04 8E 00 72 12 B0 04 8F 20 20 2D 2D 2D 2D 53 |....r.... ----S| 00000A60: 55 42 20 42 4C 41 4E 4B 20 53 50 41 43 45 2D 2D |UB BLANK SPACE--| 00000A70: 2D 2D 00 88 12 BA 04 46 4B 24 B2 C8 28 53 47 24 |--.....FK$..(SG$| 00000A80: 28 49 2C 4A 29 2C 31 29 00 AA 12 C4 04 8B 46 4B |(I,J),1)......FK| 00000A90: 24 B2 22 5F 22 B0 46 4B 24 B2 22 2B 22 A7 53 47 |$."_".FK$."+".SG| 00000AA0: 24 28 49 2C 4A 29 B2 5A 58 24 00 B0 12 CE 04 8E |$(I,J).ZX$......| 00000AB0: 00 00 00 |... |
..).... SG$(2,19),TE$(19):. SET UP ARRAY
S.<....I.1.2:.J.1.19._...SG$(I,J)."
".I.(..J:.I...2.SET$."+---
-------------------------------------+".
V.<.AX$."-------------------":ZX$."
"...F.FM$."A":FC$."B"...P..
"................CASSETTE SLEEVE MAKER."
.F.Z..".............ENTER THE NUMBER OF
SIDES".O.D..".........YOU WISH TO LABEL
(1/2)";...N..C:.C..1.C..2.110...X.AT.C..
...."..............THE NEXT SCREEN WILL"
......"........SHOW HALF OF A TAPE LABEL
"......".........ENTERED LINES MAY .NOT.
CONTAIN:".>. ..".............; OR , OR
_, OR +, OR ^".K...."..............HIT A
NY KEY TO CONTINUE".~....S$:.S$."".180..
.... *MAIN PROGRAM*...H..I.1.C...R..J.1
.19......700:.1020.C....650.T...."..":.R
.1.J......R.15.R.17..".."......"..";SG$(
I,R)......R......910..."..J.15.."..".*.,
..1170:.C$.L.6..H(C$,1).G(94).J.15.J.15:
.220.\.@.SG$(I,J).C$.}.J..910:SG$(I,J).H
(SG$(I,J),19)...T..1210...^.BB$.SG$(I,J)
:.1110:SG$(I,J).BB$.C.H.."..":.IK.1.J:.1
150.R.R..IK.J.."."...|.."..";SG$(I,IK):.
IK......1060:.KS$.."Y".KS$.."N"..".":.39
0.0....KS$."N".SG$(I,J).ZX$:.220.7....J.
>....I.X.... ** HARD COPY **......".
.............PRESS ANY KEY FOR PRINTOUT"
...B..A$:.A$."".450...L.LB.2:LA.1:.AT.1.
LA.1:LB.2.C.V.. 4,4.O....4,SET$......4,"
+ SIDE A SIDE B
+"......J.1.19.>...TE$(J)."+ ".SG$(LA,J
)." ".SG$(LB,J)."+":.J.W....J.1.14:.4,TE
$(J):.J.C....4,SET$.}....4,TE$(15):.4,TE
$(16)...&..4,SET$...0..I.17.19:.4,TE$(I)
:.I...:..4,SET$...D. 4...N..".......WOUL
D YOU LIKE ANOTHER LABEL (Y/N)";...X..A$
:.A$.."Y".A$.."N".600...B..A$."Y".20...L
..".":..<.V.. *** SUBROUTINES ***.V..
.. ---SUB POINTER----._....910.U....118
0:.J.15.."..".......21)"_"............
------SUB SETUP-----......".":. I.2.810.
H.F.FD$." +".AX$...P.." +.SIDE ";FM$;"
."...Z..II.1.14:." +":.II....
..FD$......" +".!...." +".*....FD$.@....
II.1.3:." +":.II.J.... FD$.U. ..970:..J.
*.FD$." ".AX$."+"...4.." +.SIDE ";FC$;"
.+"...>..II.1.14:..21)"+":.
II...H..FD$...R...21)"+".M.\...21)"+".V.
F..FD$...P..II.1.3:..21)"+":.II...Z..FD$
:.970:....... ---- SUB CURSOR ----.$...
."."./....D.1.J.9...."..".G....D:.".":..
M...:.P.... ---- SUB 19 CHARACTERS ----
.Y.J.."."...T...22)"___THIS IS 19"......
.25)"CHARACTERS".A.....25)"FOR REFERENCE
".G.....P...."."......"............".23)
"INPUT LINE #";J............ ------SUB
CORRECT----.+.$..".":KS$."".Z...."......
.............".23)".IS THIS ENTRY".S.8..
.23)"CORRECT (Y/N)"...B...29);:.KS$...L.
. ------ SUB 19 STRING ------.K.V.FR.
C(BB$):F.19.FR:TR$.I(ZX$,F)...`.BB$.BB$.
TR$:....J.....T.. ----SUB SKIP-----...~
..IK.15.IK.17. ."..".......6.... ---SUB
INPUT SKIP---.M....J.15.J..17. ."..".S.
....R.... ----SUB BLANK SPACE----.....F
K$.H(SG$(I,J),1)...D..FK$."_".FK$."+".SG
$(I,J).ZX$...N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL