[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
My new two liner
- Subject: My new two liner
- From: "Smohn Jith" <robwiles@optonline.net>
- Date: Fri, 31 Mar 2006 22:52:43 -0500
- Newsgroups: comp.sys.apple2
- Organization: Optimum Online
- Xref: g2news1.google.com comp.sys.apple2:6007
This might have been done before, but it will load and display a $C1
uncompressed SHR picture from BASIC on a IIGS. It counts on the shadow
emulation (which I suppose I could put a check in there, probably space) and
using the ROM routine AUXMOVE. Thanks to Andy Mcfadden for clearing some
stuff up.
10 INPUT "C1$ FILENAME: ";A$:PRINT CHR$(4)"BLOAD "A$",A$1000,T$C1":POKE
49193,65:POKE 60,0:POKE 61,16:POKE 62,0:POKE 63,144:POKE 66,0:POKE
67,32:POKE 768,56:POKE 769,76:POKE 770,17:POKE 771,195
20 CALL 768:PRINT "PRESS A KEY TO DISPLAY...":GET A$:POKE 49193,193:GET
A$:POKE 49193,65