home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / dbaseii / vidlog20.lbr / VIDTAPE.CMD < prev    next >
Encoding:
Text File  |  1986-08-31  |  2.5 KB  |  110 lines
  1.  
  2. * Program..: VIDTAPE.CMD
  3. * Author...: Lyle Burks
  4. * Date.....: 05/27/85
  5. * Notice...: Copyright 1985, All Rights Reserved
  6. * Reserved.: pagenum, line, pagehdg, col:hdg, condition,
  7. *            lastrec
  8. *
  9. SET TALK OFF
  10. SET BELL OFF
  11. SET MARGIN TO 5
  12. STORE 1 TO pagenum
  13. STORE 254 TO line
  14. STORE "Videolog Listing by Tape No." TO pagehdg
  15. STORE (80-LEN(pagehdg))/2 TO col:hdg
  16. *
  17. * ---Open the datafile and print the report.
  18. USE VIDEOLOG INDEX VIDTAPE
  19. ERASE
  20. @ 2, 0 SAY pagehdg
  21. @ 2,72 SAY DATE()
  22. @ 3, 0 SAY "========================================"
  23. @ 3,40 SAY "========================================"
  24. STORE " " TO select
  25. @ 5,0 SAY "Output to the screen or printer? [S/P] ";
  26.       GET select PICTURE "!"
  27. READ
  28. DO CASE
  29.    CASE select = "S"
  30.       ERASE
  31.       STORE 22 TO pagelen
  32.    CASE select = "P"
  33.       SET FORMAT TO PRINT
  34.       STORE 60 TO pagelen
  35.    OTHERWISE
  36.       ERASE
  37.       SET BELL ON
  38.       SET TALK ON
  39.       RETURN
  40. ENDCASE
  41. * ---Enter FOR <expression> for the report, such as,
  42. * ---STORE "STATE = 'CA'" TO condition
  43. STORE " " TO condition
  44. DO WHILE .NOT. EOF
  45.    IF line > pagelen
  46.       IF select = "S"
  47.          ERASE
  48.       ELSE
  49.          EJECT
  50.       ENDIF
  51.       @ 0,0 SAY "PAGE NO."
  52.       @ 0,9 SAY STR(pagenum,3)
  53.       @ 2,col:hdg SAY pagehdg
  54.       *
  55.       * ---Generate column headings.
  56.       @ 4,  0 SAY "No."
  57.       @ 4,  6 SAY "Title"
  58.       @ 4, 39 SAY "Time"
  59.       @ 4, 47 SAY "Hr"
  60.       @ 4, 52 SAY "Mn"
  61.       @ 4, 57 SAY "1st"
  62.       @ 4, 64 SAY "End"
  63.       @ 5,  0 SAY "==="
  64.       @ 5,  6 SAY "=============================="
  65.       @ 5, 39 SAY "====="
  66.       @ 5, 47 SAY "=="
  67.       @ 5, 52 SAY "=="
  68.       @ 5, 57 SAY "===="
  69.       @ 5, 64 SAY "===="
  70.       STORE  pagenum+1 TO pagenum
  71.       STORE 7 TO line
  72.    ENDIF
  73.    * ---Test to see if the condition exists.
  74.    IF condition <> " "
  75.       IF .NOT. (&condition)
  76.          SKIP
  77.          LOOP
  78.       ENDIF
  79.    ENDIF
  80.    *
  81.    * ---Print detail line.
  82.    @ line,  0 SAY $(STR(tape,3,0),1,  3)
  83.    @ line,  6 SAY $(title,1, 30)
  84.    @ line, 39 SAY $(timeleft,1,  5)
  85.    @ line, 47 SAY $(hrs,1,  2)
  86.    @ line, 52 SAY $(min,1,  2)
  87.    @ line, 57 SAY $(indexstrt,1,  4)
  88.    @ line, 64 SAY $(indexend,1,  4)
  89.    STORE line+1 TO line
  90.    SKIP
  91. ENDDO
  92. @ line+1,0 SAY " "
  93. SET FORMAT TO SCREEN
  94. RELEASE ALL
  95. SET TALK ON
  96. SET BELL ON
  97. RETURN
  98.  
  99. * EOF: VIDTAPE.CMD
  100.  
  101. 
  102.       STORE 60 TO pagelen
  103.    OTHERWISE
  104.       ERASE
  105.       SET BELL ON
  106.       SET TALK ON
  107.       RETURN
  108. ENDCASE
  109. * ---Enter FOR <expression> for the report, such as,
  110. * ---STORE