home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / GETPRT.MOD < prev    next >
Text File  |  1989-04-01  |  243b  |  17 lines
  1. ;LANS  10-18-88  06:42  GETPRT.MOD
  2. ;
  3. ATWRITE 56 5 138 '#3> '
  4. COLOR 15
  5. IF '$scr_type' <> 'D' U-L3
  6. GOTOXY 54 4
  7. GOTO D-L3
  8. U-L3:
  9. GOTOXY 57 4
  10. D-L3:
  11. GET 0 1
  12. SCRIPT selprt.mod
  13. ATWRITE 56 5 4 '#3> '
  14. ATWRITE 60 5 11 '$prtcol'
  15. RETURN
  16. ;
  17.