home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / STFORMAT / STF41.ZIP / STF41A.MSA / GFASPEC / SHOWSPEC.GFA (.txt) < prev   
GFA-BASIC Atari  |  1985-11-20  |  1KB  |  34 lines
  1. '
  2. ' Routine to show SPECTRUM 512 pictures in GFA basic.
  3. '
  4. ' Deals ONLY with Spectrum uncompressed pictures (SPU).
  5. '
  6. ' Code and program by The Phantom of Electronic Images.
  7. '
  8. ' PAL 50Hz version with hbl refresh @ 64 microseconds.
  9. '
  10. '
  11. '
  12. DIM codespc|(564)                       ! Reserve space for my code - 564 bytes!
  13. DIM piccie|(64000)                      ! Space reserved for Spectrum 512 pic.
  14. '
  15. pic%=VARPTR(piccie|(0))                 ! Get address of picture.
  16. code%=VARPTR(codespc|(0))               ! Get address of code.
  17. '
  18. BLOAD "speccy.spu",pic%                 ! Load Spectrum 512 picture in buffer.
  19. BLOAD "512_gfa.dat",code%               ! Load my code as well!
  20. ' Replace the above BLOAD for an INLINE if you want.
  21. '
  22. '
  23. showspec%=code%+4                       ! Skip 4 bytes of pic adress in my code.
  24. '
  25. LPOKE code%,pic%                        ! Poke in the adress of the picture.
  26. '
  27. BMOVE pic%,XBIOS(2),32000               ! Copy picture to screen ( only 32K ).
  28. CALL showspec%                          ! Call my routine for 512 colours!
  29. '
  30. WHILE INKEY$=""
  31. WEND                                    ! Wait for key...
  32. '
  33. SLPOKE &H4D2,0                          ! Disable my routine (supervisor poke).
  34.