home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / STFORMAT / STF29.ZIP / STF29.MSA / JOYSTICK_JOYSTICK.LST < prev    next >
File List  |  1987-04-21  |  546b  |  36 lines
  1. Hidem
  2. X%=319
  3. Y%=100
  4. '
  5. While Inkey$=""                ! Press Any Key to exit
  6.   @Joystick
  7.   If J%=1
  8.     Dec Y%
  9.   Endif
  10.   If J%=2
  11.     Inc Y%
  12.   Endif
  13.   If J%=4
  14.     Dec X%
  15.   Endif
  16.   If J%=8
  17.     Inc X%
  18.   Endif
  19.   If B%
  20.     Graphmode 0
  21.     Plot X%,Y%
  22.     Pause 0.3
  23.   Else
  24.     Graphmode 3
  25.     Box X%-1,Y%-1,X%+1,Y%+1
  26.     Pause 0.3
  27.     Box X%-1,Y%-1,X%+1,Y%+1
  28.   Endif
  29. Wend
  30. Edit
  31. '
  32. Procedure Joystick
  33.   J%=Peek(&HE4F)                  ! STE owners use &HEAB
  34.   B%=Peek(&HE44)-248              ! STE owners use &HEA0
  35. Return
  36.