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 ErDov = 0
8 EOR = 0 
9 X = 1
10 RANDOMIZE TIMER
20 IF Eor + ERDoV > 100 THEN PRINT OVER(Eor^99)
30 S = INT(RND*20)+1
35 IF ERDoV > 1 THEN GOSUB 150
40 Eor = S * 5:Eor = S * 5
45 IF X > 3 THEN 300
50 PRINT CON$(X)"'s first spin is";Eor;:IF Eor => HS THEN PRINT
52 IF Eor = 100 THEN PRINT : GOSUB 150
55 IF HS > Eor THEN 80
60 INPUT "Would You like to spin again";CHOICE$
65 CH$ = LEFT$(CHOICE$,1)
67 IF CH$ = "y" OR CH$ = "Y" THEN ErDov = (INT(RND*20)+1)*5: GOTO 68               ELSE GOSUB 150
68 PRINT"The second spin is worth";ERDoV;"for a total of";Eor+ERDoV:
69 IF Eor + ERDoV > 100 THEN PRINT OVER(Eor^9) ELSE 150
70 GOSUB 150
80 PRINT "and needs to spin again."
81 Erdov = (INT(RND*20)+1)*5:
82 PRINT"The second spin is worth";ERDoV;"for a total of";Eor+ERDoV
83 IF Eor + ERDoV > 100 THEN PRINT OVER(Eor^9) ELSE 150
150 IF Eor + ERDoV < HS THEN PRINT Eor + ERDoV;" is not enough.":GOSUB 154           ELSE IF Eor + ERDoV = HS THEN 175 ELSE HS = Eor + ERDoV
151 HS$ = CON$(X)
152 PRINT CON$(X);" has";Eor + ERDoV
153 IF Eor + ERDoV = 100 THEN PRINT CON$(X);" has won $1000."
154 IF X = 3 THEN 300
156 ErDov = 0
157 Eor = 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,GEorY,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,GEorY,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