All pastes #925385 Raw Edit

SimplePong

public text v1 · immutable
·published 2008-03-02 23:38 UTC
rendered paste body
3  ->  Y
3  ->  Z
0  ->  K: While K!=45
getKey   ->   K
If (K=25) and (Y>1)
Then
Y-1   ->   Y
End
If (K=34) and (Y<5)
Then
Y+1   ->   Y
End
ClrHome
For(I,0,3
Output(Y+I,1,"I
Output(Z+I,16,"I
End
End