プチコンmkII

  1. ’┌───────────┐
  2. ’│SAMPLE4    │
  3. ’│ カス゛アテケ゛-ム │
  4. ’└───────────┘
  5. VISIBLE 1,1,0,0,0,0
  6. CLS:COLOR 0:BGMSTOP
  7. PRINT”┌─────────┐”
  8. PRINT”│カス゛アテケ゛-ム│”
  9. PRINT”└─────────┘”
  10. PRINT”ニコチャンЖカ゛カンカ゛エタ、”
  11. PRINT”0-99マテ゛ノ スウシ゛ヲ アテテクタ゛サイ”
  12. ’--- Ж:スウシ゛ヲカンカ゛エル
  13. ANS=RND(100)
  14. ’---
  15. @RETRY
  16. PRINT””
  17. INPUT”Ж:0-99マテ゛ノスウシ゛ハ”;NO
  18. IF NO<0 OR NO>99 THEN @RETRY
  19. IF NO==ANS THEN @BINGO
  20. IF NO<ANS THEN @SMALL
  21. ’---
  22. @BIG
  23. BEEP 4
  24. PRINT”Ж:HINT(オオキイテ゛ス)”
  25. GOTO @RETRY
  26. ’---
  27. @SMALL
  28. BEEP 6
  29. PRINT”Ж:HINT(チイサイヨ)”
  30. GOTO @RETRY
  31. ’---
  32. @BINGO
  33. BEEP 34
  34. PRINT”Ж:アタリ!!!!”
  35. END