daily pastebin goal
56%
SHARE
TWEET

Untitled

a guest Mar 3rd, 2016 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 POKE#EF*8+0,`01110000
  2. 20 POKE#EF*8+1,`01111100
  3. 30 POKE#EF*8+2,`01111110
  4. 40 POKE#EF*8+3,`01110000
  5. 50 POKE#EF*8+4,`01000000
  6. 60 POKE#EF*8+5,`01000000
  7. 70 POKE#EF*8+6,`01000000
  8. 80 POKE#EF*8+7,`11110000
  9. 90 CLS:CLV
  10. 100 H=1:B=3:S=0:P=13:R=0:Z=0
  11. 110 F=RND(17)+8
  12. 120 IFF<11R=1
  13. 130 IFF>10R=2
  14. 140 IFF>14R=3
  15. 150 IFF>17R=4
  16. 160 IFF>22R=5
  17. 180 IFH<18LC6,3:?"HOLE:";H;" PAR:";R;" : SCORE:";Z
  18. 181 IFH>18END
  19. 182 LC6,4:?"SHOT:";S
  20. 185 LC6,5:?"POWER:"
  21. 190 LCF,14:?CHR$(#EF)
  22. 200 LCB,14:?"."
  23. 210 IFINKEY()<>32GOTO210
  24. 220 FORA=1TO10
  25. 230 LCP,5:?"ロ";
  26. 240 WAIT8
  27. 250 IFINKEY()=32A=10:NEXT:GOTO315
  28. 260 P=P+1:NEXT
  29. 270 FORA=11TO1STEP-1
  30. 280 LCP,5:?" "
  31. 290 WAIT8
  32. 300 IFINKEY()=32A=1:NEXT:GOTO315
  33. 310 P=P-1:NEXT
  34. 311 IFINKEY()<>32P=13:GOTO210
  35. 315 S=S+1:Q=P-13
  36. 320 FORA=1TOQ
  37. 330 LCB,14:?" ":B=B+1
  38. 340 LCB,14:?".":WAIT3
  39. 345 LCF,14:?CHR$(#EF)
  40. 350 NEXT
  41. 370 FORA=13TO23
  42. 380 LCA,5:?" ":P=13
  43. 390 NEXT
  44. 400 IFB>FLC14,10:?"BOGGY"ELSEGOTO440
  45. 405 WAIT50:LCB,14:?" ":LC13,10:?"      ":B=B-Q
  46. 440 IFB<>FGOTO180
  47. 450 B=3:H=H+1:LCF,14:?" "
  48. 460 Z=Z+S-R:S=0
  49. 500 GOTO110
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