- ’┌───────────┐
- ’│SAMPLE4 │
- ’│ カス゛アテケ゛-ム │
- ’└───────────┘
- VISIBLE 1,1,0,0,0,0
- CLS:COLOR 0:BGMSTOP
- PRINT”┌─────────┐”
- PRINT”│カス゛アテケ゛-ム│”
- PRINT”└─────────┘”
- PRINT”ニコチャンЖカ゛カンカ゛エタ、”
- PRINT”0―99マテ゛ノ スウシ゛ヲ アテテクタ゛サイ”
- ’--- Ж:スウシ゛ヲカンカ゛エル
- ANS=RND(100)
- ’---
- @RETRY
- PRINT””
- INPUT”Ж:0―99マテ゛ノスウシ゛ハ”;NO
- IF NO<0 OR NO>99 THEN @RETRY
- IF NO==ANS THEN @BINGO
- IF NO<ANS THEN @SMALL
- ’---
- @BIG
- BEEP 4
- PRINT”Ж:HINT(オオキイテ゛ス)”
- GOTO @RETRY
- ’---
- @SMALL
- BEEP 6
- PRINT”Ж:HINT(チイサイヨ)”
- GOTO @RETRY
- ’---
- @BINGO
- BEEP 34
- PRINT”Ж:アタリ!!!!”
- END