home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 August
/
64er_Magazin_88-08_1988_Markt__Technik_de_Side_B.d64
/
programmkopf.l
< prev
next >
Wrap
Text File
|
2022-10-26
|
2KB
|
60 lines
9000 // delete "0:programmkopf.l"
9001 // 1985 von s.bauer
9002 // list "programmkopf.l"
9003 //
9004 pencolor 1
9005 border 6
9006 background 6
9007 dim programm'name$ of 30, autor$ of 30
9008 print chr$(147)
9009 input "name des programmes: ": programm'name$
9010 print
9011 input "... und der autor: ": autor$
9012 //
9013 programm'kopf(programm'name$,autor$)
9014 while key$<>chr$(13) do null
9015 //
9016 proc programm'kopf(programm'name$,autor$) closed
9017 dim top$ of 40, 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),top$,chr$(174),
9027 print chr$(221),
9028 k$(1:10):="comal 0.14"
9029 k$(38-len(autor$):38):=autor$
9030 print k$,chr$(221),
9031 print chr$(221),sp$,chr$(221),
9032 print chr$(171),top$,chr$(179),
9033 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 chr$(221),sp$,chr$(221),
9038 print chr$(173),top$,
9039 poke 2023,125
9040 centre(programm'name$,3)
9041 centre("meldung/befehl:",23)
9042 endproc programm'kopf
9043 //
9044 proc setcursor(zeilen#,spalten#) closed
9045 if zeilen#>25 or zeilen#<1 then return
9046 if spalten#>40 or spalten#<1 then return
9047 poke 211,spalten#-1
9048 poke 214,zeilen#-1
9049 sys 58732
9050 endproc setcursor
9051 //
9052 proc centre(x$,zeilen#) closed
9053 cx:=peek(211)+1; cy:=peek(214)+1
9054 xbegin#:=(40-len(x$))/2
9055 setcursor(zeilen#,xbegin#)
9056 print x$,
9057 setcursor(cy,cx)
9058 endproc centre