home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33a.dsk / JANUARY.1988 / UNPACK.EXAMPLE.bas < prev   
BASIC Source File  |  2023-02-26  |  610b  |  16 lines
  1. 1  REM  ***********************
  2. 2  REM  *   UNPACK.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": HOME : PRINT "After viewing unpacked picture,": PRINT "press RETURN to quit."
  9. 20 DISP = 49193:UNPACK = 37011:PIC = 4096
  10. 30 P$ = "PICTURE.PS": GOSUB 50
  11. 40  END 
  12. 50  POKE DISP,65: PRINT  CHR$(4)"BLOAD"P$",A"PIC
  13. 60  FOR I = 0 TO 7: POKE 3 +I, PEEK(PIC +I): NEXT I
  14. 70  POKE DISP,193: CALL UNPACK
  15. 80  PRINT  CHR$(7): GET Q$: PRINT 
  16. 90  POKE DISP,65: RETURN