home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / menu-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  726b  |  31 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. 145 cntrl =invert+3 :rem hauptprogramm
  7. 150 :
  8. 160 sys pinit:rem initialisieren !!!
  9. 170 :
  10. 180 rem *** pull-down-menue ***
  11. 190 dim m$(20)
  12. 200 m$="  [194]earbeiten  [196]isk"
  13. 210 m$(1) ="           "
  14. 220 m$(2) =" [197]intragen"
  15. 230 m$(3) =" [211]uchen"
  16. 240 m$(4) =" [193]endern"
  17. 250 m$(5) =" [204]oeschen"
  18. 260 m$(6) ="          "
  19. 270 m$(7) =" [196]irectory"
  20. 280 m$(8) =" [210]ename"
  21. 290 m$(9) =" [211]cratch"
  22. 300 m$(10)=" [195]opy"
  23. 310 m$(11)=" "
  24. 320 :
  25. 330 rem *** aufruf ***
  26. 340 print chr$(14):rem gross/klein-modus
  27. 350 sys cntrl,m$,m$(1),menue%,befehl%
  28. 360 print
  29. 370 print "[205]enue  [206]r." menue%+1
  30. 380 print "[194]efehl [206]r." befehl%+1
  31.