TITLE PAGE.C
FILE INFORMATION
FILENAME(S): TITLE PAGE.C
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 4 disk(s)
FILE HASH
e3b820e66692bf31fb82eb0611e3601a99d4202a1fc1c253b4979996ff6f5ada
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | TITLE PAGE.C | PRG | Treasure Chest - Plattfuss | 5 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | TITLE PAGE.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 1 | DOWNLOAD FILE |
| U TILITIE | TITLE PAGE.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 1 | DOWNLOAD FILE |
| TPUG APRIL 84 C | TITLE PAGE.C | PRG | Sailor, Ganheden | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 05 00 8F 12 20 20 20 54 49 54 4C 45 |..*..... TITLE| 00000010: 20 50 41 47 45 20 42 59 3A 20 52 2E 44 2E 20 53 | PAGE BY: R.D. S| 00000020: 57 49 46 54 20 20 20 20 20 3A 00 53 08 07 00 8F |WIFT :.S....| 00000030: 12 20 20 20 53 45 45 20 43 4F 4D 4D 45 4E 54 53 |. SEE COMMENTS| 00000040: 20 41 54 20 54 48 45 20 45 4E 44 2E 20 20 20 20 | AT THE END. | 00000050: 20 20 3A 00 8E 08 0A 00 86 50 24 28 36 29 3A 99 | :......P$(6):.| 00000060: 22 93 11 49 4E 44 45 4E 54 20 50 52 49 4E 54 20 |"..INDENT PRINT | 00000070: 3F 22 3B 3A 4E B2 34 30 3A 4E 4C B2 31 3A 42 24 |?";:N.40:NL.1:B$| 00000080: B2 22 20 22 3A 48 24 B2 C7 28 32 34 31 29 00 C0 |." ":H$..(241)..| 00000090: 08 0F 00 8F 20 43 48 52 24 28 32 34 31 29 20 49 |.... CHR$(241) I| 000000A0: 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 4C 49 4E |S HORIZONTAL LIN| 000000B0: 45 20 4F 4E 20 54 48 45 20 50 52 49 4E 54 45 52 |E ON THE PRINTER| 000000C0: 00 DC 08 14 00 A1 41 24 3A 8B 41 24 B3 B1 22 59 |......A$:.A$.."Y| 000000D0: 22 AF 41 24 B3 B1 22 4E 22 A7 32 30 00 11 09 19 |".A$.."N".20....| 000000E0: 00 99 41 24 3B 22 11 11 22 3A 9F 34 2C 34 3A 98 |..A$;"..":.4,4:.| 000000F0: 34 2C C7 28 32 37 29 C7 28 36 34 29 3A 8F 20 49 |4,.(27).(64):. I| 00000100: 4E 49 54 49 41 4C 49 5A 45 20 50 52 49 4E 54 45 |NITIALIZE PRINTE| 00000110: 52 00 4B 09 1E 00 8B 41 24 B2 22 59 22 A7 98 34 |R.K....A$."Y"..4| 00000120: 2C C7 28 32 37 29 C7 28 37 37 29 C7 28 31 30 29 |,.(27).(77).(10)| 00000130: 3A 4E B2 33 35 3A 8F 20 53 45 54 20 4C 48 20 50 |:N.35:. SET LH P| 00000140: 52 49 4E 54 20 4D 41 52 47 49 4E 00 72 09 28 00 |RINT MARGIN.r.(.| 00000150: 99 A3 31 36 29 22 91 22 3B 4E 4C 3A 85 22 91 4E |..16)".";NL:.".N| 00000160: 55 4D 42 45 52 20 4F 46 20 4C 49 4E 45 53 22 3B |UMBER OF LINES";| 00000170: 4E 4C 00 92 09 32 00 8B 4E 4C B3 31 B0 4E 4C B1 |NL...2..NL.1.NL.| 00000180: 36 A7 34 30 3A 8F 20 36 20 4C 49 4E 45 53 20 4D |6.40:. 6 LINES M| 00000190: 41 58 00 C3 09 3C 00 4D 4C B2 30 3A 99 22 11 4C |AX...<.ML.0:.".L| 000001A0: 49 4E 45 53 20 54 4F 20 42 45 20 32 38 20 43 48 |INES TO BE 28 CH| 000001B0: 41 52 41 43 54 45 52 53 20 4D 41 58 49 4D 55 4D |ARACTERS MAXIMUM| 000001C0: 11 11 22 00 D9 09 46 00 81 49 B2 31 A4 4E 4C 3A |.."...F..I.1.NL:| 000001D0: 50 24 28 49 29 B2 22 2D 22 00 03 0A 50 00 99 22 |P$(I)."-"...P.."| 000001E0: 91 4C 49 4E 45 22 3B 49 3B A3 39 29 3B 50 24 28 |.LINE";I;.9);P$(| 000001F0: 49 29 3A 99 A3 37 29 3B 3A 85 22 91 22 3B 50 24 |I):..7);:.".";P$| 00000200: 28 49 29 00 17 0A 5A 00 8B C3 28 50 24 28 49 29 |(I)...Z...(P$(I)| 00000210: 29 B1 32 38 A7 38 30 00 34 0A 64 00 8B C3 28 50 |).28.80.4.d...(P| 00000220: 24 28 49 29 29 B1 4D 4C A7 4D 4C B2 C3 28 50 24 |$(I)).ML.ML..(P$| 00000230: 28 49 29 29 00 57 0A 6E 00 99 3A 82 3A 81 49 B2 |(I)).W.n..:.:.I.| 00000240: 31 A4 36 3A 42 24 B2 42 24 AA 42 24 3A 48 24 B2 |1.6:B$.B$.B$:H$.| 00000250: 48 24 AA 48 24 3A 82 00 8B 0A 78 00 54 24 B2 C7 |H$.H$:....x.T$..| 00000260: 28 31 34 29 AA C8 28 42 24 2C B5 28 28 4E AB 4D |(14)..(B$,.((N.M| 00000270: 4C AB 34 29 AD 32 29 29 3A 81 49 B2 31 A4 31 35 |L.4).2)):.I.1.15| 00000280: AB 4E 4C 3A 98 34 2C 54 24 3A 82 00 A6 0A 7D 00 |.NL:.4,T$:....}.| 00000290: 8F 20 54 24 20 49 53 20 54 48 45 20 54 41 42 20 |. T$ IS THE TAB | 000002A0: 53 50 41 43 45 53 00 C9 0A 82 00 98 34 2C 54 24 |SPACES......4,T$| 000002B0: 3B C7 28 32 34 30 29 3B C8 28 48 24 2C 4D 4C AA |;.(240);.(H$,ML.| 000002C0: 32 29 3B C7 28 32 34 32 29 00 F2 0A 87 00 8F 20 |2);.(242)...... | 000002D0: 43 48 52 24 28 32 34 30 29 20 3D 20 B0 20 43 48 |CHR$(240) = . CH| 000002E0: 41 52 41 43 54 45 52 20 4F 4E 20 50 52 49 4E 54 |ARACTER ON PRINT| 000002F0: 45 52 00 1B 0B 88 00 8F 20 43 48 52 24 28 32 34 |ER...... CHR$(24| 00000300: 32 29 20 3D 20 AE 20 43 48 41 52 41 43 54 45 52 |2) = . CHARACTER| 00000310: 20 4F 4E 20 50 52 49 4E 54 45 52 00 44 0B 89 00 | ON PRINTER.D...| 00000320: 8F 20 43 48 52 24 28 32 34 36 29 20 3D 20 AD 20 |. CHR$(246) = . | 00000330: 43 48 41 52 41 43 54 45 52 20 4F 4E 20 50 52 49 |CHARACTER ON PRI| 00000340: 4E 54 45 52 00 6D 0B 8A 00 8F 20 43 48 52 24 28 |NTER.m.... CHR$(| 00000350: 32 34 37 29 20 3D 20 BD 20 43 48 41 52 41 43 54 |247) = . CHARACT| 00000360: 45 52 20 4F 4E 20 50 52 49 4E 54 45 52 00 A2 0B |ER ON PRINTER...| 00000370: 8B 00 8F 20 43 48 52 24 28 32 34 35 29 20 3D 20 |... CHR$(245) = | 00000380: 56 45 52 54 49 43 41 4C 20 4C 49 4E 45 20 43 48 |VERTICAL LINE CH| 00000390: 41 52 41 43 54 45 52 20 4F 4E 20 50 52 49 4E 54 |ARACTER ON PRINT| 000003A0: 45 52 00 CD 0B 8C 00 42 50 24 B2 54 24 AA C7 28 |ER.....BP$.T$..(| 000003B0: 32 34 35 29 AA C8 28 42 24 2C 4D 4C AA 32 29 AA |245)..(B$,ML.2).| 000003C0: C7 28 32 34 35 29 3A 98 34 2C 42 50 24 00 E2 0B |.(245):.4,BP$...| 000003D0: 96 00 81 49 B2 31 A4 4E 4C 3A 50 24 B2 50 24 28 |...I.1.NL:P$.P$(| 000003E0: 49 29 00 FC 0B A0 00 8B C3 28 50 24 29 B3 4D 4C |I).......(P$).ML| 000003F0: AA 32 A7 50 24 B2 50 24 AA 22 20 22 00 1B 0C AA |.2.P$.P$." "....| 00000400: 00 8B C3 28 50 24 29 B3 4D 4C AA 32 A7 50 24 B2 |...(P$).ML.2.P$.| 00000410: 22 20 22 AA 50 24 3A 89 31 36 30 00 3F 0C B4 00 |" ".P$:.160.?...| 00000420: 98 34 2C 54 24 3B C7 28 32 34 35 29 3B 50 24 3B |.4,T$;.(245);P$;| 00000430: C7 28 32 34 35 29 3A 98 34 2C 42 50 24 3A 82 00 |.(245):.4,BP$:..| 00000440: 73 0C BE 00 98 34 2C 54 24 3B C7 28 32 34 36 29 |s....4,T$;.(246)| 00000450: 3B C8 28 48 24 2C 4D 4C AA 32 29 3B C7 28 32 34 |;.(H$,ML.2);.(24| 00000460: 37 29 3A 98 34 2C C7 28 32 37 29 C7 28 36 34 29 |7):.4,.(27).(64)| 00000470: 3A A0 34 00 9A 0C C8 00 8F 12 3A 20 20 20 20 20 |:.4.......: | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000490: 20 20 20 20 20 20 20 20 20 3A 00 C1 0C C9 00 8F | :......| 000004A0: 12 3A 20 20 20 20 20 20 20 20 20 20 54 49 54 4C |.: TITL| 000004B0: 45 20 50 41 47 45 20 20 20 20 20 20 20 20 20 20 |E PAGE | 000004C0: 3A 00 E8 0C CA 00 8F 12 3A 20 20 20 20 20 20 20 |:.......: | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004E0: 20 20 20 20 20 20 20 3A 00 0F 0D CB 00 8F 12 3A | :.......:| 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 | BY| 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 | :.| 00000510: 36 0D CC 00 8F 12 3A 20 20 20 20 20 20 20 20 20 |6.....: | 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000530: 20 20 20 20 20 3A 00 5D 0D CD 00 8F 12 3A 20 20 | :.].....: | 00000540: 20 20 20 20 20 20 20 20 42 4F 42 20 53 57 49 46 | BOB SWIF| 00000550: 54 20 20 20 20 20 20 20 20 20 20 20 3A 00 84 0D |T :...| 00000560: CE 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 20 |....: | 00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000580: 20 20 20 3A 00 AB 0D CF 00 8F 12 3A 20 20 20 20 | :.......: | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005A0: 20 20 20 20 20 20 20 20 20 20 3A 00 D2 0D D0 00 | :.....| 000005B0: 8F 12 3A 20 20 20 20 54 48 49 53 20 50 52 4F 47 |..: THIS PROG| 000005C0: 52 41 4D 20 57 41 53 20 57 52 49 54 54 45 4E 20 |RAM WAS WRITTEN | 000005D0: 20 3A 00 F9 0D D1 00 8F 12 3A 20 20 54 4F 20 52 | :.......: TO R| 000005E0: 55 4E 20 4F 4E 20 41 20 43 4F 4D 4D 4F 44 4F 52 |UN ON A COMMODOR| 000005F0: 45 20 36 34 20 20 20 20 3A 00 20 0E D2 00 8F 12 |E 64 :. .....| 00000600: 3A 20 20 43 4F 4D 50 55 54 45 52 20 57 49 54 48 |: COMPUTER WITH| 00000610: 20 41 20 47 45 4D 49 4E 49 2D 31 30 58 20 20 3A | A GEMINI-10X :| 00000620: 00 47 0E D3 00 8F 12 3A 20 20 50 52 49 4E 54 45 |.G.....: PRINTE| 00000630: 52 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R. | 00000640: 20 20 20 20 20 20 3A 00 6E 0E D4 00 8F 12 3A 20 | :.n.....: | 00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 95 | :..| 00000670: 0E D5 00 8F 12 3A 20 20 20 20 49 46 20 59 4F 55 |.....: IF YOU| 00000680: 20 41 52 45 20 55 53 49 4E 47 20 41 20 20 20 20 | ARE USING A | 00000690: 20 20 20 20 3A 00 BC 0E D6 00 8F 12 3A 20 20 44 | :.......: D| 000006A0: 49 46 46 45 52 45 4E 54 20 50 52 49 4E 54 45 52 |IFFERENT PRINTER| 000006B0: 2C 20 59 4F 55 20 4D 41 59 20 20 3A 00 E3 0E D7 |, YOU MAY :....| 000006C0: 00 8F 12 3A 20 20 48 41 56 45 20 54 4F 20 43 48 |...: HAVE TO CH| 000006D0: 41 4E 47 45 20 53 4F 4D 45 20 4F 46 20 54 48 45 |ANGE SOME OF THE| 000006E0: 20 20 3A 00 0A 0F D8 00 8F 12 3A 20 20 50 52 49 | :.......: PRI| 000006F0: 4E 54 45 52 20 43 4F 44 45 53 20 54 4F 20 53 55 |NTER CODES TO SU| 00000700: 49 54 20 59 4F 55 52 20 20 3A 00 31 0F D9 00 8F |IT YOUR :.1....| 00000710: 12 3A 20 20 50 41 52 54 49 43 55 4C 41 52 20 53 |.: PARTICULAR S| 00000720: 45 54 2D 55 50 2E 20 20 20 20 20 20 20 20 20 20 |ET-UP. | 00000730: 3A 00 58 0F DA 00 8F 12 3A 20 20 20 20 20 20 20 |:.X.....: | 00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000750: 20 20 20 20 20 20 20 3A 00 7F 0F DB 00 8F 12 3A | :.......:| 00000760: 20 20 20 20 49 20 48 4F 50 45 20 54 48 41 54 20 | I HOPE THAT | 00000770: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 20 3A 00 |THIS PROGRAM :.| 00000780: A6 0F DC 00 8F 12 3A 20 20 48 45 4C 50 53 20 59 |......: HELPS Y| 00000790: 4F 55 20 41 53 20 4D 55 43 48 20 41 53 20 49 54 |OU AS MUCH AS IT| 000007A0: 20 48 41 53 20 3A 00 CD 0F DD 00 8F 12 3A 20 20 | HAS :.......: | 000007B0: 48 45 4C 50 45 44 20 4D 45 2E 20 47 4F 4F 44 20 |HELPED ME. GOOD | 000007C0: 4C 55 43 4B 2E 20 20 20 20 20 20 20 3A 00 F4 0F |LUCK. :...| 000007D0: DE 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 20 |....: | 000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007F0: 20 20 20 3A 00 00 00 | :... |
..*..... TITLE PAGE BY: R.D. SWIFT
:.S..... SEE COMMENTS AT THE END.
:......P$(6):."..INDENT PRINT ?";:N.40
:NL.1:B$." ":H$.G(241)...... CHR$(241) I
S HORIZONTAL LINE ON THE PRINTER......A$
:.A$.."Y".A$.."N".20......A$;"..":.4,4:.
4,G(27)G(64):. INITIALIZE PRINTER.K....A
$."Y"..4,G(27)G(77)G(10):N.35:. SET LH P
RINT MARGIN.R.(...16)".";NL:.".NUMBER OF
LINES";NL...2..NL.1.NL.6.40:. 6 LINES M
AX.C.<.ML.0:.".LINES TO BE 28 CHARACTERS
MAXIMUM..".Y.F..I.1.NL:P$(I)."-"...P.."
.LINE";I;.9);P$(I):..7);:.".";P$(I)...Z.
.C(P$(I)).28.80.4.D..C(P$(I)).ML.ML.C(P$
(I)).W.N..:.:.I.1.6:B$.B$.B$:H$.H$.H$:..
..X.T$.G(14).H(B$,.((N.ML.4).2)):.I.1.15
.NL:.4,T$:....}.. T$ IS THE TAB SPACES.I
....4,T$;G(240);H(H$,ML.2);G(242)......
CHR$(240) = . CHARACTER ON PRINTER......
CHR$(242) = . CHARACTER ON PRINTER.D...
. CHR$(246) = . CHARACTER ON PRINTER.M..
.. CHR$(247) = . CHARACTER ON PRINTER...
... CHR$(245) = VERTICAL LINE CHARACTER
ON PRINTER.M...BP$.T$.G(245).H(B$,ML.2).
G(245):.4,BP$......I.1.NL:P$.P$(I)... ..
C(P$).ML.2.P$.P$." "......C(P$).ML.2.P$.
" ".P$:.160.?....4,T$;G(245);P$;G(245):.
4,BP$:..S....4,T$;G(246);H(H$,ML.2);G(24
7):.4,G(27)G(64): 4...H...:
:.A.I...: TITL
E PAGE :...J...:
:...K...: BY
:.6.L...:
:.].M...: BOB SWIF
T :...N...:
:...O...:
:.R.P...: THIS PROGRAM WAS
WRITTEN :...Q...: TO RUN ON A COMMODOR
E 64 :. .R...: COMPUTER WITH A GEMIN
I-10X :.G.S...: PRINTER.
:.N.T...:
:...U...: IF YOU ARE USING A
:...V...: DIFFERENT PRINTER, YOU MA
Y :...W...: HAVE TO CHANGE SOME OF THE
:...X...: PRINTER CODES TO SUIT YOUR
:.1.Y...: PARTICULAR SET-UP.
:.X.Z...: :
......: I HOPE THAT THIS PROGRAM :.
......: HELPS YOU AS MUCH AS IT HAS :.M
.....: HELPED ME. GOOD LUCK. :...
....: :...
> CLICK IMAGE PREVIEW FOR FULL MODAL