CLS
COLOR 12, 0
WIDTH 40
PRINT "Davids"
PRINT "Fantastiska "
PRINT "Sten Sax Pse spel!"
PRINT
COLOR 10, 0
PRINT "Har du vad som krvs fr att sl datorn i sten sax pse?"
PRINT "Frst till 3 pong vinner!"
COLOR 7, 0
PRINT
PRINT
PRINT
PRINT
COLOR 30, 0
PRINT "Tryck p valfri tangent fr att fortstta": Ch$ = INPUT$(1)
COLOR 12, 0
CLS
WIDTH 80
INPUT "Vad heter du"; namn$
PLAY "L16"
PRINT
PRINT "Vlkommen "; namn$
dator = 0
spelare = 0
DO
PRINT
PRINT
PRINT
PRINT "Vlj ditt vapen:"
PRINT "1 = STEN"
PRINT "2 = SAX"
PRINT "3 = PSE"
INPUT v1
v2 = INT(RND * 3 + 1)
IF v1 = 1 THEN
v1$ = "STEN"
ELSEIF v1 = 2 THEN
v1$ = "SAX"
ELSEIF v1 = 3 THEN
v1$ = "PSE"
END IF
IF v2 = 1 THEN
v2$ = "STEN"
ELSEIF v2 = 2 THEN
v2$ = "SAX"
ELSEIF v2 = 3 THEN
v2$ = "PSE"
END IF
IF v1 = v2 THEN
CLS
PRINT "Ni valde bda "; v1$
PRINT "Ingen vinner!"
ELSEIF (v1 = 1 AND v2 = 2) OR (v1 = 2 AND v2 = 3) OR (v1 = 3 AND v2 = 1) THEN
CLS
PRINT namn$; " valde "; v1$
PRINT "Datorn valde "; v2$
PRINT
PRINT namn$; "s "; v1$; " slr datorns "; v2$; "."
PRINT namn$; " fr 1 pong!"
spelare = spelare + 1
ELSEIF (v2 = 1 AND v1 = 2) OR (v2 = 2 AND v1 = 3) OR (v2 = 3 AND v1 = 1) THEN
CLS
PRINT namn$; " valde "; v1$
PRINT "Datorn valde "; v2$
PRINT
PRINT "Datorns "; v2$; " slr "; namn$; "s "; v1$; "."
PRINT "Datorn fr 1 pong!"
dator = dator + 1
END IF
PRINT
PRINT
PRINT "Datorn har vunnit "; dator; "gng(er)."
PRINT namn$; " har vunnit "; spelare; "gng(er)."
PRINT
PRINT
COLOR 30, 0
PRINT "Tryck p valfri tangent fr att fortstta": Ch$ = INPUT$(1)
COLOR 12, 0
CLS
LOOP WHILE spelare < 3 AND dator < 3
IF dator = 3 THEN
win$ = "Datorn"
ELSEIF spelare = 3 THEN
win$ = namn$
END IF
CLS
COLOR 10, 0
PRINT win$; " Vann!"
COLOR 7, 0
DO
INPUT "Vill du spela igen tryck J om du vill avsluta tryck N."; ag$
IF ag$ = "N" OR ag$ = "n" THEN
END
ELSEIF ag$ = "J" OR ag$ = "j" THEN
PRINT "Synd! Fr det gr inte!"
ELSE
PRINT
PRINT "Ogiltigt svar."
PRINT
END IF
LOOP WHILE ag$ <> "N" OR ag$ <> "n" OR ag$ <> "j" OR ag$ <> "J"