home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702a.d64 / joytest (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.