ジャンケンポン！ ( Rock, Paper & Scissors! ) - 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/

JYANKEN1.BAS

1 ' ｼﾞｬﾝｹﾝﾎﾟﾝ! Rock, Paper & Scissors! | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006 Keiichi Shiga (BALLOON | FU-SEN)
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006
10 PRINT "ｼﾞｬﾝｹﾝﾎﾟﾝ!"
20 IF INKEY$ <> "" GOTO 60
30 IF INKEY$ <> "" GOTO 70
40 IF INKEY$ <> "" GOTO 80
50 GOTO 20
60 PRINT "ｸﾞｰ":GOTO 90
70 PRINT "ﾁｮｷ":GOTO 90
80 PRINT "ﾊﾟｰ"
90 IF INKEY$ <> "" GOTO 90
100 IF INKEY$ = "" GOTO 100
110 IF INKEY$ <> "" GOTO 110
120 GOTO 10