home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33a.dsk / JANUARY.1988 / PACK.EXAMPLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  801b  |  16 lines
  1. 1  REM  ***********************
  2. 2  REM  *    PACK.EXAMPLE     *
  3. 3  REM  * BY Jeff Hurlburt    *
  4. 4  REM  * Copyright (C) 1988  *
  5. 5  REM  * BY MicroSPARC, Inc. *
  6. 6  REM  * Concord, MA   01742 *
  7. 7  REM  ***********************
  8. 10  PRINT  CHR$(4)"BLOAD SP.PUP"
  9. 20 DISP = 49193:PACK = 37182:PL = 4102: FOR I = 0 TO 24: READ C: POKE 768 +I,C: NEXT I
  10. 30 P$ = "PICTURE": GOSUB 50: HOME : PRINT "Done."
  11. 40  END 
  12. 50  POKE DISP,65: PRINT  CHR$(4)"BLOAD"P$",T$C1,A$1000"
  13. 60  POKE 3,0: POKE 4,160: POKE 5,0: POKE 6,200: POKE 8,83
  14. 70  CALL 768: POKE DISP,193: CALL PACK: PRINT  CHR$(7): POKE DISP,65: HOME : PRINT "Saving packed picture."
  15. 80  PRINT  CHR$(4)"BSAVE"P$".PS,A$1000,L" PEEK(PL) +256 * PEEK(PL +1) +768: RETURN 
  16. 90  DATA  24,251,194,48,169,255,127,162,0,16,160,0,32,84,225,0,226,48,169,0,72,171,56,251,96