JACKET LISTER
FILE INFORMATION
FILENAME(S): JACKET LISTER
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-01 01:02:25
APPEARS ON: 1 disk(s)
FILE HASH
1048091c4993813748a736d4b18226cbbf977ba31343a9fe6990faa53b3a5705
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSE | JACKET LISTER | PRG | hedning, German ebay | 24 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 09 23 09 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 09 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 09 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 09 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 09 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 09 3C 00 99 22 11 11 |URN> ."...<.."..| 000000C0: 22 3B A6 31 31 29 3B 3A 85 20 44 54 24 00 00 0A |";.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 0A 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: 44 0A 5A 00 99 22 11 11 22 3B A6 31 31 29 3B 3A |D.Z.."..";.11);:| 00000140: 85 43 43 24 00 6A 0A 64 00 8B 43 43 24 B2 22 59 |.CC$.j.d..CC$."Y| 00000150: 22 20 A7 20 43 4D 24 B2 C7 28 31 37 29 3A 8F 20 |" . CM$..(17):. | 00000160: 4C 4F 57 45 52 20 43 41 53 45 00 90 0A 6E 00 8B |LOWER CASE...n..| 00000170: 43 43 24 B3 B1 22 59 22 A7 43 4D 24 B2 C7 28 31 |CC$.."Y".CM$..(1| 00000180: 34 35 29 3A 8F 20 55 50 50 45 52 20 43 41 53 45 |45):. UPPER CASE| 00000190: 00 AD 0A 78 00 99 22 93 9A 22 3A 97 35 33 32 38 |...x.."..":.5328| 000001A0: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 E0 0A |0,14:.53281,6...| 000001B0: 82 00 99 22 11 11 11 11 1D 9E 57 48 49 43 48 20 |..."......WHICH | 000001C0: 44 49 53 4B 20 44 52 49 56 45 20 44 4F 20 59 4F |DISK DRIVE DO YO| 000001D0: 55 20 57 41 4E 54 20 54 4F 20 4C 49 53 54 3F 22 |U WANT TO LIST?"| 000001E0: 00 F5 0A 8C 00 99 22 11 11 22 3B A6 31 31 29 3B |......"..";.11);| 000001F0: 3A 85 20 44 49 00 16 0B 96 00 8F 2A 2A 2A 2A 2A |:. DI......*****| 00000200: 20 52 45 41 44 20 44 49 53 4B 20 4D 45 4E 55 20 | READ DISK MENU | 00000210: 2A 2A 2A 2A 2A 2A 00 32 0B A0 00 99 22 93 9F 22 |******.2....".."| 00000220: 3A 97 35 33 32 38 30 2C 32 3A 97 35 33 32 38 31 |:.53280,2:.53281| 00000230: 2C 30 00 66 0B AA 00 99 22 11 11 11 11 11 11 1D |,0.f....".......| 00000240: 1D 1D 12 20 20 52 45 41 44 49 4E 47 20 20 44 41 |... READING DA| 00000250: 54 41 20 3A 20 50 4C 45 41 53 45 20 53 54 41 4E |TA : PLEASE STAN| 00000260: 44 42 59 20 20 22 00 70 0B B4 00 8D 31 36 33 30 |DBY ".p....1630| 00000270: 00 A4 0B BE 00 9F 38 2C 44 49 2C 30 2C 22 24 30 |......8,DI,0,"$0| 00000280: 22 3A 81 43 B2 31 A4 38 3A A1 23 38 2C 41 24 3A |":.C.1.8:.#8,A$:| 00000290: 82 3A 43 B2 31 3A 44 4E 24 B2 22 22 3A 81 43 B2 |.:C.1:DN$."":.C.| 000002A0: 31 A4 31 36 00 DE 0B C8 00 A1 23 38 2C 41 24 3A |1.16......#8,A$:| 000002B0: 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A A1 23 38 |DN$.DN$.A$:.:.#8| 000002C0: 2C 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 |,A$:.#8,A$:DN$.D| 000002D0: 4E 24 AA 22 20 20 22 3A A1 23 38 2C 41 24 00 0D |N$." ":.#8,A$..| 000002E0: 0C D2 00 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 |...DN$.DN$.A$:.#| 000002F0: 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A |8,A$:DN$.DN$.A$:| 00000300: A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 00 23 0C |.#8,A$:.#8,A$.#.| 00000310: DC 00 A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 3A |...#8,A$:.#8,A$:| 00000320: 43 B2 31 00 45 0C E6 00 81 41 B2 31 A4 34 3A A1 |C.1.E....A.1.4:.| 00000330: 23 38 2C 41 24 3A 82 3A 50 4E 24 B2 22 22 3A 54 |#8,A$:.:PN$."":T| 00000340: 59 24 B2 22 22 00 5B 0C F0 00 A1 23 38 2C 41 24 |Y$."".[....#8,A$| 00000350: 3A 8B 53 54 B3 B1 30 A7 33 31 30 00 6A 0C FA 00 |:.ST..0.310.j...| 00000360: 8B 41 24 B2 22 22 A7 33 31 30 00 7D 0C 04 01 8B |.A$."".310.}....| 00000370: C6 28 41 24 29 B3 B1 33 34 A7 32 34 30 00 A3 0C |.(A$)..34.240...| 00000380: 0E 01 A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B3 |...#8,A$:..(A$).| 00000390: B1 33 34 A7 50 4E 24 B2 50 4E 24 AA 41 24 3A 89 |.34.PN$.PN$.A$:.| 000003A0: 32 37 30 00 BC 0C 18 01 A1 23 38 2C 41 24 3A 8B |270......#8,A$:.| 000003B0: C6 28 41 24 29 B2 33 32 A7 32 38 30 00 DE 0C 22 |.(A$).32.280..."| 000003C0: 01 54 59 24 B2 54 59 24 AA 41 24 3A A1 23 38 2C |.TY$.TY$.A$:.#8,| 000003D0: 41 24 3A 8B 41 24 B3 B1 22 22 A7 32 39 30 00 FD |A$:.A$.."".290..| 000003E0: 0C 2C 01 54 42 24 28 43 29 B2 50 4E 24 3A 43 B2 |.,.TB$(C).PN$:C.| 000003F0: 43 AA 31 3A 8B 53 54 B2 30 A7 32 33 30 00 04 0D |C.1:.ST.0.230...| 00000400: 36 01 A0 38 00 14 0D 40 01 8B 43 B1 38 38 A7 8D |6..8...@..C.88..| 00000410: 31 33 31 30 00 36 0D 4A 01 8F 20 2A 2A 2A 20 41 |1310.6.J.. *** A| 00000420: 4C 50 48 41 42 45 54 49 5A 45 20 4C 49 53 54 49 |LPHABETIZE LISTI| 00000430: 4E 47 20 2A 2A 2A 00 52 0D 54 01 99 22 93 9F 22 |NG ***.R.T..".."| 00000440: 3A 97 35 33 32 38 30 2C 34 3A 97 35 33 32 38 31 |:.53280,4:.53281| 00000450: 2C 30 00 86 0D 5E 01 99 22 11 11 11 11 11 11 1D |,0...^..".......| 00000460: 1D 1D 12 20 20 53 4F 52 54 49 4E 47 20 20 44 41 |... SORTING DA| 00000470: 54 41 20 3A 20 50 4C 45 41 53 45 20 53 54 41 4E |TA : PLEASE STAN| 00000480: 44 42 59 20 20 22 00 90 0D 68 01 8D 31 35 37 30 |DBY "...h..1570| 00000490: 00 AE 0D 72 01 5A 24 B2 22 DA DA DA DA DA DA DA |...r.Z$.".......| 000004A0: DA DA DA DA DA DA DA DA DA 22 3A 45 B2 31 00 D9 |.........":E.1..| 000004B0: 0D 7C 01 81 41 B2 31 A4 43 AB 31 3A 43 24 B2 5A |.|..A.1.C.1:C$.Z| 000004C0: 24 3A 81 42 B2 31 A4 43 AB 31 3A 8B 43 24 B3 54 |$:.B.1.C.1:.C$.T| 000004D0: 42 24 28 42 29 A7 34 30 30 00 EB 0D 86 01 43 24 |B$(B).400.....C$| 000004E0: B2 54 42 24 28 42 29 3A 44 B2 42 00 0D 0E 90 01 |.TB$(B):D.B.....| 000004F0: 82 3A 41 42 24 28 45 29 B2 43 24 3A 45 B2 45 AA |.:AB$(E).C$:E.E.| 00000500: 31 3A 54 42 24 28 44 29 B2 5A 24 3A 82 00 2E 0E |1:TB$(D).Z$:....| 00000510: 9A 01 8F 20 20 2A 2A 2A 2A 20 4A 41 43 4B 45 54 |... **** JACKET| 00000520: 20 4E 41 4D 45 20 3D 4E 53 24 20 2A 2A 2A 00 52 | NAME =NS$ ***.R| 00000530: 0E A4 01 4E 53 24 B2 22 2A 2A 2A 2A 2A 20 20 20 |...NS$."***** | 00000540: 52 45 46 45 52 45 4E 43 45 20 20 20 2A 2A 2A 2A |REFERENCE ****| 00000550: 2A 22 00 75 0E AE 01 8F 20 2A 2A 2A 2A 2A 20 50 |*".u.... ***** P| 00000560: 52 49 4E 54 20 41 4C 50 48 41 20 4C 49 53 54 20 |RINT ALPHA LIST | 00000570: 2A 2A 2A 2A 2A 00 90 0E B8 01 99 22 93 22 3A 97 |*****......".":.| 00000580: 35 33 32 38 30 2C 35 3A 97 35 33 32 38 31 2C 30 |53280,5:.53281,0| 00000590: 00 C5 0E C2 01 99 22 11 11 11 11 11 11 1D 1D 12 |......".........| 000005A0: 20 20 50 52 49 4E 54 49 4E 47 20 4A 41 43 4B 45 | PRINTING JACKE| 000005B0: 54 20 3A 20 50 4C 45 41 53 45 20 53 54 41 4E 44 |T : PLEASE STAND| 000005C0: 42 59 20 20 22 00 CF 0E CC 01 8D 31 35 31 30 00 |BY "......1510.| 000005D0: E7 0E D6 01 44 44 B2 30 3A 43 44 B2 B5 28 43 AD |....DD.0:CD..(C.| 000005E0: 32 29 3A 9F 31 2C 34 00 F3 0E E0 01 81 43 52 B2 |2):.1,4......CR.| 000005F0: 31 A4 32 00 0B 0F EA 01 98 31 2C C7 28 31 30 29 |1.2......1,.(10)| 00000600: 3A 8F 20 4C 49 4E 45 46 45 45 44 00 13 0F F4 01 |:. LINEFEED.....| 00000610: 82 43 52 00 1F 0F FE 01 54 4C 24 B2 22 B9 22 00 |.CR.....TL$.".".| 00000620: 4A 0F 08 02 98 31 2C A3 32 29 3B 3A 81 54 4C B2 |J....1,.2);:.TL.| 00000630: 31 A4 37 32 3A 98 31 2C 54 4C 24 3B 3A 82 54 4C |1.72:.1,TL$;:.TL| 00000640: 3A 98 31 2C 22 20 43 55 54 22 00 5A 0F 12 02 8D |:.1," CUT".Z....| 00000650: 31 31 33 30 3A 8D 31 31 34 30 00 64 0F 1C 02 8D |1130:.1140.d....| 00000660: 31 31 33 30 00 98 0F 26 02 98 31 2C C7 28 31 34 |1130...&..1,.(14| 00000670: 29 3B 4E 53 24 3B C7 28 31 35 29 3B 3A 8F 20 31 |);NS$;.(15);:. 1| 00000680: 34 20 44 4F 55 42 4C 45 20 57 49 44 54 48 20 31 |4 DOUBLE WIDTH 1| 00000690: 35 20 53 49 4E 47 4C 45 00 A2 0F 30 02 8D 31 31 |5 SINGLE...0..11| 000006A0: 34 30 00 AE 0F 3A 02 81 4C 45 B2 31 A4 32 00 BE |40...:..LE.1.2..| 000006B0: 0F 44 02 8D 31 31 33 30 3A 8D 31 31 34 30 00 C6 |.D..1130:.1140..| 000006C0: 0F 4E 02 82 4C 45 00 D0 0F 58 02 8D 31 31 33 30 |.N..LE...X..1130| 000006D0: 00 F9 0F 62 02 98 31 2C A3 31 35 29 3B 43 4D 24 |...b..1,.15);CM$| 000006E0: 3B 44 4E 24 3B A6 35 29 3B 44 54 24 3B 3A 8D 31 |;DN$;.5);DT$;:.1| 000006F0: 31 34 30 3A 8D 31 31 36 30 00 07 10 6C 02 8B 43 |140:.1160...l..C| 00000700: B1 33 32 A7 37 39 30 00 29 10 76 02 8F 20 2A 2A |.32.790.).v.. **| 00000710: 20 50 52 49 4E 54 20 3A 20 3C 20 33 32 20 50 52 | PRINT : < 32 PR| 00000720: 4F 47 52 41 4D 53 20 2A 2A 00 3C 10 80 02 81 44 |OGRAMS **.<....D| 00000730: 44 B2 31 A4 43 44 3A 8D 31 31 33 30 00 78 10 8A |D.1.CD:.1130.x..| 00000740: 02 98 31 2C C7 28 31 36 29 3B C7 28 35 30 29 3B |..1,.(16);.(50);| 00000750: C7 28 34 38 29 3B 43 4D 24 3B 41 42 24 28 44 44 |.(48);CM$;AB$(DD| 00000760: 29 3B 3A 8F 20 50 52 49 4E 54 20 48 45 41 44 20 |);:. PRINT HEAD | 00000770: 50 4F 53 49 54 49 4F 4E 00 A7 10 94 02 98 31 2C |POSITION......1,| 00000780: C7 28 31 36 29 3B C7 28 35 32 29 3B C7 28 35 33 |.(16);.(52);.(53| 00000790: 29 3B 43 4D 24 3B 41 42 24 28 43 44 AA 44 44 29 |);CM$;AB$(CD.DD)| 000007A0: 3B 3A 8D 31 31 34 30 00 C1 10 9E 02 8F 20 50 52 |;:.1140...... PR| 000007B0: 49 4E 54 20 48 45 41 44 20 50 4F 53 49 54 49 4F |INT HEAD POSITIO| 000007C0: 4E 00 C9 10 A8 02 82 44 44 00 E1 10 B2 02 8D 31 |N......DD......1| 000007D0: 31 33 30 3A 8D 31 31 34 30 3A 44 44 B2 44 44 AA |130:.1140:DD.DD.| 000007E0: 31 00 F0 10 BC 02 8B 44 44 B1 31 37 A7 37 32 30 |1......DD.17.720| 000007F0: 00 F9 10 C6 02 89 36 39 30 00 03 11 D0 02 8D 31 |......690......1| 00000800: 32 32 30 00 10 11 DA 02 81 53 4C B2 31 A4 32 39 |220......SL.1.29| 00000810: 00 20 11 E4 02 8D 31 32 30 30 3A 8D 31 32 31 30 |. ....1200:.1210| 00000820: 00 28 11 EE 02 82 53 4C 00 32 11 F8 02 8D 31 32 |.(....SL.2....12| 00000830: 34 30 00 3C 11 02 03 8D 31 32 36 30 00 5E 11 0C |40.<....1260.^..| 00000840: 03 8F 20 2A 2A 20 50 52 49 4E 54 20 3A 20 3E 20 |.. ** PRINT : > | 00000850: 33 32 20 50 52 4F 47 52 41 4D 53 20 2A 2A 00 71 |32 PROGRAMS **.q| 00000860: 11 16 03 81 44 44 B2 31 A4 31 36 3A 8D 31 31 33 |....DD.1.16:.113| 00000870: 30 00 AD 11 20 03 98 31 2C C7 28 31 36 29 3B C7 |0... ..1,.(16);.| 00000880: 28 35 30 29 3B C7 28 34 38 29 3B 43 4D 24 3B 41 |(50);.(48);CM$;A| 00000890: 42 24 28 44 44 29 3B 3A 8F 20 50 52 49 4E 54 20 |B$(DD);:. PRINT | 000008A0: 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 DC 11 |HEAD POSITION...| 000008B0: 2A 03 98 31 2C C7 28 31 36 29 3B C7 28 35 32 29 |*..1,.(16);.(52)| 000008C0: 3B C7 28 35 33 29 3B 43 4D 24 3B 41 42 24 28 44 |;.(53);CM$;AB$(D| 000008D0: 44 AA 31 36 29 3B 3A 8D 31 31 34 30 00 F6 11 34 |D.16);:.1140...4| 000008E0: 03 8F 20 50 52 49 4E 54 20 48 45 41 44 20 50 4F |.. PRINT HEAD PO| 000008F0: 53 49 54 49 4F 4E 00 FE 11 3E 03 82 44 44 00 0E |SITION...>..DD..| 00000900: 12 48 03 8D 31 31 33 30 3A 8D 31 31 34 30 00 18 |.H..1130:.1140..| 00000910: 12 52 03 8D 31 32 32 30 00 28 12 5C 03 8D 31 32 |.R..1220.(.\..12| 00000920: 30 30 3A 8D 31 32 31 30 00 41 12 66 03 43 58 B2 |00:.1210.A.f.CX.| 00000930: 28 43 AB 33 33 29 AD 32 3A 43 5A B2 43 58 AA 33 |(C.33).2:CZ.CX.3| 00000940: 32 00 55 12 70 03 81 44 44 B2 33 33 A4 43 5A 3A |2.U.p..DD.33.CZ:| 00000950: 8D 31 32 30 30 00 91 12 7A 03 98 31 2C C7 28 31 |.1200...z..1,.(1| 00000960: 36 29 3B C7 28 35 30 29 3B C7 28 34 38 29 3B 43 |6);.(50);.(48);C| 00000970: 4D 24 3B 41 42 24 28 44 44 29 3B 3A 8F 20 50 52 |M$;AB$(DD);:. PR| 00000980: 49 4E 54 20 48 45 41 44 20 50 4F 53 49 54 49 4F |INT HEAD POSITIO| 00000990: 4E 00 C0 12 84 03 98 31 2C C7 28 31 36 29 3B C7 |N......1,.(16);.| 000009A0: 28 35 32 29 3B C7 28 34 38 29 3B 43 4D 24 3B 41 |(52);.(48);CM$;A| 000009B0: 42 24 28 44 44 AA 43 58 29 3B 3A 8D 31 32 31 30 |B$(DD.CX);:.1210| 000009C0: 00 DA 12 8E 03 8F 20 50 52 49 4E 54 20 48 45 41 |...... PRINT HEA| 000009D0: 44 20 50 4F 53 49 54 49 4F 4E 00 E2 12 98 03 82 |D POSITION......| 000009E0: 44 44 00 FA 12 A2 03 8D 31 32 30 30 3A 8D 31 32 |DD......1200:.12| 000009F0: 31 30 3A 44 44 B2 44 44 AA 31 00 09 13 AC 03 8B |10:DD.DD.1......| 00000A00: 44 44 B1 36 30 A7 39 36 30 00 12 13 B6 03 89 39 |DD.60.960......9| 00000A10: 33 30 00 22 13 C0 03 8D 31 32 34 30 3A 8D 31 32 |30."....1240:.12| 00000A20: 36 30 00 40 13 CA 03 8F 20 2A 2A 2A 20 43 4C 4F |60.@.... *** CLO| 00000A30: 53 49 4E 47 20 52 45 4D 41 52 4B 53 20 2A 2A 2A |SING REMARKS ***| 00000A40: 00 5C 13 D4 03 99 22 93 9F 22 3A 97 35 33 32 38 |.\...."..":.5328| 00000A50: 30 2C 39 3A 97 35 33 32 38 31 2C 30 00 91 13 DE |0,9:.53281,0....| 00000A60: 03 99 22 11 11 11 11 11 11 1D 1D 12 20 20 41 4C |.."......... AL| 00000A70: 50 48 41 42 45 54 49 5A 45 44 20 44 49 53 4B 20 |PHABETIZED DISK | 00000A80: 43 4F 56 45 52 20 43 4F 4D 50 4C 45 54 45 20 20 |COVER COMPLETE | 00000A90: 22 00 9B 13 E8 03 8D 31 34 36 30 00 CC 13 F2 03 |"......1460.....| 00000AA0: 99 22 11 11 11 11 11 1D 1D 20 20 44 4F 20 59 4F |."....... DO YO| 00000AB0: 55 20 57 41 4E 54 20 41 4E 4F 54 48 45 52 20 44 |U WANT ANOTHER D| 00000AC0: 49 53 4B 20 43 4F 56 45 52 20 3A 22 00 F6 13 FC |ISK COVER :"....| 00000AD0: 03 85 22 1D 1D 1D 1D 1D 1D 27 59 27 20 4F 52 20 |.."......'Y' OR | 00000AE0: 27 4E 27 20 54 48 45 4E 20 3C 52 45 54 55 52 4E |'N' THEN <RETURN| 00000AF0: 3E 22 3B 41 47 24 00 13 14 06 04 81 44 44 B2 30 |>";AG$......DD.0| 00000B00: A4 31 34 34 3A 41 42 24 28 44 44 29 B2 22 22 3A |.144:AB$(DD)."":| 00000B10: 82 44 44 00 26 14 10 04 8B 41 47 24 B3 B1 22 59 |.DD.&....AG$.."Y| 00000B20: 22 A7 31 30 37 30 00 47 14 1A 04 99 22 93 9A 22 |".1070.G....".."| 00000B30: 3A 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |:.53280,14:.5328| 00000B40: 31 2C 36 3A 89 37 30 00 65 14 24 04 8F 20 2A 2A |1,6:.70.e.$.. **| 00000B50: 20 54 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 | TERMINATE PROGR| 00000B60: 41 4D 20 2A 2A 00 82 14 2E 04 99 22 93 9F 22 3A |AM **......"..":| 00000B70: 97 35 33 32 38 30 2C 37 3A 97 35 33 32 38 31 2C |.53280,7:.53281,| 00000B80: 31 31 00 B4 14 38 04 99 22 11 11 11 11 11 11 11 |11...8..".......| 00000B90: 11 1D 1D 1D 1D 1D 1D 1D 1D 05 12 20 20 50 52 4F |........... PRO| 00000BA0: 47 52 41 4D 20 54 45 52 4D 49 4E 41 54 45 44 20 |GRAM TERMINATED | 00000BB0: 21 20 20 22 00 BE 14 42 04 8D 31 34 31 30 00 D1 |! "...B..1410..| 00000BC0: 14 4C 04 81 57 54 B2 31 A4 31 30 30 30 3A 82 57 |.L..WT.1.1000:.W| 00000BD0: 54 00 F0 14 56 04 99 22 93 9A 22 3A 97 35 33 32 |T...V.."..":.532| 00000BE0: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 80 |80,14:.53281,6:.| 00000BF0: 00 12 15 60 04 8F 20 2A 2A 2A 20 44 49 53 4B 20 |...`.. *** DISK | 00000C00: 4A 41 43 4B 45 54 20 4F 55 54 4C 49 4E 45 20 2A |JACKET OUTLINE *| 00000C10: 2A 2A 00 2B 15 6A 04 98 31 2C 22 20 20 B5 20 20 |**.+.j..1," . | 00000C20: 20 20 20 20 20 A5 2A 22 3B 3A 8E 00 53 15 74 04 | .*";:..S.t.| 00000C30: 98 31 2C C7 28 31 36 29 3B C7 28 35 34 29 3B C7 |.1,.(16);.(54);.| 00000C40: 28 35 32 29 3B 22 2A A7 20 20 20 20 20 20 20 B6 |(52);"*. .| 00000C50: 22 3A 8E 00 6D 15 7E 04 8F 20 50 52 49 4E 54 20 |":..m.~.. PRINT | 00000C60: 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 84 15 |HEAD POSITION...| 00000C70: 88 04 98 31 2C 22 20 20 B5 20 20 20 20 20 20 20 |...1," . | 00000C80: A5 2A 22 3B 00 A9 15 92 04 98 31 2C A3 31 35 29 |.*";......1,.15)| 00000C90: 3B 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |;"..............| 00000CA0: B8 B8 B8 B8 B8 B8 22 3B 3A 00 D1 15 9C 04 98 31 |......";:......1| 00000CB0: 2C C7 28 31 36 29 3B C7 28 35 34 29 3B C7 28 35 |,.(16);.(54);.(5| 00000CC0: 32 29 3B 22 2A A7 20 20 20 20 20 20 20 B6 22 3A |2);"*. .":| 00000CD0: 8E 00 EB 15 A6 04 8F 20 50 52 49 4E 54 20 48 45 |....... PRINT HE| 00000CE0: 41 44 20 50 4F 53 49 54 49 4F 4E 00 04 16 B0 04 |AD POSITION.....| 00000CF0: 98 31 2C 22 20 20 20 20 20 20 20 20 20 20 B5 22 |.1," ."| 00000D00: 3B 3A 8E 3A 00 39 16 BA 04 98 31 2C C7 28 31 36 |;:.:.9....1,.(16| 00000D10: 29 3B C7 28 35 34 29 3B C7 28 35 33 29 3B 22 B6 |);.(54);.(53);".| 00000D20: 22 3A 8E 3A 8F 20 50 52 49 4E 54 20 48 45 41 44 |":.:. PRINT HEAD| 00000D30: 20 50 4F 53 49 54 49 4F 4E 00 45 16 C4 04 43 4C | POSITION.E...CL| 00000D40: 24 B2 22 C3 22 00 73 16 CE 04 98 31 2C A3 32 29 |$.".".s....1,.2)| 00000D50: 3B 3A 81 43 4C B2 31 A4 37 32 3A 98 31 2C 43 4C |;:.CL.1.72:.1,CL| 00000D60: 24 3B 3A 82 43 4C 3A 98 31 2C 22 20 46 4F 4C 44 |$;:.CL:.1," FOLD| 00000D70: 22 3A 8E 00 7F 16 D8 04 4C 4C 24 B2 22 B8 22 00 |":......LL$.".".| 00000D80: AD 16 E2 04 98 31 2C A3 31 30 29 3B 3A 81 4C 4C |.....1,.10);:.LL| 00000D90: B2 31 A4 35 36 3A 98 31 2C 4C 4C 24 3B 3A 82 4C |.1.56:.1,LL$;:.L| 00000DA0: 4C 3A 98 31 2C 22 20 43 55 54 22 3A 8E 00 BC 16 |L:.1," CUT":....| 00000DB0: EC 04 98 31 3A 81 43 52 B2 31 A4 33 00 C9 16 F6 |...1:.CR.1.3....| 00000DC0: 04 98 31 2C C7 28 31 30 29 00 D9 16 00 05 82 43 |..1,.(10)......C| 00000DD0: 52 3A A0 31 3A 89 39 38 30 00 FA 16 0A 05 8F 20 |R:.1:.980...... | 00000DE0: 2A 2A 4D 45 4E 55 20 54 4F 4F 20 4C 4F 4E 47 20 |**MENU TOO LONG | 00000DF0: 54 4F 20 4C 49 53 54 20 2A 2A 00 1B 17 14 05 8F |TO LIST **......| 00000E00: 20 2A 2A 43 41 4E 20 4F 4E 4C 59 20 4C 49 53 54 | **CAN ONLY LIST| 00000E10: 20 38 38 20 50 47 4D 53 20 2A 2A 00 37 17 1E 05 | 88 PGMS **.7...| 00000E20: 99 22 93 9F 22 3A 97 35 33 32 38 30 2C 31 3A 97 |."..":.53280,1:.| 00000E30: 35 33 32 38 31 2C 37 00 60 17 28 05 99 22 11 11 |53281,7.`.(.."..| 00000E40: 11 11 11 22 3B A6 31 30 29 3B 22 9F 54 4F 4F 20 |...";.10);".TOO | 00000E50: 20 4D 41 4E 59 20 20 50 52 4F 47 52 41 4D 53 22 | MANY PROGRAMS"| 00000E60: 00 80 17 32 05 99 A6 31 30 29 3B 22 9F 20 54 4F |...2...10);". TO| 00000E70: 20 4C 49 53 54 20 4F 4E 20 4A 41 43 4B 45 54 22 | LIST ON JACKET"| 00000E80: 00 8A 17 3C 05 8D 31 34 36 30 00 B5 17 46 05 99 |...<..1460...F..| 00000E90: 22 11 11 11 22 3B A6 38 29 3B 22 1C 50 52 49 4E |"...";.8);".PRIN| 00000EA0: 54 20 20 54 48 4F 53 45 20 20 54 48 41 54 20 20 |T THOSE THAT | 00000EB0: 46 49 54 3F 22 00 DA 17 50 05 99 A6 39 29 3B 22 |FIT?"...P...9);"| 00000EC0: 28 12 59 92 20 4F 52 20 12 4E 92 20 54 48 45 4E |(.Y. OR .N. THEN| 00000ED0: 20 3C 52 45 54 55 52 4E 3E 29 00 EF 17 5A 05 99 | <RETURN>)...Z..| 00000EE0: 22 11 11 22 3B A6 31 35 29 3B 3A 85 41 57 24 00 |"..";.15);:.AW$.| 00000EF0: 02 18 64 05 8B 41 57 24 B3 B1 22 59 22 A7 31 30 |..d..AW$.."Y".10| 00000F00: 37 30 00 0D 18 6E 05 43 B2 38 38 3A 8E 00 2F 18 |70...n.C.88:../.| 00000F10: 78 05 8F 20 20 2A 2A 2A 2A 20 53 4F 55 4E 44 20 |x.. **** SOUND | 00000F20: 53 55 42 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 00 |SUBROUTINES ***.| 00000F30: 49 18 82 05 8F 20 20 23 23 23 23 23 20 42 55 5A |I.... ##### BUZ| 00000F40: 5A 45 52 20 23 23 23 23 23 00 54 18 8C 05 97 53 |ZER #####.T....S| 00000F50: 2C 32 34 30 00 78 18 96 05 48 B2 35 34 32 37 33 |,240.x...H.54273| 00000F60: 3A 53 B2 35 34 32 37 38 3A 57 B2 35 34 32 37 36 |:S.54278:W.54276| 00000F70: 3A 56 B2 35 34 32 39 36 00 98 18 A0 05 97 56 2C |:V.54296......V,| 00000F80: 31 35 3A 97 48 2C 35 3A 97 57 2C 33 33 3A 81 54 |15:.H,5:.W,33:.T| 00000F90: B2 30 A4 35 30 30 3A 82 00 AE 18 AA 05 81 54 B2 |.0.500:.......T.| 00000FA0: 48 AB 31 A4 56 3A 97 54 2C 30 3A 82 3A 8E 00 C6 |H.1.V:.T,0:.:...| 00000FB0: 18 B4 05 8F 20 20 23 23 23 23 23 20 44 4F 4E 47 |.... ##### DONG| 00000FC0: 20 23 23 23 23 23 00 EA 18 BE 05 48 B2 35 34 32 | #####.....H.542| 00000FD0: 37 33 3A 53 B2 35 34 32 37 38 3A 57 B2 35 34 32 |73:S.54278:W.542| 00000FE0: 37 36 3A 56 B2 35 34 32 39 36 00 1F 19 C8 05 97 |76:V.54296......| 00000FF0: 53 AB 31 2C 39 3A 97 48 2C 33 36 3A 97 53 AA 39 |S.1,9:.H,36:.S.9| 00001000: 2C 31 36 3A 97 56 2C 31 35 3A 81 55 B2 31 A4 34 |,16:.V,15:.U.1.4| 00001010: 3A 97 57 2C 32 31 3A 81 54 B2 30 A4 35 30 30 00 |:.W,21:.T.0.500.| 00001020: 2D 19 D2 05 82 3A 97 57 2C 32 30 3A 82 00 43 19 |-....:.W,20:..C.| 00001030: DC 05 81 54 B2 48 AB 31 A4 56 3A 97 54 2C 30 3A |...T.H.1.V:.T,0:| 00001040: 82 3A 8E 00 5B 19 E6 05 8F 20 20 23 23 23 23 23 |.:..[.... #####| 00001050: 20 44 49 4E 47 20 23 23 23 23 23 00 7F 19 F0 05 | DING #####.....| 00001060: 48 B2 35 34 32 37 33 3A 53 B2 35 34 32 37 38 3A |H.54273:S.54278:| 00001070: 57 B2 35 34 32 37 36 3A 56 B2 35 34 32 39 36 00 |W.54276:V.54296.| 00001080: 8B 19 FA 05 81 41 41 B2 31 A4 33 00 B4 19 04 06 |.....AA.1.3.....| 00001090: 97 56 2C 31 35 3A 97 48 2C 34 30 3A 97 53 AB 31 |.V,15:.H,40:.S.1| 000010A0: 2C 39 3A 97 57 2C 31 37 3A 81 54 B2 31 A4 35 30 |,9:.W,17:.T.1.50| 000010B0: 30 3A 82 54 00 C8 19 0E 06 81 54 B2 48 AB 31 A4 |0:.T......T.H.1.| 000010C0: 56 3A 97 54 2C 30 3A 82 00 D2 19 18 06 82 41 41 |V:.T,0:.......AA| 000010D0: 3A 8E 00 EF 19 22 06 8F 20 20 23 23 23 23 23 20 |:....".. ##### | 000010E0: 42 49 4E 47 2D 42 4F 4E 47 20 23 23 23 23 23 00 |BING-BONG #####.| 000010F0: 13 1A 2C 06 48 B2 35 34 32 37 33 3A 53 B2 35 34 |..,.H.54273:S.54| 00001100: 32 37 38 3A 57 B2 35 34 32 37 36 3A 56 B2 35 34 |278:W.54276:V.54| 00001110: 32 39 36 00 3F 1A 36 06 97 56 2C 31 35 3A 97 53 |296.?.6..V,15:.S| 00001120: AB 31 2C 38 38 3A 97 53 2C 38 39 3A 97 57 AB 31 |.1,88:.S,89:.W.1| 00001130: 2C 31 3A 81 55 B2 31 A4 36 3A 97 57 2C 36 35 00 |,1:.U.1.6:.W,65.| 00001140: 54 1A 40 06 97 48 2C 32 30 3A 81 54 B2 30 A4 31 |T.@..H,20:.T.0.1| 00001150: 32 30 3A 82 00 7D 1A 4A 06 97 57 2C 36 34 3A 97 |20:..}.J..W,64:.| 00001160: 48 2C 35 30 3A 97 57 2C 36 35 3A 81 54 B2 30 A4 |H,50:.W,65:.T.0.| 00001170: 31 32 30 3A 82 3A 97 57 2C 36 34 3A 82 00 93 1A |120:.:.W,64:....| 00001180: 54 06 81 54 B2 48 AB 31 A4 56 3A 97 54 2C 30 3A |T..T.H.1.V:.T,0:| 00001190: 82 3A 8E 00 AC 1A 5E 06 8F 20 20 23 23 23 23 23 |.:....^.. #####| 000011A0: 20 42 45 4C 4C 53 20 23 23 23 23 23 00 C8 1A 68 | BELLS #####...h| 000011B0: 06 56 B2 35 34 32 39 36 3A 57 B2 35 34 32 37 36 |.V.54296:W.54276| 000011C0: 3A 97 57 AA 31 2C 39 36 00 D3 1A 72 06 97 57 AA |:.W.1,96...r..W.| 000011D0: 31 2C 39 00 EA 1A 7C 06 97 56 2C 31 35 3A 81 4C |1,9...|..V,15:.L| 000011E0: B2 31 A4 35 3A 97 57 2C 32 31 00 09 1B 86 06 97 |.1.5:.W,21......| 000011F0: 57 AB 33 2C 39 39 AC BB 28 31 29 3A 97 57 AA 31 |W.3,99..(1):.W.1| 00001200: 31 2C 39 39 AC BB 28 31 29 00 20 1B 90 06 81 54 |1,99..(1). ....T| 00001210: B2 31 A4 36 30 30 3A 82 3A 97 57 2C 32 30 3A 82 |.1.600:.:.W,20:.| 00001220: 00 36 1B 9A 06 81 49 B2 57 AB 34 A4 56 3A 97 49 |.6....I.W.4.V:.I| 00001230: 2C 30 3A 82 3A 8E 00 00 00 |,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> .".D.Z.."..";.11);:
.CC$.J.D..CC$."Y" . CM$.G(17):. LOWER CA
SE...N..CC$.."Y".CM$.G(145):. UPPER CASE
...X.."..":.53280,14:.53281,6......"....
..WHICH DISK DRIVE DO YOU WANT TO LIST?"
......"..";.11);:. DI......***** READ DI
SK MENU ******.2. .."..":.53280,2:.53281
,0.F....".......... READING DATA : PLE
ASE STANDBY ".P....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$.D
N$." ":.#8,A$...R.DN$.DN$.A$:.#8,A$:DN$
.DN$.A$:.#8,A$:.#8,A$.#....#8,A$:.#8,A$:
C.1.E....A.1.4:.#8,A$:.:PN$."":TY$."".[.
...#8,A$:.ST..0.310.J....A$."".310.}....
F(A$)..34.240......#8,A$:.F(A$)..34.PN$.
PN$.A$:.270......#8,A$:.F(A$).32.280..."
.TY$.TY$.A$:.#8,A$:.A$.."".290...,.TB$(C
).PN$:C.C.1:.ST.0.230...6. 8...@..C.88..
1310.6.J.. *** ALPHABETIZE LISTING ***.R
.T.."..":.53280,4:.53281,0...^..".......
... SORTING DATA : PLEASE STANDBY "..
.H..1570...R.Z$."ZZZZZZZZZZZZZZZZ":E.1.Y
.|..A.1.C.1:C$.Z$:.B.1.C.1:.C$.TB$(B).40
0.....C$.TB$(B):D.B......:AB$(E).C$:E.E.
1:TB$(D).Z$:....... **** JACKET NAME =N
S$ ***.R...NS$."***** REFERENCE ****
*".U.... ***** PRINT ALPHA LIST *****...
...".":.53280,5:.53281,0.E.B..".........
PRINTING JACKET : PLEASE STANDBY ".O.
L..1510...V.DD.0:CD..(C.2):.1,4......CR.
1.2......1,G(10):. LINEFEED......CR.....
TL$.".".J....1,.2);:.TL.1.72:.1,TL$;:.TL
:.1," CUT".Z....1130:.1140.D....1130...&
..1,G(14);NS$;G(15);:. 14 DOUBLE WIDTH 1
5 SINGLE...0..1140...:..LE.1.2...D..1130
:.1140.F.N..LE.P.X..1130...B..1,.15);CM$
;DN$;.5);DT$;:.1140:.1160...L..C.32.790.
).V.. ** PRINT : < 32 PROGRAMS **.<....D
D.1.CD:.1130.X....1,G(16);G(50);G(48);CM
$;AB$(DD);:. PRINT HEAD POSITION......1,
G(16);G(52);G(53);CM$;AB$(CD.DD);:.1140.
A.... PRINT HEAD POSITION.I....DD......1
130:.1140:DD.DD.1......DD.17.720...F..69
0...P..1220...Z..SL.1.29. ....1200:.1210
.(....SL.2....1240.<....1260.^.... ** PR
INT : > 32 PROGRAMS **.Q....DD.1.16:.113
0... ..1,G(16);G(50);G(48);CM$;AB$(DD);:
. PRINT HEAD POSITION...*..1,G(16);G(52)
;G(53);CM$;AB$(DD.16);:.1140...4.. PRINT
HEAD POSITION...>..DD...H..1130:.1140..
.R..1220.(.\..1200:.1210.A.F.CX.(C.33).2
:CZ.CX.32.U.P..DD.33.CZ:.1200...Z..1,G(1
6);G(50);G(48);CM$;AB$(DD);:. PRINT HEAD
POSITION......1,G(16);G(52);G(48);CM$;A
B$(DD.CX);:.1210.Z.... PRINT HEAD POSITI
ON......DD......1200:.1210:DD.DD.1......
DD.60.960......930."....1240:.1260.@.J..
*** CLOSING REMARKS ***.\.T.."..":.5328
0,9:.53281,0......"......... ALPHABETIZ
ED DISK COVER COMPLETE "......1460.L...
."....... DO YOU WANT ANOTHER DISK COVE
R :"......"......'Y' OR 'N' THEN <RETURN
>";AG$......DD.0.144:AB$(DD)."":.DD.&...
.AG$.."Y".1070.G...."..":.53280,14:.5328
1,6:.70.E.$.. ** TERMINATE PROGRAM **...
..."..":.53280,7:.53281,11...8..".......
........... PROGRAM TERMINATED ! "...B
..1410.Q.L..WT.1.1000:.WT...V.."..":.532
80,14:.53281,6:....`.. *** DISK JACKET O
UTLINE ***.+.J..1," . .*";:..S.T.
.1,G(16);G(54);G(52);"*. .":..M.~.
. PRINT HEAD POSITION......1," .
.*";......1,.15);"....................";
:.Q....1,G(16);G(54);G(52);"*. .":
....... PRINT HEAD POSITION......1,"
.";:.:.9....1,G(16);G(54);G(53);".
":.:. PRINT HEAD POSITION.E.D.CL$."C".S.
N..1,.2);:.CL.1.72:.1,CL$;:.CL:.1," FOLD
":...X.LL$."."......1,.10);:.LL.1.56:.1
,LL$;:.LL:.1," CUT":.......1:.CR.1.3.I..
..1,G(10).Y....CR: 1:.980...... **MENU T
OO LONG TO LIST **...... **CAN ONLY LIST
88 PGMS **.7...."..":.53280,1:.53281,7.
`.(..".....";.10);".TOO MANY PROGRAMS"
...2...10);". TO LIST ON JACKET"...<..14
60...F.."...";.8);".PRINT THOSE THAT
FIT?".Z.P...9);"(.Y. OR .N. THEN <RETURN
>)...Z.."..";.15);:.AW$...D..AW$.."Y".10
70...N.C.88:../.X.. **** SOUND SUBROUTI
NES ***.I.... ##### BUZZER #####.T....S
,240.X...H.54273:S.54278:W.54276:V.54296
... ..V,15:.H,5:.W,33:.T.0.500:.......T.
H.1.V:.T,0:.:..F.... ##### DONG #####..
...H.54273:S.54278:W.54276:V.54296...H..
S.1,9:.H,36:.S.9,16:.V,15:.U.1.4:.W,21:.
T.0.500.-.R..:.W,20:..C....T.H.1.V:.T,0:
.:..[.... ##### DING #####....H.54273:
S.54278:W.54276:V.54296......AA.1.3.....
.V,15:.H,40:.S.1,9:.W,17:.T.1.500:.T.H..
..T.H.1.V:.T,0:..R....AA:....".. #####
BING-BONG #####...,.H.54273:S.54278:W.54
276:V.54296.?.6..V,15:.S.1,88:.S,89:.W.1
,1:.U.1.6:.W,65.T.@..H,20:.T.0.120:..}.J
..W,64:.H,50:.W,65:.T.0.120:.:.W,64:....
T..T.H.1.V:.T,0:.:....^.. ##### BELLS #
####.H.H.V.54296:W.54276:.W.1,96.S.R..W.
1,9...|..V,15:.L.1.5:.W,21......W.3,99..
(1):.W.11,99..(1). ....T.1.600:.:.W,20:.
.6....I.W.4.V:.I,0:.:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL