home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 14A / HUMTHIEF.ZIP / HUMTHIEF.SCR < prev   
Text File  |  1992-07-19  |  369b  |  21 lines
  1. clrscr
  2. display "Enter the optimum price of this port: "
  3. getn 0 5
  4. display "Enter 1 or 2 for the number of sell this port have: "
  5. getn 1 1
  6. timeout 8 BUSTED
  7. START:
  8. send "PT^M$0^M0^M"
  9. if '$1' = "2"  EXTRA
  10. EXTRA2:
  11. waitfor ")?" BUSTED
  12. send 'PR   S3^M'
  13. waitfor "success!" BUSTED
  14. waitfor ")?" BUSTED
  15. GOTO START
  16. EXTRA:
  17. send "0^M"
  18. GOTO EXTRA2:
  19. BUSTED:
  20. EXIT
  21.