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.
28 SLALOM<br />
108 REM DIRECTION INITIALE<br />
109 REM GAUCHE<br />
110 D=-l<br />
118 REM POSITION INITIALE<br />
119 REM DU SKIEUR<br />
120 J=16<br />
129 REM DESSIN DES PORTES<br />
130 P$=CHR$(181)+CHR$(207)+CHR$(<br />
2(7) +CHR$ (170)<br />
134 REN<br />
135 REM BOUCLE PRINCIPALE<br />
136 RE!"l<br />
140 FOR K=1 TO 300<br />
145 REM CÂLCUL DES COORDONNEES<br />
146 REM DU SKIEUR<br />
150 Y=INT(J/32)*2<br />
160 X=(J-16*Y)*2<br />
165 REM SKIEUR AU NIVEAU D'UNE<br />
166 REM PORTE?<br />
170 IF K>=16 AND (K-5)/10=INT«K<br />
-5)/10) THEN GOSUB 330<br />
179 REM AFFICHAGE D'UNE PORTE?<br />
1<strong>80</strong> IF K