home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 88xx / 8808b.d64 / programmkopf.l < prev    next >
Encoding:
Text File  |  1995-03-30  |  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.