100 PRINT TAB(22);"UNDER OR OVER"
110 PRINT TAB(20);"CREATIVE COMPUTING"
120 PRINT TAB(18);"MORRISTOWN, NEW JERSEY"
130 PRINT:PRINT:PRINT
140 PRINT"THIS IS A GAME OF UNDER AND OVER. IF YOU PICK"
150 PRINT"UNDER OR OVER SEVEN, YOU WILL WIN EVEN MONEY."
160 PRINT"IF YOU PICK EVEN YOU WILL WIN MONEY AT FOUR TO ONE"
170 PRINT"ODDS. YOU HAVE $100 TO START WITH. GOOD LUCK!":PRINT:PRINT
180 A=100
190 RESTORE
200 REM
210 READ A$,B$,C$
220 DATA "UNDER","OVER","EVEN"
230 PRINT"WHAT NUMBER DO YOU WISH TO PLAY AND HOW MUCH"
240 PRINT"DO YOU WANT TO BET ON THE NUMBER";:INPUT B,C
250 PRINT:PRINT"THE DICE HAVE NOW BEEN THROWN. THE RESULTS"
260 PRINT"ARE AS FOLLOWS:"
270 Q=INT(6*RND(1)+1):R=INT(6*RND(1)+1)
280 PRINT " DIE #1","DIE #2","SUM","YOUR#","TOSS"
290 IF Q+R>7 THEN 310
295 IF Q+R=7 THEN 320
300 PRINT Q,R,Q+R,B,A$:PRINT
303 IF B=Q+R THEN 350
305 IF B<7 THEN 380
307 GOTO 410
310 PRINT Q,R,Q+R,B,B$:PRINT
313 IF B=Q+R THEN 350
315 IF B>7 THEN 380
317 GOTO 410
320 PRINT Q,R,Q+R,B,C$:PRINT
330 IF B=Q+R THEN 350
340 GOTO 420
350 A=A+(4*C)
360 PRINT TAB(20)"********YOU WIN 4 TO 1********"
370 PRINT"THE AMOUNT YOU NOW HAVE IS" A :PRINT:GOTO 440
380 A=A+C
390 PRINT TAB(20)"********YOU WIN EVEN MONEY********"
400 PRINT"THE AMOUNT YOU NOW HAVE IS" A :PRINT:GOTO 440
410 A=A-C
420 PRINT TAB(20)"!!!!!YOU LOSE!!!!!"
430 PRINT"THE AMOUNT YOU NOW HAVE IS" A :PRINT
440 IF A>0 THEN 190
450 PRINT"THE GAME IS OVER AND YOU ARE FLAT BROKE. SORRY CHARLIE"
460 PRINT"THIS PROVES THAT IT IS NOT GOOD TO GAMBLE"
470 PRINT"DO YOU WANT TO PLAY AGAIN";:INPUT W$
480 IF LEFT$(W$,1)="Y" THEN 180
490 END