:7330:J@"  ОAINT IEWER FROM OYAGER INDTOOLS & IVING ROOF, TD. BY .OVHAUG 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 KANE F$(), FT$(), B(), N: FILENAME, FILETYPE, BLOCKS, NUMBER OF FILES%: (14): 808,112: 792,98U(186): 13008 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:BK14d 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," " 15,U,15:15,DC$: DS$: 15n&C"RESS ANY KEY TO CONTINUE": ZZ$t&Hz&:& ** READ DIRECTORY INTO BASIC VARIABLES **& 2,U,0,"$0:"DP$: 65478,,2:N0:: 1,0,0,"WORKING..."' I1 4: 65445: I-' 65445: L: 65445: H:B(N)(H256)LU': 65445: A: A34 QF(QF,1)'Q(Q$(QF),(A)): Q0 F$(N)F$(N)(A)' A0'FT$(N)(F$(N),3):F$(N)(F$(N),(F$(N))3)' I 1 2: 65445:: A: A0 NN1: 1003( 65484: 2((BFB(N):NN1:DN$(F$(0),2,16):P( ** DISPLAY FILES ACROSS SCREEN **c(:"EVICE:";U|(I1:P0:LN1: IN( P3: "## ################ ";I,F$(I);:PP1(II1: IN (:P0: (13);:(( I 8 15 ) 2,I,2: 2: ST 0 DLDL1:DL(DL)I&)(,)2V) CLEAR VDC REM FOR LOAD (IF DESIRED)s) 3510: CLEAR,0:WR,0,26y) ) :) CHECK FOR COLOR/MONOCHROME,SET SCREEN ACCORDINGLY)& 2,DV,2,NAME$",P,R":I011:#2,A$::2:COLR((A$)):) :* LOAD IPAINT FILE (OR BASIC 8)I* 1025,COLR: 1 = COLR, 0 = MONOCHROMEh* COLR(27)"N":ՙ(27)"R"* 2,DV,2,NAME$",P,R": DISPLY* * :* RETURN TO TEXT* 57721:("FF62"):5:"":*G :*H END OF PROGRAM+R ("2E"),("1C"): 808,110: 792,64::+ :.+ INTERLACE SETUPc+ 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,8+ WR,254,12:WR,192,13:WR,160,20:WR,196,21 , WR,13564COLR,25:WR,CS(CO),7J, AA("C4A0"):AH(AA256):ALAA256AH:WR,AH,20:WR,AL,21P, V,:k, SET VDC COLORS,COLR (27);"N":ՙ(27);"R",$WR,BK16FG,26:,<DA$"",F U(U):DA$DS$&- (DA$,2)"00" " ISK RROR HAS OCCURED. LEASE CHECK YOUR DRIVE AND TRY AGAIN.": a- "RROR: ";DA$;" ON UNIT";U:"RESS ANY KEY.": A$: