: 2:7330:J@"  ОAINT LIDEHOW V1.1 BY .ANE 94 FROM IVING ROOF, TD. FREELY DISTRIBUTABLE IF ONLY COSTS ARE CHARGED. ͩ!.ʽJ`RUN L9LL+ ) " E 2 @  L 0 L  # ߨ @`) H @h` `HŞh C iP i   `  ʭ LH4/    h`d `  0      ` `P8J8).mm.mmi`im @m mm @mmm m Nn`@ ͮ ͢ ) ͩ ͠! ʩ@ ͢ ͩ ͈` `   ܢ   н " "8 " 8ei L `  hx tX$ 8ei L `x wX`2! IPAINT SLIDESHOW 1.1 BY RICK KANE APR 1994]! %:48,24::90:6,1:3000:3240:1200r!(211)0CLEAR!2130:3140:900: (27)"M":800:SC0:SR0:1120!7 MAIN OPTION SELECT("8M$"RESS TO SELECT FUNCTION":890:135::1110:1130::K$:K(""(13),K$):K:K3["9OSSL:SLSL12(K1):SL7SL1: SL1SL7q"::1140:SL7 70";SL 1600,1300,1500,1350,180,1700:56"<136:M$"AN'T DO THAT.":890: 3:"F136:M$"? Y/Λ":890:K$:K$"Y"56##K15:3:2:(27)"L":46,28:48,4::+#Z 1#:e# 9,,,,,4: "V3O4T2U0X0#G": "V1O6T9U0X0R":~# "V1O6T9U15X0WA":# "V2O1T7U15X0QG":#:# DCOMMAND$1250:CM$"":"OMMAND: ";:190:15:15,DV,15:(CM$,1)"$"184: (CM$,1)":"CM$CM$"*"&$CM$"$"CM$"$:*"p$910:(27)"L";: ((CM$,(CM$)(CM$,":")))U(DV):(27)"M";:CM$""$15:15,DV,15:CM$""15,CM$$M$""DS$"":890:15:I0::K$:II1:K$""I350:$ RR,,10: A:WR,(A31)64,10%CM$""::K$:K$;:K$(13):WR,A,10\%3:"";:3,3:I1039:#3,A$:A$" "I40::194m%CM$CM$A$:%3:"";CM$;"";:%:%  0,0,79,1,1:" AINT LIDEHOW V1.1 (C) 1994 ICK ANE ";R&*" IVING ROOF, TD. ":p&4825:"ILE AME: ";F$:&9 0,2,27,2,1:&=0,2,37,8,1:&> 0,5,28,5,1:"";:WD8;"X";HT;(" қ",17CR,7);" ";("UNCOMPRESSED",122CP):J'H841:" :":"RESS  OR Ξ TO START HOW":]'I0,7,37,8,1:'R851:"URING UTOHOW: ԛ - PAUSES":" Û - EXITS":'S0,7,37,10,1:'\0,15,79,24,1:'f0,5,38,24,1:(z 0,3,39,3,1: M$;:: MESSAGE/INPUT?( 0,0,79,24,1:: CLEAR SCREENf( 53,3,79,24,1:: DIRECTORY ETC.(V 40,2,52,18,0:: MAIN OPTIONS(`1110:OS1:SL1:I17:"";SL$(I);""::(j1,0,(OS1)2,""SL$(OS):1,0,(SL1)2,""SL$(SL)"":!)t1,0,(SL1)2,""SL$(SL)"":')~:D)1201:I17:SL$(I)::)"UTO HOW","OAD IC","IEW","ILE NFO","ISK OMMAND","NFO","")PT$"":M$"NTER PATTERN *"(13):890:"";PT$:*M$"NTER DRIVE #"(DV)(13):890:"";DV:DV81250!*'*:9* LOAD IPAINTK*1440:OP0e*(1330:OSSL:SLSL1:p*2CLEAR*4M$"ISPLAYING":890:2:2,DV,2,F$",P,R":1025,CR:DISPLY:3170*7135:K$:3140:*E INFO*F1440:OP0B+KM$"ISPLAY? (/N)":890::K$:K("NY"(13),K$):K:K11330:OSSL:SLSL1:K+P2:Q+:+1470:FF$(F$,(F$)3):F$"":PT$""M$"ILENAME "PT$(13):M$"ILENAME "FF$(13)+890:"";F$:(F$,3)"IP."F$"IP."F$+F$"IP."OP0:,S$"".,820:M$"EADING FILE HEADER":890s,2:OP1:2,DV,2,F$: DS M$""DS$"":890: 2:825:2:OP0:,#2,A$,A$:I04:#2,A$:S$S$A$::S$"BRUS"M$"OT VALID FORMAT.":890: 2:825:2:OP0:-I02:#2,A$::#2,A$,B$:CP(A$):CR((B$)0):1025,CR2-#2,A$:WD(A$): WIDTH\-#2,A$,B$:HT(A$)256(B$): HEIGHTg-830:m-:-2:829:1250:1240-PT$""910:(27)"L";: ("IP."PT$),U(DV):(27)"M";--:- VIEW-3170:K$:3140:->:.? AUTO VIEW!.@850:1470:PT$""1670D.BDS136:M$DS$:890: 1:1670.E135:M$"HOW THESE? /N":890::K$:K("NY"(13),K$):K:K21670.J0,DV,0,"$:IP."PT$:("1CC3"): ZZ:ZZ1670: OPENDIR/LLP0:M$"NDLESS LOOP? Y/Λ":890::K$:K("YN"(13),K$):K:K2LP1m/OM$"NTERVAL (SECS) "(13):890:"";IT$:IT(IT$):IT01615/T135:840:TI$"000000":TTTI240::K$:(TITT)K$"" (1)0(2)0:K$(27)1670:Ս31750YK$"":K$:K$"" (1)0(2)0:K$(27)1670.0^:("1CC6"): ZZ:ZZ1:ՋZZ21660j0cCR((1025)0):3175:CLEAR:("1CCE"): ZZ:3170:135|0h:K$:K$""0m:(211)0:TI$"000000":TTTI60IT::K$:(TITT)((1)0)((2)0)(K$"")(211)0:(211)16450rZZ1w(K$)27:1|:(LP0)(K$(27))("1F85"),0:("1F86"),4:1630K1851:3140:V1 INFO1870:" ОAINT LIDEHOW":"ELECT UTO HOW TO BEGIN A SLIDE SHOW.OU'LL BE ASKED FOR A VALID DRIVE, THENj2"A PATTERN FOR FILENAMES. HE 'IP.'-":"PREFIX IS AUTOMATIC. EAVE THE PATTERNBLANK TO ESCAPE UTOHOW.":" DIRECTORY OF MATCHING FILES WILL BE2"SHOWN, AND YOU'RE GIVEN ANOTHER CHANCE TO ESCAPE FROM UTOHOW. EXT YOU'RE ASKED IF YOU WANT TO LOOP ENDLESSLY.^3"F YOU SELECT LOOP, THE KEY IS THE ONLY WAY TO EXIT.":"EXT YOU'LL BE ASKED FOR A DELAY VALUE (IN SECONDS).3"UTOHOW WILL WAIT FOREVER WITH A VALUEOF 86400 (24 HOURS)- UNLESS YOU PRESS AKEY OR BUTTON.3" RESS A KEY TO CONTINUE... ":K$:870s4"FTER A SHORT PAUSE, THE SCREEN WILL":"BLANK. HIS ALLOWS YOU TO START THE":"SHOW WITHOUT SEEING THE MENU SCREEN."4"RESS A KEY, OR MOUSE/JOYSTICK BUTTON":"TO START. ITH EACH PICTURE, UTOHOW":"WILL WAIT FOR A KEY OR BUTTON PRESS ORe5"UNTIL THE DELAY TIME HAS TICKED OFF.":"OU CAN PAUSE A PICTURE BY PRESSING A (OR OCK) KEY.5"F YOU PRESS , OR AFTER THE LAST PICTURE, YOU'LL RETURN TO THE MENU.":" RESS A KEY TO CONTINUE... ":K$:87096870:"O LOAD A SINGLE PICTURE, SELECT":"OAD IC OR ILE NFO."6"HEN ENTER A VALID DRIVE FOLLOWED BY":"A PATTERN FOR A DIRECTORY. F YOU7"LEAVE THE PATTERN BLANK, NO DIRECTORY":"WILL BE LISTED. THERWISE, THE 'IP.'":"PREFIX WILL BE AUTOMATICALLY ADDED."v7"OU DON'T NEED THE 'IP.' PREFIX ON THE FILENAME. LSO, YOU CAN ESCAPE IF YOU LEAVE THE FILENAME BLANK."7"NFO ABOUT THE PICTURE-- DIMENSIONS, COLOR, AND COMPRESSION-- ARE THEN":"DISPLAYED. F YOU SELECTED NFO, YOUn8"HAVE THE CHOICE OF ABORTING THE LOAD;":"OTHERWISE THE PICTURE IS LOADED AND":"DISPLAYED. RESS ANY KEY FOR THE MENU."8"ELECT IEW TO SEE THE MOST RECENTLY":"LOADED PICTURE."8" RESS A KEY TO CONTINUE... ":K$:870?9"  ОAINT LIDEHOW V1.1":"WRITTEN BY & COPYRIGHT(C)1994 ICK ANE9"HIS PROGRAM IS PUBLIC DOMAIN, BUT IT FREELY DISTRIBUTABLE; PROVIDED":"ONLY THE COST OF DUPLICATION AND":"MATERIALS IS CHARGED."3:"HE CODE MAY BE USED IN OTHER":"SOFTWARE WITHOUT WRITTEN PERMISSION":"OF THE AUTHOR.":" ОAINT AND  ORT ARE TRADEMARKS OF":"ICK ANE. HEY ARE DISTRIBUTED BY:":"IVING ROOF, TD.":" OX 80714";"INNEAPOLIS, 55408-8714":"OMMENTS AND CORRESPONDENCE ARE ALWAYS WELCOMED!D;" RESS A KEY TO CONTINUE... ":K$:870J; :f; VARIABLES & CONSTANTS; BD(186):DVBD:("CDDA"),,24: A:("CDCC"),A31; V7(((("D600"))7)0):HT400:WD80:CR1 < CLEAR("1CC0"):DISPLY("1CC9"):WR("CDCC"):RR("CDDA")V< VT(0)72:VT(1)63:CT(0)6:CT(1)7:CS(0)63:CS(1)57:FG0:BK14:COLR1< BA16384:BH((BA320)256):BL(BA320)256BH:AA54080:AH(AA256)< ALAA256AH: BITMAP, ATTRIB ADDRESSES AND REGISTER SETTINGS (FIELD 1)= B(F)BA(1F)20160:BH(F)(B(F)256)7= BL(F)B(F)256BH(F)e= C(F)AA(1F)5040:CH(F)(C(F)256)= CL(F)C(F)256CH(F)=& =' :=: SWITCH TO TEXT SCREEN>D WR,80,1:WR,0,27:WR,240,26:WR,32,4:WR,0,5:WR,25,6:WR,29,7:WR,7,9:WR,0,8:WR,0,12R>N WR,102,2:WR,7,23:WR,0,13:WR,8,20:WR,0,21:WR,64V,25:(27)"N";:h>a INTERLACE SETUP>b 3175:WR,128V64CR,25:WR,240,26:>g WR,0,26:WR,128V,25:WR,VT(CR),4:WR,VT(CR),6:WR,CT(CR),5:WR,CT(CR),9:WR,CT(CR),23?l WR,3,8: SYSWR,WD,1:SYSWR,80-WD,27C?v WR,BH27(CR0),12:WR,BL96(CR0),13^? WR,CS(CR),7:WR,102,2? WR,AH,20:WR,AL,21:(27)("RN",CR1,1)? ? SET 64K BIT? RR,,26: CC:WR,1,36:RR,,28: A:WR,A 24,28:5? WR,CC,26:65378: