image of READY prompt

Wang2200.org

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)