プログラムリスト

SYS/EX4NUMGAME

トップメニュー「SmileBASICでプログラムを作る」から、LOAD"SYS/EX4NUMGAME"↵でプログラムが読み込まれます。キーボードの「EDIT」キーを押すと、このプログラムが自由に編集できます。


'
' EXAMPLE4 
' かずあてゲーム  
'
XSCREEN 0
VISIBLE 1,1,1,1
CLS
COLOR 15

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
PRINT ""*50;
BEEP 34
PRINT ":あたり!!!!"
PRINT "PUSH  BUTTON"
WHILE (BUTTON()!=16)
 VSYNC 1
WEND
END