home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / utilities / flipside / flipside.asc < prev    next >
Text File  |  1999-12-05  |  619b  |  28 lines
  1.  
  2. ; Note - this source uses Fred Laboureur's NLibs, the
  3. ; compact Blitz replacement libraries...available on Aminet.
  4.  
  5. ; Public Domain source, written in 1999
  6.  
  7. ; Additional code for GFX card compatabilty added by Allan Versaevel
  8.  
  9. v$="$VER: Flipside 1.2 (01/12/1999) James L Boyd/Allan Versaevel "
  10.  
  11. NBWStartup
  12. NProgramPriority (2)
  13. If NInitScreen (1)=0 Then End
  14.  
  15. Repeat
  16.   If Peek.w ($DFF016) BitTst 8=0
  17.     *scr.Screen=NFindFrontScreen (0)
  18.     If *scr
  19.       ScreenToBack_ *scr
  20.     EndIf
  21.     While Peek.w ($DFF016) BitTst 8=0:Delay_ 03:Wend
  22.   EndIf
  23.  Delay_ 03
  24. Until SetSignal_(0,#SIGBREAKF_CTRL_C) & #SIGBREAKF_CTRL_C
  25.  
  26. End
  27.  
  28.