; Joystick: move a star around the screen, the button ends the program

BYTE clock=20                ; grows by 1 fifty times a second
BYTE cursorOff=752           ; 1 hides the cursor

PROC Wait(BYTE ticks)
  clock=0
  WHILE clock<ticks
  DO
  OD
RETURN

PROC Main()
  BYTE x, y, joy

  Graphics(0)
  cursorOff=1
  Position(2, 0)
  Print("Joystick moves, the button ends")

  x=20
  y=10
  DO
    Position(x, y)
    Put('*)
    Wait(3)

    IF STrig(0)=0 THEN       ; 0 means the button is pressed
      EXIT
    FI

    joy=Stick(0)
    IF joy#15 THEN           ; 15 means the stick is in the middle
      Position(x, y)
      Put(' )                ; rub out the old star
      IF (joy&1)=0 AND y>2 THEN y==-1 FI     ; up
      IF (joy&2)=0 AND y<22 THEN y==+1 FI    ; down
      IF (joy&4)=0 AND x>2 THEN x==-1 FI     ; left
      IF (joy&8)=0 AND x<37 THEN x==+1 FI    ; right
    FI
  OD

  Position(2, 23)
  Print("Bye!")
RETURN