home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 October / 64er_Magazin_86-10_1986_Markt__Technik_de_Side_A.d64 / joy-eingabe.2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  341b  |  16 lines
  1. 60000 dim w(6)
  2. 60010 print"eingabe:";
  3. 60020 print"000000[157]";:a$="[157]^[145][157]":s=6
  4. 60030 a=peek(56321)
  5. 60040 ifa=254andw(s)<9thenw(s)=w(s)+1
  6. 60050 ifa=253andw(s)>0thenw(s)=w(s)-1
  7. 60060 ifa=251ands>1thens=s-1:print" [145][157][157]";
  8. 60070 ifa=247ands<6thens=s+1:print" [145]";
  9. 60080 ifa=239then60110
  10. 60090 printright$(str$(w(s)),1)a$;
  11. 60100 goto60030
  12. 60110 w=w(6)+w(5)*10+w(4)*100+w(3)*1000+w(2)*10000+w(1)*100000
  13. 60120 print:print
  14. 60130 print"wert:"w
  15. 60140 poke198,0
  16.