home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / WWW.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  852 b   |  35 lines
  1. clear
  2. set talk off
  3. set device to print 
  4. set print on
  5. ? chr(27)+"ID"
  6. set print off
  7. p=1
  8. @ prow()+1,1 say ì
  9. " ----------------------------------------------------------------ì
  10. -------------------------------------------------------------"
  11. do while p<=17
  12. if p<>1
  13. @ prow()+1,1 say ì
  14. "|------|------|------|------|------|------|------|------|------|-ì
  15. -----|------|------|------|------|------|------|------|------|"
  16. endif
  17. l=1
  18. do while l<=4
  19. @ prow()+1,1 say "|      |      |      |      |      |      |     ì
  20.  |      |      |      |      |      |      |      |      |      ì
  21. |      |      |"
  22. l=l+1
  23. enddo
  24. p=p+1
  25. enddo 
  26. @ prow()+1,1 say ì
  27. " ----------------------------------------------------------------ì
  28. -------------------------------------------------------------"
  29. set print on
  30. ? chr(13)
  31. set print off
  32. set device to screen 
  33. retu
  34.  
  35.