SHARE
TWEET

The code!

a guest Jan 17th, 2019 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DECLARE SUB ct (row!, text$)
  2. CLS
  3. COLOR 5
  4. ct 1, "CUT-N-CUT"
  5. ct 3, "Plant a bomb, and DONT CUT IT!!!"
  6. ct 5, "PRESS '5' TO CONTINUE"
  7. DO: k$ = INKEY$: LOOP UNTIL k$ = "5"
  8. DIM a$(9)
  9. CLS
  10. FOR i = 1 TO 9
  11. a$(i) = STR$(i)
  12. NEXT i
  13. CLS
  14. ct 1, "PLEASE ENTER YOUR NUMBER!"
  15. INPUT "", cn
  16. DO
  17. k$ = UCASE$(INKEY$)
  18. c = VAL(k$)
  19.  
  20. FOR i = 1 TO 9
  21. LOCATE i, 1: PRINT a$(i)
  22. NEXT i
  23.  
  24. IF LEN(k$) THEN
  25. a$(c) = a$(c) + "(CUT)"
  26. IF c = cn THEN GOTO theend
  27. END IF
  28. LOOP UNTIL k$ = CHR$(27)
  29.  
  30. theend:
  31. CLS
  32. PRINT "YOU LOST!"
  33. PRINT "YOU CUT THE NUMBER!"
  34. END
  35.  
  36. SUB ct (row, text$)
  37. LOCATE row, 40 - (LEN(text$) / 2): PRINT text$
  38. END SUB
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top