home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 September / 64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64 / menuewahl (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.