{VERSION 6 1 "Windows 2000" "6.1" }
{USTYLETAB {PSTYLE "Left Justified Maple Output" -1 12 1 {CSTYLE "" 
-1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 3 0 0 0 0 2 0 2 0 2 
2 -1 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 
255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "D
ash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 
0 0 1 }1 1 0 -1 3 3 2 0 2 0 2 2 -1 3 }{PSTYLE "Heading 4" -1 20 1 
{CSTYLE "" -1 -1 "MS Serif" 1 12 0 0 0 0 1 0 0 2 2 2 0 0 0 1 }1 1 0 
-1 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "
MS Serif" 1 14 0 0 0 0 1 1 0 2 2 2 0 0 0 1 }1 1 0 -1 0 0 2 0 2 0 2 2 
-1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 
255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "A
uthor" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 0 0 0 0 2 2 2 0 0 
0 1 }3 1 0 -1 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 2" -1 4 1 
{CSTYLE "" -1 -1 "MS Serif" 1 16 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }1 1 0 
-1 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 {CSTYLE "" -1 -1 "Cour
ier" 1 9 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 
1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 
255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "H
eading 1" -1 3 1 {CSTYLE "" -1 -1 "MS Serif" 1 18 0 0 0 0 0 1 0 2 2 2 
0 0 0 1 }1 1 0 -1 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Normal" -1 0 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 0 0 
0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "" 
0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }3 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }
{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 12 
0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }
{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 0 0 1 1 2 
2 2 0 0 0 1 }3 1 0 -1 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Diagnostic" -1 
9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 64 1 0 0 0 2 2 1 0 0 0 1 }
1 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }3 3 0 0 0 0 2 0 
2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times" 1 
12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 2 0 2 0 2 2 -1 5 }
{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 
2 2 2 2 2 0 0 0 1 }1 1 0 -1 3 3 2 0 2 0 2 2 -1 2 }{PSTYLE "_pstyle2" 
-1 200 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 
-1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle1" -1 201 1 {CSTYLE "" -1 
-1 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 
2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1 -1 "Courier" 1 10 
0 0 0 1 2 2 2 2 2 2 0 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "La
TeX" -1 32 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Maple Comment"
 -1 21 "Courier" 0 1 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bol
d" -1 5 "Times" 0 1 0 0 0 0 0 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underli
ned" -1 44 "Times" 1 12 0 0 0 0 0 0 1 2 2 2 0 0 0 1 }{CSTYLE "Output L
abels" -1 29 "Times" 1 8 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Maple I
nput" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "Page \+
Number" -1 33 "Times" 0 1 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "Maple \+
Input Placeholder" -1 200 "Courier" 1 12 200 0 200 1 0 1 0 2 1 2 0 0 
0 1 }{CSTYLE "Text" -1 201 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }
{CSTYLE "2D Math Italic Small" -1 202 "Times" 0 1 0 0 0 0 1 0 2 2 2 2 
0 0 0 1 }{CSTYLE "Help Heading" -1 26 "" 1 14 0 0 0 0 0 1 0 2 2 2 0 0 
0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12 0 0 0 0 1 1 0 2 2 
2 0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 0 0 0 0 2 2 
2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Courier" 0 1 0 0 0 1 0 1 
0 2 2 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "Times" 0 1 0 0 0 0 0 0 
2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43 "Times" 1 12 
0 0 0 0 1 0 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 
0 1 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 10 0 0 0 
0 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "MS Serif" 1 12 0 
128 128 1 0 0 1 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "" 1 10 0 0 
0 0 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 255 0 
0 1 0 0 0 2 1 2 0 0 0 1 }{CSTYLE "ParagraphStyle1" -1 203 "Courier" 0 
1 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "Help Maple Name" -1 35 "" 0 
1 104 64 92 1 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Times"
 1 12 0 0 0 0 1 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Bold" -1 
41 "Times" 1 12 0 0 0 0 0 1 1 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "
" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 "Courier
" 1 10 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 
45 "MS Serif" 1 12 147 0 15 1 0 0 1 2 2 2 0 0 0 1 }{CSTYLE "2D Output"
 -1 20 "Times" 0 1 0 0 255 1 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Ita
lic" -1 3 "Times" 0 1 0 0 0 0 1 0 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 
31 "" 0 1 0 128 128 1 1 0 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math Symbol 2" 
-1 16 "Times" 0 1 0 0 0 0 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Text" -1 
28 "" 1 8 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "" 
0 1 0 0 0 1 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Times" 1 
12 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "" 0 1 0 0 
0 1 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 0 1 0 0 0 
0 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "Help Variable" -1 25 "Courier" 0 1 0 
0 0 1 2 2 0 2 2 2 0 0 0 1 }{CSTYLE "_cstyle3" -1 204 "Times" 0 1 0 0 
0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "_cstyle2" -1 205 "Courier" 0 1 255 
0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle1" -1 206 "Courier" 1 12 
255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Bold Small" -1 10 "Tim
es" 0 1 0 0 0 0 0 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 207 
"" 0 1 0 0 0 0 1 2 0 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 0 
1 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle3" -1 202 1 {CSTYLE "" 
-1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 
2 -1 1 }{CSTYLE "_cstyle4" -1 208 "Verdana" 1 12 0 0 0 1 2 1 2 2 2 2 
0 0 0 1 }{CSTYLE "_cstyle5" -1 209 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 
0 0 1 }{PSTYLE "_pstyle4" -1 203 1 {CSTYLE "" -1 -1 "Courier" 0 1 255 
0 0 1 0 1 0 2 1 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pst
yle5" -1 204 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 
1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle6" -1 210 "Cour
ier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{PSTYLE "_pstyle6" -1 205 1 
{CSTYLE "" -1 -1 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }1 1 0 0 
0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle7" -1 211 "Courier" 0 1 255 0 0 
1 0 1 0 2 1 2 0 0 0 1 }{PSTYLE "_pstyle7" -1 206 1 {CSTYLE "" -1 -1 "C
ourier" 0 1 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 
1 }{CSTYLE "_cstyle8" -1 212 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 
0 1 }{CSTYLE "_cstyle9" -1 213 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 0 
0 0 1 }{PSTYLE "_pstyle8" -1 207 1 {CSTYLE "" -1 -1 "Times" 0 1 0 0 0 
0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_psty
le9" -1 208 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 
0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle10" -1 214 "Times" 0 1 
0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle10" -1 209 1 {CSTYLE "" 
-1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 
-1 1 }}
{SECT 0 {EXCHG {PARA 202 "" 0 "" {TEXT 208 17 "The Game of Craps" }
{TEXT 209 0 "" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 0 12 "with(sta
ts);" }}}{EXCHG {PARA 204 "> " 0 "" {MPLTEXT 1 210 1 "r" }{MPLTEXT 1 
210 16 "oll:=rand(1..6);" }{MPLTEXT 1 210 0 "" }}}{EXCHG {PARA 204 "> \+
" 0 "" {MPLTEXT 1 210 11 "d1:=roll();" }{MPLTEXT 1 210 0 "" }}}{EXCHG 
{PARA 204 "> " 0 "" {MPLTEXT 1 210 11 "d2:=roll();" }{MPLTEXT 1 210 0 
"" }}{PARA 205 "> " 0 "" {MPLTEXT 1 211 0 "" }}}{EXCHG {PARA 204 "> " 
0 "" {MPLTEXT 1 210 10 "S1:=d1+d2;" }{MPLTEXT 1 210 0 "" }}}{EXCHG 
{PARA 206 "> " 0 "" {MPLTEXT 1 212 56 "craps:=proc() local W, d1,d2,S1
,PL,d21,d22,S2,i,j,g,l,n;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 8 "\n \+
 W:=0;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 9 "\n  l:=1; " }{MPLTEXT 
1 212 0 "" }{MPLTEXT 1 212 14 "\n  g:=1;n:=1; " }{MPLTEXT 1 212 0 "" }
{MPLTEXT 1 212 28 "\nfor i from 1 while g>0 do  " }{MPLTEXT 1 212 0 ""
 }{MPLTEXT 1 212 14 "\n  d1:=roll();" }{MPLTEXT 1 212 0 "" }{MPLTEXT 
1 212 7 "\n  d2:=" }{MPLTEXT 1 212 6 "roll()" }{MPLTEXT 1 212 1 ";" }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 13 "\n  S1:=d1+d2;" }{MPLTEXT 1 
212 0 "" }{MPLTEXT 1 212 31 "\nif S1=2 or S1=3 or S1=12 then " }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 30 "\n   print(`Craps, you lose!`)
;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 14 "\n   g:=0;n:=0;" }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 7 "\n else " }{MPLTEXT 1 212 0 "" 
}{MPLTEXT 1 212 22 "\nif S1=7 or S1=11 then" }{MPLTEXT 1 212 0 "" }
{MPLTEXT 1 212 65 "\n   print(`Congratulations, you win!`);g:=0; n:=0;
 W:=evalf(W+1);" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 8 "\n  else " }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 10 "\n  PL:=S1;" }{MPLTEXT 1 212 
0 "" }{MPLTEXT 1 212 53 "\n  print(`You passed the line with`,PL,`roll
 again`);" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 8 "\n  g:=0;" }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 7 "\nfi;fi;" }{MPLTEXT 1 212 0 "" 
}{MPLTEXT 1 212 13 "\n     l:=l+1;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 
212 8 "\nend do;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 26 "\nfor j fro
m 1 while n>0 do" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 8 "\n  d21:=" }
{MPLTEXT 1 212 6 "roll()" }{MPLTEXT 1 212 1 ";" }{MPLTEXT 1 212 0 "" }
{MPLTEXT 1 212 8 "\n  d22:=" }{MPLTEXT 1 212 6 "roll()" }{MPLTEXT 1 
212 1 ";" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 15 "\n  S2:=d21+d22;" }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 49 "\n    if S2=7 then print (`You
 lose, game over.`);" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 8 "\n  n:=0
;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 6 "\nelse " }{MPLTEXT 1 212 0 
"" }{MPLTEXT 1 212 62 "\n    if S2=PL then print (`You are a winner!`)
; W:=evalf(W+1);" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 8 "\n  n:=0;" }
{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 13 "\nelse n:=n+1;" }{MPLTEXT 1 
212 0 "" }{MPLTEXT 1 212 7 "\nfi;fi;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 
1 212 4 "\nod;" }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 11 "\nreturn(W):"
 }{MPLTEXT 1 212 0 "" }{MPLTEXT 1 212 5 "\nend;" }{MPLTEXT 1 213 0 "" 
}{MPLTEXT 1 213 1 "\n" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 0 8 "c
raps();" }}}{EXCHG {PARA 204 "> " 0 "" {MPLTEXT 1 210 29 "Game:=proc(N
) local W,S,L,k; " }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 11 "\nS:=0;L:=
0;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 21 "\nfor k from 1 to N do" }
{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 14 "\n  W:=craps():" }{MPLTEXT 1 
210 0 "" }{MPLTEXT 1 210 20 "\nif W=1 then S:=S+1;" }{MPLTEXT 1 210 0 
"" }{MPLTEXT 1 210 13 "\nelse L:=L+1;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 
1 210 8 "\nend if;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 8 "\nend do;"
 }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 52 "\nprint(`You won`,S,`games, \+
and you lost`,L,`games`);" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 5 "\ne
nd;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 4 "\n
   " }{MPLTEXT 1 210 0 "" }}}{EXCHG {PARA 205 "> " 0 "" {MPLTEXT 1 
211 8 "Game(1);" }{MPLTEXT 1 211 0 "" }}}{EXCHG {PARA 205 "> " 0 "" 
{MPLTEXT 1 211 10 "Game(300);" }{MPLTEXT 1 211 0 "" }}}{EXCHG {PARA 
205 "> " 0 "" {MPLTEXT 1 211 0 "" }}}{PARA 207 "" 0 "" {TEXT 204 0 "" 
}}{PARA 208 "" 0 "" {TEXT 214 0 "" }}{PARA 209 "" 0 "" {TEXT -1 0 "" }
}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }