Listing of file='609Eform' on disk='vmedia/701-2736G.wvd.zip'
# Sector 590, program filename = '609Eform'
0010 REM *********************************************************************
0018 DEFFNJ(I)=POS(V0$()=" ")-1
: PRINT AT(23,48,32);
: DIM I0$(160)1,I3$(160)1,I2$1
: I3$()=" "
: IF D3$=HEX(14)OR D1$(J0)<>" "OR POS(STR(D1$(),J0)<>" ")<>0OR C1=C2OR V0$(
J2(C1+1))<>HEX(86)THEN 1004
: C1=C1+2
: J3,J4=1
: GOSUB '96(J2(C1),C1)
: J0=POS(D1$()<>" ")
: GOTO 1004
0034 GOTO 1004
0042 DEFFN'37(C3$)
: IF I6$=" "AND C3$=" "THEN 62
: IF C3$<>" "THEN PRINT HEX(07);
: IF I6$<>" "OR C3$<>" "THEN PRINT HEX(06);AT(23,48,32);B5$(2);C3$;B5$(1);
: I6$=C3$
0062 IF J7(1)=0THEN 82
: PRINT HEX(06);AT(23,0);B5$(2);
: PRINTUSING "#############################",STR(V0$(),POS(-V0$()=" ")+1);
: IF J7(1)=1THEN GOSUB 2070
: ELSE GOSUB 2150
: PRINT AT(0,63,17);C3$;B5$(1);
0082 PRINT HEX(06);AT(0,42);INT(J4(C1));AT(0,57);J0;HEX(020400000E);AT(C1,C7);
HEX(02050F);
: C3$=" "
: RETURN
0746 DEFFN'22(F)
: MAT REDIM D6$(F)2
: D6$()=ALL(00)
: MAT SEARCHD1$(),<>" "TO D6$()
: F=VAL(D6$(F),2)-1
: IF F>=0THEN RETURN
: F=POS(-D1$()<>20)
: IF F=1AND C4$="E"AND D1$(1)=HEX(81)AND J2(C1)+1>=J9THEN F=INT(D9/2)
: RETURN
1004 D7=J2(C1)+J3-1
: IF D1$(J0)=" "THEN D7=D7+1
: IF D3$=HEX(14)THEN D7=D7-D9
: ELSE IF POS(HEX(8F86)=V0$(J2(C1-1)))>0AND J3<2THEN D7=D7-D9
: L=C1
: D=0
: I=D1
: J=LEN(A5$())
1022 KEYIN I2$,1022,1022
: J1=J2(C1)+J3-1
: IF D3$=HEX(04)THEN 1048
: IF D1>=J2(1)THEN 1162
1038 IF J7(1)<>7AND J7(1)<>8THEN 1040
: J7(3)=7
: D7=0
1039 V1$()="609Eentr609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EENTR609Eline609EPLIN609EPRNT609EPOS 609EFRMT"
: J0(4)=FNJ(1)
: GOTO 1045
1040 J7(3)=7
: D7=0
1042 LOAD DA T(D7$(1))
1045 LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1048 IF POS(HEX(868F)=V0$(J2(C1-1)))=0OR J3>1THEN 1056
: IF D1$()=" "OR J0<=POS(D1$()<>" ")THEN 1176
1056 A=LEN(A5$())
: C=J2(C1)+J3-1
: IF D2$=" "AND J0>POS(D1$()<>" ")THEN C=MIN(C+1,J9+1)
: IF D2$=HEX(00)AND J3=LEN(D1$())AND D1$()<>" "THEN C=MIN(C+1,J9+1)
: E=POS(V0$()=" ")-C
: IF E>0THEN 1086
: IF D1$()<>" "THEN L=L+1
: GOTO 1090
1086 IF J3<>1OR J0>POS(D1$()<>" ")THEN L=L+1
1090 IF J9+A+J7<J8-1THEN 1108
: GOSUB 2345
: GOSUB '37(C3$)
: IF J7(1)<>7AND J7(1)<>8THEN 1100
: GOTO 1038
1100 J7(3)=7
: D7=0
: GOTO 1042
1108 IF E<=0THEN 1118
: MAT COPY -STR(V0$(),C,E)TO -STR(V0$(),C+A,E)
1118 STR(A5$(),1,1)=HEX(86)
: STR(V0$(),C,A)=A5$()
: J9=FNJ(1)
: C1=MAX(1,C1-2)
: IF D5=1OR J0>80OR J0>C7+1THEN C1=1
1130 C=C8
: GOSUB '96(J2(C1),C1)
: IF J7(1)<>1AND J7(1)<>7AND J7(1)<>8THEN 1148
: IF J0(1)>J2(C1)+J1(C1)-1THEN 1148
: IF J0(1)=C8AND J1(C1)=0THEN 1146
: IF J0(1)<=J2(C1)THEN 1146
: GOSUB '22(J0(1)-J2(C1)+1)
: PRINT HEX(06);AT(C1,0);STR(D1$(),,MIN(F,80,LEN(STR(D1$()))));B5$(2);
: IF F<80THEN PRINT STR(D1$(),F+1,MIN(80-F,LEN(STR(D1$()))-F));B5$(1);
: GOTO 1150
1146 PRINT B5$(2);
1148 PRINT HEX(06);AT(C1,0,80);STR(D1$(),,MIN(80,LEN(D1$())));B5$(1);
1150 C1=C1+1
: IF C1>22OR J1(C1-1)=0THEN 1180
: J2(C1)=J2(C1-1)+J1(C1-1)
: GOTO 1130
1162 D=J2(C1)+MIN(LEN(D2$())+1,J3)
: L=0
1168 L=L+1
: IF J2(L)<>D1THEN 1168
: GOTO 1178
1176 L=C1-1
1178 I3$()=A5$()
1180 C1=L
: IF J2(C1)>0AND POS(HEX(8F86)=V0$(J2(C1)))=0THEN C1=C1-1
: J3=3
: GOSUB '96(J2(C1),C1)
: PRINT AT(C1,J3-1);
: GOTO 1302
1192 D7=D7+LEN(A5$())
1196 A=POS(A5$()=83)
: STR(A5$(),A+1)=" "
: IF J7(1)=1OR J7(1)=7OR J7(1)=8THEN PRINT B5$(2);
: PRINT HEX(06);AT(C1,0,80);STR(A5$(),I2,80);B5$(1)
: IF D1$=HEX(83)THEN 1298
: IF D<>0THEN D=D-D9+A
: IF A=POS(STR(V0$(),J2(C1))=83)THEN 1230
: IF J7(1)<>1AND J7(1)<>7AND J7(1)<>8THEN 1221
1220 STR(V0$(),J2(C1),FNJ(1)-J2(C1)+1)=STR(V0$(),J2(C1)+POS(STR(V0$(),J2(C1))=
83))
: IF V0$(J2(C1))<>" "THEN MAT COPY -STR(V0$(),J2(C1),FNJ(1)-J2(C1)+1)TO -ST
R(V0$(),J2(C1)+A,FNJ(1)-J2(C1)+1)
: STR(V0$(),J2(C1),A)=" "
: GOTO 1222
1221 STR(V0$(),J2(C1))=STR(V0$(),J2(C1)+J1(C1))
1222 A,D9=LEN(A5$())
: C=J2(C1)
: E=POS(V0$()=" ")-C
: IF E>0THEN MAT COPY -STR(V0$(),C,E)TO -STR(V0$(),C+A,E)
1230 STR(V0$(),J2(C1),A)=A5$()
: J1(C1)=A
: J9=FNJ(1)
: IF C1<>1THEN 1250
: J2(1)=1
: GOSUB '96(1,1)
: J1(1)=LEN(A5$())
: J2(2)=J2(1)+J1(1)
: GOSUB '33(FNJ(1))
: C1=C1+1
1250 IF D=0THEN C8=J2(C1)
: ELSE C8=D-1
: FOR C=C1+1TO 23
: J2(C),J3(C),J4(C),J1(C)=0
: NEXT C
: J9=FNJ(1)
: IF C8<=LEN(A5$())THEN C8=LEN(A5$())+1
: PRINT HEX(06);AT(23,48,32);
: IF D3$=HEX(04)THEN C8=J2(C1)+J1(C1)
: IF D3$=HEX(04)AND C1=2AND V0$(J2(2))<>HEX(86)THEN C8=J2(2)
: IF D1$=HEX(F0)THEN C8=J1
: J1=0
1272 IF J7(1)<>7AND J7(1)<>8THEN 1274
: J7(3)=3
: J1=MIN(D7,J9+1)
: C1=MAX(1,C1-2)
: D7=0
: GOTO 1039
1274 J7(3)=3
: J1=MIN(D7,J9+1)
: C1=MAX(1,C1-2)
: D7=0
: GOTO 1042
1286 PRINT AT(C1,C7);
: GOSUB 2320
: GOSUB '37(C3$)
: GOTO 1356
1296 IF J3<3THEN 1302
1298 J3=J3-1
1302 IF J3<79THEN D5=0
: IF D5=1AND LEN(A5$())-J3>=80THEN D5=0
: IF J3>80THEN D5=1
: IF D5=0THEN D8=LEN(A5$())
: IF D5=1THEN D8=MAX(D8,LEN(A5$()))
: IF D5=0THEN C7=J3-1
: IF D5=1THEN C7=80-D8+J3-1
: IF D5=0THEN I2=1
: IF D5=1THEN I2=D8-79
: J0=J3
: GOSUB '37(" ")
1356 IF J7(1)=1OR J7(1)=7OR J7(1)=8THEN PRINT B5$(2);
: PRINT HEX(06);AT(C1,0);STR(A5$(),I2,80);AT(C1,C7);HEX(02050F);HEX(0204000
00E);
: KEYIN D1$,,1418
: IF D1$>HEX(40)THEN D1$=AND HEX(DF)
: ON POS(HEX(82A108200D)=D1$)GOTO 1192,1192,1296,1402,1412
: IF J3<>2OR POS(B9$()=D1$)=0THEN 1286
1378 IF STR(A5$(),J3,1)<>HEX(83)THEN 1390
: IF D7$=" "AND J3>79THEN 1286
: IF D7$="H"AND J3>157THEN 1286
: STR(A5$(),J3+1)=HEX(83)
1390 STR(A5$(),J3,1)=D1$
: J3=J3+1
: IF D1$=HEX(83)THEN 1196
: GOTO 1302
1402 IF J3<3THEN 1286
1406 D1$=HEX(80)
: GOTO 1378
1412 IF J3=2THEN J3=3
: D1$=HEX(83)
: GOTO 1390
1418 $TRAN(D1$,HEX(4C5C4D5D4959F0507E7F))R
: ON POS(HEX(494C4DF0)=D1$)GOTO 1438,1430,1296,1464
: IF D1$<>HEX(7E)OR J3=2THEN 1286
: D1$=HEX(82)
: GOTO 1378
1430 IF STR(A5$(),J3,1)=HEX(83)THEN 1406
: IF D7$=" "AND J3<80THEN J3=J3+1
: IF D7$="H"AND J3<158THEN J3=J3+1
: GOTO 1302
1438 IF J2(C1)=1THEN 1286
: STR(V0$(),J2(C1),FNJ(1)-J2(C1)+1)=STR(V0$(),J2(C1)+J1(C1),MAX(FNJ(1)-J2(C
1)-J1(C1)+1,1))&ALL(" ")
: D=D-A
: E=J8-J0(4)
: GOSUB '33(J2(C1)-1)
: C8=J2(C1)+J1(C1)
: J1(C1)=0
: IF C8>J9THEN C2=C1
: GOTO 1250
1464 IF I3$()=" "THEN 1438
: IF POS(HEX(50F0)=D1$)>0THEN D7=D7+LEN(I3$())
: A5$()=I3$()
: GOTO 1250
2070 C3$="Insert What?"
: RETURN
2150 C3$="Replace it with?"
: RETURN
2320 C3$="Invalid key - Ignored"
: RETURN
2345 C3$="Page Full"
: RETURN
3000 DEFFN'31
: A5=0
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$