0 CLS
1 SCREEN 1
2 FOR X = 1 TO 200 STEP 8
3 CIRCLE (X,X),X,X:PRINT X,
4 NEXT X
5 WIDTH 80:SCREEN 0,0,0
6 B$ = "Trini"
7 INPUT "The Computer's Name is Trini.                                                   What is Your Name";A$
8 FOR X = 1 TO 10
10 RANDOMIZE TIMER
20 S = INT(RND*5)+1
30 V = INT(RND*13)+1
40 FOR D = 1 TO V
50 READ C$
60 NEXT D
70 IF X = 2 OR X = 4 OR X = 6 OR X = 8 OR X = 10                                   THEN PRINT X;"- ";B$;" has picked the ";C$;                                     ELSE PRINT X;"- ";A$;" has picked the ";C$;
80 IF S = 1 THEN PRINT " of Spades"
90 IF S = 2 THEN PRINT " of Hearts"
100 IF S = 3 THEN PRINT " of Clubs"
110 IF S = 4 THEN PRINT " of Diamonds"
115 IF S = 5 THEN PRINT " of Planeteers"
120 DATA "ACE",2,3,4,5,6,7,8,9,10,"JACK",QUEEN,KING
125 RESTORE
130 NEXT X
135 WIDTH 80
140 SCREEN 0,0,0
150 END