Listing of file='609@lib2' on disk='vmedia/701-2737G.wvd.zip'
# Sector 931, program filename = '609@lib2'
0010 REM 609@lib2, Release 01-00, (01/31/81) - Copyright Wang Laboratories, In
c.
0220 DIM C3$1,C7$6,T2$2,C8$1,C3$(8)4,U1$(8),U2$(8)4
: DIM V1$(3)82,V2$(256)1,V0$(1)1,V4$1,T1$80,A0$(4)62
0260 GOSUB '246(1)
: IF T5(2)=3THEN 970
0310 C7$=ALL(" ")
: B0$="DOCUMENT."&C3$&".0000"
0330 GOSUB '210(B0$,B9$,C7$)
: IF R1$=HEX(00)THEN 540
: IF R1$<>HEX(01)THEN 400
: GOSUB 2210
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOSUB 1510
: GOTO 870
0400 IF T5(1)=2THEN 930
: C8$=HEX(FF)
: GOSUB '211(B0$,B9$,C7$,C8$)
: IF R1$=HEX(00)THEN 480
: GOSUB 2010
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0480 GOSUB '214(V3)
: IF R1$=HEX(00)THEN 330
: GOSUB 2030
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0540 GOSUB 2050
: PRINT AT(23,0);B5$(2);B2$;B5$(1);
0570 A1=-1
: GOSUB '211(B0$,B9$," ",HEX(FF))
: IF R1$=HEX(00)THEN 610
: GOSUB 2010
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0600 GOTO 870
0610 A1=V3
: V1$()=HEX(00010002000000000000000000000003)&ALL(FF)
: V4$="P"
: GOSUB '225(A1,1,1,1)
: IF R1$=HEX(00)THEN 670
: IF R1$=HEX(01)THEN 1430
: GOSUB 2070
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0670 A6$()=" "
: A7$()=ALL(30)
: A7$(1)=R5$
: A7$(2)=R2$
: A7$(12)=" "
: MAT A0=ZER
: A0(3)=8
: A8$()=HEX(001A120A0002002A002A50AA66AA01AA1AAA1AAA10AA)
: A9$()=ALL(01)
: V1$()=ALL(FF)
: $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
0680 V4$="A"
: GOSUB '225(A1,1,1,1)
: IF R1$=HEX(00)THEN 730
: IF R1$=HEX(01)THEN 1430
: GOSUB 2090
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0730 V1$()=ALL(80)
: STR(V1$(),,2)=HEX(8F31)
: STR(V1$(),80)=HEX(838F)
: FOR C=5TO 45STEP 5
: STR(V1$(),C,1)=HEX(82)
: NEXT C
: V4$="T"
: STR(V1$(),81,1)=" "
: GOSUB '225(A1,1,1,1)
: IF R1$=HEX(00)THEN 790
: IF R1$=HEX(01)THEN 1430
: GOSUB 2110
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0790 $PACK(F=HEX(A019A005A007A002))U1$()FROMA6$(),R5$,HEX(00000000000000),"10"
: GOSUB '235(A1,U1$())
: IF R1$=HEX(00)THEN 840
: GOSUB 2130
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 870
0840 GOSUB '212(A1)
: IF R1$=HEX(00)THEN 910
: GOSUB 2150
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
0870 KEYIN C3$
: IF C3$=HEX(F0)THEN 930
: PRINT HEX(07);
: GOTO 870
0910 A1=-1
0930 A5$()="609@lib1Prime 62JCATSMAL"
: LOAD T<3>A5$()
0970 B0$="DOCUMENT."&C3$
: C8$=HEX(FF)
1010 GOSUB '217(8,1,B0$,B9$)
: IF R1$=HEX(03)OR V1=0THEN 1410
: IF R1$=HEX(00)THEN 1070
: GOSUB 2170
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 1360
1070 C3=V1
: FOR C=1TO C3
: C3$(C)=STR(U1$(),16*C-15,4)
: NEXT C
: FOR C=1TO C3
: C2$=B0$&"."&C3$(C)
: GOSUB '217(1,1,C2$,B9$)
: IF R1$=HEX(00)THEN 1210
: IF R1$=HEX(03)THEN 1320
: GOSUB 2190
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 1360
1210 C7$=STR(V2$(),8,6)
: GOSUB '211(C2$,B9$,C7$,C8$)
: IF R1$=HEX(00)THEN 1280
: GOSUB 2010
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 1360
1280 GOSUB '214(V3)
: IF R1$=HEX(00)THEN 1320
: GOSUB 2030
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 1360
1320 NEXT C
: IF C3<8THEN 1410
: GOTO 1010
1360 KEYIN C3$
: IF C3$=HEX(F0)THEN 1410
: PRINT HEX(07);
: GOTO 1360
1410 A5$()="609@lib1Prime 62JCATSMAL"
: LOAD T<3>A5$()
1430 GOSUB 2210
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
: GOSUB '214(V3)
: IF R1$=HEX(00)THEN 1490
: GOSUB 2030
: PRINT AT(23,0);B5$(2);B2$;B5$(1);HEX(07);
1490 GOSUB 1510
: GOTO 870
1510 DBACKSPACE #5,1S
: STR(A0$(),1,1)=C3$
: STR(A0$(),2,8)=ALL(" ")
: STR(A0$(),10,4)="0001"
: STR(A0$(),14,4)="0001"
: STR(A0$(),18,25)=ALL(" ")
: DATA SAVE DC #5,A0$()
: RETURN
2010 B2$="File open error - press CANCEL"
: RETURN
2030 B2$="File to delete not found - press CANCEL"
: RETURN
2050 B2$="Building prototype document"
: RETURN
2070 B2$="Error saving page table -press CANCEL"
: RETURN
2090 B2$="Error saving admin block -press CANCEL"
: RETURN
2110 B2$="Error saving first text page - press CANCEL"
: RETURN
2130 B2$="Error in FCB write - press CANCEL"
: RETURN
2150 B2$="Error closing file - press CANCEL"
: RETURN
2170 PRINT AT(23,0);"Query node failure";HEX(07);
: GOTO 1360
2180 RETURN
2190 B2$="Query file failure"
: RETURN
2210 B2$="Volume full - Please Cancel"
: RETURN