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.
520 FOR 1=1 TO NM<br />
530 P=RND(416)+1056<br />
540 IF PEEK(P)96 THEN 530<br />
550 POIR THEN R=S<br />
6<strong>80</strong> PRINT@ 167,"RECORD :";R;<br />
690 PRINT@ 231,"UNE AUTRE ?";<br />
700 D$=INKEY$<br />
710 IF D$="" THEN 700<br />
720 IF D$"N" THEN 120<br />
730 CLS<br />
740 END<br />
750 NM=Nl'"l+ 1<br />
760 POKE P1,CN<br />
770 GOSUB 430<br />
7<strong>80</strong> GOTO 130<br />
RAMASSE-MIETTES 33