DISK COVER.SL V3
FILE INFORMATION
FILENAME(S): DISK COVER.SL V3
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-10-19 22:48:39
APPEARS ON: 1 disk(s)
FILE HASH
4c6aa692f55c7065bf48d0dd2939498cb14ee17023601b079cc38df2f5eaa401
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERMINAL PRGS | DISK COVER.SL V3 | PRG | Radd Maxx | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 23 1C 0A 00 8F 20 53 41 56 45 22 40 30 3A |..#.... SAVE"@0:| 00000010: 44 49 53 4B 20 43 4F 56 45 52 2E 53 4C 20 56 33 |DISK COVER.SL V3| 00000020: 22 2C 38 00 3D 1C 14 00 8F 20 20 52 45 56 49 53 |",8.=.... REVIS| 00000030: 45 44 20 20 20 30 33 2D 30 38 2D 38 37 00 60 1C |ED 03-08-87.`.| 00000040: 1E 00 8F 20 50 52 4F 47 20 4E 41 4D 45 20 22 44 |... PROG NAME "D| 00000050: 49 53 4B 20 43 4F 56 45 52 2E 53 4C 22 20 56 33 |ISK COVER.SL" V3| 00000060: 00 86 1C 28 00 8F 20 43 4F 50 59 57 52 49 54 45 |...(.. COPYWRITE| 00000070: 20 42 59 20 42 4F 42 20 43 55 52 52 59 20 30 39 | BY BOB CURRY 09| 00000080: 2D 31 39 2D 38 36 00 D3 1C 32 00 8F 20 54 48 49 |-19-86...2.. THI| 00000090: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 50 55 42 |S PROGRAM IS PUB| 000000A0: 4C 49 43 20 44 4F 4D 41 49 4E 20 41 4E 44 20 49 |LIC DOMAIN AND I| 000000B0: 53 20 4E 4F 54 20 54 4F 20 42 45 20 53 4F 4C 44 |S NOT TO BE SOLD| 000000C0: 20 4F 52 20 55 53 45 44 20 46 4F 52 20 50 52 4F | OR USED FOR PRO| 000000D0: 46 49 54 00 17 1D 3C 00 8F 20 57 52 49 54 54 45 |FIT...<.. WRITTE| 000000E0: 4E 20 42 59 20 42 4F 42 20 43 55 52 52 59 20 37 |N BY BOB CURRY 7| 000000F0: 33 30 32 20 4C 49 42 45 52 54 59 20 47 52 4F 56 |302 LIBERTY GROV| 00000100: 45 20 52 44 2E 20 52 4F 57 4C 45 54 54 20 54 58 |E RD. ROWLETT TX| 00000110: 2E 20 37 35 30 38 38 00 63 1D 46 00 8F 20 44 4F |. 75088.c.F.. DO| 00000120: 4E 41 54 45 44 20 54 4F 20 53 43 4F 50 45 20 43 |NATED TO SCOPE C| 00000130: 4F 4D 50 55 54 45 52 20 43 4C 55 42 20 20 20 20 |OMPUTER CLUB | 00000140: 20 50 2E 4F 2E 20 42 4F 58 20 33 30 39 35 20 52 | P.O. BOX 3095 R| 00000150: 49 43 48 41 52 44 53 4F 4E 20 54 58 20 20 37 35 |ICHARDSON TX 75| 00000160: 30 38 30 00 7C 1D 50 00 8F 20 53 45 50 54 45 4D |080.|.P.. SEPTEM| 00000170: 42 45 52 20 31 39 2C 20 31 39 38 36 00 C7 1D 5A |BER 19, 1986...Z| 00000180: 00 8F 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |.. THIS PROGRAM | 00000190: 4D 41 59 20 42 45 20 4D 4F 44 49 46 49 45 44 20 |MAY BE MODIFIED | 000001A0: 41 4E 44 20 49 4D 50 52 4F 56 45 44 2E 20 49 46 |AND IMPROVED. IF| 000001B0: 20 50 4F 53 53 49 42 4C 45 20 52 45 54 55 52 4E | POSSIBLE RETURN| 000001C0: 20 41 20 43 4F 50 59 00 EE 1D 64 00 8F 20 20 54 | A COPY...d.. T| 000001D0: 4F 20 4D 45 20 4F 46 20 54 48 45 20 49 4D 50 52 |O ME OF THE IMPR| 000001E0: 4F 56 45 44 20 56 45 52 53 49 4F 4E 2E 2E 00 39 |OVED VERSION...9| 000001F0: 1E 6E 00 8F 20 54 48 49 53 20 50 52 4F 47 52 41 |.n.. THIS PROGRA| 00000200: 4D 20 57 4F 52 4B 53 20 46 4F 52 20 42 4F 54 48 |M WORKS FOR BOTH| 00000210: 20 54 48 45 20 20 20 20 36 34 20 41 4E 44 20 31 | THE 64 AND 1| 00000220: 32 38 20 4D 4F 44 45 53 20 55 53 49 4E 47 20 34 |28 MODES USING 4| 00000230: 30 20 43 4F 4C 55 4D 4E 53 00 83 1E 78 00 8F 20 |0 COLUMNS...x.. | 00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000280: 2A 2A 2A 00 A0 1E 82 00 53 B2 C2 28 32 31 35 29 |***.....S..(215)| 00000290: 3A 43 47 24 20 B2 20 C7 28 32 37 29 AA 22 58 22 |:CG$ . .(27)."X"| 000002A0: 00 D7 1E 8C 00 8B 20 53 20 B2 20 31 32 38 20 A7 |...... S . 128 .| 000002B0: 20 99 22 47 4F 20 54 4F 20 34 30 20 43 4F 4C 55 | ."GO TO 40 COLU| 000002C0: 4D 4E 20 53 43 52 45 45 4E 20 50 4C 45 41 53 45 |MN SCREEN PLEASE| 000002D0: 22 3A 99 20 43 47 24 00 DD 1E 96 00 8F 00 03 1F |":. CG$.........| 000002E0: A0 00 99 20 22 93 9E 11 11 53 45 54 20 59 4F 55 |... "....SET YOU| 000002F0: 52 20 44 49 50 20 53 57 49 54 43 48 45 53 20 54 |R DIP SWITCHES T| 00000300: 4F 3A 22 00 31 1F AA 00 99 22 11 44 49 50 20 53 |O:".1....".DIP S| 00000310: 57 49 54 43 48 20 31 2D 33 20 20 20 20 46 4F 52 |WITCH 1-3 FOR| 00000320: 20 43 4F 4E 44 45 4E 53 45 44 20 50 52 49 4E 54 | CONDENSED PRINT| 00000330: 22 00 62 1F B4 00 99 20 22 11 44 49 50 20 53 57 |".b.... ".DIP SW| 00000340: 49 54 43 48 20 31 2D 36 20 20 20 20 46 4F 52 20 |ITCH 1-6 FOR | 00000350: 31 2F 38 27 20 4C 49 4E 45 20 53 50 41 43 49 4E |1/8' LINE SPACIN| 00000360: 47 22 00 93 1F BE 00 99 20 20 22 11 20 20 20 50 |G"...... ". P| 00000370: 4C 45 41 53 45 20 4D 41 4B 45 20 54 48 45 53 45 |LEASE MAKE THESE| 00000380: 20 53 45 54 54 49 4E 47 53 20 4E 4F 57 2E 2E 2E | SETTINGS NOW...| 00000390: 22 3A 99 00 C0 1F C8 00 99 20 22 11 11 11 11 20 |":....... ".... | 000003A0: 20 20 20 20 20 53 45 54 20 50 52 49 4E 54 45 52 | SET PRINTER| 000003B0: 20 54 4F 20 54 4F 50 20 4F 46 20 50 41 47 45 22 | TO TOP OF PAGE"| 000003C0: 00 E8 1F D2 00 99 20 22 11 20 20 20 20 20 20 50 |...... ". P| 000003D0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO | 000003E0: 43 4F 4E 54 49 4E 55 45 00 07 20 DC 00 8D 31 31 |CONTINUE.. ...11| 000003F0: 35 30 20 3A 20 8F 20 20 20 20 57 41 49 54 20 52 |50 : . WAIT R| 00000400: 4F 55 54 49 4E 45 53 00 46 20 E6 00 99 22 93 11 |OUTINES.F ..."..| 00000410: 11 11 1D 1D 1D 1D 1D 45 4E 54 45 52 20 44 41 54 |.......ENTER DAT| 00000420: 45 20 28 49 45 2E 20 30 31 2D 30 31 2D 38 30 29 |E (IE. 01-01-80)| 00000430: 22 3A 85 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |":."..........."| 00000440: 3B 44 41 54 45 24 00 68 20 F0 00 8B 20 44 41 54 |;DATE$.h ... DAT| 00000450: 45 24 B2 22 22 20 A7 20 44 41 54 45 24 B2 22 2E |E$."" . DATE$.".| 00000460: 2E 2E 2E 2E 2E 2E 2E 22 00 84 20 FA 00 8B 20 C3 |.......".. ... .| 00000470: 28 44 41 54 45 24 29 20 B3 B1 20 38 20 A7 20 89 |(DATE$) .. 8 . .| 00000480: 20 32 33 30 00 B5 20 04 01 86 20 4E 24 28 32 31 | 230.. ... N$(21| 00000490: 32 29 3A 20 8F 20 4C 49 53 54 53 20 55 50 20 54 |2): . LISTS UP T| 000004A0: 4F 20 32 31 30 20 46 49 4C 45 53 20 46 52 4F 4D |O 210 FILES FROM| 000004B0: 20 44 49 53 4B 00 C4 20 0E 01 45 53 43 24 B2 C7 | DISK.. ..ESC$..| 000004C0: 28 32 37 29 00 E6 20 18 01 53 50 24 B2 22 22 3A |(27).. ..SP$."":| 000004D0: 81 20 58 B2 31 A4 32 32 3A 53 50 24 B2 53 50 24 |. X.1.22:SP$.SP$| 000004E0: AA 22 20 22 3A 82 00 F4 20 22 01 9F 20 31 35 2C |." ":... ".. 15,| 000004F0: 38 2C 31 35 00 FE 20 2C 01 9F 20 34 2C 34 00 23 |8,15.. ,.. 4,4.#| 00000500: 21 36 01 99 20 22 11 11 49 4E 53 45 52 54 20 41 |!6.. "..INSERT A| 00000510: 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 20 41 | DISK IN DRIVE A| 00000520: 4E 44 22 00 4D 21 40 01 99 20 22 11 54 48 45 4E |ND".M!@.. ".THEN| 00000530: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2C 22 | PRESS ANY KEY,"| 00000540: 3A 99 22 11 20 20 20 20 20 20 4F 52 22 00 7E 21 |:.". OR".~!| 00000550: 4A 01 99 22 11 50 52 45 53 53 20 27 45 27 20 54 |J..".PRESS 'E' T| 00000560: 4F 20 45 4A 45 43 54 20 50 41 47 45 20 42 45 46 |O EJECT PAGE BEF| 00000570: 4F 52 45 20 50 52 49 4E 54 49 4E 47 2C 22 00 98 |ORE PRINTING,"..| 00000580: 21 54 01 99 22 11 50 52 45 53 53 20 27 51 27 20 |!T..".PRESS 'Q' | 00000590: 54 4F 20 51 55 49 54 22 00 B4 21 5E 01 8D 31 31 |TO QUIT"..!^..11| 000005A0: 35 30 3A 8B 20 41 24 B2 22 51 22 20 A7 20 89 20 |50:. A$."Q" . . | 000005B0: 31 31 31 30 00 BF 21 68 01 99 20 22 93 22 3B 00 |1110..!h.. ".";.| 000005C0: CC 21 72 01 98 31 35 2C 20 22 49 22 00 F2 21 7C |.!r..15, "I"..!|| 000005D0: 01 43 54 B2 30 3A 20 8F 20 43 54 20 49 53 20 54 |.CT.0: . CT IS T| 000005E0: 48 45 20 23 20 4F 46 20 44 49 53 4B 20 46 49 4C |HE # OF DISK FIL| 000005F0: 45 53 00 05 22 86 01 9F 20 32 2C 38 2C 30 2C 22 |ES.."... 2,8,0,"| 00000600: 24 30 3A 2A 22 00 14 22 90 01 A1 23 32 2C 20 41 |$0:*".."...#2, A| 00000610: 24 2C 41 24 00 29 22 9A 01 A1 23 32 2C 20 41 24 |$,A$.)"...#2, A$| 00000620: 2C 41 24 2C 41 24 2C 42 24 00 5B 22 A4 01 41 B2 |,A$,A$,B$.["..A.| 00000630: C6 28 41 24 AA C7 28 30 29 29 AA 32 35 36 AC C6 |.(A$..(0)).256..| 00000640: 28 42 24 AA C7 28 30 29 29 3A 20 8F 20 43 41 4C |(B$..(0)): . CAL| 00000650: 43 20 46 49 4C 45 20 53 49 5A 45 00 69 22 AE 01 |C FILE SIZE.i"..| 00000660: 8B 20 53 54 20 A7 36 34 30 00 73 22 B8 01 4C 24 |. ST .640.s"..L$| 00000670: B2 22 22 00 98 22 C2 01 8B 20 43 54 20 A7 20 4C |."".."... CT . L| 00000680: 24 B2 CA 28 C4 28 41 29 AA 22 20 20 20 22 2C 32 |$..(.(A)." ",2| 00000690: 2C 34 29 3A 89 34 37 30 00 A6 22 CC 01 41 24 B2 |,4):.470.."..A$.| 000006A0: 22 20 20 20 20 22 00 B2 22 D6 01 A1 23 32 2C 20 |" ".."...#2, | 000006B0: 41 24 00 E7 22 E0 01 8B 20 A8 28 41 24 B2 C7 28 |A$.."... .(A$..(| 000006C0: 33 34 29 20 B0 20 41 24 B2 22 42 22 29 20 A7 34 |34) . A$."B") .4| 000006D0: 37 30 3A 20 8F 20 53 45 41 52 43 48 20 46 4F 52 |70: . SEARCH FOR| 000006E0: 20 22 20 4F 52 20 42 00 F0 22 EA 01 89 35 33 30 | " OR B.."...530| 000006F0: 00 0B 23 F4 01 A1 23 32 2C 20 41 24 3A 20 20 8B |..#...#2, A$: .| 00000700: 20 41 24 B2 22 22 20 A7 35 36 30 00 25 23 FE 01 | A$."" .560.%#..| 00000710: 8B 20 28 C6 28 41 24 29 AF 31 32 37 29 B3 33 32 |. (.(A$).127).32| 00000720: 20 A7 35 30 30 00 55 23 08 02 8B 20 C6 28 41 24 | .500.U#... .(A$| 00000730: 29 20 B3 20 31 32 32 20 AF 20 C6 28 41 24 29 20 |) . 122 . .(A$) | 00000740: B1 20 39 36 20 A7 20 41 24 B2 C7 28 C6 28 41 24 |. 96 . A$..(.(A$| 00000750: 29 AB 33 32 29 00 87 23 12 02 8B 20 C6 28 41 24 |).32)..#... .(A$| 00000760: 29 20 B3 20 32 31 39 20 AF 20 C6 28 41 24 29 20 |) . 219 . .(A$) | 00000770: B1 20 31 39 32 20 A7 20 41 24 B2 C7 28 C6 28 41 |. 192 . A$..(.(A| 00000780: 24 29 AB 31 32 38 29 00 9E 23 1C 02 8B 20 41 24 |$).128)..#... A$| 00000790: B2 C7 28 33 34 29 20 A7 20 41 24 B2 22 22 00 C7 |..(34) . A$.""..| 000007A0: 23 26 02 4C 24 B2 4C 24 AA 41 24 3A 20 89 35 30 |#&.L$.L$.A$: .50| 000007B0: 30 3A 20 8F 20 46 4F 52 4D 20 4E 45 58 54 20 46 |0: . FORM NEXT F| 000007C0: 49 4C 45 4E 41 4D 45 00 FC 23 30 02 4C 24 B2 C8 |ILENAME..#0.L$..| 000007D0: 28 4C 24 2C 32 32 29 3A 20 8F 20 54 52 55 4E 43 |(L$,22): . TRUNC| 000007E0: 41 54 45 20 54 4F 20 41 54 20 4D 4F 53 54 20 32 |ATE TO AT MOST 2| 000007F0: 35 20 43 48 41 52 41 43 54 45 52 53 00 15 24 3A |5 CHARACTERS..$:| 00000800: 02 8B 20 43 54 B2 30 20 A7 20 4C 24 B2 C8 28 4C |.. CT.0 . L$..(L| 00000810: 24 2C 31 39 29 00 41 24 44 02 4E 24 28 43 54 29 |$,19).A$D.N$(CT)| 00000820: B2 4C 24 3A 20 8F 20 50 55 54 20 46 49 4C 45 4E |.L$: . PUT FILEN| 00000830: 41 4D 45 20 49 4E 20 4E 41 4D 45 20 41 52 52 41 |AME IN NAME ARRA| 00000840: 59 00 64 24 4E 02 8B 20 43 54 B2 30 20 A7 20 99 |Y.d$N.. CT.0 . .| 00000850: 20 4C 24 3A 20 89 36 32 30 3A 20 8F 20 44 49 53 | L$: .620: . DIS| 00000860: 4B 20 49 44 00 96 24 58 02 8B 20 CA 28 4C 24 2C |K ID..$X.. .(L$,| 00000870: 35 2C 36 29 B2 22 42 4C 4F 43 4B 53 22 20 A7 20 |5,6)."BLOCKS" . | 00000880: 4C 24 B2 C8 28 4C 24 2C 34 29 AA 22 20 22 AA CA |L$..(L$,4)." "..| 00000890: 28 4C 24 2C 35 29 00 BA 24 62 02 99 20 4C 24 3A |(L$,5)..$b.. L$:| 000008A0: 20 8F 20 4C 49 53 54 20 46 49 4C 45 4E 41 4D 45 | . LIST FILENAME| 000008B0: 20 4F 4E 20 53 43 52 45 45 4E 00 C6 24 6C 02 43 | ON SCREEN..$l.C| 000008C0: 54 B2 43 54 AA 31 00 CF 24 76 02 89 34 31 30 00 |T.CT.1..$v..410.| 000008D0: FB 24 80 02 43 54 B2 43 54 AB 31 3A 20 8F 20 41 |.$..CT.CT.1: . A| 000008E0: 44 44 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 54 |DD FREE BLOCKS T| 000008F0: 4F 20 50 52 49 4E 54 20 4F 55 54 00 2D 25 8A 02 |O PRINT OUT.-%..| 00000900: 4E 24 28 30 29 B2 4E 24 28 30 29 AA 22 2C 20 20 |N$(0).N$(0).", | 00000910: 22 AA C8 28 4E 24 28 43 54 29 2C 34 29 AA 22 20 |"..(N$(CT),4)." | 00000920: 22 AA CA 28 4E 24 28 43 54 29 2C 35 29 00 5F 25 |"..(N$(CT),5)._%| 00000930: 94 02 43 54 B2 43 54 AB 31 3A 54 46 B2 43 54 3A |..CT.CT.1:TF.CT:| 00000940: 99 3A 99 20 43 54 3B 22 20 20 46 49 4C 45 53 20 |.:. CT;" FILES | 00000950: 52 45 41 44 20 46 52 4F 4D 20 44 49 53 4B 22 00 |READ FROM DISK".| 00000960: 7F 25 9E 02 59 B2 43 54 AA 31 3A 81 58 B2 59 A4 |.%..Y.CT.1:.X.Y.| 00000970: 32 31 30 3A 4E 24 28 58 29 B2 53 50 24 3A 82 00 |210:N$(X).SP$:..| 00000980: 8E 25 A8 02 43 32 B2 B5 28 43 54 AD 34 29 00 B5 |.%..C2..(CT.4)..| 00000990: 25 B2 02 8B 20 28 43 32 20 AC 20 34 29 20 B3 B1 |%... (C2 . 4) ..| 000009A0: 20 43 54 20 A7 20 43 32 B2 43 32 AA 31 3A 43 54 | CT . C2.C2.1:CT| 000009B0: B2 43 32 AC 34 00 C9 25 BC 02 43 33 B2 43 32 AC |.C2.4..%..C3.C2.| 000009C0: 32 3A 43 34 B2 43 32 AC 33 00 D1 25 C6 02 A0 20 |2:C4.C2.3..%... | 000009D0: 32 00 EC 25 D0 02 8B 20 54 46 20 B1 20 31 34 34 |2..%... TF . 144| 000009E0: 20 A7 20 98 34 2C C7 28 31 32 29 3B 00 17 26 DA | . .4,.(12);..&.| 000009F0: 02 8F 2A 2A 2A 20 53 54 41 52 20 53 4C 2D 31 30 |..*** STAR SL-10| 00000A00: 20 50 52 49 4E 54 45 52 20 43 4F 44 45 53 20 2A | PRINTER CODES *| 00000A10: 2A 2A 2A 2A 2A 2A 2A 00 1D 26 E4 02 20 00 23 26 |*******..&.. .#&| 00000A20: EE 02 20 00 4B 26 F8 02 45 58 24 B2 C7 28 31 34 |.. .K&..EX$..(14| 00000A30: 29 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 |) :. | 00000A40: 45 58 50 41 4E 44 45 44 20 4F 4E 00 74 26 02 03 |EXPANDED ON.t&..| 00000A50: 43 58 24 B2 C7 28 31 35 29 20 20 20 20 20 20 20 |CX$..(15) | 00000A60: 20 20 20 20 20 3A 8F 20 45 58 50 41 4E 44 45 44 | :. EXPANDED| 00000A70: 20 4F 46 46 00 7A 26 0C 03 20 00 8E 26 16 03 4C | OFF.z&.. ..&..L| 00000A80: 53 24 B2 C7 28 32 37 29 AA C7 28 34 38 29 00 B1 |S$..(27)..(48)..| 00000A90: 26 20 03 54 42 24 B2 22 22 3A 81 20 58 B2 31 A4 |& .TB$."":. X.1.| 00000AA0: 20 39 35 3A 54 42 24 B2 54 42 24 AA 22 2D 22 3A | 95:TB$.TB$."-":| 00000AB0: 82 00 BC 26 2A 03 8D 20 31 32 33 30 00 E3 26 34 |...&*.. 1230..&4| 00000AC0: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AE0: 2A 2A 2A 00 E9 26 3E 03 20 00 F5 26 48 03 98 34 |***..&>. ..&H..4| 00000AF0: 2C 4C 53 24 3B 00 00 27 52 03 98 34 2C 54 42 24 |,LS$;..'R..4,TB$| 00000B00: 00 0B 27 5C 03 98 34 2C 42 4C 24 00 1C 27 66 03 |..'\..4,BL$..'f.| 00000B10: 98 34 2C 22 21 20 22 3B 45 58 24 3B 00 37 27 70 |.4,"! ";EX$;.7'p| 00000B20: 03 98 34 2C A6 33 29 C8 28 4E 24 28 30 29 2C 33 |..4,.3).(N$(0),3| 00000B30: 39 29 3B A6 34 29 3B 00 46 27 7A 03 98 34 2C 43 |9);.4);.F'z..4,C| 00000B40: 58 24 3B 22 21 22 00 58 27 84 03 8D 20 31 32 37 |X$;"!".X'... 127| 00000B50: 30 3A 98 34 2C 42 4C 24 00 69 27 8E 03 81 20 58 |0:.4,BL$.i'... X| 00000B60: B2 31 20 A4 20 43 54 AD 34 00 8D 27 98 03 50 4C |.1 . CT.4..'..PL| 00000B70: 24 B2 22 21 20 22 AA 4E 24 28 58 29 AA 22 20 22 |$."! ".N$(X)." "| 00000B80: AA 4E 24 28 58 AA 43 32 29 AA 22 20 22 00 B4 27 |.N$(X.C2)." "..'| 00000B90: A2 03 50 4C 24 B2 50 4C 24 AA 4E 24 28 58 AA 43 |..PL$.PL$.N$(X.C| 00000BA0: 33 29 AA 22 20 22 AA 4E 24 28 58 AA 43 34 29 AA |3)." ".N$(X.C4).| 00000BB0: 22 20 21 22 00 BF 27 AC 03 98 34 2C 50 4C 24 00 |" !"..'...4,PL$.| 00000BC0: CA 27 B6 03 50 4C 24 B2 22 22 00 D0 27 C0 03 82 |.'..PL$.""..'...| 00000BD0: 00 1B 28 CA 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(... *********| 00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 27 28 D4 03 |***********.'(..| 00000C20: 43 54 B2 43 54 AA 31 00 3C 28 DE 03 81 20 58 B2 |CT.CT.1.<(... X.| 00000C30: 43 54 20 A4 20 31 34 34 20 A9 20 34 00 5F 28 E8 |CT . 144 . 4._(.| 00000C40: 03 50 4C 24 B2 22 21 20 22 AA 4E 24 28 58 29 AA |.PL$."! ".N$(X).| 00000C50: 22 20 22 AA 4E 24 28 58 AA 31 29 AA 22 20 22 00 |" ".N$(X.1)." ".| 00000C60: 84 28 F2 03 50 4C 24 B2 50 4C 24 AA 4E 24 28 58 |.(..PL$.PL$.N$(X| 00000C70: AA 32 29 AA 22 20 22 AA 4E 24 28 58 AA 33 29 AA |.2)." ".N$(X.3).| 00000C80: 22 20 21 22 00 8F 28 FC 03 98 34 2C 50 4C 24 00 |" !"..(...4,PL$.| 00000C90: 95 28 06 04 82 00 A0 28 10 04 98 34 2C 42 4C 24 |.(.....(...4,BL$| 00000CA0: 00 AB 28 1A 04 98 34 2C 54 42 24 00 C5 28 24 04 |..(...4,TB$..($.| 00000CB0: 81 20 58 B2 30 A4 32 31 32 3A 4E 24 28 58 29 B2 |. X.0.212:N$(X).| 00000CC0: 53 50 24 3A 82 00 D4 28 2E 04 98 34 3A 98 34 3A |SP$:...(...4:.4:| 00000CD0: 99 22 93 22 00 F2 28 38 04 58 58 B2 31 3A 81 20 |."."..(8.XX.1:. | 00000CE0: 58 B2 31 A4 32 31 32 3A 4E 24 28 58 29 B2 22 22 |X.1.212:N$(X).""| 00000CF0: 3A 82 00 0D 29 42 04 8B 20 54 46 20 B1 20 31 34 |:...)B.. TF . 14| 00000D00: 34 20 A7 20 98 34 2C C7 28 31 32 29 3B 00 17 29 |4 . .4,.(12);..)| 00000D10: 4C 04 89 20 33 31 30 00 25 29 56 04 98 34 2C C7 |L.. 310.%)V..4,.| 00000D20: 28 31 32 29 3B 00 39 29 60 04 98 34 2C C7 28 32 |(12);.9)`..4,.(2| 00000D30: 37 29 22 40 22 3B 3A A0 34 00 3F 29 6A 04 80 00 |7)"@";:.4.?)j...| 00000D40: 89 29 74 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.)t.. **********| 00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AF 29 7E 04 8B 20 |*********..)~.. | 00000D90: C2 28 36 35 35 33 34 29 20 B2 20 32 33 20 A7 20 |.(65534) . 23 . | 00000DA0: 97 20 32 30 38 2C 30 3A 92 20 32 30 38 2C 31 00 |. 208,0:. 208,1.| 00000DB0: D5 29 88 04 8B 20 C2 28 36 35 35 33 34 29 20 B2 |.)... .(65534) .| 00000DC0: 20 37 32 20 A7 20 97 20 31 39 38 2C 30 3A 92 20 | 72 . . 198,0:. | 00000DD0: 31 39 38 2C 31 00 FA 29 92 04 A1 20 41 24 3A 8B |198,1..)... A$:.| 00000DE0: 20 41 24 B2 22 45 22 20 A7 20 98 34 2C C7 28 31 | A$."E" . .4,.(1| 00000DF0: 32 29 3B 3A 89 20 31 31 35 30 00 00 2A 9C 04 8E |2);:. 1150..*...| 00000E00: 00 4B 2A A6 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.K*... *********| 00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6E 2A B0 04 |***********.n*..| 00000E50: 90 3A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:. ************| 00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 |**************..| 00000E70: 2A BA 04 91 20 8D 20 31 36 30 2C 37 34 30 2C 37 |*... . 160,740,7| 00000E80: 35 30 2C 37 36 30 2C 37 37 30 2C 37 38 30 2C 37 |50,760,770,780,7| 00000E90: 39 30 00 B8 2A C4 04 8F 20 2A 2A 2A 2A 2A 2A 2A |90..*... *******| 00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 2A CE 04 42 4C 24 |********..*..BL$| 00000EC0: B2 22 21 20 20 20 20 22 AA 44 41 54 45 24 3A 81 |."! ".DATE$:.| 00000ED0: 20 58 B2 31 A4 36 38 3A 42 4C 24 B2 42 4C 24 AA | X.1.68:BL$.BL$.| 00000EE0: 22 20 22 3A 82 3A 43 54 24 B2 C4 28 54 46 29 00 |" ":.:CT$..(TF).| 00000EF0: 10 2B D8 04 43 54 24 B2 C9 28 43 54 24 2C C3 28 |.+..CT$..(CT$,.(| 00000F00: 43 54 24 29 AB 31 29 AA 22 20 46 49 4C 45 53 22 |CT$).1)." FILES"| 00000F10: 00 50 2B E2 04 42 4C 24 B2 42 4C 24 AA 43 54 24 |.P+..BL$.BL$.CT$| 00000F20: 3A 81 20 58 B2 31 20 A4 20 28 39 34 AB C3 28 42 |:. X.1 . (94..(B| 00000F30: 4C 24 29 29 3A 42 4C 24 B2 42 4C 24 AA 22 20 22 |L$)):BL$.BL$." "| 00000F40: 3A 82 3A 42 4C 24 B2 42 4C 24 AA 22 21 22 3A 8E |:.:BL$.BL$."!":.| 00000F50: 00 76 2B EC 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.v+... *********| 00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F70: 2A 2A 2A 2A 2A 2A 00 A7 2B F6 04 42 4C 24 B2 22 |******..+..BL$."| 00000F80: 21 22 3A 81 58 B2 31 A4 20 39 33 3A 42 4C 24 B2 |!":.X.1. 93:BL$.| 00000F90: 42 4C 24 AA 22 20 22 3A 82 3A 42 4C 24 B2 42 4C |BL$." ":.:BL$.BL| 00000FA0: 24 AA 22 21 22 3A 8E 00 00 00 |$."!":.... |
..#.... SAVE"@0:DISK COVER.SL V3",8.=...
. REVISED 03-08-87.`.... PROG NAME "D
ISK COVER.SL" V3...(.. COPYWRITE BY BOB
CURRY 09-19-86.S.2.. THIS PROGRAM IS PUB
LIC DOMAIN AND IS NOT TO BE SOLD OR USED
FOR PROFIT...<.. WRITTEN BY BOB CURRY 7
302 LIBERTY GROVE RD. ROWLETT TX. 75088.
C.F.. DONATED TO SCOPE COMPUTER CLUB
P.O. BOX 3095 RICHARDSON TX 75080.|.P.
. SEPTEMBER 19, 1986.G.Z.. THIS PROGRAM
MAY BE MODIFIED AND IMPROVED. IF POSSIBL
E RETURN A COPY...D.. TO ME OF THE IMPR
OVED VERSION...9.N.. THIS PROGRAM WORKS
FOR BOTH THE 64 AND 128 MODES USING 4
0 COLUMNS...X.. ************************
****************************************
***. ...S.B(215):CG$ . G(27)."X".W.... S
. 128 . ."GO TO 40 COLUMN SCREEN PLEASE
":. CG$......... .. "....SET YOUR DIP SW
ITCHES TO:".1....".DIP SWITCH 1-3 FOR
CONDENSED PRINT".B.... ".DIP SWITCH 1-6
FOR 1/8' LINE SPACING"...... ". P
LEASE MAKE THESE SETTINGS NOW...":....H.
. ".... SET PRINTER TO TOP OF PAGE"
...R.. ". PRESS ANY KEY TO CONTINUE
.. ...1150 : . WAIT ROUTINES.F ..."..
.......ENTER DATE (IE. 01-01-80)":."....
.......";DATE$.H ... DATE$."" . DATE$.".
.......".. ... C(DATE$) .. 8 . . 230.. .
.. N$(212): . LISTS UP TO 210 FILES FROM
DISK.D ..ESC$.G(27).. ..SP$."":. X.1.22
:SP$.SP$." ":... ".. 15,8,15.. ,.. 4,4.#
!6.. "..INSERT A DISK IN DRIVE AND".M!@.
. ".THEN PRESS ANY KEY,":.". OR".~!
J..".PRESS 'E' TO EJECT PAGE BEFORE PRIN
TING,"..!T..".PRESS 'Q' TO QUIT"..!^..11
50:. A$."Q" . . 1110..!H.. ".";.L!R..15,
"I"..!|.CT.0: . CT IS THE # OF DISK FIL
ES.."... 2,8,0,"$0:*".."...#2, A$,A$.)".
..#2, A$,A$,A$,B$.["..A.F(A$.G(0)).256.F
(B$.G(0)): . CALC FILE SIZE.I"... ST .64
0.S"..L$."".."B.. CT . L$.J(D(A)." ",2
,4):.470.."L.A$." ".."V..#2, A$.."...
.(A$.G(34) . A$."B") .470: . SEARCH FOR
" OR B.."...530..#...#2, A$: . A$."" .
560.%#... (F(A$).127).32 .500.U#... F(A$
) . 122 . F(A$) . 96 . A$.G(F(A$).32)..#
... F(A$) . 219 . F(A$) . 192 . A$.G(F(A
$).128)..#... A$.G(34) . A$."".G#&.L$.L$
.A$: .500: . FORM NEXT FILENAME..#0.L$.H
(L$,22): . TRUNCATE TO AT MOST 25 CHARAC
TERS..$:.. CT.0 . L$.H(L$,19).A$D.N$(CT)
.L$: . PUT FILENAME IN NAME ARRAY.D$N..
CT.0 . . L$: .620: . DISK ID..$X.. J(L$,
5,6)."BLOCKS" . L$.H(L$,4)." ".J(L$,5)..
$B.. L$: . LIST FILENAME ON SCREEN.F$L.C
T.CT.1.O$V..410..$..CT.CT.1: . ADD FREE
BLOCKS TO PRINT OUT.-%..N$(0).N$(0).",
".H(N$(CT),4)." ".J(N$(CT),5)._%..CT.CT.
1:TF.CT:.:. CT;" FILES READ FROM DISK".
%..Y.CT.1:.X.Y.210:N$(X).SP$:...%..C2..
(CT.4)..%... (C2 . 4) .. CT . C2.C2.1:CT
.C2.4.I%..C3.C2.2:C4.C2.3.Q%F. 2..%P..
TF . 144 . .4,G(12);..&Z..*** STAR SL-10
PRINTER CODES ********..&.. .#&.. .K&..
EX$.G(14) :. EXPANDED ON.T&..
CX$.G(15) :. EXPANDED OFF.Z&.
. ..&..LS$.G(27).G(48)..& .TB$."":. X.1.
95:TB$.TB$."-":...&*.. 1230..&4.. *****
***************************..&>. ..&H..4
,LS$;..'R..4,TB$..'\..4,BL$..'F..4,"! ";
EX$;.7'P..4,.3)H(N$(0),39);.4);.F'Z..4,C
X$;"!".X'... 1270:.4,BL$.I'... X.1 . CT.
4..'..PL$."! ".N$(X)." ".N$(X.C2)." "..'
..PL$.PL$.N$(X.C3)." ".N$(X.C4)." !"..'.
..4,PL$.J'..PL$."".P'.....(J.. *********
****************************************
*******************.'(T.CT.CT.1.<(... X.
CT . 144 . 4._(..PL$."! ".N$(X)." ".N$(X
.1)." "..(..PL$.PL$.N$(X.2)." ".N$(X.3).
" !"..(...4,PL$..(.... (...4,BL$..(...4,
TB$.E($.. X.0.212:N$(X).SP$:..T(...4:.4:
."."..(8.XX.1:. X.1.212:N$(X)."":...)B..
TF . 144 . .4,G(12);..)L.. 310.%)V..4,G
(12);.9)`..4,G(27)"@";: 4.?)J....)T.. **
****************************************
*************************..)~.. B(65534)
. 23 . . 208,0:. 208,1.U)... B(65534) .
72 . . 198,0:. 198,1..)... A$:. A$."E"
. .4,G(12);:. 1150..*....K*... *********
****************************************
*******************.N*...:. ************
**************..*... . 160,740,750,760,7
70,780,790..*D.. ***********************
********..*N.BL$."! ".DATE$:. X.1.68:
BL$.BL$." ":.:CT$.D(TF)..+X.CT$.I(CT$,C(
CT$).1)." FILES".P+..BL$.BL$.CT$:. X.1 .
(94.C(BL$)):BL$.BL$." ":.:BL$.BL$."!":.
.V+... *******************************..
+..BL$."!":.X.1. 93:BL$.BL$." ":.:BL$.BL
$."!":....
> CLICK IMAGE PREVIEW FOR FULL MODAL