home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / ibm1 / do101j2.arj / TEST.SCR < prev    next >
Encoding:
Text File  |  1991-12-12  |  245 b   |  13 lines
  1. :TOP
  2. /set default ""
  3. /GETS address default "Address: "
  4. /if %address NE "" END
  5. /if %address LK "{P.O. Box|POBox|PO Box}*" OK
  6. that address (%address) is not OK
  7. /goto top
  8. :OK
  9. that address (%address) is OK
  10. /goto top
  11. :end
  12. /endexec clear
  13.