home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8711.d64 / menu-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.