JACKET LISTER
FILE INFORMATION
FILENAME(S): JACKET LISTER
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-01 02:20:44
APPEARS ON: 1 disk(s)
FILE HASH
287f2a91a1112eb66770ea669b1c016232df05a3fba6593631de877ec983581b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DATROMAGAZIN 1 | JACKET LISTER | PRG | hedning, scooby | 33 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 08 00 8F 20 2A 2A 2A 20 4A 41 43 4B |....... *** JACK|
00000010: 45 54 20 4C 49 53 54 45 52 20 2A 2A 2A 00 3A 08 |ET LISTER ***.:.|
00000020: 09 00 8F 20 2A 2A 2A 20 43 4F 4D 50 55 54 45 20 |... *** COMPUTE |
00000030: 53 45 50 2D 38 36 20 2A 2A 2A 00 5B 08 0A 00 8F |SEP-86 ***.[....|
00000040: 20 2A 2A 2A 2A 2A 20 50 52 4F 47 52 41 4D 20 53 | ***** PROGRAM S|
00000050: 45 54 20 55 50 20 2A 2A 2A 2A 2A 00 73 08 14 00 |ET UP *****.s...|
00000060: 86 54 42 24 28 31 34 34 29 3A 86 41 42 24 28 31 |.TB$(144):.AB$(1|
00000070: 34 34 29 00 90 08 1E 00 99 22 93 9A 22 3A 97 35 |44)......"..":.5|
00000080: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6|
00000090: 00 C1 08 28 00 99 22 11 11 11 11 1D 1D 1D 1D 1D |...(..".........|
000000A0: 1D 1D 1D 1D 12 05 20 57 48 41 54 20 49 53 20 54 |...... WHAT IS T|
000000B0: 4F 44 41 59 27 53 20 44 41 54 45 3A 20 22 3A 99 |ODAY'S DATE: ":.|
000000C0: 3A 00 EF 08 32 00 99 22 1D 1D 1D 1D 1D 12 05 20 |:...2.."....... |
000000D0: 45 4E 54 45 52 20 59 52 2F 44 59 2F 4D 4F 20 54 |ENTER YR/DY/MO T|
000000E0: 48 45 4E 20 3C 52 45 54 55 52 4E 3E 20 92 22 00 |HEN <RETURN> .".|
000000F0: 04 09 3C 00 99 22 11 11 22 3B A6 31 31 29 3B 3A |..<.."..";.11);:|
00000100: 85 44 54 24 00 37 09 46 00 99 22 93 11 11 11 11 |.DT$.7.F..".....|
00000110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 9F 20 55 50 50 45 |........... UPPE|
00000120: 52 20 41 4E 44 20 4C 4F 57 45 52 20 43 41 53 45 |R AND LOWER CASE|
00000130: 20 3F 20 22 3A 99 3A 00 66 09 50 00 99 22 1D 1D | ? ":.:.f.P.."..|
00000140: 1D 1D 1D 1D 1D 1D 1D 1D 12 9F 20 05 59 9F 20 4F |.......... .Y. O|
00000150: 52 20 05 4E 9F 20 54 48 45 4E 20 3C 52 45 54 55 |R .N. THEN <RETU|
00000160: 52 4E 3E 20 92 22 00 7B 09 5A 00 99 22 11 11 22 |RN> .".{.Z..".."|
00000170: 3B A6 31 31 29 3B 3A 85 43 43 24 00 9F 09 64 00 |;.11);:.CC$...d.|
00000180: 8B 43 43 24 B2 22 59 22 A7 43 4D 24 B2 C7 28 31 |.CC$."Y".CM$..(1|
00000190: 37 29 3A 8F 20 4C 4F 57 45 52 20 43 41 53 45 00 |7):. LOWER CASE.|
000001A0: C5 09 6E 00 8B 43 43 24 B3 B1 22 59 22 A7 43 4D |..n..CC$.."Y".CM|
000001B0: 24 B2 C7 28 31 34 35 29 3A 8F 20 55 50 50 45 52 |$..(145):. UPPER|
000001C0: 20 43 41 53 45 00 E2 09 78 00 99 22 93 9A 22 3A | CASE...x.."..":|
000001D0: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281|
000001E0: 2C 36 00 15 0A 82 00 99 22 11 11 11 11 1D 9E 57 |,6......"......W|
000001F0: 48 49 43 48 20 44 49 53 4B 20 44 52 49 56 45 20 |HICH DISK DRIVE |
00000200: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4C |DO YOU WANT TO L|
00000210: 49 53 54 3F 22 00 29 0A 8C 00 99 22 11 11 22 3B |IST?".)...."..";|
00000220: A6 31 31 29 3B 3A 85 44 49 00 4A 0A 96 00 8F 20 |.11);:.DI.J.... |
00000230: 2A 2A 2A 2A 2A 20 52 45 41 44 20 44 49 53 4B 20 |***** READ DISK |
00000240: 4D 45 4E 55 20 2A 2A 2A 2A 2A 00 66 0A A0 00 99 |MENU *****.f....|
00000250: 22 93 9F 22 3A 97 35 33 32 38 30 2C 32 3A 97 35 |"..":.53280,2:.5|
00000260: 33 32 38 31 2C 30 00 9A 0A AA 00 99 22 11 11 11 |3281,0......"...|
00000270: 11 11 11 1D 1D 1D 12 20 20 52 45 41 44 49 4E 47 |....... READING|
00000280: 20 20 44 41 54 41 20 3A 20 50 4C 45 41 53 45 20 | DATA : PLEASE |
00000290: 53 54 41 4E 44 42 59 20 20 22 00 A4 0A B4 00 8D |STANDBY "......|
000002A0: 31 36 33 30 00 D8 0A BE 00 9F 38 2C 44 49 2C 30 |1630......8,DI,0|
000002B0: 2C 22 24 30 22 3A 81 43 B2 31 A4 38 3A A1 23 38 |,"$0":.C.1.8:.#8|
000002C0: 2C 41 24 3A 82 3A 43 B2 31 3A 44 4E 24 B2 22 22 |,A$:.:C.1:DN$.""|
000002D0: 3A 81 43 B2 31 A4 31 36 00 12 0B C8 00 A1 23 38 |:.C.1.16......#8|
000002E0: 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 |,A$:DN$.DN$.A$:.|
000002F0: 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 3A 44 |:.#8,A$:.#8,A$:D|
00000300: 4E 24 B2 44 4E 24 AA 22 20 20 22 3A A1 23 38 2C |N$.DN$." ":.#8,|
00000310: 41 24 00 41 0B D2 00 44 4E 24 B2 44 4E 24 AA 41 |A$.A...DN$.DN$.A|
00000320: 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 |$:.#8,A$:DN$.DN$|
00000330: AA 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 |.A$:.#8,A$:.#8,A|
00000340: 24 00 57 0B DC 00 A1 23 38 2C 41 24 3A A1 23 38 |$.W....#8,A$:.#8|
00000350: 2C 41 24 3A 43 B2 31 00 79 0B E6 00 81 41 B2 31 |,A$:C.1.y....A.1|
00000360: A4 34 3A A1 23 38 2C 41 24 3A 82 3A 50 4E 24 B2 |.4:.#8,A$:.:PN$.|
00000370: 22 22 3A 54 59 24 B2 22 22 00 8F 0B F0 00 A1 23 |"":TY$.""......#|
00000380: 38 2C 41 24 3A 8B 53 54 B3 B1 30 A7 33 31 30 00 |8,A$:.ST..0.310.|
00000390: 9E 0B FA 00 8B 41 24 B2 22 22 A7 33 31 30 00 B1 |.....A$."".310..|
000003A0: 0B 04 01 8B C6 28 41 24 29 B3 B1 33 34 A7 32 34 |.....(A$)..34.24|
000003B0: 30 00 D7 0B 0E 01 A1 23 38 2C 41 24 3A 8B C6 28 |0......#8,A$:..(|
000003C0: 41 24 29 B3 B1 33 34 A7 50 4E 24 B2 50 4E 24 AA |A$)..34.PN$.PN$.|
000003D0: 41 24 3A 89 32 37 30 00 F0 0B 18 01 A1 23 38 2C |A$:.270......#8,|
000003E0: 41 24 3A 8B C6 28 41 24 29 B2 33 32 A7 32 38 30 |A$:..(A$).32.280|
000003F0: 00 12 0C 22 01 54 59 24 B2 54 59 24 AA 41 24 3A |...".TY$.TY$.A$:|
00000400: A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 32 |.#8,A$:.A$.."".2|
00000410: 39 30 00 31 0C 2C 01 54 42 24 28 43 29 B2 50 4E |90.1.,.TB$(C).PN|
00000420: 24 3A 43 B2 43 AA 31 3A 8B 53 54 B2 30 A7 32 33 |$:C.C.1:.ST.0.23|
00000430: 30 00 38 0C 36 01 A0 38 00 48 0C 40 01 8B 43 B1 |0.8.6..8.H.@..C.|
00000440: 38 38 A7 8D 31 33 31 30 00 6A 0C 4A 01 8F 20 2A |88..1310.j.J.. *|
00000450: 2A 2A 20 41 4C 50 48 41 42 45 54 49 5A 45 20 4C |** ALPHABETIZE L|
00000460: 49 53 54 49 4E 47 20 2A 2A 2A 00 86 0C 54 01 99 |ISTING ***...T..|
00000470: 22 93 9F 22 3A 97 35 33 32 38 30 2C 34 3A 97 35 |"..":.53280,4:.5|
00000480: 33 32 38 31 2C 30 00 BA 0C 5E 01 99 22 11 11 11 |3281,0...^.."...|
00000490: 11 11 11 1D 1D 1D 12 20 20 53 4F 52 54 49 4E 47 |....... SORTING|
000004A0: 20 20 44 41 54 41 20 3A 20 50 4C 45 41 53 45 20 | DATA : PLEASE |
000004B0: 53 54 41 4E 44 42 59 20 20 22 00 C4 0C 68 01 8D |STANDBY "...h..|
000004C0: 31 35 37 30 00 E2 0C 72 01 5A 24 B2 22 DA DA DA |1570...r.Z$."...|
000004D0: DA DA DA DA DA DA DA DA DA DA DA DA DA 22 3A 45 |.............":E|
000004E0: B2 31 00 0D 0D 7C 01 81 41 B2 31 A4 43 AB 31 3A |.1...|..A.1.C.1:|
000004F0: 43 24 B2 5A 24 3A 81 42 B2 31 A4 43 AB 31 3A 8B |C$.Z$:.B.1.C.1:.|
00000500: 43 24 B3 54 42 24 28 42 29 A7 34 30 30 00 1F 0D |C$.TB$(B).400...|
00000510: 86 01 43 24 B2 54 42 24 28 42 29 3A 44 B2 42 00 |..C$.TB$(B):D.B.|
00000520: 41 0D 90 01 82 3A 41 42 24 28 45 29 B2 43 24 3A |A....:AB$(E).C$:|
00000530: 45 B2 45 AA 31 3A 54 42 24 28 44 29 B2 5A 24 3A |E.E.1:TB$(D).Z$:|
00000540: 82 00 63 0D 9A 01 8F 20 20 2A 2A 2A 2A 20 4A 41 |..c.... **** JA|
00000550: 43 4B 45 54 20 4E 41 4D 45 20 3D 20 4E 53 24 20 |CKET NAME = NS$ |
00000560: 2A 2A 2A 00 87 0D A4 01 4E 53 24 B2 22 2A 2A 2A |***.....NS$."***|
00000570: 2A 2A 20 20 20 52 45 46 45 52 45 4E 43 45 20 20 |** REFERENCE |
00000580: 20 2A 2A 2A 2A 2A 22 00 AB 0D AE 01 8F 20 2A 2A | *****"...... **|
00000590: 2A 2A 2A 20 50 52 49 4E 54 20 41 4C 50 48 41 20 |*** PRINT ALPHA |
000005A0: 4C 49 53 54 20 20 2A 2A 2A 2A 2A 00 C6 0D B8 01 |LIST *****.....|
000005B0: 99 22 93 22 3A 97 35 33 32 38 30 2C 35 3A 97 35 |.".":.53280,5:.5|
000005C0: 33 32 38 31 2C 30 00 FB 0D C2 01 99 22 11 11 11 |3281,0......"...|
000005D0: 11 11 11 1D 1D 12 20 20 50 52 49 4E 54 49 4E 47 |...... PRINTING|
000005E0: 20 4A 41 43 4B 45 54 20 3A 20 50 4C 45 41 53 45 | JACKET : PLEASE|
000005F0: 20 53 54 41 4E 44 42 59 20 20 22 00 05 0E CC 01 | STANDBY ".....|
00000600: 8D 31 35 31 30 00 1D 0E D6 01 44 44 B2 30 3A 43 |.1510.....DD.0:C|
00000610: 44 B2 B5 28 43 AD 32 29 3A 9F 31 2C 34 00 29 0E |D..(C.2):.1,4.).|
00000620: E0 01 81 43 52 B2 31 A4 32 00 41 0E EA 01 98 31 |...CR.1.2.A....1|
00000630: 2C C7 28 31 30 29 3A 8F 20 4C 49 4E 45 46 45 45 |,.(10):. LINEFEE|
00000640: 44 00 49 0E F4 01 82 43 52 00 55 0E FE 01 54 4C |D.I....CR.U...TL|
00000650: 24 B2 22 B9 22 00 80 0E 08 02 98 31 2C A3 32 29 |$."."......1,.2)|
00000660: 3B 3A 81 54 4C B2 31 A4 37 32 3A 98 31 2C 54 4C |;:.TL.1.72:.1,TL|
00000670: 24 3B 3A 82 54 4C 3A 98 31 2C 22 20 43 55 54 22 |$;:.TL:.1," CUT"|
00000680: 00 90 0E 12 02 8D 31 31 33 30 3A 8D 31 31 34 30 |......1130:.1140|
00000690: 00 9A 0E 1C 02 8D 31 31 33 30 00 CE 0E 26 02 98 |......1130...&..|
000006A0: 31 2C C7 28 31 34 29 3B 4E 53 24 3B C7 28 31 35 |1,.(14);NS$;.(15|
000006B0: 29 3B 3A 8F 20 31 34 20 44 4F 55 42 4C 45 20 57 |);:. 14 DOUBLE W|
000006C0: 49 44 54 48 20 31 35 20 53 49 4E 47 4C 45 00 D8 |IDTH 15 SINGLE..|
000006D0: 0E 30 02 8D 31 31 34 30 00 E4 0E 3A 02 81 4C 45 |.0..1140...:..LE|
000006E0: B2 31 A4 32 00 F4 0E 44 02 8D 31 31 33 30 3A 8D |.1.2...D..1130:.|
000006F0: 31 31 34 30 00 FC 0E 4E 02 82 4C 45 00 06 0F 58 |1140...N..LE...X|
00000700: 02 8D 31 31 33 30 00 2F 0F 62 02 98 31 2C A3 31 |..1130./.b..1,.1|
00000710: 35 29 3B 43 4D 24 3B 44 4E 24 3B A6 35 29 3B 44 |5);CM$;DN$;.5);D|
00000720: 54 24 3B 3A 8D 31 31 34 30 3A 8D 31 31 36 30 00 |T$;:.1140:.1160.|
00000730: 3D 0F 6C 02 8B 43 B1 33 32 A7 37 39 30 00 5F 0F |=.l..C.32.790._.|
00000740: 76 02 8F 20 2A 2A 20 50 52 49 4E 54 20 3A 20 3C |v.. ** PRINT : <|
00000750: 20 33 32 20 50 52 4F 47 52 41 4D 53 20 2A 2A 00 | 32 PROGRAMS **.|
00000760: 72 0F 80 02 81 44 44 B2 31 A4 43 44 3A 8D 31 31 |r....DD.1.CD:.11|
00000770: 33 30 00 AE 0F 8A 02 98 31 2C C7 28 31 36 29 3B |30......1,.(16);|
00000780: C7 28 35 30 29 3B C7 28 34 38 29 3B 43 4D 24 3B |.(50);.(48);CM$;|
00000790: 41 42 24 28 44 44 29 3B 3A 8F 20 50 52 49 4E 54 |AB$(DD);:. PRINT|
000007A0: 20 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 DD | HEAD POSITION..|
000007B0: 0F 94 02 98 31 2C C7 28 31 36 29 3B C7 28 35 32 |....1,.(16);.(52|
000007C0: 29 3B C7 28 35 33 29 3B 43 4D 24 3B 41 42 24 28 |);.(53);CM$;AB$(|
000007D0: 43 44 AA 44 44 29 3B 3A 8D 31 31 34 30 00 F7 0F |CD.DD);:.1140...|
000007E0: 9E 02 8F 20 50 52 49 4E 54 20 48 45 41 44 20 50 |... PRINT HEAD P|
000007F0: 4F 53 49 54 49 4F 4E 00 FF 0F A8 02 82 44 44 00 |OSITION......DD.|
00000800: 17 10 B2 02 8D 31 31 33 30 3A 8D 31 31 34 30 3A |.....1130:.1140:|
00000810: 44 44 B2 44 44 AA 31 00 26 10 BC 02 8B 44 44 B1 |DD.DD.1.&....DD.|
00000820: 31 37 A7 37 32 30 00 2F 10 C6 02 89 36 39 30 00 |17.720./....690.|
00000830: 39 10 D0 02 8D 31 32 32 30 00 46 10 DA 02 81 53 |9....1220.F....S|
00000840: 4C B2 31 A4 32 39 00 56 10 E4 02 8D 31 32 30 30 |L.1.29.V....1200|
00000850: 3A 8D 31 32 31 30 00 5E 10 EE 02 82 53 4C 00 68 |:.1210.^....SL.h|
00000860: 10 F8 02 8D 31 32 34 30 00 72 10 02 03 8D 31 32 |....1240.r....12|
00000870: 36 30 00 94 10 0C 03 8F 20 2A 2A 20 50 52 49 4E |60...... ** PRIN|
00000880: 54 20 3A 20 3E 20 33 32 20 50 52 4F 47 52 41 4D |T : > 32 PROGRAM|
00000890: 53 20 2A 2A 00 A7 10 16 03 81 44 44 B2 31 A4 31 |S **......DD.1.1|
000008A0: 36 3A 8D 31 31 33 30 00 E3 10 20 03 98 31 2C C7 |6:.1130... ..1,.|
000008B0: 28 31 36 29 3B C7 28 35 30 29 3B C7 28 34 38 29 |(16);.(50);.(48)|
000008C0: 3B 43 4D 24 3B 41 42 24 28 44 44 29 3B 3A 8F 20 |;CM$;AB$(DD);:. |
000008D0: 50 52 49 4E 54 20 48 45 41 44 20 50 4F 53 49 54 |PRINT HEAD POSIT|
000008E0: 49 4F 4E 00 12 11 2A 03 98 31 2C C7 28 31 36 29 |ION...*..1,.(16)|
000008F0: 3B C7 28 35 32 29 3B C7 28 35 33 29 3B 43 4D 24 |;.(52);.(53);CM$|
00000900: 3B 41 42 24 28 44 44 AA 31 36 29 3B 3A 8D 31 31 |;AB$(DD.16);:.11|
00000910: 34 30 00 1A 11 3E 03 82 44 44 00 2A 11 48 03 8D |40...>..DD.*.H..|
00000920: 31 31 33 30 3A 8D 31 31 34 30 00 34 11 52 03 8D |1130:.1140.4.R..|
00000930: 31 32 32 30 00 44 11 5C 03 8D 31 32 30 30 3A 8D |1220.D.\..1200:.|
00000940: 31 32 31 30 00 5D 11 66 03 43 58 B2 28 43 AB 33 |1210.].f.CX.(C.3|
00000950: 33 29 AD 32 3A 43 5A B2 43 58 AA 33 32 00 71 11 |3).2:CZ.CX.32.q.|
00000960: 70 03 81 44 44 B2 33 33 A4 43 5A 3A 8D 31 32 30 |p..DD.33.CZ:.120|
00000970: 30 00 AD 11 7A 03 98 31 2C C7 28 31 36 29 3B C7 |0...z..1,.(16);.|
00000980: 28 35 30 29 3B C7 28 34 38 29 3B 43 4D 24 3B 41 |(50);.(48);CM$;A|
00000990: 42 24 28 44 44 29 3B 3A 8F 20 50 52 49 4E 54 20 |B$(DD);:. PRINT |
000009A0: 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 DC 11 |HEAD POSITION...|
000009B0: 84 03 98 31 2C C7 28 31 36 29 3B C7 28 35 32 29 |...1,.(16);.(52)|
000009C0: 3B C7 28 34 38 29 3B 43 4D 24 3B 41 42 24 28 44 |;.(48);CM$;AB$(D|
000009D0: 44 AA 43 58 29 3B 3A 8D 31 32 31 30 00 E4 11 98 |D.CX);:.1210....|
000009E0: 03 82 44 44 00 FC 11 A2 03 8D 31 32 30 30 3A 8D |..DD......1200:.|
000009F0: 31 32 31 30 3A 44 44 B2 44 44 AA 31 00 0B 12 AC |1210:DD.DD.1....|
00000A00: 03 8B 44 44 B1 36 30 A7 39 36 30 00 14 12 B6 03 |..DD.60.960.....|
00000A10: 89 39 33 30 00 24 12 C0 03 8D 31 32 34 30 3A 8D |.930.$....1240:.|
00000A20: 31 32 36 30 00 3F 12 CA 03 52 45 20 AC AC AC 20 |1260.?...RE ... |
00000A30: 43 4C 4F BF 47 20 8F 41 52 4B 53 20 2A 2A 2A 00 |CLO.G .ARKS ***.|
00000A40: 5B 12 D4 03 99 22 93 9F 22 3A 97 35 33 32 38 30 |[...."..":.53280|
00000A50: 2C 39 3A 97 35 33 32 38 31 2C 30 00 90 12 DE 03 |,9:.53281,0.....|
00000A60: 99 22 11 11 11 11 11 11 1D 1D 12 20 20 41 4C 50 |."......... ALP|
00000A70: 48 41 42 45 54 49 5A 45 44 20 44 49 53 4B 20 43 |HABETIZED DISK C|
00000A80: 4F 56 45 52 20 43 4F 4D 50 4C 45 54 45 20 20 22 |OVER COMPLETE "|
00000A90: 00 9A 12 E8 03 8D 31 34 36 30 00 CB 12 F2 03 99 |......1460......|
00000AA0: 22 11 11 11 11 11 1D 1D 20 20 44 4F 20 59 4F 55 |"....... DO YOU|
00000AB0: 20 57 41 4E 54 20 41 4E 4F 54 48 45 52 20 44 49 | WANT ANOTHER DI|
00000AC0: 53 4B 20 43 4F 56 45 52 20 3A 22 00 F5 12 FC 03 |SK COVER :".....|
00000AD0: 85 22 1D 1D 1D 1D 1D 1D 27 59 27 20 4F 52 20 27 |."......'Y' OR '|
00000AE0: 4E 27 20 54 48 45 4E 20 3C 52 45 54 55 52 4E 3E |N' THEN <RETURN>|
00000AF0: 22 3B 41 47 24 00 12 13 06 04 81 44 44 B2 30 A4 |";AG$......DD.0.|
00000B00: 31 34 34 3A 41 42 24 28 44 44 29 B2 22 22 3A 82 |144:AB$(DD)."":.|
00000B10: 44 44 00 25 13 10 04 8B 41 47 24 B3 B1 22 59 22 |DD.%....AG$.."Y"|
00000B20: A7 31 30 37 30 00 46 13 1A 04 99 22 93 9A 22 3A |.1070.F...."..":|
00000B30: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281|
00000B40: 2C 36 3A 89 37 30 00 64 13 24 04 8F 20 2A 2A 20 |,6:.70.d.$.. ** |
00000B50: 54 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 41 |TERMINATE PROGRA|
00000B60: 4D 20 2A 2A 00 81 13 2E 04 99 22 93 9F 22 3A 97 |M **......"..":.|
00000B70: 35 33 32 38 30 2C 37 3A 97 35 33 32 38 31 2C 31 |53280,7:.53281,1|
00000B80: 31 00 B3 13 38 04 99 22 11 11 11 11 11 11 11 11 |1...8.."........|
00000B90: 1D 1D 1D 1D 1D 1D 1D 1D 05 12 20 20 50 52 4F 47 |.......... PROG|
00000BA0: 52 41 4D 20 54 45 52 4D 49 4E 41 54 45 44 20 21 |RAM TERMINATED !|
00000BB0: 20 20 22 00 BD 13 42 04 8D 31 34 31 30 00 D0 13 | "...B..1410...|
00000BC0: 4C 04 81 57 54 B2 31 A4 31 30 30 30 3A 82 57 54 |L..WT.1.1000:.WT|
00000BD0: 00 EF 13 56 04 99 22 93 9A 22 3A 97 35 33 32 38 |...V.."..":.5328|
00000BE0: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 80 00 |0,14:.53281,6:..|
00000BF0: 11 14 60 04 8F 20 2A 2A 2A 20 44 49 53 4B 20 4A |..`.. *** DISK J|
00000C00: 41 43 4B 45 54 20 4F 55 54 4C 49 4E 45 20 2A 2A |ACKET OUTLINE **|
00000C10: 2A 00 2A 14 6A 04 98 31 2C 22 20 20 B5 20 20 20 |*.*.j..1," . |
00000C20: 20 20 20 20 A5 2A 22 3B 3A 8E 00 52 14 74 04 98 | .*";:..R.t..|
00000C30: 31 2C C7 28 31 36 29 3B C7 28 35 34 29 3B C7 28 |1,.(16);.(54);.(|
00000C40: 35 32 29 3B 22 2A A7 20 20 20 20 20 20 20 B6 22 |52);"*. ."|
00000C50: 3A 8E 00 6C 14 7E 04 8F 20 50 52 49 4E 54 20 48 |:..l.~.. PRINT H|
00000C60: 45 41 44 20 50 4F 53 49 54 49 4F 4E 00 83 14 88 |EAD POSITION....|
00000C70: 04 98 31 2C 22 20 20 B5 20 20 20 20 20 20 20 A5 |..1," . .|
00000C80: 2A 22 3B 00 A8 14 92 04 98 31 2C A3 31 35 29 3B |*";......1,.15);|
00000C90: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............|
00000CA0: B8 B8 B8 B8 B8 22 3B 3A 00 D0 14 9C 04 98 31 2C |.....";:......1,|
00000CB0: C7 28 31 36 29 3B C7 28 35 34 29 3B C7 28 35 32 |.(16);.(54);.(52|
00000CC0: 29 3B 22 2A A7 20 20 20 20 20 20 20 B6 22 3A 8E |);"*. .":.|
00000CD0: 00 EA 14 A6 04 8F 20 50 52 49 4E 54 20 48 45 41 |...... PRINT HEA|
00000CE0: 44 20 50 4F 53 49 54 49 4F 4E 00 03 15 B0 04 98 |D POSITION......|
00000CF0: 31 2C 22 20 20 20 20 20 20 20 20 20 20 B5 22 3B |1," .";|
00000D00: 3A 8E 3A 00 38 15 BA 04 98 31 2C C7 28 31 36 29 |:.:.8....1,.(16)|
00000D10: 3B C7 28 35 34 29 3B C7 28 35 33 29 3B 22 B6 22 |;.(54);.(53);"."|
00000D20: 3A 8E 3A 8F 20 50 52 49 4E 54 20 48 45 41 44 20 |:.:. PRINT HEAD |
00000D30: 50 4F 53 49 54 49 4F 4E 00 44 15 C4 04 43 4C 24 |POSITION.D...CL$|
00000D40: B2 22 C3 22 00 72 15 CE 04 98 31 2C A3 32 29 3B |.".".r....1,.2);|
00000D50: 3A 81 43 4C B2 31 A4 37 32 3A 98 31 2C 43 4C 24 |:.CL.1.72:.1,CL$|
00000D60: 3B 3A 82 43 4C 3A 98 31 2C 22 20 46 4F 4C 44 22 |;:.CL:.1," FOLD"|
00000D70: 3A 8E 00 7E 15 D8 04 4C 4C 24 B2 22 B8 22 00 AC |:..~...LL$."."..|
00000D80: 15 E2 04 98 31 2C A3 31 30 29 3B 3A 81 4C 4C B2 |....1,.10);:.LL.|
00000D90: 31 A4 35 36 3A 98 31 2C 4C 4C 24 3B 3A 82 4C 4C |1.56:.1,LL$;:.LL|
00000DA0: 3A 98 31 2C 22 20 43 55 54 22 3A 8E 00 BB 15 EC |:.1," CUT":.....|
00000DB0: 04 98 31 3A 81 43 52 B2 31 A4 33 00 C8 15 F6 04 |..1:.CR.1.3.....|
00000DC0: 98 31 2C C7 28 31 30 29 00 D8 15 00 05 82 43 52 |.1,.(10)......CR|
00000DD0: 3A A0 31 3A 89 39 38 30 00 FA 15 0A 05 8F 20 2A |:.1:.980...... *|
00000DE0: 2A 20 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 1C 16 14 05 8F |TO LIST **......|
00000E00: 20 2A 2A 20 43 41 4E 20 4F 4E 4C 59 20 4C 49 53 | ** CAN ONLY LIS|
00000E10: 54 20 38 38 20 50 47 4D 53 20 2A 2A 00 38 16 1E |T 88 PGMS **.8..|
00000E20: 05 99 22 93 9F 22 3A 97 35 33 32 38 30 2C 31 3A |.."..":.53280,1:|
00000E30: 97 35 33 32 38 31 2C 37 00 61 16 28 05 99 22 11 |.53281,7.a.(..".|
00000E40: 11 11 11 11 22 3B A6 31 30 29 3B 22 9F 54 4F 4F |....";.10);".TOO|
00000E50: 20 20 4D 41 4E 59 20 20 50 52 4F 47 52 41 4D 53 | MANY PROGRAMS|
00000E60: 22 00 81 16 32 05 99 A6 31 30 29 3B 22 9F 20 54 |"...2...10);". T|
00000E70: 4F 20 4C 49 53 54 20 4F 4E 20 4A 41 43 4B 45 54 |O LIST ON JACKET|
00000E80: 22 00 8B 16 3C 05 8D 31 34 36 30 00 B6 16 46 05 |"...<..1460...F.|
00000E90: 99 22 11 11 11 22 3B A6 38 29 3B 22 1C 50 52 49 |."...";.8);".PRI|
00000EA0: 4E 54 20 20 54 48 4F 53 45 20 20 54 48 41 54 20 |NT THOSE THAT |
00000EB0: 20 46 49 54 3F 22 00 DB 16 50 05 99 A6 39 29 3B | FIT?"...P...9);|
00000EC0: 22 28 12 59 92 20 4F 52 20 12 4E 92 20 54 48 45 |"(.Y. OR .N. THE|
00000ED0: 4E 20 3C 52 45 54 55 52 4E 3E 29 00 F0 16 5A 05 |N <RETURN>)...Z.|
00000EE0: 99 22 11 11 22 3B A6 31 35 29 3B 3A 85 41 57 24 |."..";.15);:.AW$|
00000EF0: 00 03 17 64 05 8B 41 57 24 B3 B1 22 59 22 A7 31 |...d..AW$.."Y".1|
00000F00: 30 37 30 00 0E 17 6E 05 43 B2 38 38 3A 8E 00 30 |070...n.C.88:..0|
00000F10: 17 78 05 8F 20 20 2A 2A 2A 2A 20 53 4F 55 4E 44 |.x.. **** SOUND|
00000F20: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 2A 2A 2A | SUBROUTINES ***|
00000F30: 00 4A 17 82 05 8F 20 20 23 23 23 23 23 20 42 55 |.J.... ##### BU|
00000F40: 5A 5A 45 52 20 23 23 23 23 23 00 55 17 8C 05 97 |ZZER #####.U....|
00000F50: 53 2C 32 34 30 00 79 17 96 05 48 B2 35 34 32 37 |S,240.y...H.5427|
00000F60: 33 3A 53 B2 35 34 32 37 38 3A 57 B2 35 34 32 37 |3:S.54278:W.5427|
00000F70: 36 3A 56 B2 35 34 32 39 36 00 99 17 A0 05 97 56 |6:V.54296......V|
00000F80: 2C 31 35 3A 97 48 2C 35 3A 97 57 2C 33 33 3A 81 |,15:.H,5:.W,33:.|
00000F90: 54 B2 30 A4 35 30 30 3A 82 00 AF 17 AA 05 81 54 |T.0.500:.......T|
00000FA0: B2 48 AB 31 A4 56 3A 97 54 2C 30 3A 82 3A 8E 00 |.H.1.V:.T,0:.:..|
00000FB0: C7 17 B4 05 8F 20 20 23 23 23 23 23 20 44 4F 4E |..... ##### DON|
00000FC0: 47 20 23 23 23 23 23 00 EB 17 BE 05 48 B2 35 34 |G #####.....H.54|
00000FD0: 32 37 33 3A 53 B2 35 34 32 37 38 3A 57 B2 35 34 |273:S.54278:W.54|
00000FE0: 32 37 36 3A 56 B2 35 34 32 39 36 00 20 18 C8 05 |276:V.54296. ...|
00000FF0: 97 53 AB 31 2C 39 3A 97 48 2C 33 36 3A 97 53 AA |.S.1,9:.H,36:.S.|
00001000: 39 2C 31 36 3A 97 56 2C 31 35 3A 81 55 B2 31 A4 |9,16:.V,15:.U.1.|
00001010: 34 3A 97 57 2C 32 31 3A 81 54 B2 30 A4 35 30 30 |4:.W,21:.T.0.500|
00001020: 00 2E 18 D2 05 82 3A 97 57 2C 32 30 3A 82 00 44 |......:.W,20:..D|
00001030: 18 DC 05 81 54 B2 48 AB 31 A4 56 3A 97 54 2C 30 |....T.H.1.V:.T,0|
00001040: 3A 82 3A 8E 00 5C 18 E6 05 8F 20 20 23 23 23 23 |:.:..\.... ####|
00001050: 23 20 44 49 4E 47 20 23 23 23 23 23 00 80 18 F0 |# DING #####....|
00001060: 05 48 B2 35 34 32 37 33 3A 53 B2 35 34 32 37 38 |.H.54273:S.54278|
00001070: 3A 57 B2 35 34 32 37 36 3A 56 B2 35 34 32 39 36 |:W.54276:V.54296|
00001080: 00 8C 18 FA 05 81 41 41 B2 31 A4 33 00 B5 18 04 |......AA.1.3....|
00001090: 06 97 56 2C 31 35 3A 97 48 2C 34 30 3A 97 53 AB |..V,15:.H,40:.S.|
000010A0: 31 2C 39 3A 97 57 2C 31 37 3A 81 54 B2 31 A4 35 |1,9:.W,17:.T.1.5|
000010B0: 30 30 3A 82 54 00 C9 18 0E 06 81 54 B2 48 AB 31 |00:.T......T.H.1|
000010C0: A4 56 3A 97 54 2C 30 3A 82 00 D3 18 18 06 82 41 |.V:.T,0:.......A|
000010D0: 41 3A 8E 00 F0 18 22 06 8F 20 20 23 23 23 23 23 |A:....".. #####|
000010E0: 20 42 49 4E 47 2D 42 4F 4E 47 20 23 23 23 23 23 | BING-BONG #####|
000010F0: 00 14 19 2C 06 48 B2 35 34 32 37 33 3A 53 B2 35 |...,.H.54273:S.5|
00001100: 34 32 37 38 3A 57 B2 35 34 32 37 36 3A 56 B2 35 |4278:W.54276:V.5|
00001110: 34 32 39 36 00 40 19 36 06 97 56 2C 31 35 3A 97 |4296.@.6..V,15:.|
00001120: 53 AB 31 2C 38 38 3A 97 53 2C 38 39 3A 97 57 AB |S.1,88:.S,89:.W.|
00001130: 31 2C 31 3A 81 55 B2 31 A4 36 3A 97 57 2C 36 35 |1,1:.U.1.6:.W,65|
00001140: 00 55 19 40 06 97 48 2C 32 30 3A 81 54 B2 30 A4 |.U.@..H,20:.T.0.|
00001150: 31 32 30 3A 82 00 7E 19 4A 06 97 57 2C 36 34 3A |120:..~.J..W,64:|
00001160: 97 48 2C 35 30 3A 97 57 2C 36 35 3A 81 54 B2 30 |.H,50:.W,65:.T.0|
00001170: A4 31 32 30 3A 82 3A 97 57 2C 36 34 3A 82 00 94 |.120:.:.W,64:...|
00001180: 19 54 06 81 54 B2 48 AB 31 A4 56 3A 97 54 2C 30 |.T..T.H.1.V:.T,0|
00001190: 3A 82 3A 8E 00 AD 19 5E 06 8F 20 20 23 23 23 23 |:.:....^.. ####|
000011A0: 23 20 42 45 4C 4C 53 20 23 23 23 23 23 00 C9 19 |# BELLS #####...|
000011B0: 68 06 56 B2 35 34 32 39 36 3A 57 B2 35 34 32 37 |h.V.54296:W.5427|
000011C0: 36 3A 97 57 AA 31 2C 39 36 00 D4 19 72 06 97 57 |6:.W.1,96...r..W|
000011D0: AA 31 2C 39 00 EB 19 7C 06 97 56 2C 31 35 3A 81 |.1,9...|..V,15:.|
000011E0: 4C B2 31 A4 35 3A 97 57 2C 32 31 00 0A 1A 86 06 |L.1.5:.W,21.....|
000011F0: 97 57 AB 33 2C 39 39 AC BB 28 31 29 3A 97 57 AA |.W.3,99..(1):.W.|
00001200: 31 31 2C 39 39 AC BB 28 31 29 00 21 1A 90 06 81 |11,99..(1).!....|
00001210: 54 B2 31 A4 36 30 30 3A 82 3A 97 57 2C 32 30 3A |T.1.600:.:.W,20:|
00001220: 82 00 37 1A 9A 06 81 49 B2 57 AB 34 A4 56 3A 97 |..7....I.W.4.V:.|
00001230: 49 2C 30 3A 82 3A 8E 00 00 00 |I,0:.:.... |
....... *** JACKET LISTER ***.:.... ***
COMPUTE SEP-86 ***.[.... ***** PROGRAM S
ET UP *****.S....TB$(144):.AB$(144).....
."..":.53280,14:.53281,6.A.(..".........
...... WHAT IS TODAY'S DATE: ":.:...2.."
....... ENTER YR/DY/MO THEN <RETURN> .".
..<.."..";.11);:.DT$.7.F..".............
... UPPER AND LOWER CASE ? ":.:.F.P.."..
.......... .Y. OR .N. THEN <RETURN> .".{
.Z.."..";.11);:.CC$...D..CC$."Y".CM$.G(1
7):. LOWER CASE.E.N..CC$.."Y".CM$.G(145)
:. UPPER CASE...X.."..":.53280,14:.53281
,6......"......WHICH DISK DRIVE DO YOU W
ANT TO LIST?".)...."..";.11);:.DI.J....
***** READ DISK MENU *****.F. .."..":.53
280,2:.53281,0......".......... READING
DATA : PLEASE STANDBY "......1630.X..
..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$.A.R.DN$.DN$.A
$:.#8,A$:DN$.DN$.A$:.#8,A$:.#8,A$.W....#
8,A$:.#8,A$:C.1.Y....A.1.4:.#8,A$:.:PN$.
"":TY$.""......#8,A$:.ST..0.310......A$.
"".310......F(A$)..34.240.W....#8,A$:.F(
A$)..34.PN$.PN$.A$:.270......#8,A$:.F(A$
).32.280...".TY$.TY$.A$:.#8,A$:.A$.."".2
90.1.,.TB$(C).PN$:C.C.1:.ST.0.230.8.6. 8
.H.@..C.88..1310.J.J.. *** ALPHABETIZE L
ISTING ***...T.."..":.53280,4:.53281,0..
.^..".......... SORTING DATA : PLEASE
STANDBY ".D.H..1570...R.Z$."ZZZZZZZZZZZ
ZZZZZ":E.1...|..A.1.C.1:C$.Z$:.B.1.C.1:.
C$.TB$(B).400.....C$.TB$(B):D.B.A....:AB
$(E).C$:E.E.1:TB$(D).Z$:..C.... **** JA
CKET NAME = NS$ ***.....NS$."***** REF
ERENCE *****"...... ***** PRINT ALPHA
LIST *****.F....".":.53280,5:.53281,0..
.B.."......... PRINTING JACKET : PLEASE
STANDBY "...L..1510...V.DD.0:CD..(C.2)
:.1,4.)....CR.1.2.A....1,G(10):. LINEFEE
D.I....CR.U...TL$."."......1,.2);:.TL.1.
72:.1,TL$;:.TL:.1," CUT"......1130:.1140
......1130.N.&..1,G(14);NS$;G(15);:. 14
DOUBLE WIDTH 15 SINGLE.X.0..1140...:..LE
.1.2...D..1130:.1140...N..LE...X..1130./
.B..1,.15);CM$;DN$;.5);DT$;:.1140:.1160.
=.L..C.32.790._.V.. ** PRINT : < 32 PROG
RAMS **.R....DD.1.CD:.1130......1,G(16);
G(50);G(48);CM$;AB$(DD);:. PRINT HEAD PO
SITION......1,G(16);G(52);G(53);CM$;AB$(
CD.DD);:.1140...... PRINT HEAD POSITION.
.....DD......1130:.1140:DD.DD.1.&....DD.
17.720./.F..690.9.P..1220.F.Z..SL.1.29.V
....1200:.1210.^....SL.H....1240.R....12
60...... ** PRINT : > 32 PROGRAMS **....
..DD.1.16:.1130... ..1,G(16);G(50);G(48)
;CM$;AB$(DD);:. PRINT HEAD POSITION...*.
.1,G(16);G(52);G(53);CM$;AB$(DD.16);:.11
40...>..DD.*.H..1130:.1140.4.R..1220.D.\
..1200:.1210.].F.CX.(C.33).2:CZ.CX.32.Q.
P..DD.33.CZ:.1200...Z..1,G(16);G(50);G(4
8);CM$;AB$(DD);:. PRINT HEAD POSITION...
...1,G(16);G(52);G(48);CM$;AB$(DD.CX);:.
1210......DD......1200:.1210:DD.DD.1....
..DD.60.960......930.$....1240:.1260.?.J
.RE ... CLO.G .ARKS ***.[.T.."..":.53280
,9:.53281,0......"......... ALPHABETIZE
D DISK COVER COMPLETE "......1460.K....
"....... DO YOU WANT ANOTHER DISK COVER
:"......"......'Y' OR 'N' THEN <RETURN>
";AG$......DD.0.144:AB$(DD)."":.DD.%....
AG$.."Y".1070.F...."..":.53280,14:.53281
,6:.70.D.$.. ** TERMINATE PROGRAM **....
.."..":.53280,7:.53281,11...8.."........
.......... PROGRAM TERMINATED ! "...B.
.1410.P.L..WT.1.1000:.WT...V.."..":.5328
0,14:.53281,6:....`.. *** DISK JACKET OU
TLINE ***.*.J..1," . .*";:..R.T..
1,G(16);G(54);G(52);"*. .":..L.~..
PRINT HEAD POSITION......1," . .
*";......1,.15);"....................";:
.P....1,G(16);G(54);G(52);"*. .":.
...... PRINT HEAD POSITION......1,"
.";:.:.8....1,G(16);G(54);G(53);"."
:.:. PRINT HEAD POSITION.D.D.CL$."C".R.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.H...
.1,G(10).X....CR: 1:.980...... ** MENU T
OO LONG TO LIST **...... ** CAN ONLY LIS
T 88 PGMS **.8...."..":.53280,1:.53281,7
.A.(..".....";.10);".TOO MANY PROGRAMS
"...2...10);". TO LIST ON JACKET"...<..1
460...F.."...";.8);".PRINT THOSE THAT
FIT?"...P...9);"(.Y. OR .N. THEN <RETUR
N>)...Z.."..";.15);:.AW$...D..AW$.."Y".1
070...N.C.88:..0.X.. **** SOUND SUBROUT
INES ***.J.... ##### BUZZER #####.U....
S,240.Y...H.54273:S.54278:W.54276:V.5429
6... ..V,15:.H,5:.W,33:.T.0.500:.......T
.H.1.V:.T,0:.:..G.... ##### 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:..D....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.I.
...T.H.1.V:.T,0:..S....AA:....".. #####
BING-BONG #####...,.H.54273:S.54278:W.5
4276:V.54296.@.6..V,15:.S.1,88:.S,89:.W.
1,1:.U.1.6:.W,65.U.@..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
#####.I.H.V.54296:W.54276:.W.1,96.T.R..W
.1,9...|..V,15:.L.1.5:.W,21......W.3,99.
.(1):.W.11,99..(1).!....T.1.600:.:.W,20:
..7....I.W.4.V:.I,0:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL