10 REM WHEEL.ECB
   15 PRINT "&K": REM ...WHEEL  Univac BASIC  11-15-79
   20 DIM F$(5),L$(3)
   30 LET D$=" DOLLARS"
   40 PRINT "WELCOME TO THE WHEEL OF FORTUNE GAME.&J"
   50 PRINT "  TO PLAY, PLACE YOUR BET AND"
   60 PRINT " CHOOSE A NUMBER FROM 1-10."
   70 PRINT "&J    THE ODDS ARE 10 TO 1."
   80 LET D=0: LET E=0
   90 PRINT "&J  <<< PLEASE PLACE YOUR BET >>>   ---=>";
  100 INPUT (2,0)A
  110 IF A<=0 THEN 150
  120 IF A<=5 THEN 170
  130 IF A>40 THEN 190
  140 GOTO 220
  150 PRINT "   NO TRICKS NOW.  POSITIVE NUMBER ONLY."
  160 PRINT : GOTO 90
  170 PRINT " THAT'S PLAYING IT SAFE! "
  180 GOTO 220
  190 PRINT
  200 PRINT "SORRY,   NO BETS OVER $40.  "
  210 GOTO 90
  220 PRINT
  230 PRINT "*** THE WHEEL IS SPINNING *** "
  240 PRINT
  250 PRINT "   PICK A NUMNBER FROM 1 TO 10   ---=>";
  260 INPUT (2,0)B
  270 LET C=INT(RND(0)*10+1): PRINT "&K&J&J"
  280 PRINT "  THE WHEEL HAS STOPPED.   THE NUMBER IS";C
  290 IF B=C THEN 310
  300 IF B<>C THEN 830
  310 PRINT "      *********** YOU WIN **************"
  320 LET D=D+1
  330 IF D=1 THEN 370
  340 IF D=2 THEN 390
  350 IF D=3 THEN 410
  360 IF D>3 THEN 430
  370 PRINT "  LUCKY GUESS"
  380 GOTO 440
  390 PRINT " YOU ARE GETTING LUCKIER ALL THE TIME!"
  400 GOTO 440
  410 PRINT "I HOPE YOU DON'T HAVE    E S P !"
  420 GOTO 440
  430 PRINT " YOU DO HAVE    E S P !!! "
  440 LET E=E+(10*A)
  450 IF E<0 THEN 470
  460 IF E>=0 THEN 490
  470 PRINT
  480 GOTO 520
  490 PRINT
  500 PRINT " YOU ARE AHEAD ";E;D$
  510 PRINT
  520 PRINT "*+*  SPECIAL CHANCE TO WIN $100.  *+*"
  530 PRINT "  SINCE YOU ARE SO LUCKY,"
  540 PRINT " DO YOU WANT TO TRY IT? (YES,NO)  ---=>";
  550 INPUT (1,0)F$: IF LEN(F$)=0 THEN  LET F$="Y"
  560 LET F$=F$(1,1)
  570 IF F$="Y" THEN 610
  580 IF F$="N" THEN 800
  590 PRINT "  > ERROR IN TRANSMIT, REENTER YOUR CHOICE <";
  600 GOTO 550
  610 PRINT " PICK A NUMBER FROM 0 TO 5.   ---=>";
  620 INPUT (1,0)G
  630 LET K=INT((RND(0)*10+1)/2)
  640 IF K=G THEN 660
  650 IF K<>G THEN 760
  660 PRINT " THE NUMBER IS ";K;"  *** YOU WIN ***"
  670 LET E=E+100
  680 IF E<0 THEN 700
  690 IF E>=0 THEN 730
  700 PRINT
  710 PRINT " YOU ARE BEHIND ";ABS(E);D$
  720 GOTO 930
  730 PRINT
  740 PRINT " YOU ARE AHEAD ";E;D$
  750 GOTO 930
  760 PRINT " THE NUMBER IS ";K;" YOU LOSE !!!"
  770 PRINT
  780 PRINT " YOU STILL HAVE ";E;D$
  790 GOTO 930
  800 PRINT
  810 PRINT "   YOU SHOULD HAVE TRIED IT !!!"
  820 GOTO 930
  830 PRINT
  840 PRINT "*** YOU CHOSE THE WRONG NUMBER. TOO BAD!***"
  850 LET E=E-A
  860 IF E<0 THEN 880
  870 IF E>=0 THEN 910
  880 PRINT
  890 PRINT " YOU ARE DOWN ";ABS(E);D$
  900 GOTO 930
  910 PRINT
  920 PRINT " YOU ARE UP ";E;D$
  930 IF E>500 THEN 970
  940 IF E<-1000 THEN 1100
  950 IF E<-500 THEN 1020
  960 GOTO 1140
  970 PRINT
  980 PRINT "*** YOU HAVE WON !!! I AM BROKE....."
  990 PRINT " YOU WILL RECEIVE YOUR CHECK IN THE MAIL (MAYBE)."
 1000 PRINT "      TYPE 'RUN' TO PLAY AGAIN"
 1010 GOTO 1250
 1020 PRINT
 1030 PRINT " YOU ARE OVER THE $500 LIMIT."
 1040 INPUT (1,0)L$: IF LEN(L$)=0 THEN  LET L$="N"
 1050 LET L$=L$(1,1)
 1060 IF L$="Y" THEN 90
 1070 IF L$="N" THEN 1220
 1080 PRINT "      ERROR IN TRANSMIT,  'YES' is assumed.";
 1090 GOTO 90
 1100 PRINT
 1110 PRINT " YOU ARE OVER THE $1000 LIMIT. YOU ARE IN HOCK"
 1120 PRINT " UP TO YOUR EARS. TO START OVER TYPE 'RUN'."
 1130 GOTO 1220
 1140 PRINT
 1150 PRINT " DO YOU WISH TO CONTINUE ? (YES,NO)   ---=>";
 1160 INPUT (1,0)F$: IF LEN(F$)=0 THEN  LET F$="Y"
 1170 LET F$=F$(1,1)
 1180 IF F$="Y" THEN 90
 1190 IF F$="N" THEN 1220
 1200 PRINT "      ERROR IN TRANSMIT,  'YES' is assumed."
 1210 GOTO 90
 1220 PRINT
 1230 PRINT
 1240 PRINT "NEVER GIVE A SUCKER AN EVEN BREAK. - W.C. FIELDS."
 1250 END