home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / pulldown-menue (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  734b  |  32 lines
  1. 90 IFA=0THENA=1:LOAD"PULL-DOWN",8,8
  2. 100 REM *** STARTADRESSEN ***
  3. 110 PINIT =49568    :REM INITIALIS.
  4. 120 WINDOW=PINIT+3  :REM WINDOW MALEN
  5. 130 PUFFER=WINDOW+3 :REM WINDOW PUFFERN
  6. 140 INVERT=PUFFER+3 :REM INVERTIEREN
  7. 145 CNTRL =INVERT+3 :REM HAUPTPROGRAMM
  8. 150 :
  9. 160 SYS PINIT:REM INITIALISIEREN !!!
  10. 170 :
  11. 180 REM *** PULL-DOWN-MENUE ***
  12. 190 DIM M$(20)
  13. 200 M$="  [194]EARBEITEN  [196]ISK"
  14. 210 M$(1) ="           "
  15. 220 M$(2) =" [197]INTRAGEN"
  16. 230 M$(3) =" [211]UCHEN"
  17. 240 M$(4) =" [193]ENDERN"
  18. 250 M$(5) =" [204]OESCHEN"
  19. 260 M$(6) ="          "
  20. 270 M$(7) =" [196]IRECTORY"
  21. 280 M$(8) =" [210]ENAME"
  22. 290 M$(9) =" [211]CRATCH"
  23. 300 M$(10)=" [195]OPY"
  24. 310 M$(11)=" "
  25. 320 :
  26. 330 REM *** AUFRUF ***
  27. 340 PRINT"[147]"
  28. 350 SYS CNTRL,M$,M$(1),MENUE%,BEFEHL%
  29. 360 PRINT
  30. 370 PRINT "[205]ENUE  [206]R." MENUE%+1
  31. 380 PRINT "[194]EFEHL [206]R." BEFEHL%+1
  32.