数当て - SHARP POCKET COMPUTER PC-E200/G series BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/

kazuate.bas

1 ' ｱｽﾞｱﾃ Kazu-ate | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
10 RANDOMIZE
20 I=0
30 R=RND 100-1
40 I=I+1
50 PRINT"ﾀｰﾝ ";STR$(I);
60 INPUT" ｶｽﾞ(0-99)>";K
70 IF K>R PRINT "ﾁｲｻｲ":GOTO 40
80 IF R>K PRINT "ｵｵｷｲ":GOTO 40
90 END