SOURCE CODE TO "PNOG"
(C) 2003 PAUL MILLAR
-> means [STO>]
Hey, look! I was nice enough to provide the source code!
You can type this into your calculator if you do not have the Graph Link
cable. I know how that feels.
======PRGM:PNOG=============
ClrHome
Output(1,6,"PNOG"
Output(3,1," BY PAUL MILLAR"
Output(5,4,"(C) 2003 "
Output(6,1,"RANDOM SOFTWARE"
Output(7,1,"USE UP/DN ARROWS"
Output(8,1,"TO CATCH BALL."
Lbl R
Pause 
4->Y
0->S
4->P
16->X
Lbl S
If X=2 and Y=P
Then
S+1->S
ClrHome
rand *7+1->Y
int Y->Y
16->X
ClrHome
Output(Y,X,"¡"
Else
X-1->X
End
ClrHome
Output(8,1,S)
If X<1
Then
Goto O
End
Output(Y,X,"¡"
getKey->K
If K=25
Then
P-1->P
End
If K=34
Then
P+1->P
End
If P=0
Then
1->P
End
If P=9
Then
8->P
End
Output(P,1,"I"
If X=1 and P(not equal to)Y
Then
Lbl O
ClrHome
Disp "GAME OVER,"
Disp "YOU DIE!"
S+rand ->S
Disp "SCORE: ",S
Pause 
Goto M
End
Goto S
Lbl M
Menu("AARRRGH!","PLAY AGAIN",E,"ENOUGH!",Q
Lbl Q
ClrHome
Disp " COPYRIGHT 2003"
Disp "RANDOM  SOFTWARE"
Stop
Lbl E
ClrHome
Output(4,1,"HIT ENTER, FOO!"
Goto R