home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 5.ddi / RS / YQMIS009.PRG < prev    next >
Encoding:
Text File  |  1993-12-21  |  650 b   |  23 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS009
  3. * │╠╨≥╔Φ╝╞: ╤┼╞µ                  
  4. * ▒α│╠╚╒╞┌: 93.12.21   21:31:36
  5. *******************************************************
  6. priv sbm
  7. sbm=space(20)
  8. set color to 0/w,,
  9. @ 6,20 clear to 12,59
  10. call hj with '20065912'
  11. @ 7,22 say '┤≥╙í╔Φ▒╕:' get sbm
  12. @ 9,26 say '╛┘└²:'
  13. @ 9,32 say 'PRN  ┤≥╙í╗·'
  14. @ 10,32 say 'CON  ╞┴─╗'
  15. @ 11,32 say 'ABC  ╥╗╕÷├√╬¬ABC╡─┤┼┼╠╬─╝■'
  16. read
  17. if len(trim(sbm))>0
  18. set print to &sbm
  19. endif
  20. return
  21. *******************************************************
  22. * ▒α│╠╚╒╞┌: 93.12.21   21:31:36
  23. *******************************************************