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