p@p *** BASIC 8 PICTURE VIEWER 64K MONO 8X2 8X4 8X8 8X16 ***pf ** WILL HANDLE PICTURE FILES, ANY WIDTH BY ANY HEIGHT ***ph ** USE CURSOR KEYS TO SCROLL ***pn *** PUT TOGETHER AND PARTIALLY WRITTEN BY LOUIS A. ARRU *** qs 6000 : 0,1:5,6:"";:LDE1 : H256 : CL200^q%: (14):WR("CDCC"):RR("CDDA"): WRITEREG & READREGqU$"########################################=######################################"q"";:U$;DN$ rL89270 : L89 : * ALLOW FOR 88 MAXIMUM PICT FILES *JrX1L1 4:" - "DE$(X);: X1L 20);" - "DE$(X1);r X2L 40);" - "DE$(X2);: X3L 60);" - "DE$(X3):r"""6s," < ";(15);"URSOR --- ";(143);" > O ELECT <"(15)" "(143)"> O ISPLAY <"(15)" "(143)"> TO ND"Xs6P82 : X1 : LC((L1)20)82sJHI(PH):LOP(HHI): WR,HI,18: WR,LO,19: WR,160,31sT A$:A$(13)460t^ A$(29) A$"" : WR,HI,18 : WR,LO,19 : WR,45,31 : PP20 : XX1 : PLC P 82 : X1rth A$(17) A$"" : WR,HI,18 : WR,LO,19 : WR,45,31 : PP80 : XX4 : PLC P 82 : X1tr A$(157) A$"" : WR,HI,18 : WR,LO,19 : WR,45,31 : PP20 : XX1 : P 82 PLC20 : XL1Du| A$(145) A$"" : WR,HI,18 : WR,LO,19 : WR,45,31 : PP80 : XX4 : P 82 PLC20 : XL1cu A$(27) "";: 1160uA$"" : HI(PH):LOP(HHI) : WR,HI,18:WR,LO,19 : RR,,31 : PG : PG45 310u330u 1190: 250 : u(27)"M";Mv 30,12,54,15,1:" NOTHER ISK (Y OR N)";: A$: A$: 0,0,79,24,1:(27)"L": A$"Y" Svsv 1350: GET OUT OF TROUBLEvBCBC(X) : FCFC(X) : OCOC(X)v 2000v@<,0,0,3,640,200,0,16001 : @K,0 : @L,0,0,4w@,79,48,496,106,1 : @L,0,0,3 : @,80,56,480,90,0 : @L,0,0,4mw@,254,08,16,1,1,2,"HE ICTURE OU AVE ELECTED IS"(WC(X)8)" "(SH(X))w WC(X)80 @,254,05,32,1,1,2,"O CROLL CROSS SE HE IGHT ND EFT URSOR KEYS"$x SH(X)200 @,254,04,48,1,1,2,"O CROLL P ND OWN SE HE P ND OWN URSOR KEYS"xCS(X)0ST$"": CS(X)1ST$"8 2": CS(X)2ST$"8 4": CS(X)3ST$"8 8": CS(X)4ST$"8 16"x@,254,10,64,1,1,2,"ELECTED ICTURE CREEN YPE IS "ST$ : 1x@ : @L,0,0,0y SH(X)200 SH(X)200#yBR0 : CRCR0Jy@<,SC,0,CS(X),WC(X)8,SH(X),BR,CRqy@K,SC : @L,0,BC,FC : @,BC,FC,OCy @3,0,0,0,0,0,0,0 : @H,0,0,0y@D,0,0,0,0:@F,320,100,100,320,100,200y2@J,SC,DV,0,(DE$(X)) : CL200 : CW80z5 HH(X)WC(X)80 1343z6 A$: A$"P" 13455z7 A$(13) 1350kz8 A$(17) CLSH(X) @9,4,1,0 : CLCLM(X)z9 A$(145) CL200 @9,0,1,0 : CLCLM(X)z: A$(29) CWWC(X) @9,2,1,0 : CWCW1{; A$(157) CW80 @9,6,1,0 : CWCW1{< 1334{? A$6{A A$"P" @A,5,2,7,0X{F@3,1,0,0,0,0,0,0 : @H,0,0,0{Z@D,0,0,0,0:@F,320,100,100,320,100,200{d@8 : {:{ CS(X)0 SC1 : M(X)1 : SH(X)HH(X)256HL(X) : CRWC(X)SH(X)*| CS(X)1 SC4 : M(X)2 : SH(X)(HH(X)256HL(X)) : CRWC(X)SH(X)t| CS(X)2 SC5 : M(X)4 : SH(X)(HH(X)256HL(X)) : CRWC(X)SH(X)| CS(X)3 SC6 : M(X)8 : SH(X)(HH(X)256HL(X)) : CRWC(X)SH(X)} CS(X)4 SC7 : M(X)16 : SH(X)(HH(X)256HL(X)) : CRWC(X)SH(X)}4 1240)}p@:,1 : @L,0,0,0W}r@<,7,0,0,640,200,0,0 : @K,7 : @L,0,0,3}t@,254,2,64,6,4,2," 8. ICTURE IEWER"}u@,254,39,192,1,1,2,".." : 1}x@8 : % : (14)%~z DE$(244),S(244),CF(244),CS(244),WC(244),HL(244),HH(244),BC(244),FC(244),OC(244),M(244),SH(244)Q~|DE$" " :  9,5,69,20,1~"":" NTER ISK RIVE EVICE UMBER ESIRED (8-11) ";DV: DV8 6015~ DV11 6015~ * GET DRIVE TYPE * DR0 : YDV : 144,0 : 1,Y,15 : 144,0 : 65457,YO 65427,111 : 65448,111 : ZST : 65454,111 : Z0 6026g 1 : 1,Y,15,"UI"1,EN$,EM$,ET$,ES$ : U(DR)Y : U$(DR)(EM$,4) : DRDR1 1 : DRDR1 : DR0 " HERE IS NO RIVE"DV : 3 : 60157Y0 : U$(Y)"1581" DT40 : HN4 : DT18 : HN144O *** DISK NAME ***15,DV,15:2,DV,2,"#":15,"B-R";2;0;DT;0:15,"B-P";2;HNDN$"" : I0 17 : #2,X$ : (X$)160 6032耏DN$DN$X$ : : DN$ = DISK NAME 2,153 : " Š - ETTING ICT. ILENAMES..."N 3,DV,0,"$:""PICT.*"XL@Sk ST0 6085DE$(DE)(DE$,L) : DEDE1 : 6050 DE10 3 : ""20)(15)" HERE ARE NO ICTURE ILES ON THIS ISK"(143) : 1170@ 3:DEDE1:" HERE ARE"DE"ICTURE ILES ON HIS ISK"}:" - ETTING ICT. ILE ATA...":" FTER ISPLAY RESS P TO "Ƃ 0,0,79,24 I1 DE : N$DE$(I) : 2,DV,2,N$",P,R"<#2,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,CF$,CS$,WC$,HL$,HH$,BC$,FC$,OC$tCF(I)(CF$):CS(I)(CS$):WC(I)(WC$):HL(I)(HL$).HH(I)(HH$):BC(I)(BC$):FC(I)(FC$):OC(I)(OC$)V 2 : j