home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_B.d64 / tastaturabfr. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  266b  |  14 lines
  1. 100 rem tastaturabfrage mit sprung
  2. 200 rem:
  3. 300 rem vorher:
  4. 400 :
  5. 410 geta$:ifa$=""then410
  6. 420 ifa$="a"then2000:rem programmteil a
  7. 430 ifa$="b"then3000:rem programmteil b
  8. 440 ifa$="x"then end:rem ende
  9. 450 goto410
  10. 499 :
  11. 500 rem nachher:
  12. 600 :
  13. 610 geta$:on1-(a$="a")-2*(a$="b")-3*(a$="x"goto610,2000,3000:end
  14.