image of READY prompt

Wang2200.org

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