%Header Record
Format:MCS1
Type Number:1
File Name:BROWNIAN
Option Name:
Communication SW:0
Capacity:103
Data Type:PG
%Data Record
Password:
BaseN:0
\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
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:GUESS
Option Name:
Communication SW:0
Capacity:408
Data Type:PG
%Data Record
Password:
BaseN:0
\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\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:REACT
Option Name:
Communication SW:0
Capacity:417
Data Type:PG
%Data Record
Password:
BaseN:0
\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"
\@00
%End