DISK PRINTER.C
FILE INFORMATION
FILENAME(S): DISK PRINTER.C
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 4 disk(s)
FILE HASH
045c9cfe6894dab36749fbd02e8b7098a17c4e1606dfc033af8896fb69a190f5
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | DISK PRINTER.C | PRG | Treasure Chest - Plattfuss | 31 | 0 | DOWNLOAD FILE |
| A NWENDER | DISK PRINTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | DISK PRINTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 1 | DOWNLOAD FILE |
| TPUG APRIL 84 C | DISK PRINTER.C | PRG | Sailor, Ganheden | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 05 00 99 22 93 22 00 2C 08 0A 00 99 |.......".".,....| 00000010: A3 39 29 22 12 44 49 53 4B 20 44 49 52 45 43 54 |.9)".DISK DIRECT| 00000020: 4F 52 59 20 50 52 49 4E 54 45 52 22 00 4E 08 0F |ORY PRINTER".N..| 00000030: 00 99 A3 39 29 22 12 20 20 20 20 20 42 59 20 42 |...9)". BY B| 00000040: 4F 42 20 53 57 49 46 54 20 20 20 20 20 22 00 71 |OB SWIFT ".q| 00000050: 08 14 00 99 22 11 11 49 4E 53 45 52 54 20 44 49 |...."..INSERT DI| 00000060: 53 4B 20 41 4E 44 20 50 52 45 53 53 20 27 50 27 |SK AND PRESS 'P'| 00000070: 22 00 95 08 1E 00 99 22 4F 52 20 50 52 45 53 53 |"......"OR PRESS| 00000080: 20 27 51 27 20 54 4F 20 45 4E 44 20 50 52 4F 47 | 'Q' TO END PROG| 00000090: 52 41 4D 2E 22 00 B1 08 28 00 A1 41 24 3A 8B 41 |RAM."...(..A$:.A| 000000A0: 24 B3 B1 22 50 22 AF 41 24 B3 B1 22 51 22 A7 34 |$.."P".A$.."Q".4| 000000B0: 30 00 DC 08 32 00 99 22 93 11 11 1D 1D 1D 1D 1D |0...2.."........| 000000C0: 1D 1D 1D 12 50 52 49 4E 54 49 4E 47 20 44 49 53 |....PRINTING DIS| 000000D0: 4B 20 44 49 52 45 43 54 4F 52 59 22 00 F1 08 3C |K DIRECTORY"...<| 000000E0: 00 8B 41 24 B2 22 50 22 A7 8D 31 30 30 30 3A 89 |..A$."P"..1000:.| 000000F0: 35 00 FD 08 46 00 99 22 93 22 3B 3A 80 00 11 09 |5...F..".";:....| 00000100: E8 03 9F 31 2C 38 2C 31 35 2C 22 49 30 22 3A A0 |...1,8,15,"I0":.| 00000110: 31 00 21 09 F2 03 9F 31 2C 38 2C 30 2C 22 24 30 |1.!....1,8,0,"$0| 00000120: 22 00 2D 09 FC 03 4E 24 B2 C7 28 30 29 00 3B 09 |".-...N$..(0).;.| 00000130: 06 04 A1 23 31 2C 41 24 2C 41 24 00 7A 09 07 04 |...#1,A$,A$.z...| 00000140: A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 33 34 |.#1,A$:.A$...(34| 00000150: 29 A7 31 30 33 31 3A 8F 20 53 54 52 49 50 20 4F |).1031:. STRIP O| 00000160: 46 46 20 43 48 41 52 41 43 54 45 52 53 20 55 4E |FF CHARACTERS UN| 00000170: 54 49 4C 20 51 55 4F 54 45 53 00 93 09 08 04 9F |TIL QUOTES......| 00000180: 34 2C 34 3A 98 34 2C 22 1B 40 1B 4D 12 1B 45 1B |4,4:.4,".@.M..E.| 00000190: 0E 22 3B 00 D9 09 09 04 8F 20 53 45 54 20 4C 48 |.";...... SET LH| 000001A0: 20 4D 41 52 47 49 4E 2C 20 45 4D 50 48 41 53 49 | MARGIN, EMPHASI| 000001B0: 5A 45 44 20 41 4E 44 20 44 4F 55 42 4C 45 20 57 |ZED AND DOUBLE W| 000001C0: 49 44 45 20 43 48 41 52 41 43 54 45 52 53 20 4F |IDE CHARACTERS O| 000001D0: 4E 20 50 52 49 4E 54 45 52 00 0F 0A 0A 04 A1 23 |N PRINTER......#| 000001E0: 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 33 34 29 A7 |1,A$:.A$...(34).| 000001F0: 98 34 2C 41 24 3B 3A 89 31 30 33 34 3A 8F 20 50 |.4,A$;:.1034:. P| 00000200: 52 49 4E 54 20 54 49 54 4C 45 20 4F 4E 4C 59 00 |RINT TITLE ONLY.| 00000210: 47 0A 0B 04 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 |G....#1,A$:.A$..| 00000220: 22 22 A7 31 30 33 35 3A 8F 20 44 49 53 52 45 47 |"".1035:. DISREG| 00000230: 41 52 44 20 52 45 4D 41 49 4E 44 45 52 20 4F 46 |ARD REMAINDER OF| 00000240: 20 48 45 41 44 45 52 00 71 0A 0C 04 98 34 2C 22 | HEADER.q....4,"| 00000250: 20 22 3A 98 34 2C 22 20 22 3A 8F 20 50 52 49 4E | ":.4," ":. PRIN| 00000260: 54 20 54 57 4F 20 42 4C 41 4E 4B 20 4C 49 4E 45 |T TWO BLANK LINE| 00000270: 53 00 99 0A 10 04 A1 23 31 2C 41 24 2C 41 24 3A |S......#1,A$,A$:| 00000280: 8B 41 24 B2 22 22 A7 A0 31 3A 81 49 B2 31 A4 33 |.A$.""..1:.I.1.3| 00000290: 3A 98 34 2C 22 20 22 3A 82 00 D1 0A 11 04 8B 41 |:.4," ":.......A| 000002A0: 24 B2 22 22 A7 98 34 2C 22 1B 40 22 3A A0 34 3A |$.""..4,".@":.4:| 000002B0: 8E 3A 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 50 |.:. INITIALIZE P| 000002C0: 52 49 4E 54 45 52 20 43 4F 4E 44 49 54 49 4F 4E |RINTER CONDITION| 000002D0: 53 00 EE 0A 1A 04 A1 23 31 2C 41 24 2C 42 24 20 |S......#1,A$,B$ | 000002E0: 3A 8F 20 23 20 4F 46 20 42 4C 4F 43 4B 53 00 0C |:. # OF BLOCKS..| 000002F0: 0B 24 04 98 34 2C C6 28 41 24 AA 4E 24 29 AA C6 |.$..4,.(A$.N$)..| 00000300: 28 42 24 AA 4E 24 29 AC 32 35 36 3B 00 2B 0B 2E |(B$.N$).256;.+..| 00000310: 04 A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 98 |..#1,A$:.A$.""..| 00000320: 34 2C 22 20 22 3A 89 31 30 34 30 00 3C 0B 38 04 |4," ":.1040.<.8.| 00000330: 98 34 2C 41 24 3B 3A 89 31 30 37 30 00 62 0B 4C |.4,A$;:.1070.b.L| 00000340: 04 8F 12 3A 20 20 20 20 20 20 20 20 20 20 20 20 |...: | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 3A 00 88 0B 4D 04 8F 12 3A 20 20 20 20 44 49 | :...M...: DI| 00000370: 53 4B 20 44 49 52 45 43 54 4F 52 59 20 50 52 49 |SK DIRECTORY PRI| 00000380: 4E 54 45 52 20 20 20 3A 00 AE 0B 4E 04 8F 12 3A |NTER :...N...:| 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 | BY| 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 D4 | :..| 000003B0: 0B 4F 04 8F 12 3A 20 20 20 20 20 20 20 20 20 20 |.O...: | 000003C0: 42 4F 42 20 53 57 49 46 54 20 20 20 20 20 20 20 |BOB SWIFT | 000003D0: 20 20 20 3A 00 FA 0B 50 04 8F 12 3A 20 20 20 20 | :...P...: | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 3A 00 20 0C 51 04 8F | :. .Q..| 00000400: 12 3A 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |.: THIS PROGRA| 00000410: 4D 20 57 41 53 20 57 52 49 54 54 45 4E 20 20 3A |M WAS WRITTEN :| 00000420: 00 46 0C 52 04 8F 12 3A 20 20 20 54 4F 20 52 55 |.F.R...: TO RU| 00000430: 4E 20 57 49 54 48 20 41 20 43 4F 4D 4D 4F 44 4F |N WITH A COMMODO| 00000440: 52 45 20 20 20 3A 00 6C 0C 53 04 8F 12 3A 20 20 |RE :.l.S...: | 00000450: 20 36 34 20 43 4F 4D 50 55 54 45 52 2C 20 41 20 | 64 COMPUTER, A | 00000460: 47 45 4D 49 4E 49 2D 31 30 58 20 3A 00 92 0C 54 |GEMINI-10X :...T| 00000470: 04 8F 12 3A 20 20 20 50 52 49 4E 54 45 52 2C 20 |...: PRINTER, | 00000480: 41 4E 44 20 41 20 31 35 34 31 20 44 49 53 4B 20 |AND A 1541 DISK | 00000490: 20 3A 00 B8 0C 55 04 8F 12 3A 20 20 20 44 52 49 | :...U...: DRI| 000004A0: 56 45 2E 20 59 4F 55 52 20 53 59 53 54 45 4D 20 |VE. YOUR SYSTEM | 000004B0: 4D 41 59 20 20 20 20 3A 00 DE 0C 56 04 8F 12 3A |MAY :...V...:| 000004C0: 20 20 20 56 41 52 59 20 41 4E 44 20 57 49 4C 4C | VARY AND WILL| 000004D0: 20 50 52 4F 42 41 42 4C 59 20 20 20 20 3A 00 04 | PROBABLY :..| 000004E0: 0D 57 04 8F 12 3A 20 20 20 52 45 51 55 49 52 45 |.W...: REQUIRE| 000004F0: 20 53 4F 4D 45 20 43 48 41 4E 47 45 53 20 54 4F | SOME CHANGES TO| 00000500: 20 20 20 3A 00 2A 0D 58 04 8F 12 3A 20 20 20 54 | :.*.X...: T| 00000510: 48 45 20 50 52 49 4E 54 45 52 20 43 4F 44 45 53 |HE PRINTER CODES| 00000520: 2E 20 54 48 45 53 45 20 20 3A 00 50 0D 59 04 8F |. THESE :.P.Y..| 00000530: 12 3A 20 20 20 53 48 4F 55 4C 44 20 42 45 20 45 |.: SHOULD BE E| 00000540: 41 53 59 20 54 4F 20 46 49 4E 44 2E 20 20 20 3A |ASY TO FIND. :| 00000550: 00 76 0D 5A 04 8F 12 3A 20 20 20 20 20 20 20 20 |.v.Z...: | 00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000570: 20 20 20 20 20 3A 00 9C 0D 5B 04 8F 12 3A 20 20 | :...[...: | 00000580: 20 49 20 48 4F 50 45 20 54 48 41 54 20 59 4F 55 | I HOPE THAT YOU| 00000590: 20 46 49 4E 44 20 54 48 49 53 20 3A 00 C2 0D 5C | FIND THIS :...\| 000005A0: 04 8F 12 3A 20 20 20 50 52 4F 47 52 41 4D 20 54 |...: PROGRAM T| 000005B0: 4F 20 42 45 20 41 53 20 55 53 45 46 55 4C 20 20 |O BE AS USEFUL | 000005C0: 20 3A 00 E8 0D 5D 04 8F 12 3A 20 20 20 46 4F 52 | :...]...: FOR| 000005D0: 20 44 49 52 45 43 54 4F 52 59 20 48 41 52 44 20 | DIRECTORY HARD | 000005E0: 43 4F 50 49 45 53 20 3A 00 0E 0E 5E 04 8F 12 3A |COPIES :...^...:| 000005F0: 20 20 20 41 53 20 49 20 48 41 56 45 2E 20 20 20 | AS I HAVE. | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 34 | :.4| 00000610: 0E 5F 04 8F 12 3A 20 20 20 20 20 20 20 20 20 20 |._...: | 00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000630: 20 20 20 3A 00 5A 0E 60 04 8F 12 3A 20 20 20 48 | :.Z.`...: H| 00000640: 41 50 50 59 20 43 4F 4D 50 55 54 49 4E 47 21 20 |APPY COMPUTING! | 00000650: 20 20 20 20 20 20 20 20 20 3A 00 80 0E 61 04 8F | :...a..| 00000660: 12 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.: | 00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000680: 00 A6 0E 62 04 8F 12 3A 20 20 20 20 20 20 20 20 |...b...: | 00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006A0: 20 20 20 20 20 3A 00 00 00 | :... |
.......".".,.....9)".DISK DIRECTORY PRIN
TER".N.....9)". BY BOB SWIFT ".Q
...."..INSERT DISK AND PRESS 'P'"......"
OR PRESS 'Q' TO END PROGRAM."...(..A$:.A
$.."P".A$.."Q".40...2.."............PRIN
TING DISK DIRECTORY"...<..A$."P"..1000:.
5...F..".";:.......1,8,15,"I0": 1.!....1
,8,0,"$0".-...N$.G(0).;....#1,A$,A$.Z...
.#1,A$:.A$..G(34).1031:. STRIP OFF CHARA
CTERS UNTIL QUOTES......4,4:.4,".@.M..E.
.";.Y.... SET LH MARGIN, EMPHASIZED AND
DOUBLE WIDE CHARACTERS ON PRINTER......#
1,A$:.A$..G(34)..4,A$;:.1034:. PRINT TIT
LE ONLY.G....#1,A$:.A$.."".1035:. DISREG
ARD REMAINDER OF HEADER.Q....4," ":.4,"
":. PRINT TWO BLANK LINES......#1,A$,A$:
.A$."". 1:.I.1.3:.4," ":..Q....A$.""..4,
".@": 4:.:. INITIALIZE PRINTER CONDITION
S......#1,A$,B$ :. # OF BLOCKS...$..4,F(
A$.N$).F(B$.N$).256;.+....#1,A$:.A$.""..
4," ":.1040.<.8..4,A$;:.1070.B.L...:
:...M...: DI
SK DIRECTORY PRINTER :...N...:
BY :.T.O...:
BOB SWIFT :...P...:
:. .Q...: THIS PROGRA
M WAS WRITTEN :.F.R...: TO RUN WITH A
COMMODORE :.L.S...: 64 COMPUTER, A
GEMINI-10X :...T...: PRINTER, AND A 15
41 DISK :...U...: DRIVE. YOUR SYSTEM
MAY :...V...: VARY AND WILL PROBABL
Y :...W...: REQUIRE SOME CHANGES TO
:.*.X...: THE PRINTER CODES. THESE
:.P.Y...: SHOULD BE EASY TO FIND. :
.V.Z...: :..
.[...: I HOPE THAT YOU FIND THIS :.B.\
...: PROGRAM TO BE AS USEFUL :...]..
.: FOR DIRECTORY HARD COPIES :...^...:
AS I HAVE. :.4._...:
:.Z.`...: H
APPY COMPUTING! :...A...:
:...B...:
:...
> CLICK IMAGE PREVIEW FOR FULL MODAL