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.
44 ATTERRISSAGE<br />
160 IF D$.... THEN FU=FU-1:FF=1<br />
170 DRAW "COL"+STR$(FF)<br />
1<strong>80</strong> FF=O<br />
190 IF MH255 THEN 220<br />
200 IF MV187 THEN 310<br />
250 t1V=NV-20<br />
260 MH=NH-15<br />
270 IF MH255 THEN 110<br />
2<strong>80</strong> IF MV5 THEN 390<br />
320 IF ABS(NH-A)>4 THEN 390<br />
330 IF ABS(OH) >1 THEN 390<br />
340 PUT (MH,167j-(NH,187),N,PSET<br />
350 FOR 1=0 To 1000<br />
360 NEXT 1<br />
370 S=S+10<br />
3<strong>80</strong> GoTo 100<br />
390 IF MH240 THEN 430<br />
400 IF MV191 THEN 420<br />
4iO PUT (MH,MV)-(NH,NV),R,PSET<br />
420 PUT ,C,PSET<br />
430 FOR 1=1 To 1000<br />
440 NEXT 1<br />
450 CLS<br />
460 SCREEN 0,0<br />
470 PRINT@ 162,"VOTRE NAVETTE S'<br />
EST ECRASEE"<br />
4<strong>80</strong> PRINT@ 234,"SCORE :";S<br />
490 PRINT@ 298,"UNE AUTRE ?"<br />
500 IF INKEY$ .... THEN 500<br />
510 O$=INI