home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 September / 64er_Magazin_87-09_1987_Markt__Technik_de_Side_A.d64 / windowing-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.