%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:343
File Name:LATETEST
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl M
\Norm
\ClrText
\Cls
"How many days?":?\->A
A\<>\Int (A)\=>\GotoM
\ClrText
\Locate 1,4,"Time is passing ..  "
0\->M
0\->P
0\->D
0\->B
0\->C
0\->K
0\->L
\While D<A
D+1\->D
\Int (\Ran#*7)-3\->B
(\Int (\Ran#*5)-1)\->K
\If B>K
\Then (B-K)\->L
L<0\=>M+1\->M
L\>=0\=>C+1\->C
\IfEnd
\If B\<=K
\Then (B-K)\->L
L<0\=>M+1\->M
L\>=0\=>C+1\->C
\IfEnd
\WhileEnd
\ClrText
"All days passed."\Disp"  "
"Bus missed     times"
\Locate 12,3,M\Disp"in      days."
\Locate 4,4,A\Disp"  "
\ClrText
M/A\->P
"P(missing) approx."
P\Disp\GotoM
%End