T.UNPACKER
FILE INFORMATION
FILENAME(S): T.UNPACKER
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 18:12:17
APPEARS ON: 1 disk(s)
FILE HASH
fd705d765842ab777a2065e997d340985b7ff01912bc4059db0dbfb1bee8ba2c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 37 S 3 | T.UNPACKER | PRG | Sailor, Ganheden | 6 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000010: 20 20 D5 CE D0 C1 C3 CB C5 D2 0D 20 20 20 20 20 | ......... | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 | BY. | 00000030: 20 20 20 20 20 20 20 20 20 20 20 C1 4C 41 4E 20 | .LAN | 00000040: C7 41 52 44 4E 45 52 0D 0D 2A 2A 2A 2A 2A 2A 2A |.ARDNER..*******| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D CE |**************..| 00000070: CF D4 C5 3A 20 D4 48 45 20 D5 CE D0 C1 C3 CB C5 |...: .HE .......| 00000080: D2 20 49 53 20 41 20 4D 41 43 48 49 4E 45 0D 4C |. IS A MACHINE.L| 00000090: 41 4E 47 55 41 47 45 20 52 4F 55 54 49 4E 45 20 |ANGUAGE ROUTINE | 000000A0: 57 48 49 43 48 20 43 41 4E 4E 4F 54 20 42 45 20 |WHICH CANNOT BE | 000000B0: 52 55 4E 0D 4C 49 4B 45 20 4F 54 48 45 52 20 50 |RUN.LIKE OTHER P| 000000C0: 52 4F 47 52 41 4D 53 20 4F 4E 20 CC CF C1 C4 D3 |ROGRAMS ON .....| 000000D0: D4 C1 D2 2E 0D D2 45 41 44 20 54 48 49 53 20 41 |......EAD THIS A| 000000E0: 52 54 49 43 4C 45 20 54 4F 20 4C 45 41 52 4E 20 |RTICLE TO LEARN | 000000F0: 48 4F 57 20 54 4F 20 55 53 45 0D 54 48 45 20 52 |HOW TO USE.THE R| 00000100: 4F 55 54 49 4E 45 20 49 4E 20 59 4F 55 52 20 4F |OUTINE IN YOUR O| 00000110: 57 4E 20 50 52 4F 47 52 41 4D 53 2E 0D 2A 2A 2A |WN PROGRAMS..***| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 0D 0D 20 20 C1 4C 41 4E 20 C7 41 52 44 4E |**.. .LAN .ARDN| 00000150: 45 52 27 53 20 D0 C9 C3 D4 D5 D2 C5 20 D0 C1 C3 |ER'S ....... ...| 00000160: CB C5 D2 20 50 41 43 4B 53 0D 48 49 2D 52 45 53 |... PACKS.HI-RES| 00000170: 20 49 4D 41 47 45 53 20 43 52 45 41 54 45 44 20 | IMAGES CREATED | 00000180: 57 49 54 48 20 CB 4F 41 4C 41 D0 41 49 4E 54 0D |WITH .OALA.AINT.| 00000190: 4F 52 20 C4 4F 4F 44 4C 45 2E 20 20 CF 4E 43 45 |OR .OODLE. .NCE| 000001A0: 20 41 20 50 49 43 54 55 52 45 20 49 53 20 50 41 | A PICTURE IS PA| 000001B0: 43 4B 45 44 2C 0D 48 4F 57 45 56 45 52 2C 20 41 |CKED,.HOWEVER, A| 000001C0: 20 50 52 4F 47 52 41 4D 20 57 48 49 43 48 20 55 | PROGRAM WHICH U| 000001D0: 53 45 53 20 41 4E 0D 22 55 4E 50 41 43 4B 22 20 |SES AN."UNPACK" | 000001E0: 52 4F 55 54 49 4E 45 20 49 53 20 4E 45 43 45 53 |ROUTINE IS NECES| 000001F0: 53 41 52 59 20 54 4F 0D 44 49 53 50 4C 41 59 20 |SARY TO.DISPLAY | 00000200: 49 54 2E 20 20 C1 4C 41 4E 27 53 20 D5 CE D0 C1 |IT. .LAN'S ....| 00000210: C3 CB C5 D2 20 50 52 4F 56 49 44 45 53 0D 41 20 |.... PROVIDES.A | 00000220: 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 |MACHINE LANGUAGE| 00000230: 20 55 4E 50 41 43 4B 45 52 20 52 4F 55 54 49 4E | UNPACKER ROUTIN| 00000240: 45 0D 59 4F 55 20 43 41 4E 20 55 53 45 20 49 4E |E.YOU CAN USE IN| 00000250: 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 | YOUR OWN PROGRA| 00000260: 4D 53 2E 0D 0D 20 20 CB 45 45 50 20 49 4E 20 4D |MS... .EEP IN M| 00000270: 49 4E 44 2C 20 48 4F 57 45 56 45 52 2C 20 54 48 |IND, HOWEVER, TH| 00000280: 41 54 0D D5 CE D0 C1 C3 CB C5 D2 20 49 53 20 41 |AT......... IS A| 00000290: 20 52 4F 55 54 49 4E 45 2C 20 4E 4F 54 20 41 4E | ROUTINE, NOT AN| 000002A0: 0D 49 4E 44 45 50 45 4E 44 45 4E 54 20 50 52 4F |.INDEPENDENT PRO| 000002B0: 47 52 41 4D 20 57 48 49 43 48 20 43 41 4E 20 44 |GRAM WHICH CAN D| 000002C0: 49 53 50 4C 41 59 0D 41 20 50 49 43 54 55 52 45 |ISPLAY.A PICTURE| 000002D0: 20 4F 4E 20 49 54 53 20 4F 57 4E 2E 20 20 D3 49 | ON ITS OWN. .I| 000002E0: 4E 43 45 20 59 4F 55 20 4D 55 53 54 0D 50 52 4F |NCE YOU MUST.PRO| 000002F0: 56 49 44 45 20 54 48 45 20 50 52 4F 47 52 41 4D |VIDE THE PROGRAM| 00000300: 20 4F 4E 20 59 4F 55 52 20 4F 57 4E 2C 20 54 48 | ON YOUR OWN, TH| 00000310: 45 0D 46 4F 4C 4C 4F 57 49 4E 47 20 49 4E 53 54 |E.FOLLOWING INST| 00000320: 52 55 43 54 49 4F 4E 53 20 41 53 53 55 4D 45 20 |RUCTIONS ASSUME | 00000330: 54 48 41 54 0D 59 4F 55 20 55 4E 44 45 52 53 54 |THAT.YOU UNDERST| 00000340: 41 4E 44 20 48 4F 57 20 54 48 45 20 C3 2D 36 34 |AND HOW THE .-64| 00000350: 20 53 54 4F 52 45 53 0D 41 4E 44 20 50 52 4F 43 | STORES.AND PROC| 00000360: 45 53 53 45 53 20 47 52 41 50 48 49 43 20 49 4D |ESSES GRAPHIC IM| 00000370: 41 47 45 53 2E 0D 0D D5 53 49 4E 47 20 54 48 45 |AGES....SING THE| 00000380: 20 D0 52 4F 47 52 41 4D 0D 2D 2D 2D 2D 2D 2D 2D | .ROGRAM.-------| 00000390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 20 20 C9 4E |----------.. .N| 000003A0: 20 4F 52 44 45 52 20 54 4F 20 4C 4F 41 44 20 54 | ORDER TO LOAD T| 000003B0: 48 45 20 D5 CE D0 C1 C3 CB C5 D2 20 46 52 4F 4D |HE ........ FROM| 000003C0: 0D 57 49 54 48 49 4E 20 59 4F 55 52 20 4F 57 4E |.WITHIN YOUR OWN| 000003D0: 20 50 52 4F 47 52 41 4D 2C 20 55 53 45 20 54 48 | PROGRAM, USE TH| 000003E0: 49 53 0D 4C 49 4E 45 20 4F 46 20 43 4F 44 45 20 |IS.LINE OF CODE | 000003F0: 41 54 20 54 48 45 20 42 45 47 49 4E 4E 49 4E 47 |AT THE BEGINNING| 00000400: 20 4F 46 20 59 4F 55 52 0D 50 52 4F 47 52 41 4D | OF YOUR.PROGRAM| 00000410: 3A 0D 0D 20 C9 C6 20 D8 3D 30 20 D4 C8 C5 CE 20 |:.. .. .=0 .... | 00000420: D8 3D 31 3A CC CF C1 C4 22 55 4E 50 41 43 4B 45 |.=1:...."UNPACKE| 00000430: 52 22 2C 38 2C 31 0D 0D 20 20 C2 45 46 4F 52 45 |R",8,1.. .EFORE| 00000440: 20 59 4F 55 20 55 4E 50 41 43 4B 20 41 20 53 48 | YOU UNPACK A SH| 00000450: 41 50 45 20 4F 52 0D 44 49 53 50 4C 41 59 20 41 |APE OR.DISPLAY A| 00000460: 20 48 49 2D 52 45 53 20 53 43 52 45 45 4E 2C 20 | HI-RES SCREEN, | 00000470: 59 4F 55 20 4D 55 53 54 0D 44 4F 20 54 48 45 53 |YOU MUST.DO THES| 00000480: 45 20 D0 CF CB C5 53 3A 0D 0D D0 CF CB C5 20 32 |E ....S:...... 2| 00000490: 34 39 2C 20 53 43 52 45 45 4E 20 50 41 47 45 20 |49, SCREEN PAGE | 000004A0: 28 32 32 34 20 4F 52 20 33 32 29 0D 0D D0 CF CB |(224 OR 32).....| 000004B0: C5 20 32 35 30 2C 20 43 4F 4C 4F 52 20 50 41 47 |. 250, COLOR PAG| 000004C0: 45 20 28 32 30 34 20 4F 52 20 34 29 0D 0D 28 CE |E (204 OR 4)..(.| 000004D0: 4F 54 45 20 54 48 41 54 20 49 46 20 59 4F 55 20 |OTE THAT IF YOU | 000004E0: 50 4C 41 43 45 20 54 48 45 20 53 43 52 45 45 4E |PLACE THE SCREEN| 000004F0: 0D 50 41 47 45 20 41 54 20 32 32 34 20 41 4E 44 |.PAGE AT 224 AND| 00000500: 20 54 48 45 20 43 4F 4C 4F 52 20 50 41 47 45 20 | THE COLOR PAGE | 00000510: 41 54 0D 32 30 34 2C 20 41 4C 4C 20 4F 46 20 C2 |AT.204, ALL OF .| 00000520: C1 D3 C9 C3 20 D2 C1 CD 20 52 45 4D 41 49 4E 53 |.... ... REMAINS| 00000530: 20 46 52 45 45 2E 0D D4 48 45 20 42 49 54 4D 41 | FREE...HE BITMA| 00000540: 50 20 49 53 20 50 4C 41 43 45 44 20 55 4E 44 45 |P IS PLACED UNDE| 00000550: 52 20 CB 45 52 4E 41 4C 0D D2 CF CD 2E 20 20 D5 |R .ERNAL..... .| 00000560: CE D0 C1 C3 CB C5 D2 20 50 45 52 46 4F 52 4D 53 |....... PERFORMS| 00000570: 20 41 4C 4C 20 4E 45 43 45 53 53 41 52 59 0D 42 | ALL NECESSARY.B| 00000580: 41 4E 4B 20 53 57 49 54 43 48 49 4E 47 2E 29 0D |ANK SWITCHING.).| 00000590: 0D D0 CF CB C5 20 32 35 31 2C 20 4C 4F 57 20 42 |..... 251, LOW B| 000005A0: 59 54 45 20 4F 46 20 53 48 41 50 45 20 41 44 44 |YTE OF SHAPE ADD| 000005B0: 52 45 53 53 0D 28 55 53 55 41 4C 4C 59 20 30 29 |RESS.(USUALLY 0)| 000005C0: 0D 0D D0 CF CB C5 20 32 35 32 2C 20 48 49 20 42 |...... 252, HI B| 000005D0: 59 54 45 20 4F 46 20 53 48 41 50 45 20 41 44 44 |YTE OF SHAPE ADD| 000005E0: 52 45 53 53 0D 28 55 53 55 41 4C 4C 59 20 39 36 |RESS.(USUALLY 96| 000005F0: 2C 20 53 4F 4D 45 54 49 4D 45 53 20 36 34 29 0D |, SOMETIMES 64).| 00000600: 0D 28 D4 48 45 53 45 20 D0 CF CB C5 53 20 50 4F |.(.HESE ....S PO| 00000610: 49 4E 54 20 54 4F 20 50 41 43 4B 45 44 20 53 48 |INT TO PACKED SH| 00000620: 41 50 45 53 0D 49 4E 20 4D 45 4D 4F 52 59 2E 20 |APES.IN MEMORY. | 00000630: 20 D7 48 49 4C 45 20 53 48 41 50 45 53 20 46 4F | .HILE SHAPES FO| 00000640: 55 4E 44 20 4F 4E 20 54 48 45 0D CC CF C1 C4 D3 |UND ON THE......| 00000650: D4 C1 D2 20 44 49 53 4B 20 55 53 45 20 36 34 2C |... DISK USE 64,| 00000660: 20 4E 45 57 20 53 48 41 50 45 53 0D 43 52 45 41 | NEW SHAPES.CREA| 00000670: 54 45 44 20 42 59 20 D0 C9 C3 D4 D5 D2 C5 20 D0 |TED BY ....... .| 00000680: C1 C3 CB C5 D2 20 55 53 45 20 39 36 2E 29 0D 0D |..... USE 96.)..| 00000690: D0 CF CB C5 20 32 35 33 2C 20 30 0D 0D D0 CF CB |.... 253, 0.....| 000006A0: C5 20 32 35 34 2C 20 30 0D 0D 28 D4 48 45 53 45 |. 254, 0..(.HESE| 000006B0: 20 D0 CF CB C5 53 20 54 45 4C 4C 20 57 48 45 52 | ....S TELL WHER| 000006C0: 45 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 0D |E ON THE SCREEN.| 000006D0: 54 4F 20 53 54 41 52 54 20 55 4E 50 41 43 4B 49 |TO START UNPACKI| 000006E0: 4E 47 20 53 48 41 50 45 53 20 4F 4E 20 54 48 45 |NG SHAPES ON THE| 000006F0: 0D 53 43 52 45 45 4E 20 2D 2D 20 52 4F 57 20 41 |.SCREEN -- ROW A| 00000700: 4E 44 20 43 4F 4C 55 4D 4E 2E 20 D7 49 54 48 0D |ND COLUMN. .ITH.| 00000710: 50 49 43 54 55 52 45 53 20 43 4F 4D 50 52 45 53 |PICTURES COMPRES| 00000720: 53 45 44 20 42 59 20 C1 4C 41 4E 27 53 20 D0 C9 |SED BY .LAN'S ..| 00000730: C3 D4 D5 D2 C5 0D D0 C1 C3 CB C5 D2 2C 20 54 48 |............, TH| 00000740: 45 53 45 20 56 41 4C 55 45 53 20 57 49 4C 4C 20 |ESE VALUES WILL | 00000750: 41 4C 57 41 59 53 20 42 45 20 30 0D 53 49 4E 43 |ALWAYS BE 0.SINC| 00000760: 45 20 D0 C1 C3 CB C5 D2 20 57 4F 52 4B 53 20 4F |E ...... WORKS O| 00000770: 4E 4C 59 20 57 49 54 48 0D 46 55 4C 4C 20 53 43 |NLY WITH.FULL SC| 00000780: 52 45 45 4E 20 49 4D 41 47 45 53 2E 29 0D 0D 20 |REEN IMAGES.).. | 00000790: 20 CF 4E 43 45 20 59 4F 55 27 56 45 20 D0 CF CB | .NCE YOU'VE ...| 000007A0: C5 44 20 54 48 45 53 45 20 56 41 4C 55 45 53 2C |.D THESE VALUES,| 000007B0: 20 55 53 45 0D 54 48 45 53 45 20 D3 D9 D3 20 43 | USE.THESE ... C| 000007C0: 41 4C 4C 53 3A 0D 0D D3 D9 D3 20 35 31 34 35 36 |ALLS:..... 51456| 000007D0: 20 2D 2D 20 55 4E 50 41 43 4B 53 20 54 48 45 20 | -- UNPACKS THE | 000007E0: 53 48 41 50 45 20 46 4F 55 4E 44 0D 41 54 20 54 |SHAPE FOUND.AT T| 000007F0: 48 45 20 41 44 44 52 45 53 53 20 50 4F 49 4E 54 |HE ADDRESS POINT| 00000800: 45 44 20 54 4F 20 42 59 20 32 35 31 20 41 4E 44 |ED TO BY 251 AND| 00000810: 0D 32 35 32 20 54 4F 20 54 48 45 20 53 43 52 45 |.252 TO THE SCRE| 00000820: 45 4E 20 41 4E 44 20 43 4F 4C 4F 52 20 4D 45 4D |EN AND COLOR MEM| 00000830: 4F 52 59 0D 50 4F 49 4E 54 45 44 20 54 4F 20 42 |ORY.POINTED TO B| 00000840: 59 20 32 34 39 20 41 4E 44 20 32 35 30 2E 0D 0D |Y 249 AND 250...| 00000850: D3 D9 D3 20 35 31 34 35 39 20 2D 2D 20 54 4F 47 |... 51459 -- TOG| 00000860: 47 4C 45 53 20 42 45 54 57 45 45 4E 20 48 49 2D |GLES BETWEEN HI-| 00000870: 52 45 53 0D 41 4E 44 20 54 45 58 54 20 4D 4F 44 |RES.AND TEXT MOD| 00000880: 45 53 2E 20 20 D2 45 4D 45 4D 42 45 52 20 54 48 |ES. .EMEMBER TH| 00000890: 41 54 20 48 49 2D 52 45 53 0D 4D 55 53 54 20 42 |AT HI-RES.MUST B| 000008A0: 45 20 22 54 55 52 4E 45 44 20 4F 4E 22 20 42 45 |E "TURNED ON" BE| 000008B0: 46 4F 52 45 20 54 48 45 20 49 4D 41 47 45 0D 49 |FORE THE IMAGE.I| 000008C0: 53 20 44 49 53 50 4C 41 59 45 44 2E 0D 0D 20 20 |S DISPLAYED... | 000008D0: D4 4F 20 53 45 45 20 D5 CE D0 C1 C3 CB C5 D2 20 |.O SEE ........ | 000008E0: 49 4E 20 41 43 54 49 4F 4E 2C 20 53 45 45 20 54 |IN ACTION, SEE T| 000008F0: 48 45 0D C7 D2 C1 C6 C9 D8 20 C7 C1 CC CF D2 C5 |HE....... ......| 00000900: 20 53 4C 49 44 45 2D 53 48 4F 57 20 50 52 45 53 | SLIDE-SHOW PRES| 00000910: 45 4E 54 45 52 2E 0D CC 49 4E 45 53 20 39 36 2D |ENTER...INES 96-| 00000920: 39 39 20 55 4E 50 41 43 4B 20 54 48 45 20 53 48 |99 UNPACK THE SH| 00000930: 41 50 45 53 2C 20 54 48 45 4E 0D 44 49 53 50 4C |APES, THEN.DISPL| 00000940: 41 59 20 54 48 45 4D 2E 20 20 C9 4E 20 54 48 49 |AY THEM. .N THI| 00000950: 53 20 50 52 4F 47 52 41 4D 2C 20 54 48 45 0D 56 |S PROGRAM, THE.V| 00000960: 41 52 49 41 42 4C 45 20 22 D5 CE D0 C1 C3 CB 22 |ARIABLE "......"| 00000970: 20 52 45 50 52 45 53 45 4E 54 53 20 D3 D9 D3 0D | REPRESENTS ....| 00000980: 35 31 34 35 36 3B 20 56 41 52 49 41 42 4C 45 20 |51456; VARIABLE | 00000990: 22 C8 C7 D2 22 20 52 45 50 52 45 53 45 4E 54 53 |"..." REPRESENTS| 000009A0: 20 D3 D9 D3 0D 35 31 34 35 39 2E 0D 0D 0D C4 C9 | ....51459......| 000009B0: D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 |.. ..... .... ..| 000009C0: CF C7 D2 C1 CD 20 D5 D3 C5 D3 3A 0D 0D D5 CE D0 |..... ....:.....| 000009D0: C1 C3 CB C5 D2 20 20 20 20 20 20 20 20 20 20 20 |..... | 000009E0: D4 2E D5 CE D0 C1 C3 CB C5 D2 0D 0D 20 20 20 20 |............ | 000009F0: 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 20 | **** .ND .F | 00000A00: D4 45 58 54 20 2A 2A 2A 2A 0D |.EXT ****. |
.... UNPACKER.
BY. ALAN GARDNER..*******
******************************.NOTE: THE
UNPACKER IS A MACHINE.LANGUAGE ROUTINE
WHICH CANNOT BE RUN.LIKE OTHER PROGRAMS
ON LOADSTAR..READ THIS ARTICLE TO LEARN
HOW TO USE.THE ROUTINE IN YOUR OWN PROGR
AMS..***********************************
**.. ALAN GARDNER'S PICTURE PACKER PACK
S.HI-RES IMAGES CREATED WITH KOALAPAINT.
OR DOODLE. ONCE A PICTURE IS PACKED,.HO
WEVER, A PROGRAM WHICH USES AN."UNPACK"
ROUTINE IS NECESSARY TO.DISPLAY IT. ALA
N'S UNPACKER PROVIDES.A MACHINE LANGUAGE
UNPACKER ROUTINE.YOU CAN USE IN YOUR OW
N PROGRAMS... KEEP IN MIND, HOWEVER, TH
AT.UNPACKER IS A ROUTINE, NOT AN.INDEPEN
DENT PROGRAM WHICH CAN DISPLAY.A PICTURE
ON ITS OWN. SINCE YOU MUST.PROVIDE THE
PROGRAM ON YOUR OWN, THE.FOLLOWING INST
RUCTIONS ASSUME THAT.YOU UNDERSTAND HOW
THE C-64 STORES.AND PROCESSES GRAPHIC IM
AGES...USING THE PROGRAM.---------------
--.. IN ORDER TO LOAD THE UNPACKER FROM
.WITHIN YOUR OWN PROGRAM, USE THIS.LINE
OF CODE AT THE BEGINNING OF YOUR.PROGRAM
:.. IF X=0 THEN X=1:LOAD"UNPACKER",8,1..
BEFORE YOU UNPACK A SHAPE OR.DISPLAY A
HI-RES SCREEN, YOU MUST.DO THESE POKES:
..POKE 249, SCREEN PAGE (224 OR 32)..POK
E 250, COLOR PAGE (204 OR 4)..(NOTE THAT
IF YOU PLACE THE SCREEN.PAGE AT 224 AND
THE COLOR PAGE AT.204, ALL OF BASIC RAM
REMAINS FREE..THE BITMAP IS PLACED UNDE
R KERNAL.ROM. UNPACKER PERFORMS ALL NEC
ESSARY.BANK SWITCHING.)..POKE 251, LOW B
YTE OF SHAPE ADDRESS.(USUALLY 0)..POKE 2
52, HI BYTE OF SHAPE ADDRESS.(USUALLY 96
, SOMETIMES 64)..(THESE POKES POINT TO P
ACKED SHAPES.IN MEMORY. WHILE SHAPES FO
UND ON THE.LOADSTAR DISK USE 64, NEW SHA
PES.CREATED BY PICTURE PACKER USE 96.)..
POKE 253, 0..POKE 254, 0..(THESE POKES T
ELL WHERE ON THE SCREEN.TO START UNPACKI
NG SHAPES ON THE.SCREEN -- ROW AND COLUM
N. WITH.PICTURES COMPRESSED BY ALAN'S PI
CTURE.PACKER, THESE VALUES WILL ALWAYS B
E 0.SINCE PACKER WORKS ONLY WITH.FULL SC
REEN IMAGES.).. ONCE YOU'VE POKED THESE
VALUES, USE.THESE SYS CALLS:..SYS 51456
-- UNPACKS THE SHAPE FOUND.AT THE ADDRE
SS POINTED TO BY 251 AND.252 TO THE SCRE
EN AND COLOR MEMORY.POINTED TO BY 249 AN
D 250...SYS 51459 -- TOGGLES BETWEEN HI-
RES.AND TEXT MODES. REMEMBER THAT HI-RE
S.MUST BE "TURNED ON" BEFORE THE IMAGE.I
S DISPLAYED... TO SEE UNPACKER IN ACTIO
N, SEE THE.GRAFIX GALORE SLIDE-SHOW PRES
ENTER..LINES 96-99 UNPACK THE SHAPES, TH
EN.DISPLAY THEM. IN THIS PROGRAM, THE.V
ARIABLE "UNPACK" REPRESENTS SYS.51456; V
ARIABLE "HGR" REPRESENTS SYS.51459....DI
SK FILES THIS PROGRAM USES:..UNPACKER
T.UNPACKER.. **** END OF
TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL