%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1088
File Name:TINK1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,49,"TINK 1"
\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
\ViewWindow 1,127,0,1,63,0
\Int (11*\Ran#)\->C
\Int (2*\Ran#)\->D
\Int (11*\Ran#)\->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
"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 a lucky"
"critter\!mark"\Disp\GotoP
\IfEnd
\If A\<>B
\Then \ClrText
"Nope."
"Close, but no cigar\!mark"
"  "
"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"\Disp\Else \ClrText
"Bad luck\!mark"
"  "
"It was"
\Locate 8,3,A\Disp\IfEnd
\IfEnd
A\->\List 1[G]
F\->\List 2[G]
\Lbl P
\If A=B
\Then A\->\List 1[G]
\If D=1
\Then A*C+E\->F
\Else A*C-E\->F
\IfEnd
F\->\List 2[G]
\IfEnd
\Next 
\ClrText
"Press EXE to see all"
"the members of the"
"family."\Disp\ClrText
\If G\<=7
\Then \ClrText
\For 1\->K \To G
\Locate 1,K,C
\Locate 3,K,"*"
\Locate 5,K,\List 1[K]
\If D=1
\Then \Locate 9,K,"+"
\Else \Locate 9,K,"-"
\IfEnd
\Locate 11,K,E
\Locate 14,K,"="
\Locate 16,K,\List 2[K]
\Next 
\Else \ClrText
\For 1\->K \To 7
\Locate 1,K,C
\Locate 3,K,"*"
\Locate 5,K,\List 1[K]
\If D=1
\Then \Locate 9,K,"+"
\Else \Locate 9,K,"-"
\IfEnd
\Locate 11,K,E
\Locate 14,K,"="
\Locate 16,K,\List 2[K]
\Next 
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1086
File Name:TINK1S
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,49,"TINK 1S"
\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
\ViewWindow 1,127,0,1,63,0
\Int (11*\Ran#)\->C
\Int (2*\Ran#)\->D
\Int (10*\Ran#)\->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 (10*\Ran#)\->A
"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 a lucky"
"critter\!mark"\Disp\GotoP
\IfEnd
\If A\<>B
\Then \ClrText
"Nope."
"Close, but no cigar\!mark"
"  "
"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"\Disp\Else \ClrText
"Bad luck\!mark"
"  "
"It was"
\Locate 8,3,A\Disp\IfEnd
\IfEnd
A\->\List 1[G]
F\->\List 2[G]
\Lbl P
\If A=B
\Then A\->\List 1[G]
\If D=1
\Then A*C+E\->F
\Else A*C-E\->F
\IfEnd
F\->\List 2[G]
\IfEnd
\Next 
\ClrText
"Press EXE to see all"
"the members of the"
"family."\Disp\ClrText
\If G\<=7
\Then \ClrText
\For 1\->K \To G
\Locate 1,K,C
\Locate 3,K,"*"
\Locate 5,K,\List 1[K]
\If D=1
\Then \Locate 9,K,"+"
\Else \Locate 9,K,"-"
\IfEnd
\Locate 11,K,E
\Locate 14,K,"="
\Locate 16,K,\List 2[K]
\Next 
\Else \ClrText
\For 1\->K \To 7
\Locate 1,K,C
\Locate 3,K,"*"
\Locate 5,K,\List 1[K]
\If D=1
\Then \Locate 9,K,"+"
\Else \Locate 9,K,"-"
\IfEnd
\Locate 11,K,E
\Locate 14,K,"="
\Locate 16,K,\List 2[K]
\Next 
\Stop
%End