home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / GFA_CODE / PICUTIL1.LST < prev    next >
File List  |  1989-07-29  |  1KB  |  41 lines
  1. ' ** SET UP STORE FOR THE SCREEN                                **
  2. ' ** Notes: Can set up several screens; i.e. for 5, DIM scr$(4) **
  3. ' **        By setting it to 32066 it can also hold 32034       **
  4. DIM scr$(0)
  5. scr$(0)=SPACE$(32066)
  6. '
  7. ' ** FILE TO LOAD (AND FILE TO SAVE)                    **
  8. ' ** Notes: Assumes file exits, is valid & correct res. **
  9. fload$="\picture.pi1"
  10. fsave$="\picture2.pi1"
  11. '
  12. ' ** FLAGS: Do you want pallette? **
  13. ' **        Do you want to save?  **
  14. pall&=TRUE
  15. sav&=FALSE
  16. '
  17. ' ** LOAD PICTURE, GRAB BITMAT(SCREEN) AND PALLETTE **
  18. BLOAD fload$,V:scr$(0)
  19. pall$=MID$(scr$(0),1,34)
  20. bitmp$=MID$(scr$(0),35,32000)
  21. '
  22. ' ** SET PALLETTE (IF WANTED) AND DISPLAY BITMAP             **
  23. ' ** Notes: XBIOS(6) is a GFA call to set all colors at once **
  24. IF pall&
  25.   ~XBIOS(6,L:V:pall$+2)
  26. ENDIF
  27. SPUT bitmp$
  28. '
  29. ' ** EITHER SAVE (IF WANTED) OR WAIT FOR KEY PRESS        **
  30. ' ** Notes: If file exists then program WON`T make backup **
  31. PRINT CHR$(7);
  32. IF sav&
  33.   IF pall&
  34.     bitmp$=pall$+bitmp$
  35.   ENDIF
  36.   BSAVE fsave$,V:bitmp$,LEN(bitmp$)
  37. ELSE
  38.   ~INP(2)
  39. ENDIF
  40. EDIT
  41.