home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / STFORMAT / STF36.ZIP / STF36A.MSA / GFA / SWITCH.GFA (.txt) < prev   
GFA-BASIC Atari  |  1990-05-26  |  1KB  |  31 lines
  1. ' Medium To Low Resolution Switcher
  2. ' By B J Capel For ST Format
  3. '
  4. IF XBIOS(4)=0 OR XBIOS(4)=2
  5.   ALERT 3," |Sorry - Wrong Resolution!!| Please Set To Medium Rez|  And Reload GFA Basic.",1,"OK",chn&
  6.   END
  7. ENDIF
  8. '
  9. PRINT "Now in medium Resolution - press a mouse button..."
  10. REPEAT
  11. UNTIL MOUSEK
  12. r%=0
  13. ' r% equals 0 for low res   1  for medium res   2 for hi res
  14. VOID XBIOS(5,L:-1,L:-1,r%)
  15. CLS
  16. HIDEM
  17. PRINT "Now in low Resolution!"
  18. PAUSE 50
  19. PRINT "Loading PI1 Degas Picture..."
  20. BLOAD "filename.pi1",XBIOS(3)-34 !Change the filename to match one of your own Degas PI1 pictures.
  21. VOID XBIOS(6,L:XBIOS(3)-32)
  22. PAUSE 200
  23. PRINT AT(1,1);"    Switching back to medium rez....    ";
  24. PAUSE 200
  25. CLS
  26. r%=1
  27. VOID XBIOS(5,L:-1,L:-1,r%)
  28. CLS
  29. PRINT "Back in Medium Rez..."
  30. END
  31.