%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:95
File Name:BROWNIAN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\AxesOff
\Deg
0\->A~Z
\Plot X,Y
\For 1\->N \To 99
360*\Ran#\->\theta
X+.5\cos \theta\->X
Y+.5\sin \theta\->Y
\F-Line I,J,X,Y
X\->I:Y\->J
\Next 
\Text 1,1,"\Done"\Disp\AxesOn

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:463
File Name:COINTOSS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrText
" ":" "
\Locate 1,1,"COIN"
\Locate 1,2,"No. of tosses":?\->N
\Do
\ClrText
" ":\Locate 1,1,"Choose simulation:"
" ":\Locate 1,2,"1 f\or Quick"
" ":\Locate 1,3,"2 f\or Full"
?\->A
\LpWhile A<1\ Or A>2
\ClrText
1\->C
0\->D
0\->H
0\->T
A=1\=>\GotoB
\Locate 1,7,"H:"
\Locate 11,7,"T:"
\For 1\->A \To N
\Int (2\Ran#+1)\->B
D+1\->D
\If D=21:\Then 1\->D:C+1\->C:\IfEnd
\If C=7:\Then 1\->C:\ClrText:\Locate 1,7,"H:":\Locate 11,7,"T:"
\IfEnd
\If B=1
\Then H+1\->H:\Locate D,C,"H":\Locate 3,7,H
\Else T+1\->T:\Locate D,C,"T":\Locate 13,7,T
\IfEnd
\Next 
\Locate 18,7,"\Done"
\Stop
\Lbl B
\Locate 1,2,"H:"
\Locate 11,2,"T:"
\For 1\->A \To N
\If \Int (2\Ran#)
\Then H+1\->H:\Locate 3,2,H
\Else \Locate 13,2,A-H
\IfEnd
\Next 
\Locate 18,7,"\Done"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1256
File Name:CONHEADS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\CoordOn
\GridOff
\AxesOn
\LabelOff
\ClrList
\Seq(X,X,1,30,1)\->\List 3
0\List 3\->\List 4
\ClrText
" ":" ":" ":" ":" "
\Locate 1,1,"RUNS"
\Locate 1,2,"Coin toss simulation"
\Locate 1,3,"which rec\ords runs of"
\Locate 1,4,"consecutive heads."
\Locate 1,5,"How many tosses":?\->N
\ClrText
0\->E
0\->U
0\->T
0\->H
\Locate 1,1,"RUNS"
\Locate 5,2,"Toss:0"
\Locate 6,3,"H\slashT:"
\Locate 1,4,"This run:0"
\Locate 2,5,"Max run:0"
\For 1\->A \To N
\Int 2\Ran#+1\->B
\Locate 10,2,A
\If B=1
\Then E+1\->E
E>U\=>E\->U
\Locate 10,4,E
H+1\->H
\Locate 10,3,"H"
\Locate 10,5,U
\Else T+1\->T
E\<=30\ And E>0\=>\List 4[E]+1\->\List 4[E]
0\->E
\Locate 10,3,"T"
\Locate 10,4,"0 "
\IfEnd
A=N\ And B=1\=>\List 4[E]+1\->\List 4[E]
\Next 
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\Lbl Z
\ClrText
" ":" ":" ":" ":" "
\Locate 1,1,"RUNS"
\Locate 1,2,"1.Number of H \or T"
\Locate 1,3,"2.Runs"
\Locate 1,4,"3.\Graph"
\Locate 1,5,"4.Quit"
"Choice"?\->M
M=1\=>\GotoP
M=2\=>\GotoR
M=3\=>\GotoG
M=4\=>\GotoY
\ClrText
\GotoZ
\Lbl P
\ClrText
\Locate 1,1,"RUNS"
\Locate 1,3,"Heads:"
\Locate 7,3,H
\Locate 1,4,"Tails:"
\Locate 7,4,T
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\GotoZ
\Lbl R
\ClrText
\Locate 1,1,"In table that follows"
\Locate 1,2,"the columns show:"
\Locate 1,3,"1 Run length"
\Locate 1,4,"2 Run frequency"
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\List->Mat(\List 3,\List 4)\Disp\GotoZ
\Lbl G
\ViewWindow 1,127,0,63,1,0
0\->V
\For 1\->I \To 9
\List 4[I]>V\=>\List 4[I]\->V
\Next 
\If V>0
\Then \F-Line 14,54,123,54
\F-Line 14,54,14,1
\F-Line 13,2,15,2
\Text 14,5,"f"
1\->I
V<99\=>9-4\Int \log V\->I
\Text 1,I,V
\For 2\->I \To 10
10I\->J
\Text 56,J+3,I-1
54-52\List 4[I-1]/V\->M
\F-Line J,54,J,M
\F-Line J,M,J+8,M
\F-Line J+8,M,J+8,54
\Next 
\Text 56,112,"Run"
\PxlOn 1,1
\Else \ClrText
\Locate 1,1,"S\orry..."
\Locate 1,2,"Nothing to graph."
\Locate 1,3,"No heads came up!"
\Locate 15,7,"..[EXE]"
\IfEnd
\Do:\LpWhile \Getkey\<>31
\GotoZ
\Lbl Y
\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1307
File Name:DECAY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrList
\Seq(X,X,1,99,1)\->\List 1
0\List 1\->\List 2
\ClrText
" ":\Locate 1,1,"RADIOACTIVE DECAY"
" ":\Locate 1,2,"How many outcomes"
" ":\Locate 1,3,"Eg 6 f\or 6-sided die"
?\->H
\Do
" ":\Locate 1,6,"No. of atoms at start"
" ":\Locate 1,7,"(1-1000)"
?\->A
\LpWhile A<1\ Or A>1000
0\->F
A\->V
\Do
\ClrText
" ":\Locate 1,1,"Choose simulation:"
" ":\Locate 1,2,"1 f\or Quick"
" ":\Locate 1,3,"2 f\or Full"
?\->C
\LpWhile C<1\ Or C>2
C=1\=>\GotoB
\Do
A\->\List 2[F+1]
0\->T
\ClrText
\Locate 1,1,"DECAY"
\Locate 1,2,"Roll :    of"
\Locate 14,2,A
\Locate 1,3,"Sc\ore:"
\Locate 1,5,"Atoms left:"
\Locate 1,6,"Years:"
\Locate 7,6,F
\For 1\->B \To A
\Int H\Ran#+1\->C
\Locate 7,2,B
\Locate 8,3,"    "
\Locate 7,3,C
C=H\=>1+T\->T
\Locate 13,5,"         "
\Locate 12,5,A-T
\Next 
A-T\->A
1+F\->F
\Locate 7,6,F
\Locate 14,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\LpWhile A\<>0\ And F<99
\GotoT
\Lbl B
\ClrText
\Do
A\->\List 2[F+1]
0\->T
\Locate 1,1,"DECAY"
\Locate 1,3,"Years:"
\Locate 7,3,F
\Locate 1,4,"Atoms left:"
\Locate 12,4,A
\Locate 14,7,".wait.."
\For 1\->B \To A
\Int H\Ran#+1\->C
C=H\=>1+T\->T
\Next 
1+F\->F
A-T\->A
\Locate 13,4,"         "
\LpWhile A\<>0\ And F<99
\If F=99
\Then \ClrText
\Locate 1,1,"\Stopping..."
\Locate 1,3,"Taking >99 years"
\Locate 1,4,"to decay"
\Locate 14,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\IfEnd
\Lbl T
\ClrText
\Locate 1,1,"In table that follows"
\Locate 1,2,"the columns show:"
\Locate 1,3,"1 Year"
\Locate 1,4,"2 Atoms remaining"
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\List->Mat(\List 1,\List 2)\Disp\ClrText
\Cls
\ViewWindow 1,127,0,63,1,0
\Text 8,76,"Max years:"
\Text 8,120,F
\F-Line 14,54,123,54
\F-Line 14,54,14,1
\F-Line 13,2,15,2
\Orange \Text 8,1,"Atoms"
1\->I
V<99\=>9-4\Int \log V\->I
\Text 1,I,V
\Text 56,18,1
\Text 56,61,10
\Text 56,106,"Years"
\For 1\->I \To 20
5I+12\->J
54-52\List 2[I]/V\->M
\F-Line J,54,J,M
\F-Line J,M,J+3,M
\F-Line J+3,M,J+3,54
\Next 
\Text 30,110,"\Done"
\PxlOn 1,1
\Do:\LpWhile \Getkey\<>31
" ":\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1349
File Name:DICEROLL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrList
\Seq(X,X,1,99,1)\->\List 1
0\List 1\->\List 2
0\->U
\ClrText
\Locate 1,1,"ROLLS"
\Locate 1,2,"This program will"
\Locate 1,3,"keep rolling a die"
\Locate 1,4,"until a chosen"
\Locate 1,5,"number (between 1"
\Locate 1,6,"\and 6) appears."
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\ClrText
" ":" "
\Locate 1,1,"ROLLS"
\Locate 1,2,"Which number":?\->Q
" ":\Locate 1,5,"How many trials":?\->P
\Do
\ClrText
" ":\Locate 1,1,"Choose simulation:"
" ":\Locate 1,2,"1 f\or Quick"
" ":\Locate 1,3,"2 f\or Full"
?\->C
\LpWhile C<1\ Or C>2
C=1\=>\GotoB
\For 1\->A \To P
\ClrText
0\->X
0\->Y
0\->I
2\->Z
\Locate 1,1,"\aster \aster"
\Locate 2,1,Q
\Locate 5,1,"Trial:"
\Locate 11,1,A
\Locate 14,1,"Roll:"
\While X\<>Q
Y+1\->Y
I+1\->I
I>U\=>I\->U
\Locate 19,1,I
\Int 6\Ran#+1\->X
\If Y=21:\Then 1\->Y:Z+1\->Z:\IfEnd
\Locate Y,Z,X
I\>=99\ And Q\<>X\=>Q\->X
\WhileEnd
\If I\>=99
\Then 99\->I
\Locate 20,6,"\aster"
\Locate 1,7,"\>=99 rolls!"
\Else \Locate 1,7,"Your number!"
\IfEnd
1+\List 2[I]\->\List 2[I]
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\Next 
\GotoC
\Lbl B
\ClrText
\Locate 1,1,"Trial      of"
\Locate 15,1,P
\For 1\->A \To P
0\->X
0\->I
\Locate 7,1,A
\While X\<>Q
1+I\->I
I>U\=>I\->U
\Int 6\Ran#+1\->X
I\>=99\ And Q\<>X\=>Q\->X
\WhileEnd
1+\List 2[I]\->\List 2[I]
\Next 
\Lbl C
\ClrText
\Locate 1,1,"In table that follows"
\Locate 1,2,"the columns show:"
\Locate 1,3,"1 number of rolls"
\Locate 1,4,"2 frequency"
\Locate 1,5,"3 rel. freq."
\Locate 1,6,"Max no of rolls:"
\Locate 17,6,U
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\List 2/P\->\List 3
\List->Mat(\List 1,\List 2,\List 3)\Disp\ClrText
\Cls
\ViewWindow 1,127,0,63,1,0
0\->V
\Text 8,76,"Max rolls:"
\Text 8,120,U
\For 1\->I \To 20
\List 2[I]>V\=>\List 2[1]\->V
\Next 
\F-Line 14,54,123,54
\F-Line 14,54,14,1
\F-Line 13,2,15,2
\Text 14,5,"f"
1\->I
V<99\=>9-4\Int \log V\->I
\Text 1,I,V
\Text 56,18,1
\Text 56,61,10
\Text 56,106,"Rolls"
\For 1\->I \To 20
5I+12\->J
54-52\List 2[I]/V\->M
\F-Line J,54,J,M
\F-Line J,M,J+3,M
\F-Line J+3,M,J+3,54
\Next 
\Text 30,110,"\Done"
\PxlOn 1,1
\Do:\LpWhile \Getkey\<>31
" ":\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:303
File Name:DOUBLE6
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\CoordOn
\GridOff
\AxesOn
\ClrList
0\->D
\Do
\ClrText
"DOUBLE6"
"Rolls (max 250)"?\->Z
\LpWhile Z<0\ Or Z>250
\Seq(0,X,1,Z,1)\->\List 1
\List 1\->\List 2
\Locate 18,3,"Dice"
\Locate 1,4,"Roll   :"
\Locate 1,5,"\Double6:0"
\For 1\->A \To Z \Step 1
\Int 6\Ran#+1\->B
\Int 6\Ran#+1\->C
B\->\List 1[A]
C\->\List 2[A]
\Locate 9,4,A
\Locate 18,4,B
\Locate 21,4,C
\If B=6\ And C=6
\Then D+1\->D
\Locate 9,5,D
\For 1\->I \To 200:\Next 
\IfEnd
\Next 
\Locate 1,6,"\Done"
\Locate 1,7,"Data in Lists 1,2"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:881
File Name:DRAWCARD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ViewWindow 1,127,0,63,1,0
0\->A~Z
\ClrText
"How many cards"?\->N
"Replace cards?"
"1=Yes"
"2=No"?\->R
\If R=2
\Then \Seq(0,X,1,52,1)\->\List 1
N>52\=>52\->N
\IfEnd
\Do
\Cls
\Text 57,3,"CARD    OF":\Text 57,45,N
\For 13\->Q \To 49 \Step 18
\For 8\->P \To 116 \Step 12
\Isz C
\Do
\Int (4\Ran#)+1\->S
\Int (13\Ran#)+1\->V
\LpWhile \List 1[V+13(S-1)]=1\ And R=2
R=2\=>1\->\List 1[V+13(S-1)]
\Text 57,21,C
\F-Line P-5,Q-11,P+5,Q-11
\F-Line P-5,Q+5,P+5,Q+5
\F-Line P-5,Q-11,P-5,Q+5
\F-Line P+5,Q-11,P+5,Q+5
V=1\=>\Text Q-9,P-1,"A"
V>1\ And V<10\=>\Text Q-9,P-1,V
V=10\=>\Text Q-9,P-3,V
V=11\=>\Text Q-9,P-1,"J"
V=12\=>\Text Q-9,P-1,"Q"
V=13\=>\Text Q-9,P-1,"K"
\If S=1
\Then \F-Line P-3,Q,P+3,Q
\F-Line P-1,Q-2,P+1,Q-2
\F-Line P-1,Q+3,P+1,Q+3
\F-Line P-2,Q-1,P-2,Q+1
\F-Line P+2,Q-1,P+2,Q+1
\F-Line P,Q-3,P,Q+2
\IfEnd
\If S=2
\Then \F-Line P,Q+3,P-3,Q
\F-Line P-3,Q,P,Q-3
\F-Line P,Q-3,P+3,Q
\F-Line P+3,Q,P,Q+3
\IfEnd
\If S=3
\Then \F-Line P,Q+3,P+3,Q
\F-Line P+3,Q-1,P+2,Q-2
\F-Line P+1,Q-2,P,Q-1
\F-Line P-1,Q-2,P-2,Q-2
\PlotOn P-3,Q-1
\F-Line P-3,Q,P-1,Q+2
\IfEnd
\If S=4
\Then \PlotOn P,Q+2:\PlotOn P,Q-3
\F-Line P-1,Q+3,P+1,Q+3
\F-Line P-2,Q+1,P+2,Q+1
\F-Line P-2,Q,P+2,Q
\F-Line P-2,Q-1,P+2,Q-1
\F-Line P-1,Q-2,P+1,Q-2
\IfEnd
C\>=N\=>\Break
\Next 
C\>=N\=>\Break
\Next 
\LpWhile C<N

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:408
File Name:GUESS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
" ":" ":" "
\Locate 3,2,"Guess 5 seconds!"
\Locate 1,3,"How many goes (10-50)"
?\->N:\Int N\->N
\LpWhile N>50\ Or N<10
\ClrList
\Seq(0,X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
\ClrText
\Locate 1,1,N
\Locate 1,2,"     "
\Locate 6,1,"Go     Err\or (s)"
\For 1\->J \To N
\Locate 6,2,J
\Locate 3,6,"start:EXE"
\Locate 13,6,"      "
\Do
\LpWhile \Getkey\<>31
\Locate 13,6,"stop:0"
\Locate 14,2,"      "
\Locate 3,6,"         "
\For 0\->A \To 1000
\If \Getkey=71
\Then \Break
\IfEnd
\Next 
(A-500)/100\->A
\Locate 15,2,A
J\->\List 1[J]
A\->\List 2[J]
\Next 
\S-Gph3 \DrawOff
\S-Gph2 \DrawOff
\S-Gph1 \DrawOn,\Hist,\List 2,1
\DrawStat\Disp\ClrText
"\Done"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:487
File Name:HEADS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\CoordOn
\GridOff
\AxesOn
\LabelOff
\ClrList
\ClrText
\Locate 1,1,"HEADS"
\Locate 1,2,"Cumulative"
\Locate 1,3,"probability of"
\Locate 1,4,"coin toss. \To view"
\Locate 1,5,"the data afterwards"
\Locate 1,6,"go to the Lists."
\Locate 15,7,"..[EXE]"
99\->N
\Seq(A,A,1,N,1)\->\List 1
0\List 1\->\List 2
\Do:\LpWhile \Getkey\<>31
\ClrText
\Locate 1,1,"HEADS"
\Locate 1,3,"Toss   :   of 99"
\Locate 1,5,"Heads  :"
\Locate 1,7,"RelFreq:"
0\->H
\For 1\->A \To N
\Int 2\Ran#+1\->B
\If B=1
\Then H+1\->H:1\->\List 2[A]
\IfEnd
\Locate 9,3,A
\Locate 9,5,H
\Locate 12,7," "
\Fix 2:\Locate 9,7,H/A:\Norm
\Next 
\Cuml \List 2\->\List 3
\List 3/\List 1\->\List 4
\ViewWindow 0,126,10,0,1,.5
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 4,1,\Dot,\Orange 
\F-Line \Xmin,.5,N,.5
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 1,99,"DONE"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:318
File Name:LONGRUN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"CUM PROB II"
" "
\Norm
\CoordOn
\GridOff
\AxesOn
\LabelOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindMan
\ClrList
{0}\->\List 1
\Seq(X,X,1,99,1)\->\List 2
0\List 2\->\List 3
\List 3\->\List 5
"P=?(2 dp)"?\->P
\Locate 1,5,"Please wait.."
\Locate 4,6,"of 99"
P*100\->A
\For 1\->B \To 99
\Locate 1,6,B
\Int (100\Ran#+1)\->C
C\->\List 5[B]
\If C\<=A:\Then \List 1[1]+1\->\List 1[1]:\IfEnd
\List 1[1]/B\->\List 3[B]
\Next 
\ViewWindow 0,100,10,0,1,.1
\S-Gph1 \DrawOn,\Scatter,\List 2,\List 3,1,\Dot,\Orange 
\DrawStat
\F-Line 0,P,100,P
\Text 1,100,"DONE"
\PxlOn 1,1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:333
File Name:ONE DICE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrList
\Seq(X,X,1,6,1)\->\List 1
0\List 1\->\List 2
\Do
\ClrText
"DIE"
"Rolls (max 96)"?\->T
\LpWhile T<0\ Or T>96
\Locate 6,1,T
\Locate 9,1,"rolls   Total"
\Locate 1,2,"                "
\Locate 1,3,"  "
\Locate 18,2,"1:0"
\Locate 18,3,"2:0"
\Locate 18,4,"3:0"
\Locate 18,5,"4:0"
\Locate 18,6,"5:0"
\Locate 18,7,"6:0"
0\->D
2\->C
\For 1\->A \To T
\Int 6\Ran#+1\->B
\List 2[B]+1\->\List 2[B]
D+1\->D
\If D=17:\Then 1\->D:C+1\->C:\IfEnd
\Locate D,C,B
\Locate 20,B+1,\List 2[B]
\Next 
\Locate 17,1," \Done"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:413
File Name:REACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
" ":" ":" "
\Locate 3,1,"<reaction timer>"
\Locate 1,3,"How many goes (2-50)":?\->N
\Int N\->N
\LpWhile N<2\ Or N>50
\ClrList
\Seq(0,X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
\For 1\->J \To N
\ClrText
\Locate 1,1,"Go    of"
\Locate 4,1,J
\Locate 10,1,N
\Locate 2,4,"****   Hit 0  ****"
\Locate 2,5,"when screen clears"
\Ran#\->R
600*R+400\->R
\For 0\->I \To R
\Next 
\ClrText:" "
\For 0\->A \To 1000
\If \Getkey=71
\Then \Break
\IfEnd
\Next 
\Locate 5,2,"Time (s):"
\Locate 15,2,A/100
J\->\List 1[J]
A/100\->\List 2[J]
\For 0\->A \To 200:\Next 
\Next 
\S-Gph3 \DrawOff
\S-Gph2 \DrawOff
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Cross
\DrawStat\Disp\ClrText
"\Done"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1251
File Name:TOSSES
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\CoordOn
\GridOff
\AxesOn
\LabelOff
\ClrList
\ClrText
\Locate 1,1,"TOSSES"
\Locate 1,2,"Choose how many coins"
\Locate 1,3,"to toss \and how many"
\Locate 1,4,"times. \Then see rel."
\Locate 1,5,"freq. of numbers"
\Locate 1,6,"of heads obtained."
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
0\->C
\Lbl A
\ClrText
" ":" ":" ":" ":" "
\Locate 1,1,"TOSSES"
\Locate 1,2,"1.\Experiment"
\Locate 1,3,"2.Results"
\Locate 1,4,"3.\Graph"
\Locate 1,5,"4.Quit"
"Choice"?\->M
M=1\=>\GotoB
M=2\=>\GotoE
M=3\=>\GotoF
M=4\=>\GotoG
\GotoA
\Lbl B
\Do
\ClrText
" ":" "
\Locate 1,1,"TOSSES"
\Locate 1,2,"How many coins":?\->C
\LpWhile C<1\ Or C>40
" ":\Locate 1,5,"How many trials":?\->T
\Seq(A,A,0,C,1)\->\List 2
0\List 2\->\List 3
\List 3\->\List 4
\For 1\->A \To T
\ClrText
\Locate 1,1,"Trial:    Coin:"
\Locate 7,1,A
{0,0}\->\List 1
0\->Q
3\->P
\For 1\->B \To C
\Locate 16,1,B
1+Q\->Q
\If Q=21:\Then P+1\->P:1\->Q:\IfEnd
\Int 2\Ran#+1\->X
\If X=1
\Then \List 1[1]+1\->\List 1[1]
\Locate Q,P,"H"
\Else \List 1[2]+1\->\List 1[2]
\Locate Q,P,"T"
\IfEnd
\Next 
\List 1[1]+1\->J
\List 3[J]+1\->\List 3[J]
\Next 
\List 3/T\->\List 4
\GotoA
\Lbl E
\ClrText
\If C<1
\Then \Locate 1,1,"You must do an"
\Locate 1,2,"experiment first"
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\IfEnd
C<1\=>\GotoA
\Locate 1,1,"In table that follows"
\Locate 1,2,"the columns show:"
\Locate 1,3,"1 number of heads"
\Locate 1,4,"2 frequency"
\Locate 1,5,"3 rel. freq."
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\List->Mat(\List 2,\List 3,\List 4)\Disp\GotoA
\Lbl F
\ClrText
\If C<1
\Then \Locate 1,1,"You must do an"
\Locate 1,2,"experiment first"
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\IfEnd
C<1\=>\GotoA
\S-WindMan
\Max(\List 4)\->M
\ViewWindow 0,1.1C,1,\(-)M/6,1.2M,\Int (M/5)
\S-Gph1 \DrawOn,\xyLine,\List 2,\List 4,1,\Cross,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Orange \Text 10,3,"Rel":\Orange \Text 16,3,"Freq"
\Orange \Text 45,106,"Heads"
\Orange \Text 10,100,"..[EXE]"
\PxlOn 1,1\Disp\GotoA
\Lbl G
\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:569
File Name:TWO DICE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
" ":\Locate 1,1,"DICE"
" ":\Locate 1,2,"A simulation of"
" ":\Locate 1,3,"tossing pair of dice"
" ":\Locate 1,4,"How many tosses?"
" ":\Locate 1,5,"(Max of 250)"
?\->B
\LpWhile A<1\ And A>250
\ClrList
\Seq(X,X,2,12,1)\->\List 1
0\List 1\->\List 2
\Cls
\ViewWindow 1,126,0,63,1,0
\For 1\->I \To 11
\Orange \Text 56,10I+2,I+1
\Orange \F-Line 10I,54,10I+8,54
\Next 
0\->A
1\->M
\Do
A+1\->A
\Int 6\Ran#+\Int 6\Ran#+1\->N
\List 2[N]+1\->\List 2[N]
10N\->I
54-\List 2[N]\->J
\F-Line I,J,I+8,J
\List 2[N]\>=53\=>0\->M
\LpWhile A<B\ And M
\Text 9,100,"..[EXE]"
\PxlOn 1,1
\Do:\LpWhile \Getkey\<>31
\Cls
\ClrText
\Locate 1,1,"In table that follows"
\Locate 1,2,"the columns show:"
\Locate 1,3,"1 sum of dice"
\Locate 1,4,"2 frequency"
\Locate 1,5,"3 rel. freq."
\Locate 15,7,"..[EXE]"
\Do:\LpWhile \Getkey\<>31
\List 2/A\->\List 3
\List->Mat(\List 1,\List 2,\List 3)\Disp\ClrText

%End