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.
5::() X==X+l<br />
540 FOH 1==1024 TG 1055<br />
55() POKE 1,159<br />
560 POKE 448+1,159<br />
57(J NEXT l<br />
5<strong>80</strong> FOR 1==1 TO 13<br />
590 POI NEXT l<br />
660 FOR 1==1 TO X<br />
670 GOSUB 760<br />
6<strong>80</strong> POKE P,I+64<br />
690 NEXT Ṭ 1.<br />
700 GOSUB 760<br />
710 POKE P,CP<br />
72(J P1==P<br />
730 T==50<br />
740 DO==O<br />
750 RETURN<br />
760 P==RND(414)+1056<br />
770 IF PEEl'::: (P) CN THEN 760<br />
7<strong>80</strong> RETURN<br />
790 CLS<br />
<strong>80</strong>0 PR1NT@ 203.,"JOY5TICI< ?"<br />
810 D$== l NI
Change language