Listing of file='609Egotp' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 611, 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$