Rock-paper-scissors: Difference between revisions
Content added Content deleted
Line 2,423: | Line 2,423: | ||
=={{header|IS-BASIC}}== |
=={{header|IS-BASIC}}== |
||
<lang IS-BASIC>100 PROGRAM "Rock.bas" |
<lang IS-BASIC>100 PROGRAM "Rock.bas" |
||
110 RANDOMIZE |
110 RANDOMIZE |
||
120 STRING CH$(1 TO 3)*8,K$*1 |
120 STRING CH$(1 TO 3)*8,K$*1 |
||
130 NUMERIC PLWINS(1 TO 3),SCORE(1 TO 3),PLSTAT(1 TO 3),CMSTAT(1 TO 3),PLCHOICE,CMCHOICE |
130 NUMERIC PLWINS(1 TO 3),SCORE(1 TO 3),PLSTAT(1 TO 3),CMSTAT(1 TO 3),PLCHOICE,CMCHOICE |