%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:529
File Name:PEREST
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\ClrText
\ViewWindow 1,127,0,1,63,0
\Text 2,59,"0"
\F-Line 56,37,64,61
\Text 24,59,"0"
\Text 33,5,"Estimate a \@25 - numeric f\orm."
\Text 40,42,"Beta v 1.0"
\Text 46,22,"Schmude \@26 Harradine."
\Text 56,16,"(Press EXE to continue.)"\Disp\ClrText
"WHICH LEVEL"
"1: COMPETENT"
"2: ADVANCED"?\->L
0\->Q
\Lbl A
Q+1\->Q
\Lbl 1
\If L=1
\Then 100(\Int (10\Ran#+1))\->A
100(\Int (10\Ran#+1))\->B
A<B\=>\Goto1
\IfEnd
\If L=2
\Then \Int (101\Ran#)\->A
\Int (101\Ran#)\->B
\ClrText
\IfEnd
\ClrText
"What \@25 is"
"     of"
\Locate 1,2,B
\Locate 9,2,A
"(approx. if nec.)"
"  "
"Your answer"?\->G
\ClrText
"Your answer was"
G\Disp"The exact \@25 is"
B/A*100\Disp\If Q=5
\Then \ClrText
"GAME OVER":"Press EXE to start   over.":\Stop
\Else \GotoA
\IfEnd

%End