AMSTRAD cpc 6128 User Instruction page 480

370 xb=21:dx=1
380 GOTO 400
390 xb=19:dx=-1
400 yb=12:dy=INT(RND*3)-1
410 RETURN
420 GOSUB 600
430 oxb=xb:oyb=yb
440 GOSUB 500
450 IF note>0 THEN SOUND 129,note,50,15,1
460 LOCATE oxb,oyb:PRINT"
If;
470 LOCATE xb,yb:PRINTbaLl$
480 IF scored=0 THEN 420
490 RETURN
500 LOCATE xb+dx,yb+dy:ch$=COPYCHR$(#0)
510 note=0
520 IF ch$=" " THEN xb=xb+dx:yb=yb+dy:RETURN
530 IF ch$="I" THEN dx=2-dx-2:dy=INT(RND*3)-1:note=200:
RETURN
540 IF ch$=LEFT$(edge2$,1) THEN 570
550 IF ch$=edge$ THEN dy=2-dy-2:note=250
560 RETURN
570 IF dx>0 THEN score1=score1+1 ELSE score2=score2+1
580 scored=1:note=2000
590 RETURN
600 p(1)=(INKEY(69»=0)+(INKEY(72»=0)+ABS«INKEY(71»=
0)+(INKEY(73»=0»*2
610 IF comp=1 THEN p(2)=ABS(y(2)<yb)*2+(y(2»yb):GOTO 6
30
620 p(2)=(INKEY(4»=0)+(INKEY(48»=0)+ABS«INKEY(5»=0)
+(INKEY(49»=0»*2
630 PEN 3
640 FOR i=1 TO 2
650 LOCATE x(i)/y(i)+p(i):ch$=COPYCHR$(#0)
660 IF ch$=" " THEN LOCATE x(i),y(i):PRINT clr$;:y(i)=y
(i )+ROUND(p(;
)/2)
670 LOCATE x(i),y(i):PRINT bat$;
680 NEXT
690 PEN 1
700 RETURN
710 PEN 2:PRINT:PRINT TAB(15)"Ping-Pong":PRINT TAB(15)"
_________ '1
720 PEN 3:PRINT:PRINT TAB(14)"To move bats:
730 PRINT:PRINT:PEN 1
740 PRINT" Player 1 Player 2 Direction":PRI
NT
continued on the next page
Some Programs for you ....
Appendix 3 Page 7