5 Apr
2017
5 Apr
'17
10:46 p.m.
Mike Willegal suggested putting a delay in line 30 between checking each paddle. That fixed it! Now it works without line 70 or any other of the correction methods that I thought were needed. The simplified program: 10 GR:COLOR=2 20 PLOT 10,10 30 X=PDL(0):FOR W=1 TO 25:NEXT W:Y=PDL(1) 40 X=X/6.4:Y=Y/6.4 50 PLOT X,Y:PRINT INT(X),INT(Y) 60 FOR W=1 TO 50: NEXT W 70 COLOR=0:PLOT X,Y:COLOR=2 80 GOTO 30 Hi-res version: 10 HGR:COLOR=2 20 HPLOT 10,10 30 X=PDL(0):FOR WE=1 TO 25:NEXT W:Y=PDL(1) 40 X=X/6.4:Y=Y/6.4 50 PLOT X,Y:PRINT INT(X),INT(Y) 60 FOR W=1 TO 50: NEXT W 70 COLOR=0:PLOT X,Y:COLOR=2 80 GOTO 30