CASS LABELS
FILE INFORMATION
FILENAME(S): CASS LABELS
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
0441e8b98b08721373fc09a5b0bc1f7c07dff633b2a823f059c7ade62e61d18b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | CASS LABELS | PRG | Radd Maxx | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 01 00 99 22 93 22 3A 89 31 30 00 14 |.......".":.10..| 00000010: 08 02 00 3A 00 32 08 03 00 3A 20 20 20 20 20 20 |...:.2...: | 00000020: 20 20 20 20 54 41 50 45 20 43 4F 56 45 52 20 99 | TAPE COVER .| 00000030: 45 52 00 56 08 04 00 3A 20 20 20 20 20 20 20 20 |ER.V...: | 00000040: 46 52 4F 4D 20 50 45 52 53 91 41 4C 20 43 4F 4D |FROM PERS.AL COM| 00000050: 50 55 54 49 4E 47 00 76 08 05 00 3A 20 20 20 20 |PUTING.v...: | 00000060: 20 20 20 20 20 20 20 20 44 45 43 20 38 30 20 20 | DEC 80 | 00000070: 50 41 47 45 20 38 00 96 08 06 00 3A 20 20 20 20 |PAGE 8.....: | 00000080: 20 20 20 20 20 20 20 20 42 59 20 41 4C 41 4E 20 | BY ALAN | 00000090: 57 41 4C 4B 45 52 00 BB 08 07 00 3A 20 20 20 20 |WALKER.....: | 000000A0: 20 20 20 20 52 45 56 49 53 45 44 20 42 59 20 4A | REVISED BY J| 000000B0: 4F 53 45 20 41 52 52 49 4F 4C 41 00 C1 08 08 00 |OSE ARRIOLA.....| 000000C0: 3A 00 C7 08 09 00 3A 00 D6 08 0A 00 97 20 35 39 |:.....:...... 59| 000000D0: 34 36 38 2C 31 32 00 F8 08 0F 00 85 20 22 45 4E |468,12...... "EN| 000000E0: 54 45 52 20 4F 55 54 50 55 54 20 44 45 56 49 43 |TER OUTPUT DEVIC| 000000F0: 45 20 4E 4F 2E 22 3B 44 00 1A 09 64 00 99 22 93 |E NO.";D...d..".| 00000100: 22 3B A3 38 29 3B 22 54 41 50 45 20 43 4F 56 45 |";.8);"TAPE COVE| 00000110: 52 20 50 52 49 4E 54 45 52 22 00 44 09 6E 00 99 |R PRINTER".D.n..| 00000120: 22 11 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |"..THIS PROGRAM | 00000130: 57 49 4C 4C 20 50 52 49 4E 54 20 41 20 4C 41 42 |WILL PRINT A LAB| 00000140: 45 4C 20 22 00 6F 09 78 00 99 22 11 54 48 41 54 |EL ".o.x..".THAT| 00000150: 20 57 49 4C 4C 20 46 49 54 20 49 4E 53 49 44 45 | WILL FIT INSIDE| 00000160: 20 54 48 45 20 54 57 4F 2D 50 49 45 43 45 22 00 | THE TWO-PIECE".| 00000170: 9B 09 82 00 99 22 11 4E 4F 52 45 4C 43 4F 2D 53 |.....".NORELCO-S| 00000180: 54 59 4C 45 20 43 41 53 53 45 54 54 45 20 42 4F |TYLE CASSETTE BO| 00000190: 58 2E 20 49 54 20 57 49 4C 4C 22 00 C7 09 8C 00 |X. IT WILL".....| 000001A0: 99 22 11 41 4C 53 4F 20 50 52 49 4E 54 20 41 20 |.".ALSO PRINT A | 000001B0: 4C 41 42 4C 45 20 46 4F 52 20 54 48 45 20 43 41 |LABLE FOR THE CA| 000001C0: 53 53 45 54 54 45 22 00 F4 09 96 00 99 22 11 54 |SSETTE"......".T| 000001D0: 41 50 45 20 49 54 53 45 4C 46 2E 20 20 54 48 45 |APE ITSELF. THE| 000001E0: 20 43 41 53 53 45 54 54 45 20 4C 41 42 45 4C 20 | CASSETTE LABEL | 000001F0: 43 41 4E 22 00 1F 0A A0 00 99 22 11 42 45 20 41 |CAN"......".BE A| 00000200: 46 46 49 58 45 44 20 56 45 52 59 20 4E 45 41 54 |FFIXED VERY NEAT| 00000210: 4C 59 20 57 49 54 48 20 52 55 42 42 45 52 22 00 |LY WITH RUBBER".| 00000220: 2F 0A AA 00 99 22 11 43 45 4D 45 4E 54 2E 22 00 |/....".CEMENT.".| 00000230: 4D 0A C8 00 99 22 11 50 52 45 53 53 20 52 45 54 |M....".PRESS RET| 00000240: 55 52 4E 20 54 4F 20 42 45 47 49 4E 22 00 65 0A |URN TO BEGIN".e.| 00000250: D2 00 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 |... A$: . A$."" | 00000260: A7 20 32 31 30 00 73 0A F4 01 81 20 49 B2 31 20 |. 210.s.... I.1 | 00000270: A4 20 32 00 8B 0A F9 01 53 24 28 49 29 B2 22 22 |. 2.....S$(I).""| 00000280: 3A 50 B2 30 3A 4C 28 49 29 B2 30 00 B1 0A FE 01 |:P.0:L(I).0.....| 00000290: 99 22 93 50 52 45 53 53 20 12 52 45 54 55 52 4E |.".PRESS .RETURN| 000002A0: 92 20 57 48 45 4E 20 43 4F 4D 50 4C 45 54 45 44 |. WHEN COMPLETED| 000002B0: 22 00 D5 0A 08 02 99 22 11 45 4E 54 45 52 20 54 |"......".ENTER T| 000002C0: 48 45 20 50 52 4F 47 52 41 4D 53 20 4F 4E 20 53 |HE PROGRAMS ON S| 000002D0: 49 44 45 22 49 00 E1 0A 12 02 99 3A 50 B2 50 AA |IDE"I......:P.P.| 000002E0: 31 00 00 0B 1C 02 99 22 20 20 50 52 4F 47 52 41 |1......" PROGRA| 000002F0: 4D 20 23 22 3B 50 3B 22 20 20 A4 9D 9D 9D 22 3B |M #";P;" ....";| 00000300: 00 09 0B 26 02 85 20 41 24 00 0D 0B 30 02 8B 20 |...&.. A$...0.. | 00000310: 41 24 B2 22 A4 22 20 A7 20 36 32 30 00 38 0B 3A |A$."." . 620.8.:| 00000320: 02 8B 20 50 B2 31 20 A7 20 53 24 28 49 29 B2 41 |.. P.1 . S$(I).A| 00000330: 24 3A 20 89 20 35 39 30 00 4F 0B 44 02 53 24 28 |$: . 590.O.D.S$(| 00000340: 49 29 B2 53 24 28 49 29 AA 22 3A 22 AA 41 24 00 |I).S$(I).":".A$.| 00000350: 61 0B 4E 02 4C 28 49 29 B2 C3 28 53 24 28 49 29 |a.N.L(I)..(S$(I)| 00000360: 29 00 75 0B 58 02 8B 20 4C 28 49 29 B1 33 34 20 |).u.X.. L(I).34 | 00000370: 89 20 37 30 30 00 7F 0B 62 02 89 20 35 33 30 00 |. 700...b.. 530.| 00000380: 87 0B 6C 02 82 20 49 00 91 0B 76 02 89 20 38 30 |..l.. I...v.. 80| 00000390: 30 00 AD 0B BC 02 8F 20 2A 20 54 4F 4F 20 4D 41 |0...... * TOO MA| 000003A0: 4E 59 20 43 48 41 52 41 43 54 45 52 53 00 B3 0B |NY CHARACTERS...| 000003B0: C1 02 99 00 E1 0B C6 02 99 22 54 48 45 20 50 52 |........."THE PR| 000003C0: 4F 47 52 41 4D 53 20 59 4F 55 20 48 41 56 45 20 |OGRAMS YOU HAVE | 000003D0: 45 4E 54 45 52 45 44 20 46 4F 52 20 54 48 49 53 |ENTERED FOR THIS| 000003E0: 22 00 0F 0C D0 02 99 22 53 49 44 45 20 41 52 45 |"......"SIDE ARE| 000003F0: 20 54 4F 4F 20 4C 4F 4E 47 2E 20 59 4F 55 20 4D | TOO LONG. YOU M| 00000400: 49 47 48 54 20 54 52 59 20 55 53 49 4E 47 22 00 |IGHT TRY USING".| 00000410: 3D 0C DA 02 99 22 41 42 42 52 45 56 49 41 54 49 |=...."ABBREVIATI| 00000420: 4F 4E 53 20 46 4F 52 20 4F 4E 45 20 4F 52 20 4D |ONS FOR ONE OR M| 00000430: 4F 52 45 20 4F 46 20 54 48 45 4D 2E 22 00 43 0C |ORE OF THEM.".C.| 00000440: E4 02 99 00 6C 0C EE 02 99 22 50 52 45 53 53 20 |....l...."PRESS | 00000450: 12 52 45 54 55 52 4E 92 20 57 48 45 4E 20 59 4F |.RETURN. WHEN YO| 00000460: 55 20 41 52 45 20 52 45 41 44 59 22 00 81 0C F8 |U ARE READY"....| 00000470: 02 99 22 54 4F 20 52 45 44 4F 20 54 48 45 4D 2E |.."TO REDO THEM.| 00000480: 22 00 96 0C 02 03 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""| 00000490: 20 A7 20 37 37 30 00 9F 0C 0C 03 89 35 30 30 00 | . 770......500.| 000004A0: A5 0C 20 03 8F 00 C1 0C 2A 03 43 24 28 31 29 B2 |.. .....*.C$(1).| 000004B0: 53 24 28 31 29 3A 43 24 28 32 29 B2 53 24 28 32 |S$(1):C$(2).S$(2| 000004C0: 29 00 CF 0C 34 03 81 20 4A B2 31 20 A4 20 32 00 |)...4.. J.1 . 2.| 000004D0: E3 0C 3E 03 81 20 49 B2 31 20 A4 20 33 34 AB 4C |..>.. I.1 . 34.L| 000004E0: 28 4A 29 00 F7 0C 48 03 43 24 28 4A 29 B2 43 24 |(J)...H.C$(J).C$| 000004F0: 28 4A 29 AA 22 20 22 00 FF 0C 52 03 82 20 49 00 |(J)." "...R.. I.| 00000500: 13 0D 5C 03 4E 24 28 4A 29 B2 C9 28 C4 28 4A 29 |..\.N$(J)..(.(J)| 00000510: 2C 31 29 00 1B 0D 66 03 82 20 4A 00 34 0D E8 03 |,1)...f.. J.4...| 00000520: 8F 20 2A 20 57 48 49 43 48 20 46 55 4E 43 54 49 |. * WHICH FUNCTI| 00000530: 4F 4E 20 2A 00 40 0D F2 03 99 22 93 11 11 11 22 |ON *.@...."...."| 00000540: 00 62 0D FC 03 99 22 31 20 50 52 49 4E 54 20 43 |.b...."1 PRINT C| 00000550: 41 53 53 45 54 54 45 20 42 4F 58 20 4C 41 42 45 |ASSETTE BOX LABE| 00000560: 4C 22 00 87 0D 06 04 99 3A 99 22 32 20 50 52 49 |L"......:."2 PRI| 00000570: 4E 54 20 43 41 53 53 45 54 54 45 20 54 41 50 45 |NT CASSETTE TAPE| 00000580: 20 4C 41 42 45 4C 22 00 A1 0D 10 04 99 3A 99 22 | LABEL"......:."| 00000590: 33 20 50 52 49 4E 54 20 4F 55 54 20 42 4F 54 48 |3 PRINT OUT BOTH| 000005A0: 22 00 B3 0D 1A 04 99 3A 99 3A 99 22 57 48 49 43 |"......:.:."WHIC| 000005B0: 48 3F 22 00 CC 0D 24 04 A1 20 41 24 3A 20 8B 20 |H?"...$.. A$: . | 000005C0: 41 24 B2 22 22 20 A7 20 31 30 36 30 00 E9 0D 2E |A$."" . 1060....| 000005D0: 04 8B 20 41 24 B3 22 31 22 20 B0 20 41 24 B1 22 |.. A$."1" . A$."| 000005E0: 33 22 20 A7 20 31 30 36 30 00 F5 0D 38 04 41 B2 |3" . 1060...8.A.| 000005F0: C5 28 41 24 29 00 0E 0E 42 04 91 20 41 20 89 20 |.(A$)...B.. A . | 00000600: 31 31 30 30 2C 31 32 30 30 2C 31 33 30 30 00 20 |1100,1200,1300. | 00000610: 0E 4C 04 8D 20 32 30 30 30 3A 89 20 35 39 37 30 |.L.. 2000:. 5970| 00000620: 00 32 0E B0 04 8D 20 33 35 30 30 3A 89 20 35 39 |.2.... 3500:. 59| 00000630: 37 30 00 4B 0E 14 05 8D 20 32 30 30 30 3A 8D 20 |70.K.... 2000:. | 00000640: 33 35 30 30 3A 89 20 35 39 37 30 00 6C 0E D0 07 |3500:. 5970.l...| 00000650: 8F 20 2A 50 52 49 4E 54 20 43 41 53 53 45 54 54 |. *PRINT CASSETT| 00000660: 45 20 42 4F 58 20 4C 41 42 45 4C 2A 00 7A 0E DA |E BOX LABEL*.z..| 00000670: 07 9F 20 31 2C 44 3A 9D 20 31 00 85 0E E4 07 99 |.. 1,D:. 1......| 00000680: 22 20 2F 22 3B 00 9E 0E EE 07 81 20 49 B2 31 20 |" /";...... I.1 | 00000690: A4 20 33 38 3A 99 22 A3 22 3B 3A 82 20 49 00 A7 |. 38:.".";:. I..| 000006A0: 0E F8 07 99 22 5C 22 00 B5 0E 02 08 81 20 49 B2 |...."\"...... I.| 000006B0: 31 20 A4 20 34 00 C9 0E 0C 08 99 22 A7 20 22 3B |1 . 4......". ";| 000006C0: A3 33 38 29 3B 22 A7 20 22 00 D1 0E 16 08 82 20 |.38);". "...... | 000006D0: 49 00 DC 0E 20 08 99 22 A7 20 22 3B 00 F6 0E 2A |I... ..". ";...*| 000006E0: 08 81 20 49 B2 31 20 A4 20 33 38 3A 99 22 2D 22 |.. I.1 . 38:."-"| 000006F0: 3B 3A 20 82 20 49 00 00 0F 34 08 99 22 A7 20 22 |;: . I...4..". "| 00000700: 00 21 0F 3E 08 99 22 A7 20 20 22 AA 4E 24 28 31 |.!.>..". ".N$(1| 00000710: 29 AA 22 20 20 22 AA 43 24 28 31 29 AA 22 A7 20 |)." ".C$(1).". | 00000720: 22 00 42 0F 48 08 99 22 A7 20 20 22 AA 4E 24 28 |".B.H..". ".N$(| 00000730: 32 29 AA 22 20 20 22 AA 43 24 28 32 29 AA 22 A7 |2)." ".C$(2).".| 00000740: 20 22 00 4D 0F 52 08 99 22 A7 20 22 3B 00 67 0F | ".M.R..". ";.g.| 00000750: 5C 08 81 20 49 B2 31 20 A4 20 33 38 3A 20 99 22 |\.. I.1 . 38: ."| 00000760: 2D 22 3B 3A 82 20 49 00 71 0F 66 08 99 22 A7 20 |-";:. I.q.f..". | 00000770: 22 00 85 0F 70 08 99 22 A7 20 22 3B A3 33 38 29 |"...p..". ";.38)| 00000780: 3B 22 A7 20 22 00 9F 0F 7A 08 99 22 A7 20 20 22 |;". "...z..". "| 00000790: 3B C7 28 31 29 22 53 49 44 45 20 31 3A 22 3B 00 |;.(1)"SIDE 1:";.| 000007A0: B5 0F 84 08 99 20 C7 28 31 32 39 29 3B A3 33 30 |..... .(129);.30| 000007B0: 29 22 A7 20 22 00 C9 0F 8E 08 99 22 A7 20 22 3B |)". "......". ";| 000007C0: A3 33 38 29 3B 22 A7 20 22 00 E2 0F 98 08 99 22 |.38);". "......"| 000007D0: A7 20 22 AA 43 24 28 31 29 AA 22 20 20 20 20 A7 |. ".C$(1)." .| 000007E0: 20 22 00 F6 0F A2 08 99 22 A7 20 22 3B A3 33 38 | "......". ";.38| 000007F0: 29 3B 22 A7 20 22 00 0A 10 AC 08 99 22 A7 20 22 |);". "......". "| 00000800: 3B A3 33 38 29 3B 22 A7 20 22 00 24 10 B6 08 99 |;.38);". ".$....| 00000810: 22 A7 20 20 22 3B C7 28 31 29 22 53 49 44 45 20 |". ";.(1)"SIDE | 00000820: 32 3A 22 3B 00 3A 10 C0 08 99 20 C7 28 31 32 39 |2:";.:.... .(129| 00000830: 29 3B A3 33 30 29 22 A7 20 22 00 4E 10 CA 08 99 |);.30)". ".N....| 00000840: 22 A7 20 22 3B A3 33 38 29 3B 22 A7 20 22 00 67 |". ";.38);". ".g| 00000850: 10 D4 08 99 22 A7 20 22 AA 43 24 28 32 29 AA 22 |....". ".C$(2)."| 00000860: 20 20 20 20 A7 20 22 00 74 10 DE 08 81 20 49 B2 | . ".t.... I.| 00000870: 31 20 A4 36 00 88 10 E8 08 99 22 A7 20 22 3B A3 |1 .6......". ";.| 00000880: 33 38 29 3B 22 A7 20 22 00 90 10 F2 08 82 20 49 |38);". "...... I| 00000890: 00 9A 10 FC 08 99 22 20 22 3B 00 B3 10 06 09 81 |......" ";......| 000008A0: 20 49 B2 31 20 A4 20 34 30 3A 99 22 A3 22 3B 3A | I.1 . 40:.".";:| 000008B0: 82 20 49 00 C1 10 1A 09 98 31 3A 20 A0 20 31 2C |. I......1: . 1,| 000008C0: 44 00 C7 10 24 09 8E 00 DA 10 B8 0B 8F 20 2A 54 |D...$........ *T| 000008D0: 41 50 45 20 4C 41 42 45 4C 2A 00 E9 10 C2 0B 9F |APE LABEL*......| 000008E0: 20 31 2C 44 3A 20 9D 20 31 00 FF 10 C7 0B 81 20 | 1,D: . 1...... | 000008F0: 4A B2 31 20 A4 20 32 3A 20 42 4C 24 B2 22 22 00 |J.1 . 2: BL$."".| 00000900: 0A 11 CC 0B 99 22 20 2F 22 3B 00 24 11 D6 0B 81 |....." /";.$....| 00000910: 20 49 B2 31 20 A4 20 33 34 3A 20 99 22 A3 22 3B | I.1 . 34: .".";| 00000920: 3A 82 20 49 00 2D 11 E0 0B 99 22 5C 22 00 46 11 |:. I.-...."\".F.| 00000930: EA 0B 99 22 A7 20 22 3B C7 28 31 29 22 20 53 49 |...". ";.(1)" SI| 00000940: 44 45 22 3B 4A 3B 00 5C 11 F4 0B 99 20 C7 28 31 |DE";J;.\.... .(1| 00000950: 32 39 29 3B A3 32 35 29 22 20 A7 22 00 6A 11 FE |29);.25)" .".j..| 00000960: 0B 4C B2 33 34 AB 4C 28 4A 29 00 78 11 08 0C 4C |.L.34.L(J).x...L| 00000970: 31 B2 B5 28 4C AD 32 29 00 87 11 12 0C 81 20 49 |1..(L.2)...... I| 00000980: B2 31 20 A4 20 4C 31 00 9C 11 1C 0C 42 4C 24 B2 |.1 . L1.....BL$.| 00000990: 42 4C 24 AA 22 20 22 3A 20 82 20 49 00 A7 11 26 |BL$." ": . I...&| 000009A0: 0C 99 22 A7 20 22 3B 00 B8 11 30 0C 99 20 42 4C |..". ";...0.. BL| 000009B0: 24 3B 53 24 28 4A 29 3B 00 D4 11 3A 0C 81 20 49 |$;S$(J);...:.. I| 000009C0: B2 31 20 A4 20 4C AB 4C 31 3A 20 99 22 20 22 3B |.1 . L.L1: ." ";| 000009D0: 3A 82 20 49 00 DE 11 44 0C 99 22 A7 20 22 00 E8 |:. I...D..". "..| 000009E0: 11 4E 0C 99 22 A7 22 3B 00 03 12 62 0C 81 20 49 |.N..".";...b.. I| 000009F0: B2 31 20 A4 20 31 37 3A 20 99 22 20 C1 22 3B 3A |.1 . 17: ." .";:| 00000A00: 82 20 49 00 0D 12 6C 0C 99 22 20 A7 22 00 18 12 |. I...l.." ."...| 00000A10: 76 0C 99 22 A7 20 22 3B 00 3B 12 80 0C 99 20 A3 |v..". ";.;.... .| 00000A20: 36 29 22 2F A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |6)"/............| 00000A30: A3 A3 A3 A3 A3 A3 A3 A3 5C 22 3B 00 49 12 8A 0C |........\";.I...| 00000A40: 99 20 A3 36 29 22 A7 20 22 00 5B 12 94 0C 99 22 |. .6)". ".[...."| 00000A50: A7 20 22 3B A3 35 29 22 A7 22 3B 00 71 12 9E 0C |. ";.5)".";.q...| 00000A60: 99 20 A3 32 32 29 22 A5 22 3B A3 35 29 22 A7 20 |. .22)".";.5)". | 00000A70: 22 00 83 12 A8 0C 99 22 A7 20 22 3B A3 35 29 22 |"......". ";.5)"| 00000A80: A7 22 3B 00 99 12 B2 0C 99 20 A3 32 32 29 22 A5 |.";...... .22)".| 00000A90: 22 3B A3 35 29 22 A7 20 22 00 A4 12 BC 0C 99 22 |";.5)". "......"| 00000AA0: A7 20 22 3B 00 C7 12 C6 0C 99 20 A3 36 29 22 5C |. ";...... .6)"\| 00000AB0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000AC0: A4 A4 A4 A4 2F 22 3B 00 D5 12 D0 0C 99 20 A3 36 |..../";...... .6| 00000AD0: 29 22 A7 20 22 00 EE 12 DA 0C 8F 20 2A 20 49 44 |)". "...... * ID| 00000AE0: 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 2A 00 0B |ENTIFICATION *..| 00000AF0: 13 E4 0C 99 22 A7 20 22 3B C7 28 31 29 3B 43 24 |....". ";.(1);C$| 00000B00: 3B C7 28 31 32 39 29 3B 22 A7 22 00 28 13 EE 0C |;.(129);".".(...| 00000B10: 99 22 A7 20 22 3B C7 28 31 29 3B 44 24 3B C7 28 |.". ";.(1);D$;.(| 00000B20: 31 32 39 29 3B 22 A7 22 00 32 13 02 0D 99 22 20 |129);".".2...." | 00000B30: 22 3B 00 4F 13 0C 0D 81 20 49 B2 31 20 A4 20 33 |";.O.... I.1 . 3| 00000B40: 36 3A 99 20 22 A3 22 3B 3A 82 20 49 3A 20 99 00 |6:. ".";:. I: ..| 00000B50: 57 13 48 0D 82 20 4A 00 65 13 52 0D 98 31 3A 20 |W.H.. J.e.R..1: | 00000B60: A0 20 31 2C 44 00 6B 13 5C 0D 8E 00 87 13 AC 0D |. 1,D.k.\.......| 00000B70: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 |."DO YOU WANT A | 00000B80: 54 49 54 4C 45 3F 22 00 A0 13 B6 0D A1 20 41 24 |TITLE?"...... A$| 00000B90: 3A 20 8B 20 41 24 B2 22 22 20 A7 20 33 35 31 30 |: . A$."" . 3510| 00000BA0: 00 BE 13 C0 0D 8B 20 41 24 B2 22 59 22 20 A7 20 |...... A$."Y" . | 00000BB0: 99 20 22 59 45 53 22 3A 89 20 33 35 35 30 00 E2 |. "YES":. 3550..| 00000BC0: 13 CA 0D 8B 20 41 24 B2 22 4E 22 20 A7 20 99 20 |.... A$."N" . . | 00000BD0: 22 4E 4F 22 3A 41 24 B2 22 22 3A 20 89 20 33 35 |"NO":A$."": . 35| 00000BE0: 36 30 00 EC 13 D4 0D 89 33 35 31 30 00 0B 14 DE |60......3510....| 00000BF0: 0D 99 22 11 54 48 45 20 54 49 54 4C 45 20 43 41 |..".THE TITLE CA| 00000C00: 4E 20 42 45 20 55 50 20 54 4F 22 00 26 14 E3 0D |N BE UP TO".&...| 00000C10: 99 22 31 34 20 43 48 41 52 41 43 54 45 52 53 20 |."14 CHARACTERS | 00000C20: 4C 4F 4E 47 2E 22 00 2F 14 E4 0D 85 20 41 24 00 |LONG."./.... A$.| 00000C30: 4A 14 E8 0D 4C B2 C3 28 41 24 29 3A 20 8B 20 4C |J...L..(A$): . L| 00000C40: B1 31 34 20 89 20 33 35 35 30 00 62 14 F2 0D 42 |.14 . 3550.b...B| 00000C50: 24 B2 22 22 3A 20 8B 20 4C B2 30 20 89 20 33 35 |$."": . L.0 . 35| 00000C60: 39 30 00 7F 14 FC 0D 81 20 49 B2 31 20 A4 20 4C |90...... I.1 . L| 00000C70: 3A 42 24 B2 42 24 AA 22 A3 22 3A 20 82 20 49 00 |:B$.B$.".": . I.| 00000C80: 8A 14 06 0E 42 4C 24 B2 22 22 00 95 14 10 0E 8D |....BL$.""......| 00000C90: 20 33 36 36 30 00 AD 14 1A 0E 43 24 B2 42 4C 24 | 3660.....C$.BL$| 00000CA0: 3A 42 4C 24 B2 22 22 3A 41 24 B2 42 24 00 B8 14 |:BL$."":A$.B$...| 00000CB0: 24 0E 8D 20 33 36 36 30 00 C3 14 2E 0E 44 24 B2 |$.. 3660.....D$.| 00000CC0: 42 4C 24 00 CE 14 38 0E 89 20 33 30 30 30 00 DA |BL$...8.. 3000..| 00000CD0: 14 4C 0E 4C 31 B2 33 34 AB 4C 00 E9 14 56 0E 4C |.L.L1.34.L...V.L| 00000CE0: 32 B2 B5 28 4C 31 AD 32 29 00 F7 14 60 0E 81 20 |2..(L1.2)...`.. | 00000CF0: 49 B2 31 20 A4 4C 32 00 0B 15 6A 0E 42 4C 24 B2 |I.1 .L2...j.BL$.| 00000D00: 42 4C 24 AA 22 20 22 3A 82 20 49 00 1A 15 74 0E |BL$." ":. I...t.| 00000D10: 42 4C 24 B2 42 4C 24 AA 41 24 00 2B 15 7E 0E 81 |BL$.BL$.A$.+.~..| 00000D20: 20 49 B2 31 20 A4 4C 31 AB 4C 32 00 41 15 88 0E | I.1 .L1.L2.A...| 00000D30: 42 4C 24 B2 42 4C 24 AA 22 20 22 3A 82 20 49 3A |BL$.BL$." ":. I:| 00000D40: 8E 00 4F 15 52 17 99 22 4D 4F 52 45 3F 22 3B 00 |..O.R.."MORE?";.| 00000D50: 68 15 5C 17 A1 20 41 24 3A 20 8B 20 41 24 B2 22 |h.\.. A$: . A$."| 00000D60: 22 20 A7 20 35 39 38 30 00 86 15 66 17 8B 20 41 |" . 5980...f.. A| 00000D70: 24 B2 22 59 22 20 A7 20 99 20 22 59 45 53 22 3A |$."Y" . . "YES":| 00000D80: 20 89 20 35 30 30 00 A4 15 67 17 8B 20 41 24 B2 | . 500...g.. A$.| 00000D90: 22 4E 22 20 A7 20 99 20 22 4E 4F 22 3A 20 89 20 |"N" . . "NO": . | 00000DA0: 36 30 30 30 00 AF 15 68 17 89 20 35 39 38 30 00 |6000...h.. 5980.| 00000DB0: B5 15 70 17 80 00 00 00 0A |..p...... |
.......".":.10.....:.2...: TAPE
COVER .ER.V...: FROM PERS.AL COM
PUTING.V...: DEC 80 PAGE 8..
...: BY ALAN WALKER.....:
REVISED BY JOSE ARRIOLA.A...:.G...:.
V.... 59468,12...... "ENTER OUTPUT DEVIC
E NO.";D...D..".";.8);"TAPE COVER PRINTE
R".D.N.."..THIS PROGRAM WILL PRINT A LAB
EL ".O.X..".THAT WILL FIT INSIDE THE TWO
-PIECE"......".NORELCO-STYLE CASSETTE BO
X. IT WILL".G....".ALSO PRINT A LABLE FO
R THE CASSETTE"......".TAPE ITSELF. THE
CASSETTE LABEL CAN"... ..".BE AFFIXED V
ERY NEATLY WITH RUBBER"./....".CEMENT.".
M.H..".PRESS RETURN TO BEGIN".E.R.. A$:
. A$."" . 210.S.... I.1 . 2.....S$(I).""
:P.0:L(I).0......".PRESS .RETURN. WHEN C
OMPLETED".U....".ENTER THE PROGRAMS ON S
IDE"I......:P.P.1......" PROGRAM #";P;"
....";...&.. A$...0.. A$."." . 620.8.:
.. P.1 . S$(I).A$: . 590.O.D.S$(I).S$(I)
.":".A$.A.N.L(I).C(S$(I)).U.X.. L(I).34
. 700..B.. 530...L.. I...V.. 800......
* TOO MANY CHARACTERS...A.....F.."THE PR
OGRAMS YOU HAVE ENTERED FOR THIS"...P.."
SIDE ARE TOO LONG. YOU MIGHT TRY USING".
=.Z.."ABBREVIATIONS FOR ONE OR MORE OF T
HEM.".C.....L...."PRESS .RETURN. WHEN YO
U ARE READY"......"TO REDO THEM."......A
$:.A$."" . 770......500... ...A.*.C$(1).
S$(1):C$(2).S$(2).O.4.. J.1 . 2...>.. I.
1 . 34.L(J)...H.C$(J).C$(J)." "...R.. I.
..\.N$(J).I(D(J),1)...F.. J.4.... * WHIC
H FUNCTION *.@...."....".B...."1 PRINT C
ASSETTE BOX LABEL"......:."2 PRINT CASSE
TTE TAPE LABEL"......:."3 PRINT OUT BOTH
"......:.:."WHICH?".L.$.. A$: . A$."" .
1060...... A$."1" . A$."3" . 1060...8.A.
E(A$)...B.. A . 1100,1200,1300. .L.. 200
0:. 5970.2.... 3500:. 5970.K.... 2000:.
3500:. 5970.L.P.. *PRINT CASSETTE BOX LA
BEL*.Z.Z.. 1,D:. 1......" /";...... I.1
. 38:.".";:. I......"\"...... I.1 . 4.I.
...". ";.38);". ".Q.... I... ..". ";...*
.. I.1 . 38:."-";: . I...4..". ".!.>..".
".N$(1)." ".C$(1).". ".B.H..". ".N$(
2)." ".C$(2).". ".M.R..". ";.G.\.. I.1
. 38: ."-";:. I.Q.F..". "...P..". ";.38)
;". "...Z..". ";G(1)"SIDE 1:";...... G(
129);.30)". ".I....". ";.38);". "......"
. ".C$(1)." . "......". ";.38);". "..
....". ";.38);". ".$....". ";G(1)"SIDE
2:";.:.... G(129);.30)". ".N.J..". ";.38
);". ".G.T..". ".C$(2)." . ".T.... I.
1 .6......". ";.38);". "...... I......"
";...... I.1 . 40:.".";:. I.A....1: 1,
D.G.$...Z.... *TAPE LABEL*...B.. 1,D: .
1...G.. J.1 . 2: BL$.""...L.." /";.$.V..
I.1 . 34: .".";:. I.-...."\".F....". ";
G(1)" SIDE";J;.\.... G(129);.25)" .".J..
.L.34.L(J).X...L1..(L.2)...... I.1 . L1.
....BL$.BL$." ": . I...&..". ";...0.. BL
$;S$(J);.T.:.. I.1 . L.L1: ." ";:. I...D
..". "...N..".";...B.. I.1 . 17: ." A";:
. I...L.." ."...V..". ";.;.... .6)"/....
................\";.I.... .6)". ".[...."
. ";.5)".";.Q.... .22)".";.5)". "......"
. ";.5)".";...... .22)".";.5)". "......"
. ";.G.F.. .6)"\..................../";.
U.P.. .6)". "...Z.. * IDENTIFICATION *..
....". ";G(1);C$;G(129);".".(....". ";G(
1);D$;G(129);".".2...." ";.O.... I.1 . 3
6:. ".";:. I: ..W.H.. J.E.R..1: 1,D.K.
\........"DO YOU WANT A TITLE?". .... A$
: . A$."" . 3510...... A$."Y" . . "YES":
. 3550...J.. A$."N" . . "NO":A$."": . 35
60...T..3510......".THE TITLE CAN BE UP
TO".&...."14 CHARACTERS LONG."./.... A$.
J...L.C(A$): . L.14 . 3550.B...B$."": .
L.0 . 3590..... I.1 . L:B$.B$.".": . I.
....BL$.""...... 3660.....C$.BL$:BL$."":
A$.B$...$.. 3660.C...D$.BL$.N.8.. 3000.Z
.L.L1.34.L...V.L2..(L1.2)...`.. I.1 .L2.
..J.BL$.BL$." ":. I...T.BL$.BL$.A$.+.~..
I.1 .L1.L2.A...BL$.BL$." ":. I:..O.R.."
MORE?";.H.\.. A$: . A$."" . 5980...F.. A
$."Y" . . "YES": . 500...G.. A$."N" . .
"NO": . 6000...H.. 5980...P......
> CLICK IMAGE PREVIEW FOR FULL MODAL