Listing of file='609PRNTA' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2611, program filename = '609PRNTA'
1000 REM "609PRNTA" - DOCUMENT SUMMARY FOR ARCHIVE
1090 DATA 0,30,0," ","DOCUMENT SUMMARY"
: DATA 1,0,0," "," "
: DATA 2,0,0," ","Document Id: #####"
: DATA 3,0,14,HEX(A019),"Document Name: #########################"
: DATA 4,0,40,HEX(A014),"Operator: ####################"
1140 DATA 5,0,61,HEX(A014),"Author: ####################"
: DATA 6,0,0," "," "
: DATA 7,0,82,HEX(A014),"Comments: ####################"
: DATA 8,0,0," "," "
: DATA 9,33,0," ","STATISTICS"
: DATA 10,0,0," "," "
1200 DATA 11,0,0," ","OPERATION DATE TIME WORKTIM
E KEYSTROKES"
: DATA 12,0,0," "," "
: DATA 13,0,0," ","Created"
: DATA 13,19,103,HEX(A002),"##"
: DATA 13,21,106,HEX(A002),"/##"
: DATA 13,24,109,HEX(A002),"/##"
: DATA 13,36,112,HEX(A002),"##"
: DATA 13,38,115,HEX(A002),":##"
1280 DATA 13,49,118,HEX(A004),"####"
: DATA 13,53,123,HEX(A002),":##"
: DATA 13,63,126,HEX(1006),"######"
: DATA 14,0,0," ","Last Revised"
: DATA 14,19,133,HEX(A002),"##"
: DATA 14,21,136,HEX(A002),"/##"
: DATA 14,24,139,HEX(A002),"/##"
: DATA 14,36,142,HEX(A002),"##"
: DATA 14,38,145,HEX(A002),":##"
: DATA 14,49,148,HEX(A004),"####"
1380 DATA 14,53,153,HEX(A002),":##"
: DATA 14,63,156,HEX(6006),"######"
: DATA 15,0,0," ","Last Printed"
: DATA 15,19,163,HEX(A002),"##"
: DATA 15,21,166,HEX(A002),"/##"
: DATA 15,24,169,HEX(A002),"/##"
: DATA 15,36,172,HEX(A002),"##"
: DATA 15,38,175,HEX(A002),":##"
: DATA 16,0,0," ","Last Archived"
: DATA 16,19,178,HEX(A002),"##"
1480 DATA 16,21,181,HEX(A002),"/##"
: DATA 16,24,184,HEX(A002),"/##"
: DATA 16,36,187,HEX(A002),"##"
: DATA 16,38,190,HEX(A002),":##"
: DATA 16,49,0," ","onto Diskette"
: DATA 16,64,193,HEX(A005),"#####"
: DATA 17,0,0," "," "
: DATA 18,0,199,HEX(6003),"Total Pages: ###"
1560 DATA 18,36,203,HEX(A004),"Total Worktime: ####"
: DATA 18,58,208,HEX(A002),":##"
: DATA 19,0,211,HEX(6005),"Total Lines: #####"
: DATA 19,36,217,HEX(6006),"Total Keystrokes: ######"
: DATA 99,0,0," "," "
1610 DEFFN'33
: PRINT AT(23,37);HEX(0E);"Touch EXECUTE to continue or CANCEL ";HEX(8B080F
05);
: RETURN