Untitled

CLS
LOCATE 8, 35: PRINT "Namn !"
LOCATE 10, 25: INPUT a$
LOCATE 10, 40: PRINT "VS          ";
INPUT B$
SCREEN 9
0 CLS
LINE (100, 70)-(500, 300), 1, B
LINE (230, 70)-(370, 300), 1, B
LINE (100, 140)-(500, 225), 1, B
LOCATE 5, 21: PRINT "1"
LOCATE 5, 38: PRINT "2"
LOCATE 5, 54: PRINT "3"
LOCATE 8, 12: PRINT "1"
LOCATE 13, 12: PRINT "2"
LOCATE 19, 12: PRINT "3"
99 LOCATE 3, 30: PRINT a$;
INPUT a%
IF a% = 11 THEN GOTO 1
IF a% = 12 THEN GOTO 2
IF a% = 13 THEN GOTO 3
IF a% = 21 THEN GOTO 4
IF a% = 22 THEN GOTO 5
IF a% = 23 THEN GOTO 6
IF a% = 31 THEN GOTO 7
IF a% = 32 THEN GOTO 8
IF a% = 33 THEN GOTO 9
IF a% = 0 THEN END
IF a% = 1 THEN GOTO 0
1 LINE (150, 90)-(180, 120), 2, BF
GOTO 10
2 LINE (280, 90)-(310, 120), 2, BF
GOTO 10
3 LINE (410, 90)-(440, 120), 2, BF
GOTO 10
4 LINE (150, 170)-(180, 200), 2, BF
GOTO 10
5 LINE (280, 170)-(310, 200), 2, BF
GOTO 10
6 LINE (410, 170)-(440, 200), 2, BF
GOTO 10
7 LINE (150, 250)-(180, 280), 2, BF
GOTO 10
8 LINE (280, 250)-(310, 280), 2, BF
GOTO 10
9 LINE (410, 250)-(440, 280), 2, BF
10 LOCATE 3, 30: PRINT B$;
INPUT B%
IF B% = 11 THEN GOTO 11
IF B% = 12 THEN GOTO 12
IF B% = 13 THEN GOTO 13
IF B% = 21 THEN GOTO 14
IF B% = 22 THEN GOTO 15
IF B% = 23 THEN GOTO 16
IF B% = 31 THEN GOTO 17
IF B% = 32 THEN GOTO 18
IF B% = 33 THEN GOTO 19
IF B% = 0 THEN END
IF B% = 1 THEN GOTO 0
11 CIRCLE (163, 105), 30, 4
GOTO 20
12 CIRCLE (300, 105), 30, 4
GOTO 20
13 CIRCLE (430, 105), 30, 4
GOTO 20
14 CIRCLE (163, 180), 30, 4
GOTO 20
15 CIRCLE (300, 180), 30, 4
GOTO 20
16 CIRCLE (430, 180), 30, 4
GOTO 20
17 CIRCLE (164, 260), 30, 4
GOTO 20
18 CIRCLE (300, 260), 30, 4
GOTO 20
19 CIRCLE (430, 260), 30, 4
20 GOTO 99