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