Craps AArC Craps  A.Parish 1982  BCraps. DRJ 31/7/93 1509. From Micromega? THE Micromega? Or what?  "craps0.c""a" mon=100d 34:0:1:9999':9000(# 2''"Hit any key for the game.":0 monbetɺbetbet0120x }G2,20;2;7;1;"`";bet;0;" bet." 14,5;" ":n=9 11 :n,4;" ":n:19,0;0;7;" Hit any key to throw the dice" |9 ,28;" ":10 ,28;"":11 ,28;"":.005y# =,1:5:135 }9 ,28;"":10 ,28;"":11 ,28;" ":.005y# =,1:5:ï132 P9 ,28;"":10 ,28;"":11 ,28;" " nn=2220-(*12 )-2:.005y# =,10 :9 ,n;a$(a()):11 ,n;a$(a()):n sa=a():9 ,n+*2;a$(a):.005y# =,10 :b=a():11 ,n+*2;a$(b):.005y# =,10 +n=9 11 :n,28;" ":n Ithr=thr+1:n=1100d:n:th=a+b:thr>1500 $th=7th=11 1000 Eth=2th=3th=12 1500+20*(th2) 2000 Tth=714,8;"Craps, you lose.":lo=1:502:5000 Ithpo14,5;"No point, roll again.":6000p:130 14,6;"A winner...Well done!!":n=130:*6+.5:.01z# =,*30:n:0:d$=" at two to one ":mu=2:5000 **********7 or 11****** m14,5;"Natural..Great stuff!!":n=130:*6+.5:.01z# =,*30:n +d$=" even Money ":mu=1:5000 *********2,312***** D14,5;"Snake's eyes. You lose":lo=1:5000 D14,5;"Craps....You lose. ":lo=1:5000 ******New point******** 6po=th:6,8;"Your point is ";1;po #n=1200:n:130 ******sort out money***  1  502 V19,0;" " 52,0;" " lo=15050 0;7;19,0;"A ";1;"`";bet;0;" bet paying";2;d$';0;"leaves you with ";1;"`";mon+mu*bet:mon=mon+mu*bet Un=10 20:.005y# =,n:n:n=2010 -1:.005y# =,n:n  5100 p0;7;19,0;"You now have ";1;"`";mon-bet:mon=mon-bet:mon=05120 Un=2010 -1:.005y# =,n:n:n=10 20:.005y# =,n:n mon50005180< F21,0;"Do you want to play a new round?";:0:q$= Rq$="y"q$="Y"4:0:.1}L,20:.2~L,15:115s q$"n"q$"N"5100   ]mon=100d10 ,6;"You came out even!!":a=0:b=.1}L:c=.005y# = dmon>100d10 ,5;"You made `";mon-100d;"!!":a=1:b=20:c=1 amon<100d10 ,3;"The house made a profit!!":a=20:b=1:c=-1 (/n=abc:.01z# =,n:.01z# =,n+12 :n 2 5200P <-:10 ,5;"You broke the bank!!!" P921,0;"Do you want another game ?":0 Z="Y"Ŧ="y"60< d="N"Ŧ="n" n 5200P pn=1100d:"" zn: @8,71G JL220,0:0,-16:-220,0:0,16 Ta24,64@:176,0:0,-16:14,-47/:-14,47/ ^N-176,0:0,16:0,-16:-16,-480 #' #(:9999':2,0;" This program simulates the gameof Craps and is played to the standard Crap table rules."''" A brief outline of the rules follows:-" #2'"A 7 or 11 on the first roll wins"''"A 2,3 or 12 on the first roll loses"''"Any other number becomes your 'point'. You continue to roll and if you throw your point again, you win. However, if you roll a 7 you lose. You start off with `100" #< &-"Craps"0:"Handice""a",128: 'A2;0;0,8;1;"MICROMEGA CRAPS": Acraps0.c X````ffffffffffffffAApOOOOODD? OOOOO.