* DATE 04/26/85  20:30
* cod.ref
STOR CHR(peek (063)) TO dr
REST from rdata additive
SET COLON OFF
SET INDEX TO &dr.:&cindex
STOR '     ' TO one, two, thr,four,five,six,seve,eigh,nine,ten,ele,twel
STOR '     ' TO thir,ften,fift,sixt,sev,eig,nin,twe
@ 2, 1 SAY "This module will make a list of all"
@ 2,62 SAY ">"
@ 2,63 GET one PICTURE '99999'
@ 2,68 SAY "<"
@ 3, 1 SAY "of the references which you list on"
@ 3,62 SAY ">"
@ 3,63 GET two PICTURE '99999'
@ 3,68 SAY "<"
@ 4, 1 SAY "the right side of the screen."
@ 4,62 SAY ">"
@ 4,63 GET thr PICTURE '99999'
@ 4,68 SAY "<"
@ 5,62 SAY ">"
@ 5,63 GET four PICTURE '99999'
@ 5,68 SAY "<"
@ 6, 1 SAY "You can enter as many code numbers"
@ 6,62 SAY ">"
@ 6,63 GET five PICTURE '99999'
@ 6,68 SAY "<"
@ 7, 1 SAY "as you wish - up to a total of 20."
@ 7,62 SAY ">"
@ 7,63 GET six PICTURE '99999'
@ 7,68 SAY "<"
@ 8,62 SAY ">"
@ 8,63 GET seve PICTURE '99999'
@ 8,68 SAY "<"
@ 9,01 SAY "(Control 'Q' to end.)"
@ 9,62 SAY ">"
@ 9,63 GET eigh PICTURE '99999'
@ 9,68 SAY "<"
@ 10,62 SAY ">"
@ 10,63 GET nine PICTURE '99999'
@ 10,68 SAY "<"
@ 11,62 SAY ">"
@ 11,63 GET ten PICTURE '99999'
@ 11,68 SAY "<"
@ 12,62 SAY ">"
@ 12,63 GET ele PICTURE '99999'
@ 12,68 SAY "<"
@ 13,62 SAY ">"
@ 13,63 GET twel PICTURE '99999'
@ 13,68 SAY "<"
@ 14,62 SAY ">"
@ 14,63 GET thir PICTURE '99999'
@ 14,68 SAY "<"
@ 15,62 SAY ">"
@ 15,63 GET ften PICTURE '99999'
@ 15,68 SAY "<"
@ 16,62 SAY ">"
@ 16,63 GET fift PICTURE '99999'
@ 16,68 SAY "<"
@ 17,62 SAY ">"
@ 17,63 GET sixt PICTURE '99999'
@ 17,68 SAY "<"
@ 18,62 SAY ">"
@ 18,63 GET sev PICTURE '99999'
@ 18,68 SAY "<"
@ 19,62 SAY ">"
@ 19,63 GET eig PICTURE '99999'
@ 19,68 SAY "<"
@ 20,62 SAY ">"
@ 20,63 GET nin PICTURE '99999'
@ 20,68 SAY "<"
@ 21,62 SAY ">"
@ 21,63 GET twe PICTURE '99999'
@ 21,68 SAY "<"
READ
CLEA gets
STOR one+two+thr+four+five+six+seve+eigh+nine+ten+ele+twel+thir+ften+fift+sixt+sev+eig+nin+twe +'          ' TO list
STOR 1 TO first
STOR one TO name
RELE one, two, thr,four,five,six,seve,eigh,nine,ten,ele,twel
RELE thir,ften,fift,sixt,sev,eig,nin,twe
REST from printrf.dat additive
ERAS
STOR 0 TO pagen
STOR 0 TO counter
IF PRINTER = 'Y'
 SET PRINT ON
 SET MARGIN TO 5
 IF SHIFT = 'Y'
  SET CONSOLE OFF
  ? CHR(chr121) + CHR(chr122) + CHR(chr123)
  SET CONSOLE ON
 ENDI shift
