squash - TRS-80 Color Computer Archive
squash - TRS-80 Color Computer Archive
squash - TRS-80 Color Computer Archive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
20 D.C.A.<br />
170 SOUND 1,1<br />
1<strong>80</strong> 5=5+1<br />
190 B$=LEFT$(B$,14)+01$+RIGHT$(B<br />
$,13)<br />
200 GOTO 2<strong>80</strong><br />
210 IF 1'179 THEN 300<br />
220 IF POINT(30,1)0 THEN 300<br />
230 PRINT@ 15,CHR$(191);<br />
240 5=5+1<br />
250 PRINT@ 1'1,0$;<br />
260 SOUND 1,1<br />
270 A$=LEFT$(A$,13)+01$+RIGHT$(A<br />
$,14)<br />
2<strong>80</strong> IF 5>1 AND INT(5/8)=S/8 THEN<br />
GOSUB 420<br />
290 M=495<br />
300 PRINT@ 4<strong>80</strong>,"5: ";5; "1'1: ";NM;<br />
310 IF NM