78v PICMCIODLIONDLIOFFIOCOLDSCOLDSCPICBADLIBA INITIALIZE BGET PIC NAME((ENTER FILESPEC2LOAD PICTURE< BF @pHq--Init for Fun with Art--RqCall only once\q6-@;,fq%-@"!67,.>:,% pq104,104,104,170,76,86,228zq66-@;,6Use PIC$ to hold the filenameq ;,q%-@"!67,.>:,% q))104,169,192,141,232,6,162,6,160,221q169,6,76,92,228q6-@;,q%-@"!67,.>:,% q))104,169,64,141,232,6,141,14,212,162q 228,160,95,169,6,76,92,228qq55Init variables and steal some memory from BASICqq-6-AH6-F:A`,-6-F:Aa,q//6-+P:F:AB,'@,&@,$@q/6-&@ #AA/ABq$r!!--Load & Show FWA Picture--rVVNOTE:This routine returns A=-1 if it does not identify the picture as a FWA file$r5 B B5Make sure the DLI's are off.rG @@-)@:)@GI.D. BYTES8r4 @!6-6@$$4NOT A FWA PICBr:AT@'6-6@*$:NOT A FWA PICLrGet playfield colorsVr$)@A$COLBK`r6-@$)@2A%6 jr$$-Read Display List into Page 6tr+%@+%@@~r+%@+%@ @r6-?:C:,<@,r--Read Screen Data--r%%@%%@r+%@@+%@ @0r6-?:C:,<@,r--Read DLI Routines--r%%@%%@r+%@+%@ @ r6-?:C:,<@,r,@6-F:A`,,6-F:Aa,r --Show Picture on Screen--r#AA#AE%@s!AX@!Ac s'A`'Aa@s6-?:C:,,s6-$