TITLE'PAGE.PROC

FILE INFORMATION

FILENAME(S): TITLE'PAGE.PROC

FILE TYPE(S): SEQ

FILE SIZE: 1.4K

FIRST SEEN: 2025-12-01 01:48:19

APPEARS ON: 3 disk(s)

FILE HASH

2244d22aff651ddc9c510b5fa328e3b8cf939cbce1b05f0ea0fdc00617aea1b1

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMAL 2	TITLE'PAGE.PROC	SEQ	hedning, Mattias H00r	13	4	DOWNLOAD FILE
CCS COMAL 2	TITLE'PAGE.PROC	SEQ	hedning, Mattias H00r	13	4	DOWNLOAD FILE
COMAL B	TITLE'PAGE.PROC	SEQ	hedning, Helsinborg	13	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 20  54 49 54 4C 45 27 50 41  |9000 // TITLE'PA|
00000010: 47 45 28 22 54 49 54 4C  45 22 2C 22 59 4F 55 52  |GE("TITLE","YOUR|
00000020: 20 4E 41 4D 45 22 29 0D  39 30 31 30 20 50 52 4F  | NAME").9010 PRO|
00000030: 43 20 54 49 54 4C 45 27  50 41 47 45 28 54 49 54  |C TITLE'PAGE(TIT|
00000040: 4C 45 24 2C 41 55 54 48  4F 52 24 29 20 43 4C 4F  |LE$,AUTHOR$) CLO|
00000050: 53 45 44 0D 39 30 32 30  20 44 49 4D 20 4C 49 4E  |SED.9020 DIM LIN|
00000060: 45 24 20 4F 46 20 34 30  2C 20 53 50 41 43 45 53  |E$ OF 40, SPACES|
00000070: 24 20 4F 46 20 34 30 0D  39 30 33 30 20 53 50 41  |$ OF 40.9030 SPA|
00000080: 43 45 53 24 28 31 3A 34  30 29 3A 3D 22 22 0D 39  |CES$(1:40):="".9|
00000090: 30 34 30 20 53 54 41 52  54 3A 3D 28 33 36 2D 4C  |040 START:=(36-L|
000000A0: 45 4E 28 54 49 54 4C 45  24 29 29 20 44 49 56 20  |EN(TITLE$)) DIV |
000000B0: 32 0D 39 30 35 30 20 53  54 41 52 54 31 3A 3D 28  |2.9050 START1:=(|
000000C0: 33 34 2D 4C 45 4E 28 41  55 54 48 4F 52 24 29 29  |34-LEN(AUTHOR$))|
000000D0: 20 44 49 56 20 32 0D 39  30 36 30 20 2F 2F 0D 39  | DIV 2.9060 //.9|
000000E0: 30 37 30 20 50 45 4E 43  4F 4C 4F 52 20 39 0D 39  |070 PENCOLOR 9.9|
000000F0: 30 38 30 20 42 4F 52 44  45 52 20 37 0D 39 30 39  |080 BORDER 7.909|
00000100: 30 20 42 41 43 4B 47 52  4F 55 4E 44 20 37 0D 39  |0 BACKGROUND 7.9|
00000110: 31 30 30 20 4C 49 4E 45  24 3A 3D 22 D6 D6 D6 D6  |100 LINE$:="....|
00000120: D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D6 D6  |................|
00000130: D6 D6 D6 D6 D6 D6 D6 D6  D6 D6 D6 D6 D6 D6 D6 D6  |................|
00000140: D6 D6 D6 22 0D 39 31 31  30 20 50 52 49 4E 54 20  |...".9110 PRINT |
00000150: 43 48 52 24 28 31 34 37  29 0D 39 31 32 30 20 50  |CHR$(147).9120 P|
00000160: 52 49 4E 54 20 0D 39 31  33 30 20 2F 2F 0D 39 31  |RINT .9130 //.91|
00000170: 34 30 20 46 4F 52 20 49  3A 3D 31 20 54 4F 20 31  |40 FOR I:=1 TO 1|
00000180: 39 20 44 4F 0D 39 31 35  30 20 50 52 49 4E 54 20  |9 DO.9150 PRINT |
00000190: 43 48 52 24 28 31 34 35  29 2C 54 41 42 28 32 30  |CHR$(145),TAB(20|
000001A0: 2D 49 29 2C 4C 49 4E 45  24 28 31 3A 32 2A 49 29  |-I),LINE$(1:2*I)|
000001B0: 0D 39 31 36 30 20 45 4E  44 46 4F 52 20 49 0D 39  |.9160 ENDFOR I.9|
000001C0: 31 37 30 20 50 52 49 4E  54 20 22 91 20 22 0D 39  |170 PRINT ". ".9|
000001D0: 31 38 30 20 2F 2F 0D 39  31 39 30 20 50 52 49 4E  |180 //.9190 PRIN|
000001E0: 54 20 43 48 52 24 28 31  34 35 29 0D 39 32 30 30  |T CHR$(145).9200|
000001F0: 20 46 4F 52 20 49 3A 3D  31 20 54 4F 20 32 32 20  | FOR I:=1 TO 22 |
00000200: 44 4F 0D 39 32 31 30 20  50 52 49 4E 54 20 22 20  |DO.9210 PRINT " |
00000210: 22 2C 43 48 52 24 28 31  31 38 29 2C 54 41 42 28  |",CHR$(118),TAB(|
00000220: 33 38 29 2C 43 48 52 24  28 31 31 38 29 2C 0D 39  |38),CHR$(118),.9|
00000230: 32 32 30 20 50 52 49 4E  54 20 0D 39 32 33 30 20  |220 PRINT .9230 |
00000240: 45 4E 44 46 4F 52 20 49  0D 39 32 34 30 20 2F 2F  |ENDFOR I.9240 //|
00000250: 0D 39 32 35 30 20 46 4F  52 20 49 3A 3D 31 20 54  |.9250 FOR I:=1 T|
00000260: 4F 20 31 38 20 44 4F 0D  39 32 36 30 20 50 52 49  |O 18 DO.9260 PRI|
00000270: 4E 54 20 22 20 22 2C 0D  39 32 37 30 20 50 52 49  |NT " ",.9270 PRI|
00000280: 4E 54 20 43 48 52 24 28  31 34 35 29 2C 0D 39 32  |NT CHR$(145),.92|
00000290: 38 30 20 50 52 49 4E 54  20 4C 49 4E 45 24 28 31  |80 PRINT LINE$(1|
000002A0: 3A 49 29 2C 54 41 42 28  33 38 2D 49 29 2C 4C 49  |:I),TAB(38-I),LI|
000002B0: 4E 45 24 28 31 3A 49 29  0D 39 32 39 30 20 45 4E  |NE$(1:I).9290 EN|
000002C0: 44 46 4F 52 20 49 0D 39  33 30 30 20 50 52 49 4E  |DFOR I.9300 PRIN|
000002D0: 54 20 22 13 11 11 22 0D  39 33 31 30 20 50 52 49  |T "...".9310 PRI|
000002E0: 4E 54 20 22 20 22 2C 43  48 52 24 28 31 31 38 29  |NT " ",CHR$(118)|
000002F0: 2C 53 50 41 43 45 53 24  28 31 3A 53 54 41 52 54  |,SPACES$(1:START|
00000300: 29 2C 43 48 52 24 28 31  38 29 2C 22 1F 22 2C 54  |),CHR$(18),".",T|
00000310: 49 54 4C 45 24 2C 22 95  22 0D 39 33 32 30 20 50  |ITLE$,".".9320 P|
00000320: 52 49 4E 54 20 22 11 11  20 22 2C 43 48 52 24 28  |RINT ".. ",CHR$(|
00000330: 31 31 38 29 2C 53 50 41  43 45 53 24 28 31 3A 53  |118),SPACES$(1:S|
00000340: 54 41 52 54 31 29 2C 43  48 52 24 28 31 38 29 2C  |TART1),CHR$(18),|
00000350: 22 1F 42 59 20 22 2C 41  55 54 48 4F 52 24 0D 39  |".BY ",AUTHOR$.9|
00000360: 33 33 30 20 2F 2F 0D 39  33 34 30 20 50 52 49 4E  |330 //.9340 PRIN|
00000370: 54 20 22 11 11 1D 1D 1D  90 B0 C0 C0 C0 C0 C0 C0  |T ".............|
00000380: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000390: C0 C0 C0 C0 C0 C0 C0 C0  AE 22 0D 39 33 35 30 20  |.........".9350 |
000003A0: 50 52 49 4E 54 20 22 1D  1D 1D DD 95 20 43 4F 4D  |PRINT "..... COM|
000003B0: 4D 4F 44 4F 52 45 20 36  34 20 57 45 53 54 20 55  |MODORE 64 WEST U|
000003C0: 53 45 52 20 47 52 4F 55  50 20 90 DD 22 0D 39 33  |SER GROUP ..".93|
000003D0: 36 30 20 50 52 49 4E 54  20 22 1D 1D 1D 90 DD 95  |60 PRINT "......|
000003E0: 20 43 4F 4D 41 4C 20 53  50 45 43 49 41 4C 20 49  | COMAL SPECIAL I|
000003F0: 4E 54 45 52 45 53 54 20  47 52 4F 55 50 20 90 DD  |NTEREST GROUP ..|
00000400: 22 0D 39 33 37 30 20 50  52 49 4E 54 20 22 1D 1D  |".9370 PRINT "..|
00000410: 1D DD 95 20 20 20 21 21  20 90 57 45 20 54 52 41  |...   !! .WE TRA|
00000420: 44 45 20 50 52 4F 47 52  41 4D 53 95 20 20 95 21  |DE PROGRAMS.  .!|
00000430: 21 20 20 20 90 DD 22 0D  39 33 38 30 20 50 52 49  |!   ..".9380 PRI|
00000440: 4E 54 20 22 1D 1D 1D AB  C0 C0 C0 C0 C0 C0 C0 C0  |NT "............|
00000450: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000460: C0 C0 C0 C0 C0 C0 B3 22  0D 39 33 39 30 20 50 52  |.......".9390 PR|
00000470: 49 4E 54 20 22 1D 1D 1D  DD 95 20 20 20 20 20 31  |INT ".....     1|
00000480: 33 30 37 20 43 4F 4C 4F  52 41 44 4F 20 41 56 45  |307 COLORADO AVE|
00000490: 4E 55 45 20 20 20 20 20  90 DD 22 0D 39 34 30 30  |NUE     ..".9400|
000004A0: 20 50 52 49 4E 54 20 22  1D 1D 1D DD 95 20 20 20  | PRINT ".....   |
000004B0: 53 41 4E 54 41 20 4D 4F  4E 49 43 41 2C 20 43 41  |SANTA MONICA, CA|
000004C0: 2C 20 39 30 34 30 34 20  20 20 20 90 DD 22 0D 39  |, 90404    ..".9|
000004D0: 34 31 30 20 50 52 49 4E  54 20 22 1D 1D 1D AD C0  |410 PRINT ".....|
000004E0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000004F0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 BD 22 0D  |..............".|
00000500: 39 34 32 30 20 50 52 49  4E 54 20 22 11 11 1D 1D  |9420 PRINT "....|
00000510: 1D 20 20 20 20 20 20 20  20 20 20 1F 12 20 50 52  |.          .. PR|
00000520: 45 53 53 20 41 20 4B 45  59 20 92 22 0D 39 34 33  |ESS A KEY .".943|
00000530: 30 20 2F 2F 0D 39 34 34  30 20 2F 2F 0D 39 34 35  |0 //.9440 //.945|
00000540: 30 20 57 48 49 4C 45 20  4B 45 59 24 3D 43 48 52  |0 WHILE KEY$=CHR|
00000550: 24 28 30 29 20 44 4F 20  4E 55 4C 4C 0D 39 34 36  |$(0) DO NULL.946|
00000560: 30 20 45 4E 44 50 52 4F  43 20 54 49 54 4C 45 27  |0 ENDPROC TITLE'|
00000570: 50 41 47 45 0D                                    |PAGE.           |

