%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:726
File Name:TINK3
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,49,"TINK 3"
\Text 37,54,"v1.0"
\Text 46,13," by Harradine - 2004."
\Text 56,16,"(Press EXE to continue.)"\Disp0\->S
0\->A
0\->B
0\->C
0\->D
0\->E
\ClrText
"How many shots would"
"you like":?\->S
\File6
\ClrList
S\->\Dim \List 1
S\->\Dim \List 2
\For 1\->G \To S
\ClrText
\Int (41*\Ran#-20)\->A
\Int (11*\Ran#)\->C
\Int (2*\Ran#)\->D
\Int (11*\Ran#)\->E
"SHOT"
\Locate 6,1,G
"I am tinking"
"of a number."
"Have a guess what"
"it is":?\->B
\If A=B
\Then \ClrText
"You are improving."\Disp\IfEnd
\If A\<>B
\Then \ClrText
"Nope."
"\Not getting any"
"better are you."
"  "
"Here is a hint."\Disp\If D=1
\Then A*C+E\->F
\Else A*C-E\->F
\IfEnd
\ClrText
"\If I multiply the"
"number by"
\Locate 11,2,C
\If D=1
\Then "\and add"
\Locate 9,3,E
\Else "\and subtract"
\Locate 14,3,E
\IfEnd
"I get"
\Locate 7,4,F
"What is the number"
?\->B
\If A=B
\Then \ClrText
"Well done\!mark"
"You are good at"
"this"\Disp\Else \ClrText
"Oh bother\!mark"
"  "
"It was"
\Locate 8,3,A\Disp\IfEnd
\IfEnd
\Next 
\ClrText
\Stop
%End