JACKET LISTER
FILE INFORMATION
FILENAME(S): JACKET LISTER
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-19 22:48:42
APPEARS ON: 1 disk(s)
FILE HASH
8862eee3ec1564e5b4d72f651b9d3595923c5aa1a800f9b47292898765703548
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C DISK SERVICE | JACKET LISTER | PRG | Radd Maxx | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 2A 2A 2A 2A 2A 20 50 52 |..#.... ***** PR| 00000010: 4F 47 52 41 4D 20 53 45 54 20 55 50 20 2A 2A 2A |OGRAM SET UP ***| 00000020: 2A 2A 2A 00 3B 08 14 00 86 54 42 24 28 31 34 34 |***.;....TB$(144| 00000030: 29 3A 86 41 42 24 28 31 34 34 29 00 58 08 1E 00 |):.AB$(144).X...| 00000040: 99 22 93 9A 22 3A 97 35 33 32 38 30 2C 31 34 3A |."..":.53280,14:| 00000050: 97 35 33 32 38 31 2C 36 00 89 08 28 00 99 22 11 |.53281,6...(..".| 00000060: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 05 20 57 |.............. W| 00000070: 48 41 54 20 49 53 20 54 4F 44 41 59 27 53 20 44 |HAT IS TODAY'S D| 00000080: 41 54 45 3A 20 22 3A 99 3A 00 B7 08 32 00 99 22 |ATE: ":.:...2.."| 00000090: 1D 1D 1D 1D 1D 12 05 20 45 4E 54 45 52 20 4D 4F |....... ENTER MO| 000000A0: 2F 44 59 2F 59 52 20 54 48 45 4E 20 3C 52 45 54 |/DY/YR THEN <RET| 000000B0: 55 52 4E 3E 20 92 22 00 CD 08 3C 00 99 22 11 11 |URN> ."...<.."..| 000000C0: 22 3B A6 31 31 29 3B 3A 85 20 44 54 24 00 00 09 |";.11);:. DT$...| 000000D0: 46 00 99 22 93 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |F.."............| 000000E0: 1D 1D 12 9F 20 55 50 50 45 52 20 41 4E 44 20 4C |.... UPPER AND L| 000000F0: 4F 57 45 52 20 43 41 53 45 20 3F 20 22 3A 99 3A |OWER CASE ? ":.:| 00000100: 00 2F 09 50 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |./.P..".........| 00000110: 1D 12 9F 20 05 59 9F 20 4F 52 20 05 4E 9F 20 54 |... .Y. OR .N. T| 00000120: 48 45 4E 20 3C 52 45 54 55 52 4E 3E 20 92 22 00 |HEN <RETURN> .".| 00000130: 45 09 5A 00 99 22 11 11 22 3B A6 31 31 29 3B 3A |E.Z.."..";.11);:| 00000140: 85 20 43 43 24 00 6C 09 64 00 8B 20 43 43 24 B2 |. CC$.l.d.. CC$.| 00000150: 22 59 22 20 A7 20 43 4D 24 B2 C7 28 31 37 29 3A |"Y" . CM$..(17):| 00000160: 8F 20 4C 4F 57 45 52 20 43 41 53 45 00 95 09 6E |. LOWER CASE...n| 00000170: 00 8B 20 43 43 24 B3 B1 22 59 22 20 A7 20 43 4D |.. CC$.."Y" . CM| 00000180: 24 B2 C7 28 31 34 35 29 3A 8F 20 55 50 50 45 52 |$..(145):. UPPER| 00000190: 20 43 41 53 45 00 B2 09 78 00 99 22 93 9A 22 3A | CASE...x.."..":| 000001A0: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281| 000001B0: 2C 36 00 E5 09 82 00 99 22 11 11 11 11 1D 9E 57 |,6......"......W| 000001C0: 48 49 43 48 20 44 49 53 4B 20 44 52 49 56 45 20 |HICH DISK DRIVE | 000001D0: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4C |DO YOU WANT TO L| 000001E0: 49 53 54 3F 22 00 FA 09 8C 00 99 22 11 11 22 3B |IST?"......"..";| 000001F0: A6 31 31 29 3B 3A 85 20 44 49 00 1C 0A 96 00 8F |.11);:. DI......| 00000200: 20 2A 2A 2A 2A 2A 20 52 45 41 44 20 44 49 53 4B | ***** READ DISK| 00000210: 20 4D 45 4E 55 20 2A 2A 2A 2A 2A 2A 00 38 0A A0 | MENU ******.8..| 00000220: 00 99 22 93 9F 22 3A 97 35 33 32 38 30 2C 32 3A |.."..":.53280,2:| 00000230: 97 35 33 32 38 31 2C 30 00 6C 0A AA 00 99 22 11 |.53281,0.l....".| 00000240: 11 11 11 11 11 1D 1D 1D 12 20 20 52 45 41 44 49 |......... READI| 00000250: 4E 47 20 20 44 41 54 41 20 3A 20 50 4C 45 41 53 |NG DATA : PLEAS| 00000260: 45 20 53 54 41 4E 44 42 59 20 20 22 00 76 0A B4 |E STANDBY ".v..| 00000270: 00 8D 31 36 33 30 00 AA 0A BE 00 9F 38 2C 44 49 |..1630......8,DI| 00000280: 2C 30 2C 22 24 30 22 3A 81 43 B2 31 A4 38 3A A1 |,0,"$0":.C.1.8:.| 00000290: 23 38 2C 41 24 3A 82 3A 43 B2 31 3A 44 4E 24 B2 |#8,A$:.:C.1:DN$.| 000002A0: 22 22 3A 81 43 B2 31 A4 31 36 00 E4 0A C8 00 A1 |"":.C.1.16......| 000002B0: 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 |#8,A$:DN$.DN$.A$| 000002C0: 3A 82 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 |:.:.#8,A$:.#8,A$| 000002D0: 3A 44 4E 24 B2 44 4E 24 AA 22 20 20 22 3A A1 23 |:DN$.DN$." ":.#| 000002E0: 38 2C 41 24 00 13 0B D2 00 44 4E 24 B2 44 4E 24 |8,A$.....DN$.DN$| 000002F0: AA 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 |.A$:.#8,A$:DN$.D| 00000300: 4E 24 AA 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 |N$.A$:.#8,A$:.#8| 00000310: 2C 41 24 00 29 0B DC 00 A1 23 38 2C 41 24 3A A1 |,A$.)....#8,A$:.| 00000320: 23 38 2C 41 24 3A 43 B2 31 00 4B 0B E6 00 81 41 |#8,A$:C.1.K....A| 00000330: B2 31 A4 34 3A A1 23 38 2C 41 24 3A 82 3A 50 4E |.1.4:.#8,A$:.:PN| 00000340: 24 B2 22 22 3A 54 59 24 B2 22 22 00 61 0B F0 00 |$."":TY$."".a...| 00000350: A1 23 38 2C 41 24 3A 8B 53 54 B3 B1 30 A7 33 31 |.#8,A$:.ST..0.31| 00000360: 30 00 70 0B FA 00 8B 41 24 B2 22 22 A7 33 31 30 |0.p....A$."".310| 00000370: 00 83 0B 04 01 8B C6 28 41 24 29 B3 B1 33 34 A7 |.......(A$)..34.| 00000380: 32 34 30 00 A9 0B 0E 01 A1 23 38 2C 41 24 3A 8B |240......#8,A$:.| 00000390: C6 28 41 24 29 B3 B1 33 34 A7 50 4E 24 B2 50 4E |.(A$)..34.PN$.PN| 000003A0: 24 AA 41 24 3A 89 32 37 30 00 C2 0B 18 01 A1 23 |$.A$:.270......#| 000003B0: 38 2C 41 24 3A 8B C6 28 41 24 29 B2 33 32 A7 32 |8,A$:..(A$).32.2| 000003C0: 38 30 00 E4 0B 22 01 54 59 24 B2 54 59 24 AA 41 |80...".TY$.TY$.A| 000003D0: 24 3A A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 22 22 |$:.#8,A$:.A$..""| 000003E0: A7 32 39 30 00 03 0C 2C 01 54 42 24 28 43 29 B2 |.290...,.TB$(C).| 000003F0: 50 4E 24 3A 43 B2 43 AA 31 3A 8B 53 54 B2 30 A7 |PN$:C.C.1:.ST.0.| 00000400: 32 33 30 00 0A 0C 36 01 A0 38 00 1D 0C 40 01 8B |230...6..8...@..| 00000410: 20 43 B1 38 38 20 A7 20 8D 31 33 31 30 00 3F 0C | C.88 . .1310.?.| 00000420: 4A 01 8F 20 2A 2A 2A 20 41 4C 50 48 41 42 45 54 |J.. *** ALPHABET| 00000430: 49 5A 45 20 4C 49 53 54 49 4E 47 20 2A 2A 2A 00 |IZE LISTING ***.| 00000440: 5B 0C 54 01 99 22 93 9F 22 3A 97 35 33 32 38 30 |[.T.."..":.53280| 00000450: 2C 34 3A 97 35 33 32 38 31 2C 30 00 8F 0C 5E 01 |,4:.53281,0...^.| 00000460: 99 22 11 11 11 11 11 11 1D 1D 1D 12 20 20 53 4F |.".......... SO| 00000470: 52 54 49 4E 47 20 20 44 41 54 41 20 3A 20 50 4C |RTING DATA : PL| 00000480: 45 41 53 45 20 53 54 41 4E 44 42 59 20 20 22 00 |EASE STANDBY ".| 00000490: 99 0C 68 01 8D 31 35 37 30 00 B7 0C 72 01 5A 24 |..h..1570...r.Z$| 000004A0: B2 22 DA DA DA DA DA DA DA DA DA DA DA DA DA DA |."..............| 000004B0: DA DA 22 3A 45 B2 31 00 E2 0C 7C 01 81 41 B2 31 |..":E.1...|..A.1| 000004C0: A4 43 AB 31 3A 43 24 B2 5A 24 3A 81 42 B2 31 A4 |.C.1:C$.Z$:.B.1.| 000004D0: 43 AB 31 3A 8B 43 24 B3 54 42 24 28 42 29 A7 34 |C.1:.C$.TB$(B).4| 000004E0: 30 30 00 F4 0C 86 01 43 24 B2 54 42 24 28 42 29 |00.....C$.TB$(B)| 000004F0: 3A 44 B2 42 00 16 0D 90 01 82 3A 41 42 24 28 45 |:D.B......:AB$(E| 00000500: 29 B2 43 24 3A 45 B2 45 AA 31 3A 54 42 24 28 44 |).C$:E.E.1:TB$(D| 00000510: 29 B2 5A 24 3A 82 00 38 0D 9A 01 8F 20 20 2A 2A |).Z$:..8.... **| 00000520: 2A 2A 20 4A 41 43 4B 45 54 20 4E 41 4D 45 20 3D |** JACKET NAME =| 00000530: 20 4E 53 24 20 2A 2A 2A 00 5C 0D A4 01 4E 53 24 | NS$ ***.\...NS$| 00000540: B2 22 2A 2A 2A 2A 2A 20 20 20 52 45 46 45 52 45 |."***** REFERE| 00000550: 4E 43 45 20 20 20 2A 2A 2A 2A 2A 22 00 7F 0D AE |NCE *****"....| 00000560: 01 8F 20 2A 2A 2A 2A 2A 20 50 52 49 4E 54 20 41 |.. ***** PRINT A| 00000570: 4C 50 48 41 20 4C 49 53 54 20 2A 2A 2A 2A 2A 00 |LPHA LIST *****.| 00000580: 9B 0D B8 01 99 22 93 22 3A 97 20 35 33 32 38 30 |.....".":. 53280| 00000590: 2C 35 3A 97 35 33 32 38 31 2C 30 00 D0 0D C2 01 |,5:.53281,0.....| 000005A0: 99 22 11 11 11 11 11 11 1D 1D 12 20 20 50 52 49 |."......... PRI| 000005B0: 4E 54 49 4E 47 20 4A 41 43 4B 45 54 20 3A 20 50 |NTING JACKET : P| 000005C0: 4C 45 41 53 45 20 53 54 41 4E 44 42 59 20 20 22 |LEASE STANDBY "| 000005D0: 00 DA 0D CC 01 8D 31 35 31 30 00 F2 0D D6 01 44 |......1510.....D| 000005E0: 44 B2 30 3A 43 44 B2 B5 28 43 AD 32 29 3A 9F 31 |D.0:CD..(C.2):.1| 000005F0: 2C 34 00 FF 0D E0 01 81 20 43 52 B2 31 A4 32 00 |,4...... CR.1.2.| 00000600: 17 0E EA 01 98 31 2C C7 28 31 30 29 3A 8F 20 4C |.....1,.(10):. L| 00000610: 49 4E 45 46 45 45 44 00 20 0E F4 01 82 20 43 52 |INEFEED. .... CR| 00000620: 00 2C 0E FE 01 54 4C 24 B2 22 B9 22 00 5A 0E 08 |.,...TL$.".".Z..| 00000630: 02 98 31 2C A3 32 29 3B 3A 81 20 54 4C B2 31 20 |..1,.2);:. TL.1 | 00000640: A4 20 37 32 3A 98 31 2C 54 4C 24 3B 3A 82 54 4C |. 72:.1,TL$;:.TL| 00000650: 3A 98 31 2C 22 20 43 55 54 22 00 6A 0E 12 02 8D |:.1," CUT".j....| 00000660: 31 31 33 30 3A 8D 31 31 34 30 00 74 0E 1C 02 8D |1130:.1140.t....| 00000670: 31 31 33 30 00 A8 0E 26 02 98 31 2C C7 28 31 34 |1130...&..1,.(14| 00000680: 29 3B 4E 53 24 3B C7 28 31 35 29 3B 3A 8F 20 31 |);NS$;.(15);:. 1| 00000690: 34 20 44 4F 55 42 4C 45 20 57 49 44 54 48 20 31 |4 DOUBLE WIDTH 1| 000006A0: 35 20 53 49 4E 47 4C 45 00 B2 0E 30 02 8D 31 31 |5 SINGLE...0..11| 000006B0: 34 30 00 BF 0E 3A 02 81 20 4C 45 B2 31 A4 32 00 |40...:.. LE.1.2.| 000006C0: CF 0E 44 02 8D 31 31 33 30 3A 8D 31 31 34 30 00 |..D..1130:.1140.| 000006D0: D8 0E 4E 02 82 20 4C 45 00 E2 0E 58 02 8D 31 31 |..N.. LE...X..11| 000006E0: 33 30 00 0B 0F 62 02 98 31 2C A3 31 35 29 3B 43 |30...b..1,.15);C| 000006F0: 4D 24 3B 44 4E 24 3B A6 35 29 3B 44 54 24 3B 3A |M$;DN$;.5);DT$;:| 00000700: 8D 31 31 34 30 3A 8D 31 31 36 30 00 1B 0F 6C 02 |.1140:.1160...l.| 00000710: 8B 20 43 B1 33 32 20 A7 37 39 30 00 3D 0F 76 02 |. C.32 .790.=.v.| 00000720: 8F 20 2A 2A 20 50 52 49 4E 54 20 3A 20 3C 20 33 |. ** PRINT : < 3| 00000730: 32 20 50 52 4F 47 52 41 4D 53 20 2A 2A 00 50 0F |2 PROGRAMS **.P.| 00000740: 80 02 81 44 44 B2 31 A4 43 44 3A 8D 31 31 33 30 |...DD.1.CD:.1130| 00000750: 00 8C 0F 8A 02 98 31 2C C7 28 31 36 29 3B C7 28 |......1,.(16);.(| 00000760: 35 30 29 3B C7 28 34 38 29 3B 43 4D 24 3B 41 42 |50);.(48);CM$;AB| 00000770: 24 28 44 44 29 3B 3A 8F 20 50 52 49 4E 54 20 48 |$(DD);:. PRINT H| 00000780: 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 BB 0F 94 |EAD POSITION....| 00000790: 02 98 31 2C C7 28 31 36 29 3B C7 28 35 32 29 3B |..1,.(16);.(52);| 000007A0: C7 28 35 33 29 3B 43 4D 24 3B 41 42 24 28 43 44 |.(53);CM$;AB$(CD| 000007B0: AA 44 44 29 3B 3A 8D 31 31 34 30 00 D5 0F 9E 02 |.DD);:.1140.....| 000007C0: 8F 20 50 52 49 4E 54 20 48 45 41 44 20 50 4F 53 |. PRINT HEAD POS| 000007D0: 49 54 49 4F 4E 00 DE 0F A8 02 82 20 44 44 00 F6 |ITION...... DD..| 000007E0: 0F B2 02 8D 31 31 33 30 3A 8D 31 31 34 30 3A 44 |....1130:.1140:D| 000007F0: 44 B2 44 44 AA 31 00 07 10 BC 02 8B 20 44 44 B1 |D.DD.1...... DD.| 00000800: 31 37 20 A7 37 32 30 00 10 10 C6 02 89 36 39 30 |17 .720......690| 00000810: 00 1A 10 D0 02 8D 31 32 32 30 00 28 10 DA 02 81 |......1220.(....| 00000820: 20 53 4C B2 31 A4 32 39 00 38 10 E4 02 8D 31 32 | SL.1.29.8....12| 00000830: 30 30 3A 8D 31 32 31 30 00 41 10 EE 02 82 20 53 |00:.1210.A.... S| 00000840: 4C 00 4B 10 F8 02 8D 31 32 34 30 00 55 10 02 03 |L.K....1240.U...| 00000850: 8D 31 32 36 30 00 77 10 0C 03 8F 20 2A 2A 20 50 |.1260.w.... ** P| 00000860: 52 49 4E 54 20 3A 20 3E 20 33 32 20 50 52 4F 47 |RINT : > 32 PROG| 00000870: 52 41 4D 53 20 2A 2A 00 8A 10 16 03 81 44 44 B2 |RAMS **......DD.| 00000880: 31 A4 31 36 3A 8D 31 31 33 30 00 C6 10 20 03 98 |1.16:.1130... ..| 00000890: 31 2C C7 28 31 36 29 3B C7 28 35 30 29 3B C7 28 |1,.(16);.(50);.(| 000008A0: 34 38 29 3B 43 4D 24 3B 41 42 24 28 44 44 29 3B |48);CM$;AB$(DD);| 000008B0: 3A 8F 20 50 52 49 4E 54 20 48 45 41 44 20 50 4F |:. PRINT HEAD PO| 000008C0: 53 49 54 49 4F 4E 00 F5 10 2A 03 98 31 2C C7 28 |SITION...*..1,.(| 000008D0: 31 36 29 3B C7 28 35 32 29 3B C7 28 35 33 29 3B |16);.(52);.(53);| 000008E0: 43 4D 24 3B 41 42 24 28 44 44 AA 31 36 29 3B 3A |CM$;AB$(DD.16);:| 000008F0: 8D 31 31 34 30 00 0F 11 34 03 8F 20 50 52 49 4E |.1140...4.. PRIN| 00000900: 54 20 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 |T HEAD POSITION.| 00000910: 18 11 3E 03 82 20 44 44 00 28 11 48 03 8D 31 31 |..>.. DD.(.H..11| 00000920: 33 30 3A 8D 31 31 34 30 00 32 11 52 03 8D 31 32 |30:.1140.2.R..12| 00000930: 32 30 00 42 11 5C 03 8D 31 32 30 30 3A 8D 31 32 |20.B.\..1200:.12| 00000940: 31 30 00 5B 11 66 03 43 58 B2 28 43 AB 33 33 29 |10.[.f.CX.(C.33)| 00000950: AD 32 3A 43 5A B2 43 58 AA 33 32 00 6F 11 70 03 |.2:CZ.CX.32.o.p.| 00000960: 81 44 44 B2 33 33 A4 43 5A 3A 8D 31 32 30 30 00 |.DD.33.CZ:.1200.| 00000970: AB 11 7A 03 98 31 2C C7 28 31 36 29 3B C7 28 35 |..z..1,.(16);.(5| 00000980: 30 29 3B C7 28 34 38 29 3B 43 4D 24 3B 41 42 24 |0);.(48);CM$;AB$| 00000990: 28 44 44 29 3B 3A 8F 20 50 52 49 4E 54 20 48 45 |(DD);:. PRINT HE| 000009A0: 41 44 20 50 4F 53 49 54 49 4F 4E 00 DA 11 84 03 |AD POSITION.....| 000009B0: 98 31 2C C7 28 31 36 29 3B C7 28 35 32 29 3B C7 |.1,.(16);.(52);.| 000009C0: 28 34 38 29 3B 43 4D 24 3B 41 42 24 28 44 44 AA |(48);CM$;AB$(DD.| 000009D0: 43 58 29 3B 3A 8D 31 32 31 30 00 F4 11 8E 03 8F |CX);:.1210......| 000009E0: 20 50 52 49 4E 54 20 48 45 41 44 20 50 4F 53 49 | PRINT HEAD POSI| 000009F0: 54 49 4F 4E 00 FD 11 98 03 82 20 44 44 00 15 12 |TION...... DD...| 00000A00: A2 03 8D 31 32 30 30 3A 8D 31 32 31 30 3A 44 44 |...1200:.1210:DD| 00000A10: B2 44 44 AA 31 00 26 12 AC 03 8B 20 44 44 B1 36 |.DD.1.&.... DD.6| 00000A20: 30 20 A7 39 36 30 00 2F 12 B6 03 89 39 33 30 00 |0 .960./....930.| 00000A30: 3F 12 C0 03 8D 31 32 34 30 3A 8D 31 32 36 30 00 |?....1240:.1260.| 00000A40: 5D 12 CA 03 8F 20 2A 2A 2A 20 43 4C 4F 53 49 4E |].... *** CLOSIN| 00000A50: 47 20 52 45 4D 41 52 4B 53 20 2A 2A 2A 00 79 12 |G REMARKS ***.y.| 00000A60: D4 03 99 22 93 9F 22 3A 97 35 33 32 38 30 2C 39 |..."..":.53280,9| 00000A70: 3A 97 35 33 32 38 31 2C 30 00 AE 12 DE 03 99 22 |:.53281,0......"| 00000A80: 11 11 11 11 11 11 1D 1D 12 20 20 41 4C 50 48 41 |......... ALPHA| 00000A90: 42 45 54 49 5A 45 44 20 44 49 53 4B 20 43 4F 56 |BETIZED DISK COV| 00000AA0: 45 52 20 43 4F 4D 50 4C 45 54 45 20 20 22 00 B8 |ER COMPLETE "..| 00000AB0: 12 E8 03 8D 31 34 36 30 00 E9 12 F2 03 99 22 11 |....1460......".| 00000AC0: 11 11 11 11 1D 1D 20 20 44 4F 20 59 4F 55 20 57 |...... DO YOU W| 00000AD0: 41 4E 54 20 41 4E 4F 54 48 45 52 20 44 49 53 4B |ANT ANOTHER DISK| 00000AE0: 20 43 4F 56 45 52 20 3A 22 00 13 13 FC 03 85 22 | COVER :"......"| 00000AF0: 1D 1D 1D 1D 1D 1D 27 59 27 20 4F 52 20 27 4E 27 |......'Y' OR 'N'| 00000B00: 20 54 48 45 4E 20 3C 52 45 54 55 52 4E 3E 22 3B | THEN <RETURN>";| 00000B10: 41 47 24 00 31 13 06 04 81 20 44 44 B2 30 A4 31 |AG$.1.... DD.0.1| 00000B20: 34 34 3A 41 42 24 28 44 44 29 B2 22 22 3A 82 44 |44:AB$(DD)."":.D| 00000B30: 44 00 45 13 10 04 8B 20 41 47 24 B3 B1 22 59 22 |D.E.... AG$.."Y"| 00000B40: A7 31 30 37 30 00 66 13 1A 04 99 22 93 9A 22 3A |.1070.f...."..":| 00000B50: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281| 00000B60: 2C 36 3A 89 37 30 00 84 13 24 04 8F 20 2A 2A 20 |,6:.70...$.. ** | 00000B70: 54 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 41 |TERMINATE PROGRA| 00000B80: 4D 20 2A 2A 00 A1 13 2E 04 99 22 93 9F 22 3A 97 |M **......"..":.| 00000B90: 35 33 32 38 30 2C 37 3A 97 35 33 32 38 31 2C 31 |53280,7:.53281,1| 00000BA0: 31 00 D3 13 38 04 99 22 11 11 11 11 11 11 11 11 |1...8.."........| 00000BB0: 1D 1D 1D 1D 1D 1D 1D 1D 05 12 20 20 50 52 4F 47 |.......... PROG| 00000BC0: 52 41 4D 20 54 45 52 4D 49 4E 41 54 45 44 20 21 |RAM TERMINATED !| 00000BD0: 20 20 22 00 DD 13 42 04 8D 31 34 31 30 00 F3 13 | "...B..1410...| 00000BE0: 4C 04 81 20 57 54 B2 31 A4 20 31 30 30 30 3A 82 |L.. WT.1. 1000:.| 00000BF0: 20 57 54 00 12 14 56 04 99 22 93 9A 22 3A 97 35 | WT...V.."..":.5| 00000C00: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6| 00000C10: 3A 80 00 34 14 60 04 8F 20 2A 2A 2A 20 44 49 53 |:..4.`.. *** DIS| 00000C20: 4B 20 4A 41 43 4B 45 54 20 4F 55 54 4C 49 4E 45 |K JACKET OUTLINE| 00000C30: 20 2A 2A 2A 00 4D 14 6A 04 98 31 2C 22 20 20 B5 | ***.M.j..1," .| 00000C40: 20 20 20 20 20 20 20 A5 2A 22 3B 3A 8E 00 75 14 | .*";:..u.| 00000C50: 74 04 98 31 2C C7 28 31 36 29 3B C7 28 35 34 29 |t..1,.(16);.(54)| 00000C60: 3B C7 28 35 32 29 3B 22 2A A7 20 20 20 20 20 20 |;.(52);"*. | 00000C70: 20 B6 22 3A 8E 00 8F 14 7E 04 8F 20 50 52 49 4E | .":....~.. PRIN| 00000C80: 54 20 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 |T HEAD POSITION.| 00000C90: A6 14 88 04 98 31 2C 22 20 20 B5 20 20 20 20 20 |.....1," . | 00000CA0: 20 20 A5 2A 22 3B 00 CB 14 92 04 98 31 2C A3 31 | .*";......1,.1| 00000CB0: 35 29 3B 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |5);"............| 00000CC0: B8 B8 B8 B8 B8 B8 B8 B8 22 3B 3A 00 F3 14 9C 04 |........";:.....| 00000CD0: 98 31 2C C7 28 31 36 29 3B C7 28 35 34 29 3B C7 |.1,.(16);.(54);.| 00000CE0: 28 35 32 29 3B 22 2A A7 20 20 20 20 20 20 20 B6 |(52);"*. .| 00000CF0: 22 3A 8E 00 0D 15 A6 04 8F 20 50 52 49 4E 54 20 |":....... PRINT | 00000D00: 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 26 15 |HEAD POSITION.&.| 00000D10: B0 04 98 31 2C 22 20 20 20 20 20 20 20 20 20 20 |...1," | 00000D20: B5 22 3B 3A 8E 3A 00 5B 15 BA 04 98 31 2C C7 28 |.";:.:.[....1,.(| 00000D30: 31 36 29 3B C7 28 35 34 29 3B C7 28 35 33 29 3B |16);.(54);.(53);| 00000D40: 22 B6 22 3A 8E 3A 8F 20 50 52 49 4E 54 20 48 45 |".":.:. PRINT HE| 00000D50: 41 44 20 50 4F 53 49 54 49 4F 4E 00 67 15 C4 04 |AD POSITION.g...| 00000D60: 43 4C 24 B2 22 C3 22 00 98 15 CE 04 98 31 2C A3 |CL$."."......1,.| 00000D70: 32 29 3B 3A 81 20 43 4C B2 31 20 A4 20 37 32 3A |2);:. CL.1 . 72:| 00000D80: 98 31 2C 43 4C 24 3B 3A 82 43 4C 3A 98 31 2C 22 |.1,CL$;:.CL:.1,"| 00000D90: 20 46 4F 4C 44 22 3A 8E 00 A4 15 D8 04 4C 4C 24 | FOLD":......LL$| 00000DA0: B2 22 B8 22 00 D5 15 E2 04 98 31 2C A3 31 30 29 |."."......1,.10)| 00000DB0: 3B 3A 81 20 4C 4C B2 31 20 A4 20 35 36 3A 98 31 |;:. LL.1 . 56:.1| 00000DC0: 2C 4C 4C 24 3B 3A 82 4C 4C 3A 98 31 2C 22 20 43 |,LL$;:.LL:.1," C| 00000DD0: 55 54 22 3A 8E 00 E5 15 EC 04 98 31 3A 81 20 43 |UT":.......1:. C| 00000DE0: 52 B2 31 A4 33 00 F2 15 F6 04 98 31 2C C7 28 31 |R.1.3......1,.(1| 00000DF0: 30 29 00 03 16 00 05 82 20 43 52 3A A0 31 3A 89 |0)...... CR:.1:.| 00000E00: 39 38 30 00 25 16 0A 05 8F 20 2A 2A 20 4D 45 4E |980.%.... ** MEN| 00000E10: 55 20 54 4F 4F 20 4C 4F 4E 47 20 54 4F 20 4C 49 |U TOO LONG TO LI| 00000E20: 53 54 20 2A 2A 00 47 16 14 05 8F 20 2A 2A 20 43 |ST **.G.... ** C| 00000E30: 41 4E 20 4F 4E 4C 59 20 4C 49 53 54 20 38 38 20 |AN ONLY LIST 88 | 00000E40: 50 47 4D 53 20 2A 2A 00 63 16 1E 05 99 22 93 9F |PGMS **.c...."..| 00000E50: 22 3A 97 35 33 32 38 30 2C 31 3A 97 35 33 32 38 |":.53280,1:.5328| 00000E60: 31 2C 37 00 8C 16 28 05 99 22 11 11 11 11 11 22 |1,7...(.."....."| 00000E70: 3B A6 31 30 29 3B 22 9F 54 4F 4F 20 20 4D 41 4E |;.10);".TOO MAN| 00000E80: 59 20 20 50 52 4F 47 52 41 4D 53 22 00 AD 16 32 |Y PROGRAMS"...2| 00000E90: 05 99 20 A6 31 30 29 3B 22 9F 20 54 4F 20 4C 49 |.. .10);". TO LI| 00000EA0: 53 54 20 4F 4E 20 4A 41 43 4B 45 54 22 00 B7 16 |ST ON JACKET"...| 00000EB0: 3C 05 8D 31 34 36 30 00 E2 16 46 05 99 22 11 11 |<..1460...F.."..| 00000EC0: 11 22 3B A6 38 29 3B 22 1C 50 52 49 4E 54 20 20 |.";.8);".PRINT | 00000ED0: 54 48 4F 53 45 20 20 54 48 41 54 20 20 46 49 54 |THOSE THAT FIT| 00000EE0: 3F 22 00 08 17 50 05 99 20 A6 39 29 3B 22 28 12 |?"...P.. .9);"(.| 00000EF0: 59 92 20 4F 52 20 12 4E 92 20 54 48 45 4E 20 3C |Y. OR .N. THEN <| 00000F00: 52 45 54 55 52 4E 3E 29 00 1E 17 5A 05 99 22 11 |RETURN>)...Z..".| 00000F10: 11 22 3B A6 31 35 29 3B 3A 85 20 41 57 24 00 33 |.";.15);:. AW$.3| 00000F20: 17 64 05 8B 20 41 57 24 B3 B1 22 59 22 20 A7 31 |.d.. AW$.."Y" .1| 00000F30: 30 37 30 00 3E 17 6E 05 43 B2 38 38 3A 8E 00 60 |070.>.n.C.88:..`| 00000F40: 17 78 05 8F 20 20 2A 2A 2A 2A 20 53 4F 55 4E 44 |.x.. **** SOUND| 00000F50: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 2A 2A 2A | SUBROUTINES ***| 00000F60: 00 7A 17 82 05 8F 20 20 23 23 23 23 23 20 42 55 |.z.... ##### BU| 00000F70: 5A 5A 45 52 20 23 23 23 23 23 00 85 17 8C 05 97 |ZZER #####......| 00000F80: 53 2C 32 34 30 00 A9 17 96 05 48 B2 35 34 32 37 |S,240.....H.5427| 00000F90: 33 3A 53 B2 35 34 32 37 38 3A 57 B2 35 34 32 37 |3:S.54278:W.5427| 00000FA0: 36 3A 56 B2 35 34 32 39 36 00 C9 17 A0 05 97 56 |6:V.54296......V| 00000FB0: 2C 31 35 3A 97 48 2C 35 3A 97 57 2C 33 33 3A 81 |,15:.H,5:.W,33:.| 00000FC0: 54 B2 30 A4 35 30 30 3A 82 00 DF 17 AA 05 81 54 |T.0.500:.......T| 00000FD0: B2 48 AB 31 A4 56 3A 97 54 2C 30 3A 82 3A 8E 00 |.H.1.V:.T,0:.:..| 00000FE0: F7 17 B4 05 8F 20 20 23 23 23 23 23 20 44 4F 4E |..... ##### DON| 00000FF0: 47 20 23 23 23 23 23 00 1B 18 BE 05 48 B2 35 34 |G #####.....H.54| 00001000: 32 37 33 3A 53 B2 35 34 32 37 38 3A 57 B2 35 34 |273:S.54278:W.54| 00001010: 32 37 36 3A 56 B2 35 34 32 39 36 00 50 18 C8 05 |276:V.54296.P...| 00001020: 97 53 AB 31 2C 39 3A 97 48 2C 33 36 3A 97 53 AA |.S.1,9:.H,36:.S.| 00001030: 39 2C 31 36 3A 97 56 2C 31 35 3A 81 55 B2 31 A4 |9,16:.V,15:.U.1.| 00001040: 34 3A 97 57 2C 32 31 3A 81 54 B2 30 A4 35 30 30 |4:.W,21:.T.0.500| 00001050: 00 5E 18 D2 05 82 3A 97 57 2C 32 30 3A 82 00 74 |.^....:.W,20:..t| 00001060: 18 DC 05 81 54 B2 48 AB 31 A4 56 3A 97 54 2C 30 |....T.H.1.V:.T,0| 00001070: 3A 82 3A 8E 00 8C 18 E6 05 8F 20 20 23 23 23 23 |:.:....... ####| 00001080: 23 20 44 49 4E 47 20 23 23 23 23 23 00 B0 18 F0 |# DING #####....| 00001090: 05 48 B2 35 34 32 37 33 3A 53 B2 35 34 32 37 38 |.H.54273:S.54278| 000010A0: 3A 57 B2 35 34 32 37 36 3A 56 B2 35 34 32 39 36 |:W.54276:V.54296| 000010B0: 00 BD 18 FA 05 81 20 41 41 B2 31 A4 33 00 E6 18 |...... AA.1.3...| 000010C0: 04 06 97 56 2C 31 35 3A 97 48 2C 34 30 3A 97 53 |...V,15:.H,40:.S| 000010D0: AB 31 2C 39 3A 97 57 2C 31 37 3A 81 54 B2 31 A4 |.1,9:.W,17:.T.1.| 000010E0: 35 30 30 3A 82 54 00 FA 18 0E 06 81 54 B2 48 AB |500:.T......T.H.| 000010F0: 31 A4 56 3A 97 54 2C 30 3A 82 00 04 19 18 06 82 |1.V:.T,0:.......| 00001100: 41 41 3A 8E 00 21 19 22 06 8F 20 20 23 23 23 23 |AA:..!.".. ####| 00001110: 23 20 42 49 4E 47 2D 42 4F 4E 47 20 23 23 23 23 |# BING-BONG ####| 00001120: 23 00 45 19 2C 06 48 B2 35 34 32 37 33 3A 53 B2 |#.E.,.H.54273:S.| 00001130: 35 34 32 37 38 3A 57 B2 35 34 32 37 36 3A 56 B2 |54278:W.54276:V.| 00001140: 35 34 32 39 36 00 71 19 36 06 97 56 2C 31 35 3A |54296.q.6..V,15:| 00001150: 97 53 AB 31 2C 38 38 3A 97 53 2C 38 39 3A 97 57 |.S.1,88:.S,89:.W| 00001160: AB 31 2C 31 3A 81 55 B2 31 A4 36 3A 97 57 2C 36 |.1,1:.U.1.6:.W,6| 00001170: 35 00 86 19 40 06 97 48 2C 32 30 3A 81 54 B2 30 |5...@..H,20:.T.0| 00001180: A4 31 32 30 3A 82 00 AF 19 4A 06 97 57 2C 36 34 |.120:....J..W,64| 00001190: 3A 97 48 2C 35 30 3A 97 57 2C 36 35 3A 81 54 B2 |:.H,50:.W,65:.T.| 000011A0: 30 A4 31 32 30 3A 82 3A 97 57 2C 36 34 3A 82 00 |0.120:.:.W,64:..| 000011B0: C5 19 54 06 81 54 B2 48 AB 31 A4 56 3A 97 54 2C |..T..T.H.1.V:.T,| 000011C0: 30 3A 82 3A 8E 00 DE 19 5E 06 8F 20 20 23 23 23 |0:.:....^.. ###| 000011D0: 23 23 20 42 45 4C 4C 53 20 23 23 23 23 23 00 FA |## BELLS #####..| 000011E0: 19 68 06 56 B2 35 34 32 39 36 3A 57 B2 35 34 32 |.h.V.54296:W.542| 000011F0: 37 36 3A 97 57 AA 31 2C 39 36 00 05 1A 72 06 97 |76:.W.1,96...r..| 00001200: 57 AA 31 2C 39 00 1C 1A 7C 06 97 56 2C 31 35 3A |W.1,9...|..V,15:| 00001210: 81 4C B2 31 A4 35 3A 97 57 2C 32 31 00 3B 1A 86 |.L.1.5:.W,21.;..| 00001220: 06 97 57 AB 33 2C 39 39 AC BB 28 31 29 3A 97 57 |..W.3,99..(1):.W| 00001230: AA 31 31 2C 39 39 AC BB 28 31 29 00 52 1A 90 06 |.11,99..(1).R...| 00001240: 81 54 B2 31 A4 36 30 30 3A 82 3A 97 57 2C 32 30 |.T.1.600:.:.W,20| 00001250: 3A 82 00 68 1A 9A 06 81 49 B2 57 AB 34 A4 56 3A |:..h....I.W.4.V:| 00001260: 97 49 2C 30 3A 82 3A 8E 00 00 00 |.I,0:.:.... |
..#.... ***** PROGRAM SET UP ******.;... .TB$(144):.AB$(144).X...."..":.53280,14: .53281,6...(.."............... WHAT IS T ODAY'S DATE: ":.:...2.."....... ENTER MO /DY/YR THEN <RETURN> .".M.<.."..";.11);: . DT$...F.."................ UPPER AND L OWER CASE ? ":.:./.P.."............ .Y. OR .N. THEN <RETURN> .".E.Z.."..";.11);: . CC$.L.D.. CC$."Y" . CM$.G(17):. LOWER CASE...N.. CC$.."Y" . CM$.G(145):. UPPER CASE...X.."..":.53280,14:.53281,6...... "......WHICH DISK DRIVE DO YOU WANT TO L IST?"......"..";.11);:. DI...... ***** R EAD DISK MENU ******.8. .."..":.53280,2: .53281,0.L....".......... READING DATA : PLEASE STANDBY ".V....1630......8,DI ,0,"$0":.C.1.8:.#8,A$:.:C.1:DN$."":.C.1. 16...H..#8,A$:DN$.DN$.A$:.:.#8,A$:.#8,A$ :DN$.DN$." ":.#8,A$...R.DN$.DN$.A$:.#8, A$:DN$.DN$.A$:.#8,A$:.#8,A$.)....#8,A$:. #8,A$:C.1.K....A.1.4:.#8,A$:.:PN$."":TY$ ."".A....#8,A$:.ST..0.310.P....A$."".310 ......F(A$)..34.240......#8,A$:.F(A$)..3 4.PN$.PN$.A$:.270.B....#8,A$:.F(A$).32.2 80...".TY$.TY$.A$:.#8,A$:.A$.."".290..., .TB$(C).PN$:C.C.1:.ST.0.230...6. 8...@.. C.88 . .1310.?.J.. *** ALPHABETIZE LIST ING ***.[.T.."..":.53280,4:.53281,0...^. .".......... SORTING DATA : PLEASE STA NDBY "...H..1570...R.Z$."ZZZZZZZZZZZZZZ ZZ":E.1...|..A.1.C.1:C$.Z$:.B.1.C.1:.C$. TB$(B).400.....C$.TB$(B):D.B......:AB$(E ).C$:E.E.1:TB$(D).Z$:..8.... **** JACKE T NAME = NS$ ***.\...NS$."***** REFERE NCE *****"..... ***** PRINT ALPHA LIS T *****......".":. 53280,5:.53281,0.P.B. ."......... PRINTING JACKET : PLEASE ST ANDBY ".Z.L..1510...V.DD.0:CD..(C.2):.1 ,4...... CR.1.2......1,G(10):. LINEFEED. .... CR.,...TL$.".".Z....1,.2);:. TL.1 . 72:.1,TL$;:.TL:.1," CUT".J....1130:.11 40.T....1130...&..1,G(14);NS$;G(15);:. 1 4 DOUBLE WIDTH 15 SINGLE...0..1140...:.. LE.1.2.O.D..1130:.1140.X.N.. LE...X..11 30...B..1,.15);CM$;DN$;.5);DT$;:.1140:.1 160...L.. C.32 .790.=.V.. ** PRINT : < 3 2 PROGRAMS **.P....DD.1.CD:.1130......1, G(16);G(50);G(48);CM$;AB$(DD);:. PRINT H EAD POSITION......1,G(16);G(52);G(53);CM $;AB$(CD.DD);:.1140.U.... PRINT HEAD POS ITION...... DD......1130:.1140:DD.DD.1.. .... DD.17 .720...F..690...P..1220.(.Z.. SL.1.29.8....1200:.1210.A.... SL.K....1 240.U....1260.W.... ** PRINT : > 32 PROG RAMS **......DD.1.16:.1130.F. ..1,G(16); G(50);G(48);CM$;AB$(DD);:. PRINT HEAD PO SITION...*..1,G(16);G(52);G(53);CM$;AB$( DD.16);:.1140...4.. PRINT HEAD POSITION. ..>.. DD.(.H..1130:.1140.2.R..1220.B.\.. 1200:.1210.[.F.CX.(C.33).2:CZ.CX.32.O.P. .DD.33.CZ:.1200...Z..1,G(16);G(50);G(48) ;CM$;AB$(DD);:. PRINT HEAD POSITION.Z... .1,G(16);G(52);G(48);CM$;AB$(DD.CX);:.12 10...... PRINT HEAD POSITION...... DD... ...1200:.1210:DD.DD.1.&.... DD.60 .960./ ....930.?....1240:.1260.].J.. *** CLOSIN G REMARKS ***.Y.T.."..":.53280,9:.53281, 0......"......... ALPHABETIZED DISK COV ER COMPLETE "......1460......"....... DO YOU WANT ANOTHER DISK COVER :"......" ......'Y' OR 'N' THEN <RETURN>";AG$.1... . DD.0.144:AB$(DD)."":.DD.E.... AG$.."Y" .1070.F...."..":.53280,14:.53281,6:.70.. .$.. ** TERMINATE PROGRAM **......"..":. 53280,7:.53281,11.S.8.."................ .. PROGRAM TERMINATED ! "...B..1410... L.. WT.1. 1000:. WT...V.."..":.53280,14: .53281,6:..4.`.. *** DISK JACKET OUTLINE ***.M.J..1," . .*";:..U.T..1,G(1 6);G(54);G(52);"*. .":....~.. PRIN T HEAD POSITION......1," . .*";.K ....1,.15);"....................";:..... .1,G(16);G(54);G(52);"*. .":...... . PRINT HEAD POSITION.&....1," .";:.:.[....1,G(16);G(54);G(53);".":.:. PRINT HEAD POSITION.G.D.CL$."C"...N..1,. 2);:. CL.1 . 72:.1,CL$;:.CL:.1," FOLD":. ...X.LL$.".".U....1,.10);:. LL.1 . 56:.1 ,LL$;:.LL:.1," CUT":.......1:. CR.1.3... ...1,G(10)...... CR: 1:.980.%.... ** MEN U TOO LONG TO LIST **.G.... ** CAN ONLY LIST 88 PGMS **.C...."..":.53280,1:.5328 1,7...(..".....";.10);".TOO MANY PROGR AMS"...2.. .10);". TO LIST ON JACKET"... <..1460...F.."...";.8);".PRINT THOSE T HAT FIT?"...P.. .9);"(.Y. OR .N. THEN < RETURN>)...Z.."..";.15);:. AW$.3.D.. AW$ .."Y" .1070.>.N.C.88:..`.X.. **** SOUND SUBROUTINES ***.Z.... ##### BUZZER ### ##......S,240.....H.54273:S.54278:W.5427 6:V.54296.I. ..V,15:.H,5:.W,33:.T.0.500: .......T.H.1.V:.T,0:.:....... ##### DON G #####.....H.54273:S.54278:W.54276:V.54 296.P.H..S.1,9:.H,36:.S.9,16:.V,15:.U.1. 4:.W,21:.T.0.500.^.R..:.W,20:..T....T.H. 1.V:.T,0:.:....... ##### DING #####.... .H.54273:S.54278:W.54276:V.54296...... A A.1.3......V,15:.H,40:.S.1,9:.W,17:.T.1. 500:.T......T.H.1.V:.T,0:.......AA:..!." .. ##### BING-BONG #####.E.,.H.54273:S. 54278:W.54276:V.54296.Q.6..V,15:.S.1,88: .S,89:.W.1,1:.U.1.6:.W,65...@..H,20:.T.0 .120:....J..W,64:.H,50:.W,65:.T.0.120:.: .W,64:..E.T..T.H.1.V:.T,0:.:....^.. ### ## BELLS #####...H.V.54296:W.54276:.W.1, 96...R..W.1,9...|..V,15:.L.1.5:.W,21.;.. ..W.3,99..(1):.W.11,99..(1).R....T.1.600 :.:.W,20:..H....I.W.4.V:.I,0:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL