Blijbol.nl

Downloaded 446 times

Drop

Codes

prgmDROP

Full
ClrHome
Disp "Blijbol","Happy business","","www.blijbol.nl","","(C) 2007 Jeroen","van der Gun"
Normal
Float
Pause 
Lbl G
ClrHome
Disp "0             L1","======DR0P======"
0→H
7→L
9→C
1→P
0→X
8→Y
randInt(1,16→U
ú1→V
randInt(1,16→S
ú3→T
While 1
If Y>2 en X>0
Output(Y,X," 
Y+1→Y
If Y<9
Then
Output(Y,X,"*
Else
If X>0
Then
Output(2,P,">
Output(2,17-P,"<
P+1→P
End
randInt(1,16→X
2→Y
0→O
End
If V>2
Output(V,U," 
V+1→V
If V<9
Then
If V>2
Output(V,U,"O
Else
randInt(1,16→U
2→V
End
If T>2
Output(T,S," 
T+1→T
If T<9
Then
If T>2
Output(T,S,"O
Else
randInt(1,16→S
2→T
End
If P=7
Goto F
For(I,0,L
getKey→K
If K=24 en C>1
Then
Output(8,C," 
C-1→C
End
If K=26 en C<16
Then
Output(8,C," 
C+1→C
End
If K=105
Pause 
If K=22 of K=45
Goto Q
If Y=8
Then
If X=C
Then
H+1→H
Output(1,1,H
L
If H=5
6
If H=12
5
If H=21
4
If H=32
3
If H=45
2
If H=60
1
Output(1,16,8-Ans
Ans→L
0→X
End
Else
If V=8 en U=C
Goto F
If T=8 en S=C
Goto F
End
Output(8,C,"-
End
End
Lbl F
Output(4,2,"··Game··0ver··
While 1
getKey
If Ans=105
Goto G
If Ans=22 of Ans=45
Goto Q
End
Lbl Q
ClrHome