MY PROGRAMS Dan Pong! PROGRAM Little ping pong game against computer! (c) 2000 Danny Taylor danny.taylor@hydro.com BIN_PROG_1 PFILE:B3K8LBP6.BAS    = E = E =   Ti(66,16)-(176,52),B:i(64,14)-(178,54),B:i(63,13)-(179,55),B:i(61,11)-(181,57),B eQ90,2:`" DAN PONG";(153):Q80,3:`(169);"2000 Danny Taylor":Q70,4:`"danny.taylor@hydro.com" ?h(75,20):3"F00080000000000F":h(158,20):3"0F000000008000F0" ((Q90,6:`"Press any key...":A$=(1):P 2;Q5,0:`"Here's a little Ping Pong game against computer." <@Q5,1:`"Use right and left arrows to accelerate on each side." F/Q5,2:`"Use down arrow to stop acceleration." P"Q5,3:`"Press 'E' to Exit game." Z2Q5,4:`"First to reach 10 points is the winner!" [4Q90,6:`"Press any key to continue...":A$=(1):P dCH=120:PS=0:CS=0 PH=120:X=130:Y=32 ,LP=1:CO=CH:PO=PH 6%  b7000:Y i(CO,0)-(CO+20,2),R,BF Xi(PO,67)-(PO+20,69),R,BF  i(CH,0)-(CH+20,2),BF i(PH,67)-(PH+20,69),BF  CO=CH:PO=PH K$= LVA=0Tc1200:v2700 Q60,2 8VPS<10CS<10T`"PRESS [SPACEBAR] TO SERVE":+A2000 x4VPS=10T`"* YOU WIN *":v`"* YOU LOSE *" Q80,4:`"PLAY AGAIN [Y,N]?" @?A$=(1):VA$="Y"Tb7000:+p100:vVA$="N"TZ:v1600 VK$=" "T`2100:v2700 4b7000:XX=130 XY=32 XDX=((.5)*3)*2-3 `XDY=LP*((.5)*3)+LP XA=1 VCH+10XTCH=CH-PS-1 AVA=1Ti(XO,YO)-(XO+3,YO+3),R,BF:i(X,Y)-(X+3,Y+3),BF:XO=X:YO=Y X=X+DX Y=Y+DY VX<43X>193TDX=-DX HVY<0+DYT~3500:v3900 VA=1Tb7000:PS=PS+1 A=0 tLP=-1  X=130:Y=32 <VY>69+DYT4000:v4400 VA=1Tb7000:CS=CS+1 A=0 hLP=1  X=130:Y=32 0/VY<4((X+3)-(CH+10))<10TC4500:v5000  DY=(DY)+1 VDY>8TDX=DX+((.5)*5)-2 \Y=3 DX=DX+((X+2)-(CH+10))/6 V(DX)>8TDX=(DX)+J5900 0VY>63((X+2)-(PH+10))<10T5200:vJ5900 P DY=-(DY)-1 VDY<-8TDX=DX+((.5)*5)-2 Y=62 |DX=DX+((X+2)-(PH+10))/6  +5000  VK$=15TAPH=APH-2 pVK$=14TAPH=APH+2 VK$=5TAPH=0 8V(APH)>20TAPH=(APH)*20  PH=PH+APH VPH<42PH>175TAPH=-APH  VK$="E"TZ , +500 XP:i(40,-1)-(198,70),B Q1,0:`"You: ";PS  Q203,0:`"Him: ";CS RCH=120:PH=120 e u1Z