home *** CD-ROM | disk | FTP | other *** search
/ Golden Seven Gentlemen / SOFTWARE.iso / UCDOS70 / 5 / SRC.ZIP / PRNT / PRG / TEST3_5.PRG < prev    next >
Encoding:
Text File  |  1996-09-25  |  1.2 KB  |  43 lines
  1. **************************************************************************
  2. *TEST3_5.PRG                 ┤≥╙í╘ñ╩╙╤▌╩╛│╠╨≥
  3. *TEST3_5.DBF                 ┤≥╙í╘ñ╩╙╩²╛▌┐Γ
  4. **************************************************************************
  5. SET ESCAPE OFF
  6. SET TALK OFF
  7.  
  8. CLEAR
  9. SET DEVICE TO PRINT
  10. SET PRINT TO LPT3
  11. @0,0 SAY CHR(14)+'[CO15R31,31,608,418R30,30,609,419]'
  12.                                                 &&╧╘╩╛▒▀┐≥
  13. SET PRIN TO PRN
  14.  
  15. @PROW(),PCOL() SAY '`PG1PV0,32,32,607,417,0,7,3,1,0`'
  16. **************************************************************************
  17. *╓╜╒┼└α╨═           PG1ú¼╒¡╨╨┤≥╙í╓╜
  18. *╘ñ╩╙┤░┐┌           (32,32,607,417)
  19. *╘ñ╩╙╟░╛░╤╒╔½       0 = ║┌╔½
  20. *╘ñ╩╙▒│╛░╤╒╔½       7 = ╗╥╔½
  21. *╘ñ╩╙▒╚└²           3 = ╫╘╢»╡≈╒√
  22. *╣÷╢»╦┘╢╚           1
  23. *╗╗╥│╘▌═ú           0 = ╖±
  24. **************************************************************************
  25.  
  26. SELE 1
  27. USE PREVIEW
  28. DO WHILE .NOT.EOF()
  29.    KEY=INKEY()
  30.    IF KEY = 27
  31.       EXIT
  32.    ENDIF
  33.    @PROW()+1,0 SAY TRIM(STR)                    &&┤≥╙í╡▒╟░╨╨
  34.    SKIP
  35. ENDDO
  36. IF KEY <> 27
  37.    READ
  38. ENDIF
  39. @PROW()+1,0 SAY '`PV1`'                         &&╜ß╩°┤≥╙í╘ñ╩╙
  40. @PROW()+1,0
  41. SET DEVICE TO SCREEN
  42. SET ESCAPE ON
  43.