%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1666
File Name:BOTTLES
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\GridOff:\AxesOff:\LabelOff:\ClrText:\Cls
\ViewWindow 1,127,1,63,1,1
\F-Line 1,15,11,15
\F-Line 11,15,14,10
\F-Line 14,10,17,15
\F-Line 14,10,14,7
\F-Line 11,7,17,7
\F-Line 17,15,27,15
\F-Line 1,19,21,19
\F-Line 27,15,27,23
\F-Line 22,23,26,23
\F-Line 22,19,22,23
\F-Line 20,26,20,30
\F-Line 20,30,12,30
\F-Line 12,30,12,50
\F-Line 12,50,37,50
\F-Line 37,50,37,30
\F-Line 37,30,29,30
\F-Line 29,30,29,26
\Text 13,65,"THE BOTTLE"
\Text 21,67,"CHALLENGE"
\Text 35,48,"by Martin Schmude"
\For 0\->M \To 25 \Step 2
\PxlOn 24+M,23
\PxlOn 24+M,25
\PxlOn 25+M,24
\PxlOn 25+M,26
\Next 
\For 0\->P \To 18
\F-Line 13,49-P,36,49-P
\Next 
\For 0\->N \To 5 \Step 2
\PxlOff 24+N,23
\PxlOff 24+N,25
\PxlOff 25+N,24
\PxlOff 25+N,26
\Next 
\PxlOff 30,23:\PxlOff 30,25
\Text 55,20,"(Press EXE to continue)"\Disp\Cls
\Text 9,1,"You have a 5L container"
\Text 15,1,"called A \and a"
\Text 21,1,"3L container called B,"
\Text 27,1,"both without graduations."
\Text 33,1,"You also have lots of water."
\Text 39,1,"How could you get"
\Text 45,1,"exactly 4L in A?"
\Text 55,20,"(Press EXE to continue)"\Disp0\->A:0\->B
\Lbl 1
\Cls
\F-Line 20,7,20,42
\F-Line 20,42,50,42
\F-Line 50,42,50,7
\Text 38,55,"A"
\For 0\->Y \To 7A
\Green \F-Line 21,42-Y,49,42-Y
\Next 
\F-Line 80,18,80,39
\F-Line 80,39,100,39
\F-Line 100,39,100,18
\Text 35,105,"B"
\For 0\->T \To 7B
\Green \F-Line 81,39-T,99,39-T
\Next 
\Orange \F-Line 21,14,49,14
\Text 55,20,"(Press EXE to continue)"
\Text 5,10,A
\Text 5,110,B\Disp\If A=4
\Then \Goto5
\IfEnd
\Lbl 2
\Cls
\Text 1,1,"1: Fill A (5L)"
\Text 9,1,"2: Fill B (3L)"
\Text 17,1,"3: Empty A"
\Text 25,1,"4: Empty B"
\Text 33,1,"5: Pour contents of B into A"
\Text 41,1,"6: Pour contents of A into B"
\Text 9,80,"\Remember"
\Text 17,73,"your option."
\Text 55,22,"(Press EXE to continue)"\Disp\ClrText
"Option"?\->X
\Cls
\If \Int (X)\<>X\ Or X>6\ Or X<0
\Then \Text 1,1,"Choose one of the"
\Text 1,8,"following options"\Disp\Goto2
\IfEnd
\If X=1
\Then 5\->A
\Goto1
\IfEnd
\If X=2
\Then 3\->B
\Goto1
\IfEnd
\If X=3
\Then 0\->A
\Goto1
\IfEnd
\If X=4
\Then 0\->B
\Goto1
\IfEnd
\If X=5
\Then \Goto3
\IfEnd
\If X=6
\Then \Goto4
\IfEnd
\Lbl 3
A\->M:B\->N
M+N\->A:N-(5-M)\->B
\If A>5
\Then 5\->A
\IfEnd
\If B<0
\Then 0\->B
\IfEnd
\Goto1
\Lbl 4
A\->M:B\->N
M+N\->B:M-(3-N)\->A
\If B>3
\Then 3\->B
\IfEnd
\If A<0
\Then 0\->A
\IfEnd
\Goto1
\Lbl 5
\Cls
\Text 20,33,"Congratulations"
\Text 30,26,"You're very clever\!mark"

%End