"IPAINT16K VIEWER"- BY RICK KANER WRITTEN AND (C) 1991 RICK KANE# IPAINT DISPLAY AND SAVE IN BASIC 7 WITH 16K VDC RAM(1500247,0:48,186::950:1000<D(186):%:5:"";530::K$:K("_?@"(13),K$):K:K1 ( K1800,340,1100,1050,930=6,15::"":CI:r SCROLL SCREEN LEFT=0 RIGHT=1 IN .A:: K$:K("MC"(13),K$): K:K8K3 230: 280:: SCROLL SCROL,(K2): :  CLEAR/MONO/COLOR/FG-BGK3 430."K4 C0:460H,K5 CS C1:460`1K5 C0 1400f6l@rI:J SAVE IPAINTT1:CS(1033):15:SA("0400"):EASA320168004(CS0)^410:1:ISA SA8: A$:I,(A$)::15h" "$r "FULL FILENAME";F$:F$(F$,16)D|"DRIVE";DR:DR8DR23380d(F$),B1,U(DR),P(SA)P(EA)p"";: 42,52,55,53,04,00,00,00,00: CLEAR VDC RAMWR,0,18:WR,0,19:WR,32,24:WR,0,31:I063:WR,255,30::CL0: RETURN4 X255:AD16384428:440:T428:438:AD45228:440:438g AD24428:440:T828:438:AD20028:440:438 X0:ADAT12528:440:437:ADAT5028:440:437 ADAT6228:440:437:ADAT11328:440:437  T28 !WR,3264(CS0),24:WR2,X:WR,T1,30:!:A!ALAD 255:AH(AD256):WR,AH,18:WR,AL,19:G!:e! SET UP INTERLACE SCREEN!WR,28,1:WR,102,2:WR,255,8:WR,1,36:WR,240,26:WR,AT256,20:WR,AT 255,21:WR,("3F"),12:WR,("90"),13!1:CS(1033):15:CCS:CC240"WR,92,35:WR,93,342" ENTER HERE TO TOGGLE COLOR"WR,(19264(C0)) V,25:WR,639(C0),4:WR,639(C0),6:WR,7(C0),5:WR,7(C0),9:WR,578(C0),7" C0(27)"R";:WR,CC,26:ՙ(27)"N";:WR,240,26"":" RESTORE 80-COLUMN SCREENh#WR,80,1:WR,102,2:WR,64 V,25:WR,0,12:WR,0,13:WR,32,24:WR,8,20:WR,0,21:WR,125,34:WR,100,35v#WR,231,9#WR,32,4:WR,224,5:WR,25,6:WR,29,7:WR,252,8:WR,240,26:("FF62"):530:#:# MENU#6,15:"";$""25)"D$&25)"ݛ  ОAINT 16K IEWER "l$025)"  "$:25)"  "$D25)" "$N25)"ݛ (C)1991 ICK ANE " %X25)" 2%b25)" %l"  AIN ENU":" ":"  ОAINT: F1 %v"  ОAINT: 2 %" ? NFO &" Β RAPHIC )&" @ ISK COMMAND M&" _ ND n&" &" "(27)"T RAPHIC COMMANDS":"&" /ԙ SCROLL '" CLEAR ''" / MONO/COLOR K'" F3/F5 FGD+BDR/BKD q'" Β ENU '""'0,20,79,24,1'1,(133):2,(137):3,(134):5,(135)' ':' LOAD IPAINT( " " (*"DRIVE";DR:DR8DR23810X(4" ОAINT PIC TO LOAD OR '$' ('_' EXITS)";F$n(>F$"$"910:820{(CDQ925(HF$"_" 890(\2,DR,2,F$",P,R"(aI05:#2,A$::#2,A$:A$(4) 2:"NOT A PICTURE FILE.":800")bI03:#2,A$::A$""2:(F$),B1,P(1024),U(DR):890/)f LOD:2;)z"";:A):Q) DIRECTORY])PT$"*"|)DQ1:"";:50,0,79,19,1) (PT$),U(DR):0,20,79,24,0)"";:)DQ0:50,0,79,19,1:540:):) RETURN KEY FROM MENU)450:430: DISP *190:490**:=*ER30 : &:0:(ER);EL:C*:S* CONSTANTS*LOD("1300"):DISP("1303"):SCROL("1306")*WR("CDCC"):RR("CDDA")*15:WR,32,28:RR,,25: A:VA 7: 8563 VERSION*AT("31FC")**:+ DISK COMMAND+" =+"DRIVE";DR:DR8DR231055h+$"USE QUOTES TO INCLUDE ':' IN COMMAND+&F$"":"COMMAND";F$+)(F$,"$")11097:912:1060+.DQ925+315,DR,15,F$+815,EN,E$,ET,ES:15+=EN;E$;ET;ES: 2+G"";:9,IPT$"*":(F$)1(F$,":")0PT$(F$,(F$)(F$,":"))::Վ?,J:J,K INFO^,L 16,0,61,24,1,V(27)"M";: 1120:(27)"L";:K$:530:,`"";,"ݙ EE AINT'S EXTENSIVE COLOR PALETTE ";7-"ݙ BEFORE UPGRADING TO 64 OF VIDEO ! ";q-"ݐ HIS PROGRAM IS -- THE CODE IS ";-"ݐ COPYRIGHTED, BUT YOU MAY FREELY DISTRIBUTE ";-"ݐ IT . HIS NOTICE MUST REMAIN, AND ";."ݐ NO FEES EXCEPT COSTS MAY BE CHARGED! ";Y." RESS F1 TO LOAD AN AINT PICTURE, ";." OR ANY 640X400 ASIC 8 PICTURE. '@' FOR ";." DISK COMMANDS. O ENTER A COLON (R0: ..), ";/" ENTER A QUOTE (";(34);"R0: ..";(34);"). $ = DIRECTORY. ";S/" RESS Β TO VIEW. OU WILL HAVE ";/" A 224X400 PIXEL SCROLLING WINDOW. SE THE ";/ " CURSOR RIGHT/LEFT KEYS TO SEE MORE. ";0" - AINT FILES PROBABLY LOOK BEST IN";;0" MONOCHROME. RESS , OR FOR COLOR. ONO-";u0" CHROME PICS WON'T ALLOW COLOR VIEWING. ";0" F3/F5 CHANGE COLORS IN MONOCHROME ONLY.";0" WILL CLEAR THE INTERLACE SCREEN. ";%1(" OU MUST THEN Β TO THE MENU AND PRESS ";a12" Β TO REDRAW. ";1<" OU MAY SAVE THE FILE IN UNCOMPRESSED ";1F" FORM. HIS CAN BE HELPFUL IN CONVERTING, ";2P" OR EXAMINING THE DATA. RESS 2 TO SAVE. ";I2Z" RESS ANY KEY TO CONTINUE ";O2dU2v:r2w COLORS (IN MONOCHROME)2xKK6:RR,,26: CC:FG(CC16):BGCC 152CC16((FG(K1))15)((BG(K0))15)2WR,CC,26:2:3%:"SETTING UP...":1510:I48645836:A$:I,(A$)::Q3 4C,09,13,4C,CF,13,4C,69,14,A2,02,20,C6,FF,A9,003 85,FA,A9,04,85,FB,A9,FA,8D,B9,02,A0,09,20,CF,FF3 A2,01,78,20,77,FF,58,C8,C0,10,D0,F1,A9,10,85,FA3 A0,00,20,CF,FF,30,10,F0,F9,85,FC,20,CF,FF,20,B9)4 13,C6,FC,D0,F6,F0,10,29,7F,F0,E7,85,FC,20,CF,FF_4 20,B9,13,C6,FC,D0,F9,A5,FA,C9,10,A5,FB,E9,81,904 D1,AD,09,04,D0,03,4C,CC,FF,A0,00,20,CF,FF,A2,014 78,20,77,FF,58,C8,C0,04,D0,F1,A0,00,18,A5,FA,695 04,85,FA,90,02,E6,FB,20,CF,FF,30,10,F0,F9,85,FC75 20,CF,FF,20,B9,13,C6,FC,D0,F6,F0,10,29,7F,F0,E7m5 85,FC,20,CF,FF,20,B9,13,C6,FC,D0,F9,A5,FA,C9,545 A5,FB,E9,A0,90,D1,4C,CC,FF,78,A2,01,20,77,FF,585 E6,FA,D0,02,E6,FB,60,00,00,90,1B,FC,31,E0,38,A96 00,8D,68,14,A2,10,86,FA,A2,04,86,FB,A2,12,A9,1BE6 20,CC,CD,E8,A9,90,20,CC,CD,A9,C8,20,39,14,A2,60{6 86,FA,A2,04,86,FB,A2,12,A9,00,20,CC,CD,E8,A9,006 20,CC,CD,A9,C8,20,39,14,A2,14,86,FA,A2,81,86,FB6 A2,12,A9,38,20,CC,CD,E8,A9,E0,20,CC,CD,A9,32,207 39,14,A2,64,86,FA,A2,81,86,FB,A2,12,A9,31,20,CCS7 CD,E8,A9,FC,20,CC,CD,A9,32,85,FC,A0,1B,A2,01,A97 FA,78,20,74,FF,58,99,D1,16,88,10,F1,C8,B9,D1,167 20,CA,CD,C8,C0,1C,D0,F5,18,A5,FA,69,A0,85,FA,907 02,E6,FB,C6,FC,D0,D4,60,00,85,FD,C9,00,D0,21,AD+8 68,14,D0,01,60,CE,68,14,20,B3,14,A2,02,20,DA,CDa8 AE,68,14,E0,25,B0,03,18,69,01,20,0C,15,4C,4A,158 AD,68,14,C9,34,D0,01,60,EE,68,14,20,D0,14,A2,028 20,DA,CD,AE,68,14,E0,26,B0,03,38,E9,01,20,0C,159 4C,4A,15,20,ED,14,38,E9,01,8D,CF,16,B0,03,CE,D099 16,AD,CD,16,38,E9,01,8D,CD,16,B0,03,CE,CE,16,60o9 20,ED,14,18,69,01,8D,CF,16,90,03,EE,D0,16,AD,CD9 16,18,69,01,8D,CD,16,90,03,EE,CE,16,60,A2,0C,209 DA,CD,8D,CE,16,E8,20,DA,CD,8D,CD,16,A2,14,20,DA: CD,8D,D0,16,E8,20,DA,CD,8D,CF,16,60,A2,02,8E,00G: D6,2C,00,D6,10,FB,8D,01,D6,A2,0C,AD,CE,16,20,34}: 15,E8,AD,CD,16,20,34,15,A2,14,AD,D0,16,20,34,15:  E8,AD,CF,16,8E,00,D6,8D,01,D6,60,A2,12,AD,CE,16:  20,CC,CD,AD,CD,16,E8,4C,CC,CD,A0,01,B9,C9,13,99;  CF,16,88,10,F7,A9,C8,85,FC,A9,10,85,FA,A9,04,85U;  FB,20,63,16,A0,01,B9,C7,13,99,CF,16,88,10,F7,A9;  C8,85,FC,A9,60,85,FA,A9,04,85,FB,20,63,16,A0,01; B9,CD,13,99,CF,16,88,10,F7,A9,32,85,FC,A9,14,85; FA,A9,81,85,FB,20,63,16,A0,01,B9,CB,13,99,CF,16-< 88,10,F7,A9,32,85,FC,A9,64,85,FA,A9,81,85,FB,20c< 63,16,A0,FF,A9,90,18,6D,68,14,8D,CD,16,A9,3F,69< 00,8D,CE,16,A9,70,20,55,16,A9,E0,18,6D,68,14,8D< CD,16,A9,15,69,00,8D,CE,16,A9,E0,20,55,16,A9,B0= 18,6D,68,14,8D,CD,16,A9,1A,69,00,8D,CE,16,A9,E0;= 20,55,16,A9,70,18,6D,68,14,8D,CD,16,A9,31,69,00q= 8D,CE,16,A9,70,20,55,16,A0,00,A9,74,18,6D,68,14= 8D,CD,16,A9,37,69,00,8D,CE,16,20,53,16,A9,C4,18= 6D,68,14,8D,CD,16,A9,38,69,00,8D,CE,16,20,53,16> A9,58,18,6D,68,14,8D,CD,16,A9,3E,69,00,8D,CE,16I> 20,53,16,A9,A8,18,6D,68,14,8D,CD,16,A9,3F,69,00> 8D,CE,16,A9,1C,85,FC,20,3B,15,98,20,CA,CD,C6,FC> D0,F9,60,AD,CF,16,18,6D,68,14,8D,CD,16,AD,D0,16> 69,00,8D,CE,16,A6,FD,F0,0E,AD,CD,16,18,69,1B,8D!? CD,16,90,03,EE,CE,16,A2,12,20,3D,15,AD,68,14,A6W? FD,F0,03,18,69,1B,A8,A2,01,A9,FA,78,20,74,FF,58?  20,CA,CD,20,AB,16,C6,FC,D0,ED,60,AD,CD,16,18,69?! 1C,8D,CD,16,AD,CE,16,69,00,8D,CE,16,A2,12,20,3D?" 15,18,A5,FA,69,A0,85,FA,90,02,E6,FB,60