squash - TRS-80 Color Computer Archive
squash - TRS-80 Color Computer Archive
squash - TRS-80 Color Computer Archive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
CHASSE AUX CANARDS ~<br />
510 D=D+32<br />
520 NEXT l<br />
530 FOR 1=1 TO 200<br />
540 NEXT l<br />
550 CLSO<br />
560 NC=NC-1<br />
570 GOTO 50<br />
5<strong>80</strong> PR1NT@ O,N$;<br />
590 FOR 1=1 TO 200<br />
600 NEXT l<br />
610 C=29<br />
620 NC=NC-1<br />
630 RETURN<br />
640 D1M CC$ (1)<br />
650 N$=CHR$(128)+CHR$(128)<br />
660 J$=CHR$(128)+CHR$(132)+CHR$(<br />
128)<br />
670 CC$(0)=CHR$(134)+CHR$(130)+C<br />
HR$ (128)<br />
6<strong>80</strong> CC$(1)=CHR$(137)+CHR$(136)+C<br />
HR$ (128)<br />
690 PJ=495<br />
700 NC=20<br />
710 T=PJ<br />
720 X=0.5<br />
730 C=29<br />
740 CLS 0<br />
750 RETURN