home *** CD-ROM | disk | FTP | other *** search
/ Golden Seven Gentlemen / SOFTWARE.iso / UCDOS70 / 5 / SRC.ZIP / PRNT / PRG / TEST3_1.PRG < prev    next >
Encoding:
Text File  |  1996-09-25  |  842 b   |  25 lines
  1. **************************************************************************
  2. *TEST3_1                     ╔Φ╓├╥││ñ╛┘└²
  3. **************************************************************************
  4. SET TALK OFF
  5. SET PRINT TO NUL
  6. EJECT
  7. SET PRINT TO PRN
  8. SET DEVICE TO PRINT
  9. @0,0 SAY "`@D&10^3PG*l10,c100PMl3`"
  10. **************************************************************************
  11. * *@D                        ╔Φ╓├╫╓╨═╬¬D╨═╫╓ú¼48x48╦╬╠σ
  12. * &10                        ╔Φ╓├╨╨╝Σ╛α╬¬10
  13. * ^3                         ╔Φ╓├╫╓╝Σ╛α╬¬3
  14. * PG*l10,c100                ╔Φ╓├╥││ñ╬¬10╨╨ú¼╥│┐φ╬¬100╫╓╖√
  15. * PMl3                       ╔Φ╓├╥│╝Σ┐╒╨╨╬¬3
  16. **************************************************************************
  17. I=0
  18. DO WHILE I<20
  19.    @PROW(),PCOL() SAY "╒Γ╩╟╡┌"+STR(I,2)+"╨╨"
  20.    @PROW()+1,0
  21.    I=I+1
  22. ENDDO
  23. EJECT
  24. SET DEVICE TO SCREEN
  25.