image of READY prompt

Wang2200.org

Listing of file='609Eform' on disk='vmedia/731-0067G.wvd.zip'

# Sector 606, 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$