home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbref.lbr / LOOSLEAF.RZF / LOOSLEAF.REF
Encoding:
Text File  |  1993-10-26  |  2.0 KB  |  80 lines
  1. * DATE 04/25/85  20:29
  2. * loosleaf.ref
  3. STOR CHR(peek (063)) TO dr
  4. REST from rdata additive
  5. * make sure index is in right order
  6. STOR 'Y' TO command
  7. ERAS
  8. STOR 'T' TO select
  9. @ 10,10 SAY 'This module print a loose leaf notebook report of the references'
  10. @ 11,10 SAY 'in the file on 8 x 11 tractor fed paper with the printer set at'
  11. @ 12,10 SAY '12 characters per inch. '
  12. @ 14,10 SAY 'Do you want the report alphabetically by <A>uthor or <T>itle or'
  13. @ 15,10 SAY 'numerically by <C>ode ? '
  14. @ 15,40 GET select PICTURE '!'
  15. READ
  16. DO WHIL @(select,'ATC')=0
  17.  @ 15,40 GET select PICTURE '!'
  18.  READ
  19. ENDD
  20. CLEA GETS
  21. DO CASE
  22. CASE select = 'A'
  23.  SET index TO &dr.:&aindex
  24. CASE SELECT = 'T'
  25.  SET index TO &dr.:&tindex
  26. CASE SELECT = 'C'
  27.  SET index TO &dr.:&cindex
  28. ENDC
  29. RELE select
  30. @ 18,10 SAY 'Are you ready to proceed ? '
  31. @ 18,40 GET command PICTURE '!'
  32. READ
  33. IF COMMAND = 'Y'
  34.  IF printer = 'Y'
  35.   SET print on
  36.  ENDI
  37.  SET MARGIN TO 5
  38.  STOR 0 TO items
  39.  STOR t TO more
  40.  GO TOP
  41.  DO WHIL .NOT. EOF
  42.   DO WHIL items < 3
  43.    ? ' '
  44.    ? '                                                                Code: ' + code
  45.    ENDIF
  46.    ? '  Author: ' + author
  47.    ? ' '
  48.    ? ' Title 1: '+ $(title1,1,60)
  49.    ? '          '+ $(title1,61,60) 
  50.    ? ' Title 2: '+ title2 
  51.    ? ' '
  52.    ? 'JrnlCite: '+ journal
  53.    ? ' '
  54.    ? 'Ed-Trans: '+edtrans +'  Edn: '+edition
  55.    ? 'Pub data: '+publdat +' Pg #: '+pageno
  56.    ? 'Lib data: '+librdat
  57.    ? ' '
  58.    ? '   Chron: '+chron   +' Type: '+type
  59.    ? 'Wks disc: '+ $(worksdis,1,60)
  60.    ? '          '+ $(worksdis,61,60)
  61.    ? 'Comments: '+ $(comments,1,60)
  62.    ? '          '+ $(comments,60,60)
  63.    ? '          '+ $(comments,121,40)+ '   Updated: '+dayu
  64.    ? '  '
  65.    STOR items + 1 TO items
  66.    SKIP
  67.    IF EOF
  68.     STOR 5 TO items
  69.    ENDI
  70.   ENDD
  71.   EJEC
  72.   STOR 0 TO items
  73.  ENDD
  74.  EJEC
  75. ENDI command = 'Y'
  76. SET PRINT OFF
  77. SET ALTERNATE OFF
  78. SET index TO &dr.:&tindex
  79. RETU
  80.