home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / d / dtu11b.zip / QSQLDEMO.EXE / XPREQSQL.CLA < prev   
Text File  |  1992-09-22  |  1KB  |  43 lines
  1.              member()
  2. PREVIEW         PROCEDURE(FILENAME)
  3. FILENAME     STRING(60)
  4. SCREEN       SCREEN       WINDOW(25,80),HUE(14,0)
  5.                ROW(23,1)  PAINT(1,80),HUE(0,7)
  6.                ROW(25,1)  PAINT(1,80),HUE(15,0)
  7.                ROW(1,1)   PAINT(22,80),HUE(7,0)
  8.                ROW(24,28) STRING('Press Cursor Keys To Scroll')
  9.                ROW(25,64) STRING('Press Esc to Quit')
  10.              .
  11.  
  12. OOPS         SCREEN       WINDOW(7,76),AT(7,1),PRE(OOP),HUE(15,4)
  13.                ROW(1,1)   STRING('<201,205{74},187>')
  14.                ROW(2,1)   REPEAT(5);STRING('<186,0{74},186>') .
  15.                ROW(7,1)   STRING('<200,205{74},188>')
  16.                ROW(2,31)  STRING('FILE VIEW ERROR!')
  17.                ROW(4,5)   STRING('FILENAME:')
  18.                ROW(5,4)   STRING('ERROR MSG:')
  19.                ROW(6,3)   STRING('ERROR CODE:')
  20. MSGOUT         ROW(5,15)  STRING(40),ENH
  21. FNOUT          ROW(4,15)  STRING(60)
  22. ECODEOUT       ROW(6,15)  STRING(@N5)
  23.              .
  24.  
  25. DOSFILE DOS NAME(FILENAME)
  26.         .
  27.   CODE
  28.   IF SUB(FILENAME,1,1) <> '$' THEN RETURN.
  29.   OPEN(SCREEN)
  30.   QPREVIEW(FILENAME,7,0)
  31.   CLOSE(SCREEN)
  32.   IF ERROR()
  33.     OPEN(OOPS)
  34.     OOP:MSGOUT=ERROR()
  35.     FNOUT=FILENAME
  36.     ECODEOUT=ERRORCODE()
  37.     DISPLAY
  38.     ASK
  39.     CLOSE(OOPS)
  40.     .
  41.  ! REMOVE(DOSFILE)
  42. !═══════════════════════════════════════════════════════════════════════════════
  43.