TAPE COVER PRINT
FILE INFORMATION
FILENAME(S): TAPE COVER PRINT
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 01:07:57
APPEARS ON: 2 disk(s)
FILE HASH
fd65a2ffdd871a4c48f80573ffcfcbd6f5212ab67c892ebe18ec795631b6c373
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT NR | TAPE COVER PRINT | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 2 | DOWNLOAD FILE |
| PD DISK 19 | TAPE COVER PRINT | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 2 | 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 CD 08 0A 00 8F 00 EF 08 |:.....:.........| 000000D0: 0F 00 85 20 22 45 4E 54 45 52 20 4F 55 54 50 55 |... "ENTER OUTPU| 000000E0: 54 20 44 45 56 49 43 45 20 4E 4F 2E 22 3B 44 00 |T DEVICE NO.";D.| 000000F0: 11 09 64 00 99 22 93 22 3B A3 38 29 3B 22 54 41 |..d..".";.8);"TA| 00000100: 50 45 20 43 4F 56 45 52 20 50 52 49 4E 54 45 52 |PE COVER PRINTER| 00000110: 22 00 3B 09 6E 00 99 22 11 11 54 48 49 53 20 50 |".;.n.."..THIS P| 00000120: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E |ROGRAM WILL PRIN| 00000130: 54 20 41 20 4C 41 42 45 4C 20 22 00 66 09 78 00 |T A LABEL ".f.x.| 00000140: 99 22 11 54 48 41 54 20 57 49 4C 4C 20 46 49 54 |.".THAT WILL FIT| 00000150: 20 49 4E 53 49 44 45 20 54 48 45 20 54 57 4F 2D | INSIDE THE TWO-| 00000160: 50 49 45 43 45 22 00 92 09 82 00 99 22 11 4E 4F |PIECE"......".NO| 00000170: 52 45 4C 43 4F 2D 53 54 59 4C 45 20 43 41 53 53 |RELCO-STYLE CASS| 00000180: 45 54 54 45 20 42 4F 58 2E 20 49 54 20 57 49 4C |ETTE BOX. IT WIL| 00000190: 4C 22 00 BE 09 8C 00 99 22 11 41 4C 53 4F 20 50 |L"......".ALSO P| 000001A0: 52 49 4E 54 20 41 20 4C 41 42 4C 45 20 46 4F 52 |RINT A LABLE FOR| 000001B0: 20 54 48 45 20 43 41 53 53 45 54 54 45 22 00 EB | THE CASSETTE"..| 000001C0: 09 96 00 99 22 11 54 41 50 45 20 49 54 53 45 4C |....".TAPE ITSEL| 000001D0: 46 2E 20 20 54 48 45 20 43 41 53 53 45 54 54 45 |F. THE CASSETTE| 000001E0: 20 4C 41 42 45 4C 20 43 41 4E 22 00 16 0A A0 00 | LABEL CAN".....| 000001F0: 99 22 11 42 45 20 41 46 46 49 58 45 44 20 56 45 |.".BE AFFIXED VE| 00000200: 52 59 20 4E 45 41 54 4C 59 20 57 49 54 48 20 52 |RY NEATLY WITH R| 00000210: 55 42 42 45 52 22 00 26 0A AA 00 99 22 11 43 45 |UBBER".&....".CE| 00000220: 4D 45 4E 54 2E 22 00 44 0A C8 00 99 22 11 50 52 |MENT.".D....".PR| 00000230: 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 42 45 |ESS RETURN TO BE| 00000240: 47 49 4E 22 00 5C 0A D2 00 A1 20 41 24 3A 20 8B |GIN".\.... A$: .| 00000250: 20 41 24 B2 22 22 20 A7 20 32 31 30 00 6A 0A F4 | A$."" . 210.j..| 00000260: 01 81 20 49 B2 31 20 A4 20 32 00 82 0A F9 01 53 |.. I.1 . 2.....S| 00000270: 24 28 49 29 B2 22 22 3A 50 B2 30 3A 4C 28 49 29 |$(I)."":P.0:L(I)| 00000280: B2 30 00 A8 0A FE 01 99 22 93 50 52 45 53 53 20 |.0......".PRESS | 00000290: 12 52 45 54 55 52 4E 92 20 57 48 45 4E 20 43 4F |.RETURN. WHEN CO| 000002A0: 4D 50 4C 45 54 45 44 22 00 CC 0A 08 02 99 22 11 |MPLETED"......".| 000002B0: 45 4E 54 45 52 20 54 48 45 20 50 52 4F 47 52 41 |ENTER THE PROGRA| 000002C0: 4D 53 20 4F 4E 20 53 49 44 45 22 49 00 D8 0A 12 |MS ON SIDE"I....| 000002D0: 02 99 3A 50 B2 50 AA 31 00 F7 0A 1C 02 99 22 20 |..:P.P.1......" | 000002E0: 20 50 52 4F 47 52 41 4D 20 23 22 3B 50 3B 22 20 | PROGRAM #";P;" | 000002F0: 20 A4 9D 9D 9D 22 3B 00 00 0B 26 02 85 20 41 24 | ....";...&.. A$| 00000300: 00 13 0B 30 02 8B 20 41 24 B2 22 A4 22 20 A7 20 |...0.. A$."." . | 00000310: 36 32 30 00 2F 0B 3A 02 8B 20 50 B2 31 20 A7 20 |620./.:.. P.1 . | 00000320: 53 24 28 49 29 B2 41 24 3A 20 89 20 35 39 30 00 |S$(I).A$: . 590.| 00000330: 46 0B 44 02 53 24 28 49 29 B2 53 24 28 49 29 AA |F.D.S$(I).S$(I).| 00000340: 22 3A 22 AA 41 24 00 58 0B 4E 02 4C 28 49 29 B2 |":".A$.X.N.L(I).| 00000350: C3 28 53 24 28 49 29 29 00 6C 0B 58 02 8B 20 4C |.(S$(I)).l.X.. L| 00000360: 28 49 29 B1 33 34 20 89 20 37 30 30 00 76 0B 62 |(I).34 . 700.v.b| 00000370: 02 89 20 35 33 30 00 7E 0B 6C 02 82 20 49 00 88 |.. 530.~.l.. I..| 00000380: 0B 76 02 89 20 38 30 30 00 A4 0B BC 02 8F 20 2A |.v.. 800...... *| 00000390: 20 54 4F 4F 20 4D 41 4E 59 20 43 48 41 52 41 43 | TOO MANY CHARAC| 000003A0: 54 45 52 53 00 AA 0B C1 02 99 00 D8 0B C6 02 99 |TERS............| 000003B0: 22 54 48 45 20 50 52 4F 47 52 41 4D 53 20 59 4F |"THE PROGRAMS YO| 000003C0: 55 20 48 41 56 45 20 45 4E 54 45 52 45 44 20 46 |U HAVE ENTERED F| 000003D0: 4F 52 20 54 48 49 53 22 00 06 0C D0 02 99 22 53 |OR THIS"......"S| 000003E0: 49 44 45 20 41 52 45 20 54 4F 4F 20 4C 4F 4E 47 |IDE ARE TOO LONG| 000003F0: 2E 20 59 4F 55 20 4D 49 47 48 54 20 54 52 59 20 |. YOU MIGHT TRY | 00000400: 55 53 49 4E 47 22 00 34 0C DA 02 99 22 41 42 42 |USING".4...."ABB| 00000410: 52 45 56 49 41 54 49 4F 4E 53 20 46 4F 52 20 4F |REVIATIONS FOR O| 00000420: 4E 45 20 4F 52 20 4D 4F 52 45 20 4F 46 20 54 48 |NE OR MORE OF TH| 00000430: 45 4D 2E 22 00 3A 0C E4 02 99 00 63 0C EE 02 99 |EM.".:.....c....| 00000440: 22 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 |"PRESS .RETURN. | 00000450: 57 48 45 4E 20 59 4F 55 20 41 52 45 20 52 45 41 |WHEN YOU ARE REA| 00000460: 44 59 22 00 78 0C F8 02 99 22 54 4F 20 52 45 44 |DY".x...."TO RED| 00000470: 4F 20 54 48 45 4D 2E 22 00 8D 0C 02 03 A1 41 24 |O THEM."......A$| 00000480: 3A 8B 41 24 B2 22 22 20 A7 20 37 37 30 00 96 0C |:.A$."" . 770...| 00000490: 0C 03 89 35 30 30 00 9C 0C 20 03 8F 00 B8 0C 2A |...500... .....*| 000004A0: 03 43 24 28 31 29 B2 53 24 28 31 29 3A 43 24 28 |.C$(1).S$(1):C$(| 000004B0: 32 29 B2 53 24 28 32 29 00 C6 0C 34 03 81 20 4A |2).S$(2)...4.. J| 000004C0: B2 31 20 A4 20 32 00 DA 0C 3E 03 81 20 49 B2 31 |.1 . 2...>.. I.1| 000004D0: 20 A4 20 33 34 AB 4C 28 4A 29 00 EE 0C 48 03 43 | . 34.L(J)...H.C| 000004E0: 24 28 4A 29 B2 43 24 28 4A 29 AA 22 20 22 00 F6 |$(J).C$(J)." "..| 000004F0: 0C 52 03 82 20 49 00 0A 0D 5C 03 4E 24 28 4A 29 |.R.. I...\.N$(J)| 00000500: B2 C9 28 C4 28 4A 29 2C 31 29 00 12 0D 66 03 82 |..(.(J),1)...f..| 00000510: 20 4A 00 2B 0D E8 03 8F 20 2A 20 57 48 49 43 48 | J.+.... * WHICH| 00000520: 20 46 55 4E 43 54 49 4F 4E 20 2A 00 37 0D F2 03 | FUNCTION *.7...| 00000530: 99 22 93 11 11 11 22 00 59 0D FC 03 99 22 31 20 |."....".Y...."1 | 00000540: 50 52 49 4E 54 20 43 41 53 53 45 54 54 45 20 42 |PRINT CASSETTE B| 00000550: 4F 58 20 4C 41 42 45 4C 22 00 7E 0D 06 04 99 3A |OX LABEL".~....:| 00000560: 99 22 32 20 50 52 49 4E 54 20 43 41 53 53 45 54 |."2 PRINT CASSET| 00000570: 54 45 20 54 41 50 45 20 4C 41 42 45 4C 22 00 98 |TE TAPE LABEL"..| 00000580: 0D 10 04 99 3A 99 22 33 20 50 52 49 4E 54 20 4F |....:."3 PRINT O| 00000590: 55 54 20 42 4F 54 48 22 00 AA 0D 1A 04 99 3A 99 |UT BOTH"......:.| 000005A0: 3A 99 22 57 48 49 43 48 3F 22 00 C3 0D 24 04 A1 |:."WHICH?"...$..| 000005B0: 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 A7 20 31 | A$: . A$."" . 1| 000005C0: 30 36 30 00 E0 0D 2E 04 8B 20 41 24 B3 22 31 22 |060...... A$."1"| 000005D0: 20 B0 20 41 24 B1 22 33 22 20 A7 20 31 30 36 30 | . A$."3" . 1060| 000005E0: 00 EC 0D 38 04 41 B2 C5 28 41 24 29 00 05 0E 42 |...8.A..(A$)...B| 000005F0: 04 91 20 41 20 89 20 31 31 30 30 2C 31 32 30 30 |.. A . 1100,1200| 00000600: 2C 31 33 30 30 00 17 0E 4C 04 8D 20 32 30 30 30 |,1300...L.. 2000| 00000610: 3A 89 20 35 39 37 30 00 29 0E B0 04 8D 20 33 35 |:. 5970.).... 35| 00000620: 30 30 3A 89 20 35 39 37 30 00 42 0E 14 05 8D 20 |00:. 5970.B.... | 00000630: 32 30 30 30 3A 8D 20 33 35 30 30 3A 89 20 35 39 |2000:. 3500:. 59| 00000640: 37 30 00 63 0E D0 07 8F 20 2A 50 52 49 4E 54 20 |70.c.... *PRINT | 00000650: 43 41 53 53 45 54 54 45 20 42 4F 58 20 4C 41 42 |CASSETTE BOX LAB| 00000660: 45 4C 2A 00 71 0E DA 07 9F 20 31 2C 44 3A 9D 20 |EL*.q.... 1,D:. | 00000670: 31 00 7C 0E E4 07 99 22 20 2F 22 3B 00 95 0E EE |1.|...." /";....| 00000680: 07 81 20 49 B2 31 20 A4 20 33 38 3A 99 22 A3 22 |.. I.1 . 38:."."| 00000690: 3B 3A 82 20 49 00 9E 0E F8 07 99 22 5C 22 00 AC |;:. I......"\"..| 000006A0: 0E 02 08 81 20 49 B2 31 20 A4 20 34 00 C0 0E 0C |.... I.1 . 4....| 000006B0: 08 99 22 A7 20 22 3B A3 33 38 29 3B 22 A7 20 22 |..". ";.38);". "| 000006C0: 00 C8 0E 16 08 82 20 49 00 D3 0E 20 08 99 22 A7 |...... I... ..".| 000006D0: 20 22 3B 00 ED 0E 2A 08 81 20 49 B2 31 20 A4 20 | ";...*.. I.1 . | 000006E0: 33 38 3A 99 22 2D 22 3B 3A 20 82 20 49 00 F7 0E |38:."-";: . I...| 000006F0: 34 08 99 22 A7 20 22 00 18 0F 3E 08 99 22 A7 20 |4..". "...>..". | 00000700: 20 22 AA 4E 24 28 31 29 AA 22 20 20 22 AA 43 24 | ".N$(1)." ".C$| 00000710: 28 31 29 AA 22 A7 20 22 00 39 0F 48 08 99 22 A7 |(1).". ".9.H..".| 00000720: 20 20 22 AA 4E 24 28 32 29 AA 22 20 20 22 AA 43 | ".N$(2)." ".C| 00000730: 24 28 32 29 AA 22 A7 20 22 00 44 0F 52 08 99 22 |$(2).". ".D.R.."| 00000740: A7 20 22 3B 00 5E 0F 5C 08 81 20 49 B2 31 20 A4 |. ";.^.\.. I.1 .| 00000750: 20 33 38 3A 20 99 22 2D 22 3B 3A 82 20 49 00 68 | 38: ."-";:. I.h| 00000760: 0F 66 08 99 22 A7 20 22 00 7C 0F 70 08 99 22 A7 |.f..". ".|.p..".| 00000770: 20 22 3B A3 33 38 29 3B 22 A7 20 22 00 96 0F 7A | ";.38);". "...z| 00000780: 08 99 22 A7 20 20 22 3B C7 28 31 29 22 53 49 44 |..". ";.(1)"SID| 00000790: 45 20 31 3A 22 3B 00 AC 0F 84 08 99 20 C7 28 31 |E 1:";...... .(1| 000007A0: 32 39 29 3B A3 33 30 29 22 A7 20 22 00 C0 0F 8E |29);.30)". "....| 000007B0: 08 99 22 A7 20 22 3B A3 33 38 29 3B 22 A7 20 22 |..". ";.38);". "| 000007C0: 00 D9 0F 98 08 99 22 A7 20 22 AA 43 24 28 31 29 |......". ".C$(1)| 000007D0: AA 22 20 20 20 20 A7 20 22 00 ED 0F A2 08 99 22 |." . "......"| 000007E0: A7 20 22 3B A3 33 38 29 3B 22 A7 20 22 00 01 10 |. ";.38);". "...| 000007F0: AC 08 99 22 A7 20 22 3B A3 33 38 29 3B 22 A7 20 |...". ";.38);". | 00000800: 22 00 1B 10 B6 08 99 22 A7 20 20 22 3B C7 28 31 |"......". ";.(1| 00000810: 29 22 53 49 44 45 20 32 3A 22 3B 00 31 10 C0 08 |)"SIDE 2:";.1...| 00000820: 99 20 C7 28 31 32 39 29 3B A3 33 30 29 22 A7 20 |. .(129);.30)". | 00000830: 22 00 45 10 CA 08 99 22 A7 20 22 3B A3 33 38 29 |".E....". ";.38)| 00000840: 3B 22 A7 20 22 00 5E 10 D4 08 99 22 A7 20 22 AA |;". ".^....". ".| 00000850: 43 24 28 32 29 AA 22 20 20 20 20 A7 20 22 00 6B |C$(2)." . ".k| 00000860: 10 DE 08 81 20 49 B2 31 20 A4 36 00 7F 10 E8 08 |.... I.1 .6.....| 00000870: 99 22 A7 20 22 3B A3 33 38 29 3B 22 A7 20 22 00 |.". ";.38);". ".| 00000880: 87 10 F2 08 82 20 49 00 91 10 FC 08 99 22 20 22 |..... I......" "| 00000890: 3B 00 AA 10 06 09 81 20 49 B2 31 20 A4 20 34 30 |;...... I.1 . 40| 000008A0: 3A 99 22 A3 22 3B 3A 82 20 49 00 B8 10 1A 09 98 |:.".";:. I......| 000008B0: 31 3A 20 A0 20 31 2C 44 00 BE 10 24 09 8E 00 D1 |1: . 1,D...$....| 000008C0: 10 B8 0B 8F 20 2A 54 41 50 45 20 4C 41 42 45 4C |.... *TAPE LABEL| 000008D0: 2A 00 E0 10 C2 0B 9F 20 31 2C 44 3A 20 9D 20 31 |*...... 1,D: . 1| 000008E0: 00 F6 10 C7 0B 81 20 4A B2 31 20 A4 20 32 3A 20 |...... J.1 . 2: | 000008F0: 42 4C 24 B2 22 22 00 01 11 CC 0B 99 22 20 2F 22 |BL$.""......" /"| 00000900: 3B 00 1B 11 D6 0B 81 20 49 B2 31 20 A4 20 33 34 |;...... I.1 . 34| 00000910: 3A 20 99 22 A3 22 3B 3A 82 20 49 00 24 11 E0 0B |: .".";:. I.$...| 00000920: 99 22 5C 22 00 3D 11 EA 0B 99 22 A7 20 22 3B C7 |."\".=....". ";.| 00000930: 28 31 29 22 20 53 49 44 45 22 3B 4A 3B 00 53 11 |(1)" SIDE";J;.S.| 00000940: F4 0B 99 20 C7 28 31 32 39 29 3B A3 32 35 29 22 |... .(129);.25)"| 00000950: 20 A7 22 00 61 11 FE 0B 4C B2 33 34 AB 4C 28 4A | .".a...L.34.L(J| 00000960: 29 00 6F 11 08 0C 4C 31 B2 B5 28 4C AD 32 29 00 |).o...L1..(L.2).| 00000970: 7E 11 12 0C 81 20 49 B2 31 20 A4 20 4C 31 00 93 |~.... I.1 . L1..| 00000980: 11 1C 0C 42 4C 24 B2 42 4C 24 AA 22 20 22 3A 20 |...BL$.BL$." ": | 00000990: 82 20 49 00 9E 11 26 0C 99 22 A7 20 22 3B 00 AF |. I...&..". ";..| 000009A0: 11 30 0C 99 20 42 4C 24 3B 53 24 28 4A 29 3B 00 |.0.. BL$;S$(J);.| 000009B0: CB 11 3A 0C 81 20 49 B2 31 20 A4 20 4C AB 4C 31 |..:.. I.1 . L.L1| 000009C0: 3A 20 99 22 20 22 3B 3A 82 20 49 00 D5 11 44 0C |: ." ";:. I...D.| 000009D0: 99 22 A7 20 22 00 DF 11 4E 0C 99 22 A7 22 3B 00 |.". "...N..".";.| 000009E0: FA 11 62 0C 81 20 49 B2 31 20 A4 20 31 37 3A 20 |..b.. I.1 . 17: | 000009F0: 99 22 20 C1 22 3B 3A 82 20 49 00 04 12 6C 0C 99 |." .";:. I...l..| 00000A00: 22 20 A7 22 00 0F 12 76 0C 99 22 A7 20 22 3B 00 |" ."...v..". ";.| 00000A10: 32 12 80 0C 99 20 A3 36 29 22 2F A3 A3 A3 A3 A3 |2.... .6)"/.....| 00000A20: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 5C |...............\| 00000A30: 22 3B 00 40 12 8A 0C 99 20 A3 36 29 22 A7 20 22 |";.@.... .6)". "| 00000A40: 00 52 12 94 0C 99 22 A7 20 22 3B A3 35 29 22 A7 |.R....". ";.5)".| 00000A50: 22 3B 00 68 12 9E 0C 99 20 A3 32 32 29 22 A5 22 |";.h.... .22)"."| 00000A60: 3B A3 35 29 22 A7 20 22 00 7A 12 A8 0C 99 22 A7 |;.5)". ".z....".| 00000A70: 20 22 3B A3 35 29 22 A7 22 3B 00 90 12 B2 0C 99 | ";.5)".";......| 00000A80: 20 A3 32 32 29 22 A5 22 3B A3 35 29 22 A7 20 22 | .22)".";.5)". "| 00000A90: 00 9B 12 BC 0C 99 22 A7 20 22 3B 00 BE 12 C6 0C |......". ";.....| 00000AA0: 99 20 A3 36 29 22 5C A4 A4 A4 A4 A4 A4 A4 A4 A4 |. .6)"\.........| 00000AB0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 2F 22 3B 00 CC |.........../";..| 00000AC0: 12 D0 0C 99 20 A3 36 29 22 A7 20 22 00 E5 12 DA |.... .6)". "....| 00000AD0: 0C 8F 20 2A 20 49 44 45 4E 54 49 46 49 43 41 54 |.. * IDENTIFICAT| 00000AE0: 49 4F 4E 20 2A 00 02 13 E4 0C 99 22 A7 20 22 3B |ION *......". ";| 00000AF0: C7 28 31 29 3B 43 24 3B C7 28 31 32 39 29 3B 22 |.(1);C$;.(129);"| 00000B00: A7 22 00 1F 13 EE 0C 99 22 A7 20 22 3B C7 28 31 |."......". ";.(1| 00000B10: 29 3B 44 24 3B C7 28 31 32 39 29 3B 22 A7 22 00 |);D$;.(129);".".| 00000B20: 29 13 02 0D 99 22 20 22 3B 00 46 13 0C 0D 81 20 |)...." ";.F.... | 00000B30: 49 B2 31 20 A4 20 33 36 3A 99 20 22 A3 22 3B 3A |I.1 . 36:. ".";:| 00000B40: 82 20 49 3A 20 99 00 4E 13 48 0D 82 20 4A 00 5C |. I: ..N.H.. J.\| 00000B50: 13 52 0D 98 31 3A 20 A0 20 31 2C 44 00 62 13 5C |.R..1: . 1,D.b.\| 00000B60: 0D 8E 00 7E 13 AC 0D 99 22 44 4F 20 59 4F 55 20 |...~...."DO YOU | 00000B70: 57 41 4E 54 20 41 20 54 49 54 4C 45 3F 22 00 97 |WANT A TITLE?"..| 00000B80: 13 B6 0D A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 |.... A$: . A$.""| 00000B90: 20 A7 20 33 35 31 30 00 B5 13 C0 0D 8B 20 41 24 | . 3510...... A$| 00000BA0: B2 22 59 22 20 A7 20 99 20 22 59 45 53 22 3A 89 |."Y" . . "YES":.| 00000BB0: 20 33 35 35 30 00 D9 13 CA 0D 8B 20 41 24 B2 22 | 3550...... A$."| 00000BC0: 4E 22 20 A7 20 99 20 22 4E 4F 22 3A 41 24 B2 22 |N" . . "NO":A$."| 00000BD0: 22 3A 20 89 20 33 35 36 30 00 E3 13 D4 0D 89 33 |": . 3560......3| 00000BE0: 35 31 30 00 02 14 DE 0D 99 22 11 54 48 45 20 54 |510......".THE T| 00000BF0: 49 54 4C 45 20 43 41 4E 20 42 45 20 55 50 20 54 |ITLE CAN BE UP T| 00000C00: 4F 22 00 1D 14 E3 0D 99 22 31 34 20 43 48 41 52 |O"......"14 CHAR| 00000C10: 41 43 54 45 52 53 20 4C 4F 4E 47 2E 22 00 26 14 |ACTERS LONG.".&.| 00000C20: E4 0D 85 20 41 24 00 41 14 E8 0D 4C B2 C3 28 41 |... A$.A...L..(A| 00000C30: 24 29 3A 20 8B 20 4C B1 31 34 20 89 20 33 35 35 |$): . L.14 . 355| 00000C40: 30 00 59 14 F2 0D 42 24 B2 22 22 3A 20 8B 20 4C |0.Y...B$."": . L| 00000C50: B2 30 20 89 20 33 35 39 30 00 76 14 FC 0D 81 20 |.0 . 3590.v.... | 00000C60: 49 B2 31 20 A4 20 4C 3A 42 24 B2 42 24 AA 22 A3 |I.1 . L:B$.B$.".| 00000C70: 22 3A 20 82 20 49 00 81 14 06 0E 42 4C 24 B2 22 |": . I.....BL$."| 00000C80: 22 00 8C 14 10 0E 8D 20 33 36 36 30 00 A4 14 1A |"...... 3660....| 00000C90: 0E 43 24 B2 42 4C 24 3A 42 4C 24 B2 22 22 3A 41 |.C$.BL$:BL$."":A| 00000CA0: 24 B2 42 24 00 AF 14 24 0E 8D 20 33 36 36 30 00 |$.B$...$.. 3660.| 00000CB0: BA 14 2E 0E 44 24 B2 42 4C 24 00 C5 14 38 0E 89 |....D$.BL$...8..| 00000CC0: 20 33 30 30 30 00 D1 14 4C 0E 4C 31 B2 33 34 AB | 3000...L.L1.34.| 00000CD0: 4C 00 E0 14 56 0E 4C 32 B2 B5 28 4C 31 AD 32 29 |L...V.L2..(L1.2)| 00000CE0: 00 EE 14 60 0E 81 20 49 B2 31 20 A4 4C 32 00 02 |...`.. I.1 .L2..| 00000CF0: 15 6A 0E 42 4C 24 B2 42 4C 24 AA 22 20 22 3A 82 |.j.BL$.BL$." ":.| 00000D00: 20 49 00 11 15 74 0E 42 4C 24 B2 42 4C 24 AA 41 | I...t.BL$.BL$.A| 00000D10: 24 00 22 15 7E 0E 81 20 49 B2 31 20 A4 4C 31 AB |$.".~.. I.1 .L1.| 00000D20: 4C 32 00 38 15 88 0E 42 4C 24 B2 42 4C 24 AA 22 |L2.8...BL$.BL$."| 00000D30: 20 22 3A 82 20 49 3A 8E 00 46 15 52 17 99 22 4D | ":. I:..F.R.."M| 00000D40: 4F 52 45 3F 22 3B 00 5F 15 5C 17 A1 20 41 24 3A |ORE?";._.\.. A$:| 00000D50: 20 8B 20 41 24 B2 22 22 20 A7 20 35 39 38 30 00 | . A$."" . 5980.| 00000D60: 7D 15 66 17 8B 20 41 24 B2 22 59 22 20 A7 20 99 |}.f.. A$."Y" . .| 00000D70: 20 22 59 45 53 22 3A 20 89 20 35 30 30 00 9B 15 | "YES": . 500...| 00000D80: 67 17 8B 20 41 24 B2 22 4E 22 20 A7 20 99 20 22 |g.. A$."N" . . "| 00000D90: 4E 4F 22 3A 20 89 20 36 30 30 30 00 A6 15 68 17 |NO": . 6000...h.| 00000DA0: 89 20 35 39 38 30 00 AC 15 70 17 80 00 00 00 0A |. 5980...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...:.
M.......... "ENTER OUTPUT DEVICE NO.";D.
..D..".";.8);"TAPE COVER PRINTER".;.N.."
..THIS PROGRAM WILL PRINT A LABEL ".F.X.
.".THAT WILL FIT INSIDE THE TWO-PIECE"..
....".NORELCO-STYLE CASSETTE BOX. IT WIL
L"......".ALSO PRINT A LABLE FOR THE CAS
SETTE"......".TAPE ITSELF. THE CASSETTE
LABEL CAN"... ..".BE AFFIXED VERY NEATL
Y WITH RUBBER".&....".CEMENT.".D.H..".PR
ESS RETURN TO BEGIN".\.R.. A$: . A$."" .
210.J.... I.1 . 2.....S$(I)."":P.0:L(I)
.0......".PRESS .RETURN. WHEN COMPLETED"
.L....".ENTER THE PROGRAMS ON SIDE"I.X..
..:P.P.1......" PROGRAM #";P;" ....";.
..&.. A$...0.. A$."." . 620./.:.. P.1 .
S$(I).A$: . 590.F.D.S$(I).S$(I).":".A$.X
.N.L(I).C(S$(I)).L.X.. L(I).34 . 700.V.B
.. 530.~.L.. I...V.. 800...... * TOO MAN
Y CHARACTERS...A...X.F.."THE PROGRAMS YO
U HAVE ENTERED FOR THIS"...P.."SIDE ARE
TOO LONG. YOU MIGHT TRY USING".4.Z.."ABB
REVIATIONS FOR ONE OR MORE OF THEM.".:..
...C...."PRESS .RETURN. WHEN YOU ARE REA
DY".X...."TO REDO THEM."......A$:.A$.""
. 770......500... .....*.C$(1).S$(1):C$(
2).S$(2).F.4.. J.1 . 2.Z.>.. I.1 . 34.L(
J)...H.C$(J).C$(J)." "...R.. I...\.N$(J)
.I(D(J),1)...F.. J.+.... * WHICH FUNCTIO
N *.7...."....".Y...."1 PRINT CASSETTE B
OX LABEL".~....:."2 PRINT CASSETTE TAPE
LABEL"......:."3 PRINT OUT BOTH"......:.
:."WHICH?".C.$.. A$: . A$."" . 1060.....
. A$."1" . A$."3" . 1060...8.A.E(A$)...B
.. A . 1100,1200,1300...L.. 2000:. 5970.
).... 3500:. 5970.B.... 2000:. 3500:. 59
70.C.P.. *PRINT CASSETTE BOX LABEL*.Q.Z.
. 1,D:. 1.|...." /";...... I.1 . 38:."."
;:. I......"\"...... I.1 . 4......". ";.
38);". ".H.... I.S. ..". ";...*.. I.1 .
38:."-";: . I...4..". "...>..". ".N$(1)
." ".C$(1).". ".9.H..". ".N$(2)." ".C
$(2).". ".D.R..". ";.^.\.. I.1 . 38: ."-
";:. I.H.F..". ".|.P..". ";.38);". "...Z
..". ";G(1)"SIDE 1:";...... G(129);.30)
". "......". ";.38);". ".Y....". ".C$(1)
." . "......". ";.38);". "......". ";
.38);". "......". ";G(1)"SIDE 2:";.1...
. G(129);.30)". ".E.J..". ";.38);". ".^.
T..". ".C$(2)." . ".K.... I.1 .6....
.". ";.38);". "...... I......" ";......
I.1 . 40:.".";:. I......1: 1,D...$...Q
.... *TAPE LABEL*...B.. 1,D: . 1...G.. J
.1 . 2: BL$.""...L.." /";...V.. I.1 . 34
: .".";:. I.$...."\".=....". ";G(1)" SID
E";J;.S.... G(129);.25)" .".A...L.34.L(J
).O...L1..(L.2).~.... I.1 . L1.....BL$.B
L$." ": . I...&..". ";...0.. BL$;S$(J);.
K.:.. I.1 . L.L1: ." ";:. I.U.D..". "...
N..".";...B.. I.1 . 17: ." A";:. I...L..
" ."...V..". ";.2.... .6)"/.............
.......\";.@.... .6)". ".R....". ";.5)".
";.H.... .22)".";.5)". ".Z....". ";.5)".
";...... .22)".";.5)". "......". ";...F.
. .6)"\..................../";.L.P.. .6)
". "...Z.. * IDENTIFICATION *......". ";
G(1);C$;G(129);"."......". ";G(1);D$;G(1
29);".".)...." ";.F.... I.1 . 36:. ".";:
. I: ..N.H.. J.\.R..1: 1,D.B.\...~....
"DO YOU WANT A TITLE?"...... A$: . A$.""
. 3510...... A$."Y" . . "YES":. 3550.Y.
J.. A$."N" . . "NO":A$."": . 3560...T..3
510......".THE TITLE CAN BE UP TO"......
"14 CHARACTERS LONG.".&.... A$.A...L.C(A
$): . L.14 . 3550.Y...B$."": . L.0 . 359
0.V.... I.1 . L:B$.B$.".": . I.....BL$."
"...... 3660.....C$.BL$:BL$."":A$.B$...$
.. 3660.....D$.BL$.E.8.. 3000.Q.L.L1.34.
L...V.L2..(L1.2)...`.. I.1 .L2...J.BL$.B
L$." ":. I...T.BL$.BL$.A$.".~.. I.1 .L1.
L2.8...BL$.BL$." ":. I:..F.R.."MORE?";._
.\.. A$: . A$."" . 5980.}.F.. A$."Y" . .
"YES": . 500...G.. A$."N" . . "NO": . 6
000...H.. 5980...P......
> CLICK IMAGE PREVIEW FOR FULL MODAL