1 RANDOMIZE TIMER
2 DIM CON$(3)
3 FOR X = 1 TO INT(RND*20)+1:READ CON$(1),CON$(2),CON$(3):NEXT X
5 DEF SEG
7 POKE 29,0
8 POKE 288,0
9 X = 1
10 RANDOMIZE TIMER
20 IF ERR + ERDEV > 100 THEN PRINT OVER(ERR^99)
30 S = INT(RND*20)+1
35 IF ERDEV > 1 THEN GOSUB 150
40 POKE 288,S * 5
45 IF X > 3 THEN 300
50 PRINT CON$(X)"'s first spin is";ERR;:IF ERR => HS THEN PRINT
52 IF ERR = 100 THEN PRINT : GOSUB 150
55 IF HS > ERR THEN 80
60 INPUT "Would You like to spin again";CHOICE$
65 CH$ = LEFT$(CHOICE$,1)
67 IF CH$ = "y" OR CH$ = "Y" THEN POKE 29,(INT(RND*20)+1)*5: GOTO 68               ELSE GOSUB 150
68 PRINT"The second spin is worth";ERDEV;"for a total of";ERR+ERDEV:
69 IF ERR + ERDEV > 100 THEN PRINT CON$(X);" has gone over.":GOTO 30
70 GOSUB 150
80 PRINT "and needs to spin again."
81 POKE 29,(INT(RND*20)+1)*5:
82 PRINT"The second spin is worth";ERDEV;"for a total of";ERR+ERDEV
83 IF ERR + ERDEV > 100 THEN PRINT CON$(X);" has gone over.":GOTO 30
150 IF ERR + ERDEV < HS THEN PRINT ERR + ERDEV;" is not enough.":GOSUB 154           ELSE IF ERR + ERDEV = HS THEN 175 ELSE                                         IF NOT(ERR+ERDEV>100) THEN HS = ERR + ERDEV
151 HS$ = CON$(X)
152 PRINT CON$(X);"'s score is";ERR + ERDEV
153 IF ERR + ERDEV = 100 THEN PRINT CON$(X);" has won $1000."
154 IF X = 3 THEN 300
156 POKE 29,0
157 POKE 288,0
167 X = X + 1
168 GOTO 198
175 PRINT CON$(X);" has tied ";HS$:X = X + 1
198 RETURN 20
199 END
200 PRINT "You win $1000"
300 PRINT HS$;" is going on to the next round."
600 DATA FREDDY,GERRY,HARRY,BILLY,EDDIE,SUSAN,HOMER,GRIMLORD,DENNIS,RUTH,PEDRO,MARCO,HAGAR,KEITH,LINDA,KEN,LINK,WARIO,VOILET,ANDREW,MITCH,ROBIN,JOEY,LUCY,PAM,STAN,CARL,MORGAN,JILL,JACK,ZELDA,SAMUS,NESS
601 DATA FREDDY,GERRY,HARRY,BILLY,EDDIE,SUSAN,HOMER,GRIMLORD,DENNIS,RUTH,PEDRO,MARCO,HAGAR,KEITH,LINDA,KEN,LINK,WARIO,VOILET,ANDREW,MITCH,ROBIN,JOEY,LUCY,PAM,STAN,CARL,MORGAN,JILL,JACK,ZELDA,SAMUS,NESS