home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / multi-taste (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  481b  |  19 lines
  1. 5 t=asc("^"):rem hier auswahltaste einsetzen
  2. 6 x=6:rem anzahl der funktionen
  3. 10 print"[147]demo-programm fuer 'mulitfunktionstaste'":print:print
  4. 20 forz=1tox:printz"mal <"chr$(t)"> druecken = funktion "z:print:nextz:goto40
  5. 30 fork1=1to50:fork2=640to631step-1:pokek2,0:nextk2:nextk1
  6. 40 gett$:ift$<>chr$(t)then40
  7. 50 fora=1tox:fork=1to35
  8. 60 gett$:ift$=chr$(t)thennexta
  9. 70 ifa>xthen30
  10. 80 nextk
  11. 90 onagoto1000,2000,3000,4000,5000,6000
  12. 100 :
  13. 1000 print"[147]funktion 1":end
  14. 2000 print"[147]funktion 2":end
  15. 3000 print"[147]funktion 3":end
  16. 4000 print"[147]funktion 4":end
  17. 5000 print"[147]funktion 5":end
  18. 6000 print"[147]funktion 6":end
  19.