home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8709a.d64 / windowing-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  648b  |  27 lines
  1. 100 REM *** STARTADRESSEN ***
  2. 110 PINIT =49568    :REM INITIALIS.
  3. 120 WINDOW=PINIT+3  :REM WINDOW MALEN
  4. 130 PUFFER=WINDOW+3 :REM WINDOW PUFFERN
  5. 140 INVERT=PUFFER+3 :REM INVERTIEREN
  6. 150 :
  7. 160 SYS PINIT:REM INITIALISIEREN !!!
  8. 170 :
  9. 180 REM *** WINDOWINHALT DEFFINIEREN **
  10. 190 M$(1)=" EINTRAGEN"
  11. 200 M$(2)=" SUCHEN"
  12. 210 M$(3)=" AENDERN"
  13. 220 M$(4)=" LOESCHEN"
  14. 230 :
  15. 240 :
  16. 250 REM *** WINDOW -  DEMO ***
  17. 260 COL=5:LINE=3:  REM LINKE OBERE ECKE
  18. 270 BREITE=13:LAENGE=6
  19. 280 :
  20. 290 PRINT CHR$(147):REM CLEAR SCREEN
  21. 300 FOR I=1 TO 20:PRINT "DIES IST EIN TEST DER WINDOW-VERWALTUNG":NEXT I
  22. 310 :
  23. 320 SYS PUFFER,5,3,13,6,0
  24. 330 SYS WINDOW,5,3,13,6,M$(1)
  25. 340 GET A$:IF A$="" THEN 340
  26. 350 SYS PUFFER,5,3,13,6,1
  27.