PROGRAMMKOPF.L

FILE INFORMATION

FILENAME(S): PROGRAMMKOPF.L

FILE TYPE(S): SEQ

FILE SIZE: 1.6K

FIRST SEEN: 2025-10-20 14:31:32

APPEARS ON: 2 disk(s)

FILE HASH

1a9e1c032e85764225b3b777aab487f0c48606bc5c681c68cab745dc45f67cf2

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10808 SEITE B	PROGRAMMKOPF.L	SEQ	Treasure Chest - Klaus Der Suhler	1	18	DOWNLOAD FILE
10808 SEITE B	PROGRAMMKOPF.L	SEQ	C64er, DuncanTwain	1	18	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 20  44 45 4C 45 54 45 20 22  |9000 // DELETE "|
00000010: 30 3A 50 52 4F 47 52 41  4D 4D 4B 4F 50 46 2E 4C  |0:PROGRAMMKOPF.L|
00000020: 22 0D 39 30 30 31 20 2F  2F 20 31 39 38 35 20 56  |".9001 // 1985 V|
00000030: 4F 4E 20 53 2E 42 41 55  45 52 0D 39 30 30 32 20  |ON S.BAUER.9002 |
00000040: 2F 2F 20 4C 49 53 54 20  22 50 52 4F 47 52 41 4D  |// LIST "PROGRAM|
00000050: 4D 4B 4F 50 46 2E 4C 22  0D 39 30 30 33 20 2F 2F  |MKOPF.L".9003 //|
00000060: 0D 39 30 30 34 20 50 45  4E 43 4F 4C 4F 52 20 31  |.9004 PENCOLOR 1|
00000070: 0D 39 30 30 35 20 42 4F  52 44 45 52 20 36 0D 39  |.9005 BORDER 6.9|
00000080: 30 30 36 20 42 41 43 4B  47 52 4F 55 4E 44 20 36  |006 BACKGROUND 6|
00000090: 0D 39 30 30 37 20 44 49  4D 20 50 52 4F 47 52 41  |.9007 DIM PROGRA|
000000A0: 4D 4D 27 4E 41 4D 45 24  20 4F 46 20 33 30 2C 20  |MM'NAME$ OF 30, |
000000B0: 41 55 54 4F 52 24 20 4F  46 20 33 30 0D 39 30 30  |AUTOR$ OF 30.900|
000000C0: 38 20 50 52 49 4E 54 20  43 48 52 24 28 31 34 37  |8 PRINT CHR$(147|
000000D0: 29 0D 39 30 30 39 20 49  4E 50 55 54 20 22 4E 41  |).9009 INPUT "NA|
000000E0: 4D 45 20 44 45 53 20 50  52 4F 47 52 41 4D 4D 45  |ME DES PROGRAMME|
000000F0: 53 3A 20 22 3A 20 50 52  4F 47 52 41 4D 4D 27 4E  |S: ": PROGRAMM'N|
00000100: 41 4D 45 24 0D 39 30 31  30 20 50 52 49 4E 54 20  |AME$.9010 PRINT |
00000110: 0D 39 30 31 31 20 49 4E  50 55 54 20 22 2E 2E 2E  |.9011 INPUT "...|
00000120: 20 55 4E 44 20 44 45 52  20 41 55 54 4F 52 3A 20  | UND DER AUTOR: |
00000130: 20 20 22 3A 20 41 55 54  4F 52 24 0D 39 30 31 32  |  ": AUTOR$.9012|
00000140: 20 2F 2F 0D 39 30 31 33  20 50 52 4F 47 52 41 4D  | //.9013 PROGRAM|
00000150: 4D 27 4B 4F 50 46 28 50  52 4F 47 52 41 4D 4D 27  |M'KOPF(PROGRAMM'|
00000160: 4E 41 4D 45 24 2C 41 55  54 4F 52 24 29 0D 39 30  |NAME$,AUTOR$).90|
00000170: 31 34 20 57 48 49 4C 45  20 4B 45 59 24 3C 3E 43  |14 WHILE KEY$<>C|
00000180: 48 52 24 28 31 33 29 20  44 4F 20 4E 55 4C 4C 0D  |HR$(13) DO NULL.|
00000190: 39 30 31 35 20 2F 2F 0D  39 30 31 36 20 50 52 4F  |9015 //.9016 PRO|
000001A0: 43 20 50 52 4F 47 52 41  4D 4D 27 4B 4F 50 46 28  |C PROGRAMM'KOPF(|
000001B0: 50 52 4F 47 52 41 4D 4D  27 4E 41 4D 45 24 2C 41  |PROGRAMM'NAME$,A|
000001C0: 55 54 4F 52 24 29 20 43  4C 4F 53 45 44 0D 39 30  |UTOR$) CLOSED.90|
000001D0: 31 37 20 44 49 4D 20 54  4F 50 24 20 4F 46 20 34  |17 DIM TOP$ OF 4|
000001E0: 30 2C 20 53 50 24 20 4F  46 20 33 38 2C 20 4B 24  |0, SP$ OF 38, K$|
000001F0: 20 4F 46 20 33 38 0D 39  30 31 38 20 5A 3A 3D 5A  | OF 38.9018 Z:=Z|
00000200: 4F 4E 45 0D 39 30 31 39  20 5A 4F 4E 45 20 30 0D  |ONE.9019 ZONE 0.|
00000210: 39 30 32 30 20 46 4F 52  20 49 3A 3D 31 20 54 4F  |9020 FOR I:=1 TO|
00000220: 20 33 38 20 44 4F 0D 39  30 32 31 20 54 4F 50 24  | 38 DO.9021 TOP$|
00000230: 3A 3D 54 4F 50 24 2B 43  48 52 24 28 31 39 32 29  |:=TOP$+CHR$(192)|
00000240: 0D 39 30 32 32 20 53 50  24 3A 3D 53 50 24 2B 43  |.9022 SP$:=SP$+C|
00000250: 48 52 24 28 33 32 29 0D  39 30 32 33 20 4B 24 3A  |HR$(32).9023 K$:|
00000260: 3D 4B 24 2B 43 48 52 24  28 33 32 29 0D 39 30 32  |=K$+CHR$(32).902|
00000270: 34 20 45 4E 44 46 4F 52  20 49 0D 39 30 32 35 20  |4 ENDFOR I.9025 |
00000280: 50 52 49 4E 54 20 43 48  52 24 28 31 34 37 29 2C  |PRINT CHR$(147),|
00000290: 0D 39 30 32 36 20 50 52  49 4E 54 20 43 48 52 24  |.9026 PRINT CHR$|
000002A0: 28 31 37 36 29 2C 54 4F  50 24 2C 43 48 52 24 28  |(176),TOP$,CHR$(|
000002B0: 31 37 34 29 2C 0D 39 30  32 37 20 50 52 49 4E 54  |174),.9027 PRINT|
000002C0: 20 43 48 52 24 28 32 32  31 29 2C 0D 39 30 32 38  | CHR$(221),.9028|
000002D0: 20 4B 24 28 31 3A 31 30  29 3A 3D 22 43 4F 4D 41  | K$(1:10):="COMA|
000002E0: 4C 20 30 2E 31 34 22 0D  39 30 32 39 20 4B 24 28  |L 0.14".9029 K$(|
000002F0: 33 38 2D 4C 45 4E 28 41  55 54 4F 52 24 29 3A 33  |38-LEN(AUTOR$):3|
00000300: 38 29 3A 3D 41 55 54 4F  52 24 0D 39 30 33 30 20  |8):=AUTOR$.9030 |
00000310: 50 52 49 4E 54 20 4B 24  2C 43 48 52 24 28 32 32  |PRINT K$,CHR$(22|
00000320: 31 29 2C 0D 39 30 33 31  20 50 52 49 4E 54 20 43  |1),.9031 PRINT C|
00000330: 48 52 24 28 32 32 31 29  2C 53 50 24 2C 43 48 52  |HR$(221),SP$,CHR|
00000340: 24 28 32 32 31 29 2C 0D  39 30 33 32 20 50 52 49  |$(221),.9032 PRI|
00000350: 4E 54 20 43 48 52 24 28  31 37 31 29 2C 54 4F 50  |NT CHR$(171),TOP|
00000360: 24 2C 43 48 52 24 28 31  37 39 29 2C 0D 39 30 33  |$,CHR$(179),.903|
00000370: 33 20 46 4F 52 20 49 3A  3D 35 20 54 4F 20 32 32  |3 FOR I:=5 TO 22|
00000380: 20 44 4F 0D 39 30 33 34  20 50 52 49 4E 54 20 43  | DO.9034 PRINT C|
00000390: 48 52 24 28 32 32 31 29  2C 53 50 24 2C 43 48 52  |HR$(221),SP$,CHR|
000003A0: 24 28 32 32 31 29 2C 0D  39 30 33 35 20 45 4E 44  |$(221),.9035 END|
000003B0: 46 4F 52 20 49 0D 39 30  33 36 20 50 52 49 4E 54  |FOR I.9036 PRINT|
000003C0: 20 43 48 52 24 28 31 37  31 29 2C 54 4F 50 24 2C  | CHR$(171),TOP$,|
000003D0: 43 48 52 24 28 31 37 39  29 2C 0D 39 30 33 37 20  |CHR$(179),.9037 |
000003E0: 50 52 49 4E 54 20 43 48  52 24 28 32 32 31 29 2C  |PRINT CHR$(221),|
000003F0: 53 50 24 2C 43 48 52 24  28 32 32 31 29 2C 0D 39  |SP$,CHR$(221),.9|
00000400: 30 33 38 20 50 52 49 4E  54 20 43 48 52 24 28 31  |038 PRINT CHR$(1|
00000410: 37 33 29 2C 54 4F 50 24  2C 0D 39 30 33 39 20 50  |73),TOP$,.9039 P|
00000420: 4F 4B 45 20 32 30 32 33  2C 31 32 35 0D 39 30 34  |OKE 2023,125.904|
00000430: 30 20 43 45 4E 54 52 45  28 50 52 4F 47 52 41 4D  |0 CENTRE(PROGRAM|
00000440: 4D 27 4E 41 4D 45 24 2C  33 29 0D 39 30 34 31 20  |M'NAME$,3).9041 |
00000450: 43 45 4E 54 52 45 28 22  4D 45 4C 44 55 4E 47 2F  |CENTRE("MELDUNG/|
00000460: 42 45 46 45 48 4C 3A 22  2C 32 33 29 0D 39 30 34  |BEFEHL:",23).904|
00000470: 32 20 45 4E 44 50 52 4F  43 20 50 52 4F 47 52 41  |2 ENDPROC PROGRA|
00000480: 4D 4D 27 4B 4F 50 46 0D  39 30 34 33 20 2F 2F 0D  |MM'KOPF.9043 //.|
00000490: 39 30 34 34 20 50 52 4F  43 20 53 45 54 43 55 52  |9044 PROC SETCUR|
000004A0: 53 4F 52 28 5A 45 49 4C  45 4E 23 2C 53 50 41 4C  |SOR(ZEILEN#,SPAL|
000004B0: 54 45 4E 23 29 20 43 4C  4F 53 45 44 0D 39 30 34  |TEN#) CLOSED.904|
000004C0: 35 20 49 46 20 5A 45 49  4C 45 4E 23 3E 32 35 20  |5 IF ZEILEN#>25 |
000004D0: 4F 52 20 5A 45 49 4C 45  4E 23 3C 31 20 54 48 45  |OR ZEILEN#<1 THE|
000004E0: 4E 20 52 45 54 55 52 4E  0D 39 30 34 36 20 49 46  |N RETURN.9046 IF|
000004F0: 20 53 50 41 4C 54 45 4E  23 3E 34 30 20 4F 52 20  | SPALTEN#>40 OR |
00000500: 53 50 41 4C 54 45 4E 23  3C 31 20 54 48 45 4E 20  |SPALTEN#<1 THEN |
00000510: 52 45 54 55 52 4E 0D 39  30 34 37 20 50 4F 4B 45  |RETURN.9047 POKE|
00000520: 20 32 31 31 2C 53 50 41  4C 54 45 4E 23 2D 31 0D  | 211,SPALTEN#-1.|
00000530: 39 30 34 38 20 50 4F 4B  45 20 32 31 34 2C 5A 45  |9048 POKE 214,ZE|
00000540: 49 4C 45 4E 23 2D 31 0D  39 30 34 39 20 53 59 53  |ILEN#-1.9049 SYS|
00000550: 20 35 38 37 33 32 0D 39  30 35 30 20 45 4E 44 50  | 58732.9050 ENDP|
00000560: 52 4F 43 20 53 45 54 43  55 52 53 4F 52 0D 39 30  |ROC SETCURSOR.90|
00000570: 35 31 20 2F 2F 0D 39 30  35 32 20 50 52 4F 43 20  |51 //.9052 PROC |
00000580: 43 45 4E 54 52 45 28 58  24 2C 5A 45 49 4C 45 4E  |CENTRE(X$,ZEILEN|
00000590: 23 29 20 43 4C 4F 53 45  44 0D 39 30 35 33 20 43  |#) CLOSED.9053 C|
000005A0: 58 3A 3D 50 45 45 4B 28  32 31 31 29 2B 31 3B 20  |X:=PEEK(211)+1; |
000005B0: 43 59 3A 3D 50 45 45 4B  28 32 31 34 29 2B 31 0D  |CY:=PEEK(214)+1.|
000005C0: 39 30 35 34 20 58 42 45  47 49 4E 23 3A 3D 28 34  |9054 XBEGIN#:=(4|
000005D0: 30 2D 4C 45 4E 28 58 24  29 29 2F 32 0D 39 30 35  |0-LEN(X$))/2.905|
000005E0: 35 20 53 45 54 43 55 52  53 4F 52 28 5A 45 49 4C  |5 SETCURSOR(ZEIL|
000005F0: 45 4E 23 2C 58 42 45 47  49 4E 23 29 0D 39 30 35  |EN#,XBEGIN#).905|
00000600: 36 20 50 52 49 4E 54 20  58 24 2C 0D 39 30 35 37  |6 PRINT X$,.9057|
00000610: 20 53 45 54 43 55 52 53  4F 52 28 43 59 2C 43 58  | SETCURSOR(CY,CX|
00000620: 29 0D 39 30 35 38 20 45  4E 44 50 52 4F 43 20 43  |).9058 ENDPROC C|
00000630: 45 4E 54 52 45 0D                                 |ENTRE.          |

9000 // DELETE "0:PROGRAMMKOPF.L".9001 /
/ 1985 VON S.BAUER.9002 // LIST "PROGRAM
MKOPF.L".9003 //.9004 PENCOLOR 1.9005 BO
RDER 6.9006 BACKGROUND 6.9007 DIM PROGRA
MM'NAME$ OF 30, AUTOR$ OF 30.9008 PRINT 
CHR$(147).9009 INPUT "NAME DES PROGRAMME
S: ": PROGRAMM'NAME$.9010 PRINT .9011 IN
PUT "... UND DER AUTOR:   ": AUTOR$.9012
 //.9013 PROGRAMM'KOPF(PROGRAMM'NAME$,AU
TOR$).9014 WHILE KEY$<>CHR$(13) DO NULL.
9015 //.9016 PROC PROGRAMM'KOPF(PROGRAMM
'NAME$,AUTOR$) CLOSED.9017 DIM TOP$ OF 4
0, SP$ OF 38, K$ OF 38.9018 Z:=ZONE.9019
 ZONE 0.9020 FOR I:=1 TO 38 DO.9021 TOP$
:=TOP$+CHR$(192).9022 SP$:=SP$+CHR$(32).
9023 K$:=K$+CHR$(32).9024 ENDFOR I.9025 
PRINT CHR$(147),.9026 PRINT CHR$(176),TO
P$,CHR$(174),.9027 PRINT CHR$(221),.9028
 K$(1:10):="COMAL 0.14".9029 K$(38-LEN(A
UTOR$):38):=AUTOR$.9030 PRINT K$,CHR$(22
1),.9031 PRINT CHR$(221),SP$,CHR$(221),.
9032 PRINT CHR$(171),TOP$,CHR$(179),.903
3 FOR I:=5 TO 22 DO.9034 PRINT CHR$(221)
,SP$,CHR$(221),.9035 ENDFOR I.9036 PRINT
 CHR$(171),TOP$,CHR$(179),.9037 PRINT CH
R$(221),SP$,CHR$(221),.9038 PRINT CHR$(1
73),TOP$,.9039 POKE 2023,125.9040 CENTRE
(PROGRAMM'NAME$,3).9041 CENTRE("MELDUNG/
BEFEHL:",23).9042 ENDPROC PROGRAMM'KOPF.
9043 //.9044 PROC SETCURSOR(ZEILEN#,SPAL
TEN#) CLOSED.9045 IF ZEILEN#>25 OR ZEILE
N#<1 THEN RETURN.9046 IF SPALTEN#>40 OR 
SPALTEN#<1 THEN RETURN.9047 POKE 211,SPA
LTEN#-1.9048 POKE 214,ZEILEN#-1.9049 SYS
 58732.9050 ENDPROC SETCURSOR.9051 //.90
52 PROC CENTRE(X$,ZEILEN#) CLOSED.9053 C
X:=PEEK(211)+1; CY:=PEEK(214)+1.9054 XBE
GIN#:=(40-LEN(X$))/2.9055 SETCURSOR(ZEIL
EN#,XBEGIN#).9056 PRINT X$,.9057 SETCURS
OR(CY,CX).9058 ENDPROC CENTRE.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL