home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_A.d64 / joytest (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  596b  |  17 lines
  1. 10 rem joy-test von michael fabry
  2. 40 poke53280,0:poke53281,0:print"[147]"
  3. 50 o$="[206][205][157][157][157][206]  [205][157][157][157][157][163][163][163][163]"
  4. 60 u$="[164][164][164][164][157][157][157][157][205]  [206][157][157][157][205][206]"
  5. 70 l$="[206][180][157][157][157][206] [180][157][157][157][205] [180][157][157][205][180]"
  6. 80 r$="[170][205][157][157][170] [205][157][157][157][170] [206][157][157][157][170][206]"
  7. 90 f$="[213][195][195][201][157][157][157][157][194]  [194][157][157][157][157][194]  [194][157][157][157][157][202][195][195][203]"
  8. 100 printo$u$l$r$f$
  9. 110 print""spc(16)"[158]joy-test"
  10. 140 j=peek(56320)
  11. 150 if(jand1)=0then print"[158]"o$:print""o$
  12. 160 if(jand2)=0then print"[158]"u$:print""u$
  13. 170 if(jand4)=0then print"[158]"l$:print""l$
  14. 180 if(jand8)=0then print"[158]"r$:print""r$
  15. 190 if(jand16)=0then print"[158]"f$:print""f$
  16. 200 goto 140
  17.