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 >
Encoding:
Text File  |  1988-01-01  |  1.6 KB  |  60 lines
  1. 9000 // delete "0:programmkopf.l"
  2. 9001 // 1985 von s.bauer
  3. 9002 // list "programmkopf.l"
  4. 9003 //
  5. 9004 pencolor 1
  6. 9005 border 6
  7. 9006 background 6
  8. 9007 dim programm'name$ of 30, autor$ of 30
  9. 9008 print chr$(147)
  10. 9009 input "name des programmes: ": programm'name$
  11. 9010 print 
  12. 9011 input "... und der autor:   ": autor$
  13. 9012 //
  14. 9013 programm'kopf(programm'name$,autor$)
  15. 9014 while key$<>chr$(13) do null
  16. 9015 //
  17. 9016 proc programm'kopf(programm'name$,autor$) closed
  18. 9017 dim top$ of 40, sp$ of 38, k$ of 38
  19. 9018 z:=zone
  20. 9019 zone 0
  21. 9020 for i:=1 to 38 do
  22. 9021 top$:=top$+chr$(192)
  23. 9022 sp$:=sp$+chr$(32)
  24. 9023 k$:=k$+chr$(32)
  25. 9024 endfor i
  26. 9025 print chr$(147),
  27. 9026 print chr$(176),top$,chr$(174),
  28. 9027 print chr$(221),
  29. 9028 k$(1:10):="comal 0.14"
  30. 9029 k$(38-len(autor$):38):=autor$
  31. 9030 print k$,chr$(221),
  32. 9031 print chr$(221),sp$,chr$(221),
  33. 9032 print chr$(171),top$,chr$(179),
  34. 9033 for i:=5 to 22 do
  35. 9034 print chr$(221),sp$,chr$(221),
  36. 9035 endfor i
  37. 9036 print chr$(171),top$,chr$(179),
  38. 9037 print chr$(221),sp$,chr$(221),
  39. 9038 print chr$(173),top$,
  40. 9039 poke 2023,125
  41. 9040 centre(programm'name$,3)
  42. 9041 centre("meldung/befehl:",23)
  43. 9042 endproc programm'kopf
  44. 9043 //
  45. 9044 proc setcursor(zeilen#,spalten#) closed
  46. 9045 if zeilen#>25 or zeilen#<1 then return
  47. 9046 if spalten#>40 or spalten#<1 then return
  48. 9047 poke 211,spalten#-1
  49. 9048 poke 214,zeilen#-1
  50. 9049 sys 58732
  51. 9050 endproc setcursor
  52. 9051 //
  53. 9052 proc centre(x$,zeilen#) closed
  54. 9053 cx:=peek(211)+1; cy:=peek(214)+1
  55. 9054 xbegin#:=(40-len(x$))/2
  56. 9055 setcursor(zeilen#,xbegin#)
  57. 9056 print x$,
  58. 9057 setcursor(cy,cx)
  59. 9058 endproc centre
  60.