%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:788
File Name:TINK2
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,49,"TINK 2"
\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
\Lbl 1
\Int (21*\Ran#)-10\->A
\Int (21*\Ran#)-10\->B
\Int (21*\Ran#)-10\->C
\Int (21*\Ran#)-10\->D
\If (A-C)=0
\Then \Goto1
\IfEnd
\If \Int ((D-B)/(A-C))\<>(D-B)/(A-C)
\Then \Goto1
\IfEnd
(D-B)/(A-C)\->E
\ClrText
"I am tinking"
"of a number again."
"Have a guess what"
"it is":?\->F
\If F=E
\Then \ClrText
"Total fluke\!mark"\Disp\Goto1
\IfEnd
\If F\<>E
\Then \ClrText
"Nope."
"Close, but I don't"
"hear applause."
"  "
"Here is a hint."\Disp\ClrText
"\If I * the number"
"by    \and   "
"the result is the"
"same as if I"
"* the number"
"by    \and   "
\Abs B\->Z
\Abs D\->Y
\Locate 4,2,A
\Locate 4,6,C
\If B<0
\Then \Locate 11,2,"-"
\Locate 13,2,Z
\Else \Locate 11,2,"+"
\Locate 13,2,Z
\IfEnd
\If D<0
\Then \Locate 11,6,"-"
\Locate 13,6,Y
\Else \Locate 11,6,"+"
\Locate 13,6,Y
\IfEnd\Disp\ClrText
"What is the number"
?\->G
\If G=E
\Then \ClrText
"Well done\!mark"\Disp\Else \ClrText
"Bad luck\!mark"
"  "
"It was"
\Locate 8,3,E\Disp\IfEnd
\Goto1

%End