image of READY prompt

Wang2200.org

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

# Sector 1377, program filename = '609Enewo'
0010 REM 609Enewo, RELEASE 1-0, (03/01/81) - COPYRIGHT WANG LABS. INC.
0089 COM V0$(1)1
   : A5=1
   : IF R3$()=" "THEN R3$(1)="609menu"
   : DIM U1$(8),U2$(8)4
   : DIM S5(1),S0(1),T5(1),T1$(2)8,S3(1)
   : DIM T1(8),S6(8),S1(8),T2$(8)32
   : DIM T2(6),S7(6),S2(6),S4(6),T5$(6)75
   : DIM S1$(2)2,S1$6,S2$(235)2
   : DIM S2$1,T1$80,T2$2,I2$18
0130 IF Y5$=" "THEN A6$()=" "
   : A7$()=ALL(30)
   : A7$(2)=R2$
   : A7$(12)=" "
   : MAT A0=ZER
   : A0(3)=8
   : IF D7$=" "THEN 140
   : GOSUB '61
   : GOSUB 1010
   : T5$(1)=B5$
   : GOTO 145
0140 S4=0
   : S5=2
   : T1(2)=4
   : S6(2)=22
   : S1(2)=0
   : T1(2)=2
   : GOSUB 1010
   : S6=1
   : T2(1)=2
   : S7(1)=22
   : S2(1)=20
   : S4(1)=1
   : T5$(1)=B5$
   : S1$="T"
0145 IF Y5$<>" "THEN 180
0150 GOSUB '62
   : ON T5+2GOTO 170,170,180
   : GOSUB 1020
0160 IF Y5$<>" "THEN 170
   : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
   : GOTO 150
0170 GOSUB '32
0180 GOSUB 1030
   : IF B3$=" "OR A4>-1THEN 210
   : GOSUB 1040
   : C4$=STR(B3$,5,1)
   : GOSUB 350
   : IF B2$<>" "THEN 160
   : C9$=B9$
   : C1$(2)="GLOSSARY."&STR(B3$,5,1)&"."&STR(B3$,,4)
   : GOSUB '211(C1$(2),C9$,B4$,HEX(01))
   : ON POS(HEX(000306)=R1$)GOTO 200,240,260
   : GOTO 1070
0200 A4=V3
0210 C4$=T5$(1)
   : GOSUB 1050
   : GOSUB 350
   : IF B2$<>" "THEN 160
   : IF A2>-1THEN 280
   : C1$(1)="DOCUMENT."&C4$&".0000"
   : GOSUB 1060
0230 GOSUB '211(C1$(1),B9$,B2$,HEX(FF))
   : ON POS(HEX(00030506)=R1$)GOTO 270,240,250,260
   : GOTO 1080
0240 GOSUB 1090
   : GOTO 160
0250 B2$=STR(V2$(),8,6)
   : GOTO 230
0260 GOSUB 1100
   : GOTO 160
0270 A2=V3
   : $OPEN #0
   : DATA LOAD DA T(B3+I2)A0$()
   : CONVERT STR(A0$(),10,4)TO D6
   : B2$=" "
0280 CONVERT D6TO STR(A7$(1),,4),(####)
   : STR(A7$(1),5)=C4$
   : B0$="DOCUMENT."&C4$&"."&STR(A7$(1),,4)
   : GOSUB '217(1,1,B0$,B9$)
   : IF R1$=HEX(00)THEN D6=MAX(1,MOD(D6+1,10000))
   : ON POS(HEX(0003)=R1$)GOTO 280,300
   : $CLOSE
   : GOTO 1110
0300 C0$=A7$(1)
   : IF C1$<>"Glossary"THEN R5$=C0$
   : CONVERT MAX(1,MOD(D6+1,10000))TO STR(A0$(),10,4),(####)
   : DATA SAVE DA T(B3+I2)A0$()
   : $CLOSE
   : IF SPACEK<42THEN 339
   : IF T5(1)=2AND SPACEK<47THEN D7$="h"
   : ELSE D7$="H"
   : IF T5(1)=1THEN 340
   : J8=2*J8
0339 IF SPACEK<42THEN READ I,I,I,I$,I,I,I,I$,I,I,I,I,I$,I,I,I,I$,I,I,I,I,I$,I$
     ,I$,I
0340 GOSUB '59
   : J9$()=STR(T5$(5))&T5$(6)
   : GOSUB 1120
   : A5$()="609EnewcJCATSMALRECMGR"
   : COM CLEAR V0$()
   : LOAD T<3>A5$()
0350 I2=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=C4$)-1
   : IF I2=-1THEN 380
   : DATA LOAD DA T(B3+I2)A0$()
   : B9$=STR(A0$(),2,8)
   : IF B9$=" "THEN 390
   : T6=1
0360 GOSUB '236(8,T6)
   : IF R1$<>HEX(00)THEN 1130
   : IF V1=0THEN 400
   : MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,,8)TO T2$STEP 16
   : IF T2$>HEX(0000)THEN 370
   : IF V1<8THEN 400
   : T6=T6+8
   : GOTO 360
0370 B9$=STR(U1$(),VAL(T2$,2))
   : B2$=" "
   : RETURN
0380 GOSUB 1140
   : RETURN
0390 GOSUB 1150
   : RETURN
0400 GOSUB 1160
   : RETURN
1000 % This is line 1000 - do not renumber lines 1000-1999
1010 T2$(2)="Creation Library is"
   : RETURN
1020 B2$="Invalid key - ignored"
   : RETURN
1030 PRINT AT(23,0);B5$(3);"Getting ";C2$;" Number";B5$(1);
   : RETURN
1040 I2$,B2$="Attached Glossary"
   : RETURN
1050 I2$,B2$="Creation Document"
   : RETURN
1060 I2$,B2$="Prototype Document"
   : RETURN
1070 B2$="Error opening attached glossary"
   : GOTO 1190
1080 B2$="Error opening prototype document"
   : GOTO 1190
1090 B2$=I2$&" does not exist"
   : RETURN
1100 B2$=I2$&" not accessible"
   : RETURN
1110 B2$="Document Query Failure"
   : GOTO 1190
1120 PRINT AT(23,0);B5$(3);"Creating New ";C2$;B5$(1);
   : RETURN
1130 B2$="Query Volume failure"
   : GOTO 1190
1140 B2$=I2$&" library name invalid"
   : RETURN
1150 B2$=B2$&" library not yet established"
   : RETURN
1160 B2$=B2$&" volume not recorded in master file"
   : RETURN
1190 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : B2$=B2$&" - error = "&T2$
   : IF Y5$=" "THEN B2$=B2$&" - please Cancel"
   : IF Y5$<>" "THEN GOSUB '31
1200 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
   : KEYIN S2$,,1210
   : GOTO 1200
1210 IF POS(HEX(F050)=S2$)=0THEN 1200
   : GOSUB '31
   : DATA 4,0,0," ",4,20,0,"*",2,20,20,1,"!"
   : DATA 4,20,50,"Maximum page size; "
   : DATA 1,21,50,1,"Standard","Extended","\DE",0
   : B2$="Select page type:"
   : PRINT AT(21,0,160);B2$;
   : RETURN
9031 DEFFN'31
   : A5=0
9032 DEFFN'32
   : A5$()="609CloseJCATSMAL"
   : A5$=R3$()
   : R3$()=STR(R3$(),10)
   : IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
   : COM CLEAR C
   : LOAD TA5$