image of READY prompt

Wang2200.org

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$