image of READY prompt

Wang2200.org

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

# Sector 1340, program filename = '609Esum''
2000 REM 609Esum', RELEASE 1-0, (05/07/81) - COPYRIGHT WANG LABS. INC.
   : 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
2010 DEFFN'59
   : GOSUB '61
   : T2$(3)=STR(A7$(1),,5)
   : T5$(1)=A6$(1)
   : T5$(2)=A6$(2)
   : T5$(3)=A6$(3)
   : T5$(4)=A6$(4)
   : T5$(5)=V1$()
   : T5$(6)=STR(V1$(),76)
   : $TRAN(T5$(),HEX(85208580))R
   : IF C1$<>"Glossary"THEN 2020
   : STR(T2$(1),,15)="G L O S S A R Y"
   : STR(T2$(2),,8),STR(T2$(4),,8)="Glossary"
2020 PRINT HEX(0306);AT(12,34);BOX(1,11);" STATISTICS"
   : PRINT
   : PRINT "OPERATION          DATE       TIME       ";
   : IF A7$="N"THEN PRINT
   : ELSE PRINT "WORKTIME          KEYSTROKES"
2030 PRINT AT(16,0);"Created";TAB(17);
   : IF A9$="M"THEN PRINT STR(A7$(2),1,2);"/";STR(A7$(2),3,2);
   : IF A9$="D"THEN PRINT STR(A7$(2),3,2);"/";STR(A7$(2),1,2);
   : PRINT "/";STR(A7$(2),5,2);
   : PRINT TAB(30);STR(A7$(3),1,2);":";STR(A7$(3),3,2);
   : IF A7$="N"THEN 2040
   : PRINT TAB(41);STR(A7$(4),1,4);":";STR(A7$(4),5,2);TAB(58);
   : GOSUB '60(A0(1))
2040 PRINT AT(17,0);"Last Revised";TAB(17);
   : IF A9$="M"THEN PRINT STR(A7$(5),1,2);"/";STR(A7$(5),3,2);
   : IF A9$="D"THEN PRINT STR(A7$(5),3,2);"/";STR(A7$(5),1,2);
   : PRINT "/";STR(A7$(5),5,2);
   : PRINT TAB(30);STR(A7$(6),1,2);":";STR(A7$(6),3,2);
   : IF A7$="N"THEN 2050
   : PRINT TAB(41);STR(A7$(7),1,4);":";STR(A7$(7),5,2);TAB(58);
   : GOSUB '60(A0(2))
2050 PRINT AT(18,0);"Last Printed";TAB(17);
   : IF A9$="M"THEN PRINT STR(A7$(8),1,2);"/";STR(A7$(8),3,2);
   : IF A9$="D"THEN PRINT STR(A7$(8),3,2);"/";STR(A7$(8),1,2);
   : PRINT "/";STR(A7$(8),5,2);
   : PRINT TAB(30);STR(A7$(9),1,2);":";STR(A7$(9),3,2)
2060 PRINT AT(19,0);"Last Archived";TAB(17);
   : IF A9$="M"THEN PRINT STR(A7$(10),1,2);"/";STR(A7$(10),3,2);
   : IF A9$="D"THEN PRINT STR(A7$(10),3,2);"/";STR(A7$(10),1,2);
   : PRINT "/";STR(A7$(10),5,2);
   : PRINT TAB(30);STR(A7$(11),1,2);":";STR(A7$(11),3,2);TAB(41);"onto Archive
     ";TAB(58);STR(A7$(12),,5)
2080 PRINT AT(21,0);"Total Pages:";TAB(17);
   : GOSUB '60(A0(3)-7)
   : IF A7$="Y"THEN PRINT TAB(30);"Total Worktime:    ";STR(A7$(13),1,4);":";S
     TR(A7$(13),5,2);
   : PRINT AT(22,0);"Total Lines:";TAB(17);
   : GOSUB '60(A0(4))
   : IF A7$="N"THEN 2095
   : PRINT TAB(30);"Total Keystrokes:  ";
   : GOSUB '60(A0(5))
2095 PRINT AT(0,22);BOX(1,34);
   : IF J0=9E99THEN PRINT AT(23,40);HEX(07);B5$(2);"Document has Extended page
     s";B5$(1);
2100 GOSUB '62
   : ON T5+2GOTO 2110,2110,2120
   : PRINT AT(23,40);HEX(07);B5$(2);"Illegal Key";B5$(1);
   : GOTO 2100
2110 GOSUB '32
2120 $TRAN(T5$(),HEX(2085))R
   : A6$(1)=T5$(1)
   : A6$(2)=T5$(2)
   : A6$(3)=T5$(3)
   : A6$(4)=T5$(4)
   : V1$()=STR(T5$(5))&T5$(6)
   : RETURN
2130 DEFFN'60(C)
   : DIM I1$9
   : I1$=ALL(00)
   : IF C=0THEN STR(I1$,2)=" "
   : ELSE PRINTUSING TO I1$,"######",C
   : $TRAN(I1$,HEX(8020))R
   : PRINT STR(I1$,3,6);
   : RETURN
2200 DATA 4,0,0,"D O C U M E N T    S U M M A R Y"
   : DATA 4,2,0,"Document Id:",4,2,15,"DocId"
   : DATA 4,3,0,"Document Name:",2,3,15,25,"Name"
   : DATA 4,4,0,"Operator:",2,4,15,20,"Op"
   : DATA 4,5,0,"Author:",2,5,15,20,"Auth"
   : DATA 4,6,0,"Comments:",2,6,15,20,"Comm"
   : DATA 4,8,0,"Key Words:"
2270 DATA 2,9,0,75,"Not",2,10,0,75,"Saved"
   : DATA 0