home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / DBA / ST / DBA_03.MSA / GFA_PROG.S / NEO_LOAD.LST < prev    next >
Encoding:
File List  |  1989-04-06  |  850 b   |  15 lines
  1. ' *************************************************************************
  2. ' *                  Small Neo Chrome picture loader                      *
  3. ' *                         made in GFA basic                             *
  4. ' *                    By Bonus Software of the DBA                       *
  5. ' *************************************************************************
  6. '
  7. OPEN "i",#1,"a:\kid.neo"        ! open picture file...
  8. dummy$=INPUT$(4,#1)             ! skip resolution info...
  9. a$=INPUT$(32,#1)                ! read color info (16 colors)
  10. VOID XBIOS(6,L:VARPTR(a$))      ! setup colors...
  11. dummy$=INPUT$(92,#1)            ! skip animation info 128 bytes (92=128-4-32)
  12. BGET #1,XBIOS(2),32000          ! get the picture info
  13. CLOSE #1                        ! close picture file
  14. VOID INP(2)                     ! get key.
  15.