Skip to content

Instantly share code, notes, and snippets.

@fu-sen

fu-sen/JYANKEN1.BAS

Last active February 12, 2021 12:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fu-sen/7274289 to your computer and use it in GitHub Desktop.
Save fu-sen/7274289 to your computer and use it in GitHub Desktop.
Download ZIP
ジャンケンポン！ ( 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/
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment