\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Pong
\FILE=PONG.85P
:ClLCD
:FnOff 
:0\->\S
:3\->\W
:getKy\->\G
:Lbl RST
:If W==0
:Then
:FnOn 
:Disp "Score:"
:Disp S
:Stop
:End
:AxesOff
:ClDrw
:0\->\xMin
:1\->\xMax
:0\->\yMin
:1\->\yMax
:Line((1/126),.05,(125/126),.05)
:Line(\Delta-x\,1-\Delta-y\,1-\Delta-x\,1-\Delta-y\)
:Line(\Delta-x\,0,\Delta-x\,1-\Delta-y\)
:Line(1-\Delta-x\,0,1-\Delta-x\,1-\Delta-y\)
:2*\Delta-x\\->\H
:2*\Delta-y\\->\V
:2*(iPart (59*rand)+2)*\Delta-x\\->\x
:(.5+\Delta-x\)-(4*\Delta-x\)\->\A
:(.5+\Delta-x\)+(4*\Delta-x\)\->\B
:Line(((.5+\Delta-x\)-(4*\Delta-x\)),7*\Delta-y\,((.5+\Delta-x\)+(4*\Delta-x\\#\
)),7*\Delta-y\)
:48*\Delta-y\\->\y
:Lbl ST
:PtOn(x,y)
:If y\<=\(8.5*\Delta-y\) and (A\<=\x and x<B+\Delta-x\)
:Then
:\(-)\V\->\V
:S+100\->\S
:End
:If y\<=\(8.5*\Delta-y\) and (x<A or x\>=\B+\Delta-x\)
:Then
:W-1\->\W
:Goto RST
:End
:If y\>=\(1-3*\Delta-y\)
:\(-)\V\->\V
:If x\<=\(2*\Delta-x\) or x\>=\(1-2*\Delta-x\)
:\(-)\H\->\H
:If G==24 and A\<=\2*\Delta-x\
:Goto SKP
:If G==26 and B\>=\1-2*\Delta-x\
:Goto SKP
:If G==24
:Then
:PtOff(B,7*\Delta-y\)
:PtOff((B-\Delta-x\),7*\Delta-y\)
:A-(2*\Delta-x\)\->\A
:B-(2*\Delta-x\)\->\B
:PtOn(A+\Delta-x\,7*\Delta-y\)
:PtOn(A,7*\Delta-y\)
:End
:If G==26
:Then
:PtOff(A,7*\Delta-y\)
:PtOff(A+\Delta-x\,7*\Delta-y\)
:A+(2*\Delta-x\)\->\A
:B+(2*\Delta-x\)\->\B
:PtOn(B-\Delta-x\,7*\Delta-y\)
:PtOn(B,7*\Delta-y\)
:End
:Lbl SKP
:PtOff(x,y)
:x+H\->\x
:y+V\->\y
:getKy\->\G
:Goto ST
\STOP85\