10 REM JOYTEST * Filterprogramm fuer Joysticksignale
20 REM 16.11.1989 Thomas Konradt / Laenge 826 Bytes 30 MODE2:INK0,0:BORDER0:INK1,15:CLEAR 40 REM Gruenmonitor INK 1,26 50 WINDOW#2,1,80,2,24:CLS#2 60 WINDOW#1,1,80,1,1:CLS#1:PRINT"JOY-Test Joysticksignalfilterprogramm (C)1989 by STELLARIS-Soft/Thomas Konradt" 70 LOCATE29,12:PRINT"JOYSTICK [1] oder [2]":GOSUB200 80 IFtTHENj=0ELSEj=-1 90 CLS#2 100 REM Falsches BIT mit AND loeschen 110 filter=&FF 120 IFjTHENjy=JOY(0)ANDfilterELSEjy=JOY(1)ANDfilter 130 LOCATE1,25:PRINT"JOYSTICK :":LOCATE12,25:PRINTUSING"###";jy; 140 PRINT" ";HEX$(jy,2);" ";BIN$(jy,8) 150 LOCATE40,25:PRINT"Filterbyte: ";BIN$(filter,8) 160 DRAWx,100+(jy*2):x=x+10 170 IFx>639THENCLS#2:PLOT0,YPOS:x=0:GOTO120 180 IFINKEY$=" "THENGOSUB220 190 WHILEINKEY$<>"":WEND:GOTO120 200 i$="":WHILEi$="":i$=INKEY$:WEND:t=(i$="2"):RETURN 210 REM Berechnung des Filterbytes/NEGation 220 PRINTCHR$(7);:filter=255-jy:GOTO120 |