:7330:J@"  ОAINT  IEWER V1.2 FROM IVING ROOF, TD. BY .OVHAUG /UPDATED BY .ANE ML89 .ANE HARE-  ͩ.ʽJ`RUN LP  x      N ĎP ؎ Nn    `  0 sLh ~ ٨ `) H h` ` Q iP i  ɐ `  ʭ LH4/    Gh` ` ͘ ͢ ) ͩ ͠! ͢ ͩ ͈`8 IPAINT VIDEO SYSTEM BY LOREN LOVHAUG & RICK KANEq F$(), FT$(), B(), N: FNAME, FTYPE, BLOCKS, # FILES%: (14): 808,112: 792,98U(186): 1300:V7(((("D600"))7)0)D CLEAR("1CC0"):DISPLY("1CC3"):WR("CDCC"):RR("CDDA"):DVU:VT(0)72:VT(1)63:CT(0)6:CT(1)7:CS(0)63:CS(1)56:FG0:BK14p F$(298),FT$(298),B(298),MT$(5),MH$(5) I0 3: P(I): 1,20,40,60 Q$(1)(34)(160)(0):Q$(0)Q$(1)(32) "";! 1,18,3," "N! 1,18,4," "! 1,18,5," "! 1,30,9,"RESS , , , OR "! 1,30,7,"URRENT EVICE:"(U)" 1,14,20,".OVHAUG/ML BY .ANE// V1.2 AN92 .ANE"5" 1,32,11,"ĒISPLAY MAGES"]" 1,32,13,"ÒHANGE EVICE UMBER"" 1,32,15,"ӒEND DISK COMMAND"" 1,32,17,"ŒXIT AINT IEWER""&CH0:: Z$:CH("DCSE",Z$)"0 CH0": CH 600,700,800,3410"D 500#X 3900: (DA$,2) "00" J#YDP$"IP.*": I0 296:F$(I)"":: 1001#Z N0 :" AINT FILES MUST BE PREFIXED WITH 'IP.'":"HERE ARE NO FILES ON THIS DISK WITH THE 'IP.' PREFIX.": 605#["RESS ANY KEY TO CONTINUE.": Z$:#] 1210D$b"NTER THE NUMBER OF THE PICTURE YOU WISH TO DISPLAY (0 = EXITS)";PNT$g PN 0 $j "ƒ/’ -- OREGROUND/ACKGROUND COLORS IN MONOCHROME":"RESS ANY OTHER KEY FOR MENU"$k 2%lNAME$F$(PN): 3100: 3000: 3520: 3200:: Z$: ("FB",Z$)0 B%q COLR0 FG(FG(Z$"F"))15:BK(BK(Z$"B"))15:3620N%t:3300_%v 1210: 610e%~%"URRENT EVICE:";U%"ET URRENT EVICE TO:";% I 1 DL1: DL(I);",";: I: " OR";DL(DL);% QU%I1: IDL1: QUDL(I) 4&II1:: IDL1 "EVICE NOT PRESENT": 2: 700C&DVQU:UQUI&O& h&*"URRENT EVICE:";U&4"NTER DISK COMMAND YOU WISH TO SEND:";DC$&> 15,U,15:15,DC$: DS$: 15&C"RESS ANY KEY TO CONTINUE": ZZ$&H&:' ** READ DIRECTORY INTO BASIC VARIABLES **Y' 2,U,0,"$0:"DP$: 65478,,2:N0:: 1,0,0,"WORKING..."s' I1 4: 65445: I' 65445: L: 65445: H:B(N)(H256)L': 65445: A: A34 QF(QF,1)'Q(Q$(QF),(A)): Q0 F$(N)F$(N)(A)( A02(FT$(N)(F$(N),3):F$(N)(F$(N),(F$(N))3)e( I 1 2: 65445:: A: A0 NN1: 1003u( 65484: 2(BFB(N):NN1:DN$(F$(0),2,16):( ** DISPLAY FILES ACROSS SCREEN **(:"EVICE:";U(I1:P0:LN1: IN)) P3: "## ################ ";I,F$(I);:PP1=)II1: IN R):P0: (13);:X)h) I 8 15) 2,I,2: 2: ST 0 DLDL1:DL(DL)I)()2) CLEAR VDC REM FOR LOAD (IF DESIRED)) 3510: CLEAR,0:WR,0,26) ) :** CHECK FOR COLOR/MONOCHROME,SET SCREEN ACCORDINGLYg*& 2,DV,2,NAME$",P,R":I011:#2,A$::2:COLR((A$)):m* :* LOAD IPAINT FILE (OR BASIC 8)* 1025,COLR: 1 = COLR, 0 = MONOCHROME* 3610* 2,DV,2,NAME$",P,R": DISPLY* * : + RETURN TO TEXT)+ 57721:("FF62"):5:"":/+G :D+H END OF PROGRAMu+R "":("2E"),("1C"): 808,110: 792,64::{+ :+ INTERLACE SETUP+ WR,1,36:RR,,28: A:WR,A 24,28:: FOR 64K!, 3510:WR,VT(CO),4:WR,VT(CO),6:WR,CT(CO),5:WR,CT(CO),9:WR,CT(CO),23:WR,3,8J, WR,254,12:WR,192,13:WR,160,20:WR,196,21p, WR,128V64COLR,25:WR,CS(CO),7, AA("C4A0"):AH(AA256):ALAA256AH:WR,AH,20:WR,AL,21, ,:, SET VDC COLORS,COLR (27);"N";:FG0:ՙ(27);"R";-$WR,BK16FG,26:-<DA$""1-F U(U):DA$DS$- (DA$,2)"00" " ISK RROR HAS OCCURED. LEASE CHECK YOUR DRIVE AND TRY AGAIN.": - "RROR: ";DA$;" ON UNIT";U:"RESS ANY KEY.": A$: