%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:283
File Name:BOMBRUN
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 1,127,0,1,63,0
\For 1\->A \To 31
2+\Int 12\Ran#\->C
\For 1\->B \To C
\Text 62-4C+4B,4A,"."
\Next 
\Next 
1\->A~B
-1\->C
0\->J~K
\Lbl 0
\Text 4B,4A," "
\Isz A
\If A>31
\Then 1\->A
\Isz B
B>=15\=>\Goto1
\IfEnd
\PxlTest 4B+2,4A+1
\If \Ans
\Then "OOH(-)THAT HAD TO HURT!"
\Stop
\IfEnd
\Text 4B,4A,">"
GetKey=\Ans+\Ans\->K
\If C<0\ And K=31
\Then 4A\->D
B\->C
0\->K
\IfEnd
\Prog "BRDROP"
J<>31\=>\Goto0
\Lbl 1
"WOW! I'M IMPRESSED!"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:184
File Name:BRDROP
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
C>=0\=>\Text 4C+1,D," "
\Text 4B,4A,">"
GetKey
\Ans\->K
\If C=15\ Or C<0
\Then (-)1\->C
0\->K
\For 1\->X \To 20
GetKey
\Ans\=>\Ans\->K
\Next 
\Return
\IfEnd
\Isz C
\PxlTest 4C+3,D
\If \Ans
\Then \For 4C+2\->C \To 56 \Step 6
\Text C,D," "
\Next 
\Text 56,D," "
(-)1\->C
\Isz J
\Else \Text 4C,D,"."
\IfEnd
%End