NERD HPCでじゃんけんゲーム。
只じゃんけんするだけの何の変哲もないプログラム。
平坦な作りではあるがじゃんけんをコード化すると
こんな感じになるんだなーと思って見て頂ければと。
JANKEN.TXT
10 CLS 20 GCLS 30 PRINT "JANKEN GAME" 31 PRINT "version 1.0.0" 32 PRINT "REGEKATSU SOFT" 33 PRINT "07 Jul, 2025" 34 PRINT "" 35 SLEEPMS 1000 40 P=0;REM player hand 50 C=0;REM cpu hand 60 G=0;REM judge 0:draw 1:win 2:lose 70 PRINT "JAN KEN PON!" 80 INPUT "1.GOO 2.CHO 3.PAR:"P 90 IF (P<1)+(P>3) GOTO 80 100 C=RND(3) 110 PRINT "YOU:",P,".",;H=P;GOSUB 300;PRINT " ", 120 PRINT "COM:",C,".",;H=C;GOSUB 300;PRINT "" 130 IF (P=1)*(C=2) G=1 140 IF (P=2)*(C=3) G=1 150 IF (P=3)*(C=1) G=1 160 IF (P=1)*(C=3) G=2 170 IF (P=2)*(C=1) G=2 180 IF (P=3)*(C=2) G=2 190 IF P=C G=0 200 IF G=2 PRINT "YOU LOSE" 210 IF G=1 PRINT "YOU WIN!" 220 IF G=0 PRINT "AIKO DE SHO!";GOTO 80 230 INPUT "RETRY? 1.Y 2.N:"P 240 IF P=1 GOTO 70 250 IF P=2 STOP 260 GOTO 230 300 REM PUT HAND 305 REM H:HAND RET:NAME 310 IF H=1 PRINT "GOO", 320 IF H=2 PRINT "CHO", 330 IF H=3 PRINT "PAR", 399 RETURN
