Program name: Bomb Run
(v. 1.0)
|
|
CTF file name:
|
bombrun.ctf
|
Author:
|
Tom Lynn
|
Date:
|
1997
|
Models:
|
9750, 9850, 9950
|
Screenshot:
|
Description:
Your plane starts at the top of the screen above a large city
and descends slowly. It has to destroy all of the buildings
before it hits them.
* How To Play *
Run the program "~BOMBRUN".
Press [EXE] when your plane is in the column just before the
one you want the bomb dropped into. That's all there is to it.
|
Program source code:
Program "~BOMBRUN"
[Main routine]
ViewWindow 1,127,0,1,63,0
For 1->A To 31
2+Int 12Ran#->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=>Goto 1
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=>Goto 0
Lbl 1
"WOW! I'M IMPRESSED!"
|
Program "BRDROP"
[Bomb dropping routine]
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
|
This page was created by Tom Lynn (tom-calcs@mythic-beasts.com).
This page last updated: Friday, 30 April, 1999
Written in notepad and compiled with
WTA,
for clean, consistent HTML.
Part of the Casio Graphical Calculator Encyclopaedia.
|