'===========================================================================
' Subject: PAPER, SCISSORS, STONE             Date: 10-07-98 (03:13)       
'  Author: Bill Atkinson                      Code: ASIC                   
'  Origin: Batkin6114@aol.com               Packet: ASIC.ABC
'===========================================================================
DIM MAT$(3)
DATA "Paper","Scissers","Stone"
RANDOMIZE
FOR X = 1 TO 3
  READ MAT$(X)
NEXT X
LOOP:
CLS
HUM$ = STR$(HUM)
COMP$ = STR$(COMP)
HUM$ = LTRIM$(HUM$)
COMP$ = LTRIM$(COMP$)
PRINT
PRINT " ** Paper, Scissers, Stone **"
PRINT
PRINT " Score: Human = ";
PRINT HUM$;
PRINT " Computer = ";
PRINT COMP$
PRINT
PRINT " 1> Paper, 2> Scissers, 3> Stone"
PRINT
GETMATERIAL:
PRINT " Choose a material (1, 2, or 3): ";
INPUT  A$;
A = VAL(A$)
A = ABS(A)
IF A < 1 THEN GETMATERIAL:
IF A > 3 THEN GETMATERIAL:
B = RND(0)
B = B MOD 3
B = B + 1
PRINT
PRINT
PRINT " You picked ";
PRINT MAT$(A)
PRINT
PRINT " Computer picked ";
PRINT MAT$(B)
PRINT
IF A = B THEN
  PRINT " It's a tie!"
ENDIF
IF A = 1 THEN
  IF B = 2 THEN
    PRINT " Scissers cuts paper! You lose."
    COMP = COMP + 1
  ENDIF
ENDIF
IF A = 1 THEN
  IF B = 3 THEN
    PRINT " Paper covers stone! You win."
    HUM = HUM + 1
  ENDIF
ENDIF
IF A = 2 THEN
  IF B = 1 THEN
    PRINT " Scissers cuts paper! You win."
    HUM = HUM + 1
  ENDIF
ENDIF
IF A = 2 THEN
  IF B = 3 THEN
    PRINT " Stone breaks scissers! You lose."
    COMP = COMP + 1
  ENDIF
ENDIF
IF A = 3 THEN
  IF B = 1 THEN
    PRINT " Paper covers stone! You lose."
    COMP = COMP + 1
  ENDIF
ENDIF
IF A = 3 THEN
  IF B = 2 THEN
    PRINT " Stone breaks scissers! You win."
    HUM = HUM + 1
 ENDIF
ENDIF
PRINT
PRINT " Again (Y/n)"
LOOP2:
K$ = INKEY$
K$ = UCASE$(K$)
IF K$ = "N" THEN
  CLS
  END
ENDIF
IF K$ = "" THEN LOOP2:
GOTO LOOP: