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