1 CLS

COLOR 12, 0
PRINT "Davids Fantastiska 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
INPUT "Vad heter du"; namn$
PRINT
PRINT "Vlkommen "; namn$
PRINT
PRINT
PRINT "Tryck p vilken tangent som helst fr att fortstta"; fort$; INPUT$(1)
CLS
dator = 0
spelare = 0
DO
PRINT
PRINT
PRINT
PRINT "Vlj ditt vapen:"
PRINT "1 = STEN"
PRINT "2 = SAX"
PRINT "3 = PSE"
INPUT vapen
vapen2 = INT(RND * 3 + 1)
IF vapen = vapen2 THEN
	CLS
	PRINT "Ni valde bda samma sak."
	PRINT
	IF dator = 3 THEN
	GOTO datornvinner
	ELSEIF spelare = 3 THEN
	GOTO spelarevinner
	ELSE
	PRINT "Datorn har "; dator; " Pong"
	PRINT namn$; " har "; spelare; " Pong"
	END IF
ELSEIF vapen2 = 1 AND vapen = 3 THEN
	CLS
	PRINT "Datorn valde STEN."
	PRINT namn$; " valde PSE"
	PRINT namn$; " vinner. "; namn$; " fngar datorns sten med en pse!"
	PRINT
	spelare = spelare + 1
	IF dator = 3 THEN
	GOTO datornvinner
	ELSEIF spelare = 3 THEN
	GOTO spelarevinner
	ELSE
	PRINT "Datorn har "; dator; " Pong"
	PRINT namn$; " har "; spelare; " Pong"
	END IF
ELSEIF vapen2 = 2 AND vapen = 1 THEN
	CLS
	PRINT "Datorn valde SAX."
	PRINT namn$; " valde STEN."
	PRINT namn$; " vinner. "; namn$; " slog snder datorns sax med en sten."
	PRINT
	spelare = spelare + 1
	IF dator = 3 THEN
	GOTO datornvinner
	ELSEIF spelare = 3 THEN
	GOTO spelarevinner
	ELSE
	PRINT "Datorn har "; dator; " Pong"
	PRINT namn$; " har "; spelare; " Pong"
	END IF
ELSEIF vapen2 = 2 AND vapen = 3 THEN
	CLS
	PRINT "Datorn valde SAX."
	PRINT namn$; " valde PSE."
	PRINT "Datorn vinner. Datorn klipper snder "; namn$; "s"; " pse."
	PRINT
	dator = dator + 1
	IF dator = 3 THEN
	GOTO datornvinner
	ELSEIF spelare = 3 THEN
	GOTO spelarevinner
	ELSE
	PRINT "Datorn har "; dator; " Pong"
	PRINT namn$; " har "; spelare; " Pong"
	END IF
ELSEIF vapen2 = 3 AND vapen = 1 THEN
	CLS
	PRINT "Datorn valde PSE."
	PRINT namn$; " valde STEN."
	PRINT "Datorn vinner. Datorn fngar "; namn$; "s"; " sten med en pse!"
	PRINT
	dator = dator + 1
	IF dator = 3 THEN
	GOTO datornvinner
	ELSEIF spelare = 3 THEN
	GOTO spelarevinner
	ELSE
	PRINT "Datorn har "; dator; " Pong"
	PRINT namn$; " har "; spelare; " Pong"
	END IF
ELSEIF vapen2 = 3 AND vapen = 2 THEN
	CLS
	PRINT "Datorn valde PSE."
	PRINT namn$; " valde SAX."
	PRINT namn$; " vinner. "; namn$; " klipper snder datorns pse."
	PRINT
	spelare = spelare + 1
	IF dator = 3 THEN
	GOTO datornvinner
	ELSEIF spelare = 3 THEN
	GOTO spelarevinner
	ELSE
	PRINT "Datorn har "; dator; " Pong"
	PRINT namn$; " har "; spelare; " Pong"
	END IF

END IF
LOOP

datornvinner:
CLS
COLOR 10, 0
PRINT "Datorn Vann!"
COLOR 7, 0
2 PRINT "Vill du spela igen tryck J om du vill avsluta tryck N."
INPUT ; ag$
IF ag$ = "N" THEN
END
ELSEIF ag$ = "J" THEN
GOTO 1
ELSE
PRINT
PRINT "Ogiltigt svar."
PRINT
GOTO 2
END IF

spelarevinner:
CLS
COLOR 10, 0
PRINT namn$; " Vann!"
COLOR 7, 0
3 PRINT "Vill du spela igen tryck J om du vill avsluta tryck N."
INPUT ; ag$
IF ag$ = "N" THEN
END
ELSEIF ag$ = "J" THEN
GOTO 1
ELSE
PRINT
PRINT "Ogiltigt svar."
PRINT
GOTO 3
END IF