home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / PRLATE.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  766 b   |  47 lines
  1. czbreak off
  2. file unload all
  3. screen clear 14 8 no-border
  4. screen draw box 7 25 17 56 14 8
  5. screen draw box 3 25 6 56 14 8
  6. screen print 4 29 13 8 " V I D E O   A L I V E"
  7. screen print 5 27 3 8 " Custom Video Shop Software."
  8. screen print 9 31 12 8 "P R I N T I N G . . . "
  9. screen print 11 30 6 8 "     Late Report."
  10. screen print 13 31 6 8 ""
  11. screen print 15 30 15 8 "  Please stand by ...."
  12. repaint off
  13. file load custom-view "movies.vw"
  14. file activate custom-view "cust.vw"
  15. if time < "06:00:00p"
  16.      data query execute "test.dfq" index "test.idx"
  17.      else
  18. data query execute "testb.dfq" index "testb.idx"
  19. end if
  20. print report execute "late.dfr" printer detail start 1 end 0 copies 1
  21. file unload all
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.