home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / menuewahl (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  848b  |  52 lines
  1. 10 DEF FNA(X) = 55296+(Z%*40)+AS%
  2. 20 DEF FNE(X) = 55296+(Z%*40)+ES%
  3. 23 GOTO 1000
  4. 25 REM *** WARTE ***
  5. 30 GET A$ : IF A$ = "" THEN 30
  6. 40 RETURN
  7. 45 REM *** MALE ***
  8. 50 FOR J = FNA(X) TO FNE(X)
  9. 60 POKE J,F%
  10. 70 NEXT J
  11. 80 RETURN
  12. 85 REM *** AUSWERTUNG ***
  13. 90 GOSUB 25
  14. 100 IF A$ = CHR$(145) THEN A%=1
  15. 110 IF A$ = CHR$(17) THEN A%=2
  16. 120 IF A$ = CHR$(13) THEN A%=3
  17. 130 IF A$ = CHR$(42) THEN A%=4
  18. 140 RETURN
  19. 145 REM *** CURSOR - DOWN ***
  20. 150 F%=0 : GOSUB 45
  21. 160 Z% = Z% +2
  22. 170 IF Z% = (ZE%+2) THEN Z% = ZA%
  23. 180 F%=1 : GOSUB 45
  24. 190 RETURN
  25. 195 REM *** CURSOR - UP ***
  26. 200 F%=0 : GOSUB 45
  27. 210 Z%=Z%-2
  28. 220 IF Z% = (ZA%-2) THEN Z% = ZE%
  29. 230 F%=1 : GOSUB 45
  30. 240 RETURN
  31. 1000 REM **** HAUOTPROGRAMM ****
  32. 1010 POKE 646,0
  33. 1020 PRINTCHR$(147)
  34. 1030 PRINT"PROGRAMM-START":PRINT
  35. 1040 PRINT"ENDE":PRINT
  36. 1050 Z%=1
  37. 1060 AS%=0:ES%=38
  38. 1070 F%=1 : GOSUB 45
  39. 1080 ZE%=3
  40. 1090 ZA%=1
  41. 1100 GOSUB 85
  42. 1110 ON A% GOSUB 1130,1150,1180,1200
  43. 1120 GOTO 1100
  44. 1130 GOSUB 195
  45. 1140 RETURN
  46. 1150 GOSUB 145
  47. 1160 RETURN
  48. 1180 IF Z%=1 THEN 1210
  49. 1190 END
  50. 1200 RUN
  51. 1210 PRINT"WILLKOMMEN BEIM C-64"
  52.