5 PRINT "CRAPS"
10 PRINT "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
12 PRINT:PRINT:PRINT
15 LET R=0
20 PRINT "2,3,12 ARE LOSERS; 4,5,6,8,9,10 ARE POINTS; 7,11 ARE NATURAL WINNERS."
21 LET T=1
22 PRINT "PICK A NUMBER AND INPUT TO ROLL DICE"
23 INPUT Z
24 X=0
25 LET T=T+1
26 IF T<Z THEN GOTO 24
27 IF T=Z THEN GOTO 24
28 PRINT "INPUT THE AMOUNT OF YOUR WAGER."
29 INPUT F
30 PRINT "I WILL NOW THROW THE DICE"
40 CHOOSE E=6 : E=E+1
41 CHOOSE S=6 : S=S+1
42 LET X=E+S
50 IF X=7 THEN GOTO 180 
55 IF X=11 THEN GOTO 180
60 IF X=1 THEN GOTO 40
62 IF X=2 THEN GOTO 195
65 IF X=0 THEN GOTO 40
70 IF X=2 THEN GOTO 200
80 IF X=3 THEN GOTO 200
90 IF X=12 THEN GOTO 200
125 IF X=5 THEN GOTO 220
130 IF X=6 THEN GOTO 220
140 IF X=8 THEN GOTO 220
150 IF X=9 THEN GOTO 220
160 IF X =10 THEN GOTO 220
170 IF X=4 THEN GOTO 220
180 PRINT X;" - NATURAL....A WINNER!!!!"
185 PRINT X;" PAYS EVEN MONEY, YOU WIN ";F;" DOLLARS"
190 GOTO 210
195 PRINT X;" - SNAKE EYES....YOU LOSE."
196 PRINT "YOU LOSE ";F;" DOLLARS."
197 LET F=0-F
198 GOTO 210
200 PRINT X;" - CRAPS...YOU LOSE."
205 PRINT "YOU LOSE ";F;" DOLLARS."
206 LET F=0-F
210 LET R= R+F
211 GOTO 320
220 PRINT X;" IS THE POINT. I WILL ROLL AGAIN"
230 CHOOSE H=6 : H=H+1
231 CHOOSE Q=6 : Q=Q+1
232 LET O=H+Q
240 IF O=1 THEN GOTO 230
250 IF O=7 THEN GOTO 290
255 IF O=0 THEN GOTO 230
260 IF O=X THEN GOTO 310
270 PRINT O;" - NO POINT. I WILL ROLL AGAIN"
280 GOTO 230
290 PRINT O;" - CRAPS. YOU LOSE."
291 PRINT "YOU LOSE $";F
292 F=0-F
293 GOTO 210
300 GOTO 320
310 PRINT X;" - A WINNER.........CONGRATS!!!!!!!!"
311 PRINT X;" AT 2 TO 1 ODDS PAYS YOU...LET ME SEE... ";2*F;" DOLLARS"
312 LET F=2*F
313 GOTO 210
320 PRINT " IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2"
330 INPUT M
331 IF R<0 THEN GOTO 334
332 IF R>0 THEN GOTO 336
333 IF R=0 THEN GOTO 338
334 PRINT "YOU ARE NOW UNDER $";-R
335 GOTO 340
336 PRINT "YOU ARE NOW AHEAD $";R
337 GOTO 340
338 PRINT "YOU ARE NOW EVEN AT 0"
340 IF M=5 THEN GOTO 28
341 IF R<0 THEN GOTO 350
342 IF R>0 THEN GOTO 353
343 IF R=0 THEN GOTO 355
350 PRINT "TOO BAD, YOU ARE IN THE HOLE. COME AGAIN."
351 GOTO 360
353 PRINT "CONGRATULATIONS---YOU CAME OUT A WINNER. COME AGAIN!"
354 GOTO 360
355 PRINT "CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR"
360 END