Listing of file='LPEDPICT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 176, program filename = 'LPEDPICT' 4000 REM % EDIT PICTURE SUBROUTINES 4100 DEFFN'53 : COM L3,L7 : DIM I,O1,O2,O3,O4,S,T6,Y,Z,F1$1,F9$(100)1 : T6=100 4200 O1=VAL(STR(G3$(I),14,1)) : O2=VAL(STR(G3$(I),15,1)) : O3=VAL(STR(G3$(I),16,1)) : O4=VAL(STR(G3$(I),17,1)) : IF STR(G3$(I),22,3)<>"NO "THEN S=12 : ELSE S=VAL(STR(L3$(K),12,2),2) : IF O3<>2THEN GOTO 4280 : STR(F9$(),T6-1)="CR" : T6=T6-2 4280 F9$(T6)="9" : T6=T6-1 : IF S=1THEN GOTO 4410 : IF O2=1THEN F1$="9" : ELSE IF O2=2THEN F1$="*" : ELSE F1$="Z" : Y=1 : FOR Z=S-1TO 1STEP -1 : F9$(T6)=F1$ : T6=T6-1 : Y=Y+1 : IF O1=1OR MOD(Y,3)<>0THEN GOTO 4390 : F9$(T6)="," : T6=T6-1 4390 NEXT Z : IF F9$(T6+1)=","THEN T6=T6+1 4410 IF O4=1THEN GOTO 4440 : ELSE IF O4=2THEN F1$="$" : ELSE F1$=STR(G3$(I),17,1) : F9$(T6)=F1$ : T6=T6-1 4440 IF O3=1THEN GOTO 4480 : T6=T6+1 : GOTO 4490 4470 IF F9$(T6+1)=","THEN T6=T6+1 4480 F9$(T6)="-" 4490 MAT COPY STR(F9$(),T6)TO F9$() : RETURN 5005 DEFFN'54 5020 O1=VAL(STR(G3$(I),14)) : S=VAL(STR(G3$(I),12,2),2) : F9$()=ALL(20) : IF O1=1AND STR(G3$(I),9,1)="A"THEN F1$="X" : ELSE IF O1=1AND STR(G3$(I),9,1)="C"THEN F1$="?" : ELSE IF O1=3THEN F1$="X" : ELSE F1$="x" : STR(F9$(),1,S)=ALL(F1$) : IF O1=2THEN F9$(1)="X" : MAT COPY STR(F9$(),1,S)TO F9$() : RETURN 5310 DEFFN'44 : O5=VAL(STR(G3$(I),18,1)) : IF O5=2THEN F9$()="99/99/99" : ELSE F9$()="Xxxxxxxxx 99, 9999" : RETURN 5410 DEFFN'45 : J=POS(STR(G3$(I),1,L4)=20)-1 : IF J=-1THEN J=L4 : T2$(1)=STR(G3$(I),1,J)&" : "&F9$() : RETURN 5530 DEFFN'46(T6) : DIM J1$1 : T1$=HEX(00) : F9$()=" " : FOR J1=T6TO T6+7STEP 1 : IF T5$(J1)=" "THEN GOTO 5650 : IF T5$(J1)<"1"OR T5$(J1)>"8"THEN GOTO 5800 : X1$=T5$(J1)AND HEX(0F) : T7=VAL(X1$) : J1$=HEX(01) : IF T7=1THEN GOTO 5625 : FOR J2=1TO T7-1STEP 1 : J1$=J1$ADDJ1$ : NEXT J2 5625 T1$=T1$OR J1$ 5650 NEXT J1 : IF T1$=HEX(00)THEN F9$()="Please Enter Desired Copies" : RETURN 5800 F9$()="Copy Must Be Between '1' and '8'" : RETURN 6220 DEFFN'48(T6) : DIM J2$1,J3$1 : T1$=STR(G3$(I),19,1) : J2$=HEX(01) : FOR J1=1TO 8STEP 1 : CONVERT J1TO J1$,(#) : J3$=T1$AND J2$ : IF J3$=J2$THEN T5$(T6+J1-1)=J1$ : J2$=J2$ADDJ2$ : NEXT J1 : RETURN 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPEDPICT";HEX(22) 9010 DEFFN'1"SAVE T() ";HEX(22);"LPEDPICT";HEX(22)