home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / ULCONF.MOD < prev    next >
Text File  |  1989-04-01  |  311b  |  20 lines
  1. ;LANS  10-18-88  06:46  ULCONF.MOD
  2. ;
  3. UL_conf:
  4. ATWRITE 44 7 138 '#5> '
  5. COLOR 15
  6. GOTOXY 45 6
  7. GET 0 1
  8. ATWRITE 44 7 4 '#5> '
  9. IF '$0' = '' go_back
  10. IF '$0' = 'Y' valid_ans
  11. IF '$0' = 'N' valid_ans
  12. GOTO UL_conf
  13. valid_ans:
  14. ASSIGN YorN '$0'
  15. SCRIPT ULYorN.mod
  16. ATWRITE 48 7 11 '$YorN'
  17. go_back:
  18. RETURN
  19. ;
  20.