home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_NEWS / STN_05_2.MSA / PROGRAMS / ACCESSOR.GFA (.txt) next >
Encoding:
GFA-BASIC Atari  |  1990-12-02  |  726 b   |  17 lines
  1. ' Example of a perpetually running accessory in GfA Basic 3
  2. ' by Richard Karsmakers
  3. '
  4. $m34000                          !The amount of memory the accessory needs
  5. buf&=APPL_INIT()                 !Declera the accessory
  6. '
  7. DO                               !This loop is executed 'Multi-tasking'
  8.   '
  9.   ~EVNT_TIMER(300000)            !Wait for 300000 milliseconds
  10.   SGET screen$                   !Get the screen
  11.   PRINT "YEAH! IT WORKS!"        !Do something. Put your own routine here!
  12.   WHILE INKEY$=""                !Wait for a key
  13.   WEND
  14.   SPUT screen$                   !Put back the screen
  15.   '
  16. LOOP
  17.