%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1533
File Name:BINARY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls:\AxesOff:\GridOff:\LabelOff
\ViewWindow 1,127,1,63,1,1
\For 1\->A \To 124 \Step 8
\For 1\->B \To (\Int (6\Ran#+1))*6 \Step 6
\Text 1+B,1+A,"1"
\Next 
\For 1\->C \To (\Int (6\Ran#+1))*6 \Step 6
\Text 1+C,5+A,"0"
\Next 
\Next 
\Text 41,31,"B  I  N  A  R  Y"
\Text 48,27,"by Martin Schmude"
\Text 55,18,"(Press EXE to continue)"\Disp\Lbl 1
\Cls
\Text 1,1,"Pick a number from 1 to 15."
\Text 55,18,"(Press EXE to continue)"\Disp\Text 16,1,"When asked, use"
\Text 30,50,"Yes"
\Text 40,50,"No"
\Text 30,80,"1"
\Text 40,80,"0"\Disp\Cls
\Orange \F-Line 5,5,55,5
\Orange \F-Line 55,5,55,30
\Orange \F-Line 55,30,5,30
\Orange \F-Line 5,30,5,5
\Text 10,10,"8  9  10 11"
\Text 20,10,"12 13 14 15"
\Text 32,20,"Card 1"
\Orange \F-Line 70,5,120,5
\Orange \F-Line 120,5,120,30
\Orange \F-Line 120,30,70,30
\Orange \F-Line 70,30,70,5
\Text 10,75,"4  5  6  7"
\Text 20,75,"12 13 14 15"
\Text 32,85,"Card 2"
\Text 40,1,"R\Remember if your number is"
\Text 48,1,"on card 1 \and\slash\or card 2."
\Text 56,18,"(Press EXE to continue)"\Disp\ClrText
"Yes         1"
"No          0"
\Lbl 2
"Was your number on"
"Card 1"?\->A
\If \Int (A)\<>A\ Or A<0\ Or A>1
\Then "Enter 0 \or 1 please."\Disp\ClrText:\Goto2
\IfEnd
\Lbl 3
"Card 2"?\->B
\If \Int (B)\<>B\ Or B<0\ Or B>1
\Then "Enter 0 \or 1 please."\Disp\ClrText:\Goto3
\IfEnd
\Cls
\Orange \F-Line 5,5,55,5
\Orange \F-Line 55,5,55,30
\Orange \F-Line 55,30,5,30
\Orange \F-Line 5,30,5,5
\Text 10,10,"2  3  6  7"
\Text 20,10,"10 11 14 15"
\Text 32,20,"Card 3"
\Orange \F-Line 70,5,120,5
\Orange \F-Line 120,5,120,30
\Orange \F-Line 120,30,70,30
\Orange \F-Line 70,30,70,5
\Text 10,75,"1  3  5  7"
\Text 20,75,"9  11 13 15"
\Text 32,85,"Card 4"
\Text 40,1,"R\Remember if your number is"
\Text 48,1,"on card 3 \and\slash\or card 4."
\Text 56,18,"(Press EXE to continue)"\Disp\ClrText
"Was your number on"
\Lbl 4
"Card 3"?\->C
\If \Int (C)\<>C\ Or C<0\ Or C>1
\Then "Enter 0 \or 1 please."\Disp\ClrText:\Goto4
\IfEnd
\Lbl 5
"Card 4"?\->D
\If \Int (D)\<>D\ Or D<0\ Or D>1
\Then "Enter 0 \or 1 please."\Disp\ClrText:\Goto5
\IfEnd
\ClrText
"Your number is"
8A+4B+2C+D\Disp\ClrText
"Would you like to"
"play again"
"1: Yes"
"2: No"?\->Z
\If Z=1
\Then \Goto1
\Else "I'll take that as"
"a no."
\IfEnd

%End