ENDI printer
STOR t TO more
DO WHIL more
* do page counter etc
 IF $(date(),4,1) = '0'
  STOR $(date(),5,1) TO date2
 ELSE
  STOR $(date(),4,2) TO date2
 ENDI
 DO CASE
 CASE $(date(),1,2) = '01'
  STOR 'January ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '02'
  STOR 'February ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '03'
  STOR 'March ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '04'
  STOR 'April ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '05'
  STOR 'May ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '06'
  STOR 'June ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '07'
  STOR 'July ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '08'
  STOR 'August ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '09'
  STOR 'September ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '10'
  STOR 'October ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '11'
  STOR 'November ' + date2 + ', 19' + $(date(),7,2) TO date1
 CASE $(date(),1,2) = '12'
  STOR 'December ' + date2 + ', 19' + $(date(),7,2) TO date1
 ENDC
 STOR pagen+1 TO pagen
 STOR 7 TO lineno
 ERAS
 ? caption
 ? ' '
 ? 'Report of ' +date1 + '.                                                                                ' + 'PAGE ' + STR(pagen,2)
 ? "--------------------------------------------------------------------------------------------------------------------------"
 ? ' '
* now fill up rest of page to 55 lines with names etc
 DO WHIL lineno < 55
  DO WHIL name <> ' ' .AND. lineno < 55
   STOR $(list,first,5) TO name
   IF name <> ' '
    FIND &name
     IF # <> 0
    STOR counter + 1 TO counter
    STOR '                                              ' TO blnks
    IF author <> ' '
     STOR TRIM(author)+'. ' TO auth
    ENDI
    IF LEN(auth)+LEN(TRIM($(title1,1,60)))+LEN(TRIM($(title1,61,60))) > 125
     ? auth + $(title1,1,60)
     ? $(blnks,1,LEN(auth))+$(title1,61,60)
     STOR lineno+2 TO lineno
    ELSE
     ? auth +TRIM($(title1,1,60))+' '+TRIM($(title1,61,60))
     STOR lineno+1 TO lineno
    ENDI
    IF title2 <> ' '
     ? '          '+title2
     STOR lineno+1 TO lineno
    ENDI title
    IF publdat <> ' '
     ? '          '+TRIM(publdat)+'. '+librdat
     STOR lineno+1 TO lineno
    ENDI
    IF publdat = ' ' .AND. librdat <> ' '
     ? '          '+librdat
     STOR lineno +1 TO lineno
    ENDI
    ? '  '
    STOR lineno+1 TO lineno
   ENDI
   STOR first + 5 TO first
 ELSE
    STOR f TO more
    STOR 80 TO lineno
   ENDI
  ENDD while name
 ENDD while lineno < 55
 IF .NOT. EOF
  SET PRINT OFF
  @ 20,00 SAY '     *********************************************************************     '
  @ 21,00
  @ 22,00
  @ 21,10 SAY 'CHANGE PAPER IF NECESSARY AND THEN HIT ANY KEY TO RESTART'
  SET CONSOLE OFF
  WAIT
  SET CONSOLE ON
  IF printer = 'Y'
   SET PRINT ON
  ENDI
 ENDI
ENDD more
SET PRINT OFF
@ 20,00 SAY '     *********************************************************************     '
@ 21,00
@ 22,00
@ 21,10 SAY 'CHANGE PAPER IF NECESSARY AND THEN HIT ANY KEY TO RESTART'
SET CONSOLE OFF
WAIT
SET CONSOLE ON
IF printer = 'Y'
 SET PRINT ON
ENDI
? ' '
? "--------------------------------------------------------------------------------------------------------------------------"
? ' '
? '            THE TOTAL NUMBER OF REFERENCES LISTED WAS   ' + STR(counter,3,0)
* if it was on turn it off
EJEC
SET PRINT OFF
IF PRINTER = 'Y' .AND. SHIFT = 'Y'
 SET PRINT ON
 ? CHR(chrreg1) + CHR(chrreg2) + CHR(chrreg3)
 SET PRINT OFF
ENDI printer
* release local variables
RELE pagen, lineno, counter
SET COLON ON
* restore memory varibles
SET INDEX TO &dr.:&tindex
STOR t TO more
STOR t TO first