Anonymous user
Rock-paper-scissors: Difference between revisions
→{{header|IS-BASIC}}
Line 2,423:
=={{header|IS-BASIC}}==
<lang IS-BASIC>100 PROGRAM "Rock.bas"
110 RANDOMIZE
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
| |||