Skip to content

Instantly share code, notes, and snippets.

@fu-sen
Last active February 12, 2021 12:31
Show Gist options
  • 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.
ジャンケンポン! ( 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/
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