Svenska ElektronikForumet

Kod: Markera allt

REM JoyLED.bas
REM  Kräver joystick  piper och blinkar LED's på parallellporten
start:
 CLS
  T = STICK(1): T2 = STICK(0): u = 0: SOUND 0, 0
  T = STICK(1): T2 = STICK(0): u = 0: SOUND 0, 0
  IF T > 5 THEN SOUND 500 + (T * (T2 / 8)), 2
  K = INT(T / 5): IF K < 2 THEN K = 1
  REM PRINT K
  LOCATE 1, K: PRINT T2
IF T2 > 4 THEN u = 8
IF T2 > 10 THEN u = 4
IF T2 > 25 THEN u = 16
IF T2 > 30 THEN u = 64
IF T2 > 40 THEN u = 2
IF T2 > 50 THEN u = 32
IF T2 > 60 THEN u = 1

 OUT &H378, u
IF STRIG(0) < 0 THEN PRINT "A"
IF STRIG(4) < 0 THEN PRINT "B"
FOR F = 0 TO 3000: NEXT F
GOTO start
  IF STICK(0) > 90 THEN PRINT "Right"
  IF STICK(0) < 20 THEN PRINT "Left"
  IF STICK(1) > 90 THEN PRINT "Down"
  T = STICK(0)
  IF STICK(1) < 20 THEN PRINT "Up"

Kod: Markera allt

REM !@#$%^&*  ser.bas
 FOR l = 0 TO 99999
 b = PEEK(l)
 OUT &H3F8, b
 PRINT b;
 FOR f = 0 TO 10000: NEXT f 
NEXT l