9000 // TITLE'PAGE("TITLE","YOUR NAME").
9010 PROC TITLE'PAGE(TITLE$,AUTHOR$) CLO
SED.9020 DIM LINE$ OF 40, SPACES$ OF 40.
9030 SPACES$(1:40):="".9040 START:=(36-L
EN(TITLE$)) DIV 2.9050 START1:=(34-LEN(A
UTHOR$)) DIV 2.9060 //.9070 PENCOLOR 9.9
080 BORDER 7.9090 BACKGROUND 7.9100 LINE
$:="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
VVV".9110 PRINT CHR$(147).9120 PRINT .91
30 //.9140 FOR I:=1 TO 19 DO.9150 PRINT 
CHR$(145),TAB(20-I),LINE$(1:2*I).9160 EN
DFOR I.9170 PRINT ". ".9180 //.9190 PRIN
T CHR$(145).9200 FOR I:=1 TO 22 DO.9210 
PRINT " ",CHR$(118),TAB(38),CHR$(118),.9
220 PRINT .9230 ENDFOR I.9240 //.9250 FO
R I:=1 TO 18 DO.9260 PRINT " ",.9270 PRI
NT CHR$(145),.9280 PRINT LINE$(1:I),TAB(
38-I),LINE$(1:I).9290 ENDFOR I.9300 PRIN
T "...".9310 PRINT " ",CHR$(118),SPACES$
(1:START),CHR$(18),".",TITLE$,".".9320 P
RINT ".. ",CHR$(118),SPACES$(1:START1),C
HR$(18),".BY ",AUTHOR$.9330 //.9340 PRIN
T ".....................................
.".9350 PRINT "..... COMMODORE 64 WEST U
SER GROUP ..".9360 PRINT "...... COMAL S
PECIAL INTEREST GROUP ..".9370 PRINT "..
...   !! .WE TRADE PROGRAMS.  .!!   ..".
9380 PRINT "............................
.......".9390 PRINT ".....     1307 COLO
RADO AVENUE     ..".9400 PRINT ".....   
SANTA MONICA, CA, 90404    ..".9410 PRIN
T "...................................".
9420 PRINT ".....          .. PRESS A KE
Y .".9430 //.9440 //.9450 WHILE KEY$=CHR
$(0) DO NULL.9460 ENDPROC TITLE'PAGE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL