Listing of file='609Egotp' on disk='vmedia/701-2736G.wvd.zip'
# Sector 569, program filename = '609Egotp'
0010 REM ********************* Go To Page **********************************
1004 MAT REDIM D6$(4)1
: E=1
: C4=C3
: J1,J2=0
: IF J7(1)=11AND A0(3)>121THEN 1860
: D6$()=ALL(FF)
: IF J7(1)=11THEN GOSUB 2177
: ELSE GOSUB 2175
: D1$,C3$=" "
: GOSUB 2410
1020 PRINT HEX(06);AT(0,E+74);HEX(02050F);
: C=0
: KEYIN D1$,,1088
: IF D1$<>HEX(08)THEN 1038
: IF E=1THEN 1020
: E=E-1
: STR(D6$(),E)=" "
: IF E=1THEN D6$()=ALL(FF)
: PRINT HEX(082006)
: GOTO 1020
1038 IF D1$=HEX(82)OR D1$=HEX(A1)THEN 1046
: IF E<4THEN 1054
: GOSUB 2270
: GOTO 1020
1046 IF D6$(1)=HEX(FF)THEN 1282
: IF J7(1)=11THEN 1289
: D1$=HEX(46)
: C=1
: GOTO 1126
1054 IF I6$=" "THEN 1062
: C3$=" "
: GOSUB 2410
: PRINT AT(0,E+74);
1062 IF VER(D1$,"#")=1THEN 1078
: IF E<>1OR J7(1)=11THEN 1120
: C6$=D1$
: $TRAN(D1$,B8$())R
: IF VER(D1$,"#")=0THEN 1120
: CONVERT D1$TO C4
: D1$=HEX(46)
: GOTO 1134
1078 STR(D6$(),E)=D1$
: E=E+1
: PRINT D1$
: GOTO 1020
1088 IF D1$<>HEX(F0)AND D1$<>HEX(50)THEN 1096
: IF J7(1)=11THEN J7(1)=0
1092 PRINT AT(23,48,32);AT(0,63,17);
: GOTO 1282
1096 IF D1$<>HEX(06)AND D1$<>HEX(16)THEN 1118
: IF STR(J9$)=HEX(000000)THEN 1114
: J1=VAL(J9$,2)
: C4=VAL(STR(J9$,3))
: IF C3<>C4THEN 1252
: IF J1<J2(2)THEN 1262
: PRINT AT(0,63,17)
: GOTO 1278
1114 GOSUB 2210
: GOTO 1020
1118 IF J7(1)<>11AND D1$>HEX(41)AND D1$<HEX(5E)THEN 1124
1120 GOSUB 2320
: GOTO 1020
1124 IF C3<8AND D6$()=HEX(FFFFFFFF)THEN 1134
1126 CONVERT D6$()TO C4
: ERRORC4=C4-7
1128 IF C4<1THEN C4=1
: C4=MIN(C4+7,10000*A0(3))
1132 CONVERT MIN(C4,A0(3))-7TO C6$,(###)
1134 AND (D1$,0F)
: ON D1$GOTO ,1142,1154,,1170,1194,,,,,,1214,1232
: GOTO 1120
1142 IF D6$(1)<>HEX(FF)THEN 1120
: IF C3<9THEN 1194
: C4=C3-1
: D1$=HEX(46)
: GOTO 1132
1154 IF D6$(1)<>HEX(FF)THEN 1120
: IF C3<8THEN 1248
: IF C4$="E"THEN 1164
: C4=C3+1
: D1$=HEX(46)
: GOTO 1132
1164 D1$=HEX(45)
: GOTO 1126
1169 D1$=HEX(05)
1170 J1=9E99
: J3=J1(C2)
: IF V0$(J9)=HEX(8F)THEN J3=J3-1
: IF C3<>C4THEN 1205
: GOTO 1278
1180 IF J1(22)=0THEN 1229
: D2=MIN(D2+1,63)
: J6$(D2)=BIN(J2(20),2)
: J7$(D2)=BIN(J4(20),2)
: D4$(D2-1)=BIN(J5(20))
: GOTO 1278
1194 J1,J3=0
: IF C3<>C4THEN 1204
: IF D2=1THEN 1226
: GOTO 1278
1204 IF C=1AND C4>A0(3)AND C3=A0(3)THEN 1169
1205 IF C4$<>"E"OR C4<=A0(3)THEN 1253
: C4=A0(3)
: J1=9E99
: ON D1$GOTO ,,,,1180,1194,,,,,,1238,1238
1214 J1=0
: J2=J4(C1)
: J3=J1(C1)-1
: IF C3<>C4THEN 1204
: J1=J2(C1)+J1(C1)-1
: J2=0
1226 PRINT AT(0,63,17)
: GOTO 1270
1229 J1=0
: GOTO 1226
1232 J1=0
: J2=-J4(C1)
: J3=0
: IF C3<>C4THEN 1204
: J1=J2(C1)
: J2=0
: GOTO 1226
1238 J1,J2=0
: IF C3=C4THEN 1226
: GOTO 1204
1248 GOSUB 2335
: GOTO 1286
1252 CONVERT MIN(C4,A0(3))-7TO C6$,(###)
1253 IF J7(1)=1OR J7(2)=3THEN 1410
: IF J7(2)=1THEN IF C4<J0(2)OR J0(2)<8THEN 1410
: IF D7$<>" "AND J8=4182THEN IF J7(1)=9OR J7(1)=10THEN 1520
1256 GOSUB 2055
: V1$()="609FpageREC.page"
: LOAD T<2>V1$()BEG 100
1262 J7(3)=1
: GOTO 1320
1266 J7(3)=2
: GOTO 1320
1270 J7(3)=3
: GOTO 1320
1274 J7(3)=4
: GOTO 1320
1278 J7(3)=5
: GOTO 1320
1282 J7(3)=6
: GOTO 1320
1286 J7(3)=7
: GOTO 1320
1289 IF D6$(2)=" "THEN 1306
: CONVERT STR(D6$(),,4)TO I
: IF I<10THEN 1306
: GOSUB 2130
: V1$()="609Erpg 609Eline609Espln609EscrnREC.page"
: IF D7$="H"THEN V1$()="609ERPG 609Eline609ESPLN609ESCRN609EFRMTREC.page"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1306 GOSUB 2345
: C4=C3
: GOTO 1020
1320 PRINT HEX(06);
: ON J7(2)GOTO 1340,1352
1322 LOAD DA T(D7$(1))
1340 V1$()="609Ehilt609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EHILT609Eline609EPLIN609EPRIN609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1352 V1$()="609Elolt609Eline609Espln609Eprnt"
: IF D7$="H"THEN V1$()="609ELOLT609Eline609ESPLN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1410 ON J7(1)GOSUB 2290,2291,2293,2294,,,2297,2297,2299,2300
: C4=C3
: GOTO 1020
1520 IF J7(2)=1AND C4<C3THEN 1256
: I2=0
: IF J7(2)=1THEN FOR L=MIN(C3,C4,A0(3))TO MIN(MAX(C3,C4),A0(3))
: ELSE FOR L=MIN(C4,A0(3))TO MIN(C4,A0(3))
: I=V0
: IF L<A0(3)THEN I=VAL(J1$(L+1),2)
: IF L<8THEN I=VAL(J1$(L+(POS(STR(J1$(),2*L+1)<>00)+1)/2),2)
: I=I-VAL(J1$(L),2)
: IF I>17THEN I2=2
: IF I=17THEN I2=MAX(I2,1)
: NEXT L
: IF I2=0THEN 1256
: IF I2=2THEN 1800
1710 V1$()="609ESIZERECMGR"
: LOAD T<2>V1$()
1800 GOSUB 2020
: PRINT AT(23,0,);HEX(05);
: GOTO 1092
1860 C5$="T"
: J7(1)=0
: GOTO 1322
2020 PRINT HEX(06);AT(23,23,);B5$(2);"Extended page cannot be processed. Plea
se Cancel.";HEX(020400000E);
2030 PRINT HEX(07);
: KEYIN C3$
: IF C3$<>HEX(50)AND C3$<>HEX(F0)THEN 2030
: RETURN
2055 C3$="Going to Page "
: GOTO 2435
2130 C3$="Loading Repagntn"
: GOTO 2445
2175 C3$="Which Page:"
: GOTO 2445
2177 C3$="Page length:"
: GOTO 2445
2210 C3$="Command Note not defined"
: GOTO 2410
2270 C3$="Execute or Cancel"
: GOTO 2410
2290 C3$="First finish Insert"
: GOTO 2410
2291 C3$="First finish Delete"
: GOTO 2410
2293 C3$="First finish Copy"
: GOTO 2410
2294 C3$="First finish Move"
: GOTO 2410
2297 C3$="First finish Replace"
: GOTO 2410
2299 C3$="First finish SuperCopy"
: GOTO 2410
2300 C3$="First finish SuperMove"
: GOTO 2410
2320 C3$="Invalid Key - Ignored"
: GOTO 2410
2335 C3$="No Next Screen"
: GOTO 2410
2345 C3$="Page Too Small"
: GOTO 2410
2410 IF I6$=" "AND C3$=" "THEN 2425
: IF C3$<>" "THEN PRINT HEX(07);
: IF I6$<>" "OR C3$<>" "THEN PRINT HEX(06);AT(23,48,32);B5$(2);C3$;HEX(0204
00000E);
: I6$=C3$
2425 PRINT HEX(06);AT(0,42,3);INT(J4(C1));AT(0,57,3);J0;HEX(020400000E);AT(C1,
C7);HEX(02050F);
: C3$=" "
: RETURN
2435 PRINT HEX(0306);AT(7,30);B5$(3);C3$;" ";C6$;B5$(1)
: RETURN
2445 PRINT HEX(06);AT(0,63,17);B5$(2);C3$;B5$(1);
: 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$