Barymag 2/Barymag_2_1996_Slight_pl_Side_D.atr/pilka.arc/PILKA.LST

File List | 1988-09-01 | 867b | 1 lines

100 GRAPHICS 8+16:COLOR 1:TRAP 250¢110 POKE 710,0:POKE 709,14¢120 PX=150:PY=100¢130 VX=0:VY=0¢140 BX=151:BY=70¢150 BVX=0¢160 R=30¢170 DT=0.2¢180 W=5¢190 G=9.8¢200 REPEAT ¢210   EXEC RYSUJ¢220   EXEC OBLICZ¢230   EXEC PORUSZ¢240 UNTIL NOT (STRIG(0))¢250 RUN ¢260 PROC RYSUJ¢270   COLOR 0¢280   PLOT PXQ,191-PYQ¢290   PLOT BXQ,191-BYQ¢300   COLOR 1¢310   PLOT PX,191-PY¢320   PLOT BX,191-BY¢330   PLOT 150,191-32¢340   PXQ=PX:PYQ=PY¢350   BXQ=BX:BYQ=BY¢360 ENDPROC ¢370 PROC OBLICZ¢380   DX=PX-BX¢390   DY=PY-BY¢400   O=SQR(DX*DX+DY*DY)¢410   F=W*(R-O)/O¢420   FX=F*DX¢430   FY=F*DY¢440   VX=VX+FX*DT¢450   VY=VY+(FY-G)*DT¢460   PX=PX+VX*DT¢470   PY=PY+VY*DT¢480   BVX=BVX+FM*DT¢490   BX=BX+BVX*DT¢500   X1=INT(PX)¢510   Y1=INT(PY)¢520   Z1=INT(BX)¢530 ENDPROC ¢540 PROC PORUSZ¢550   FM=0¢560   S=STICK(0)¢570   IF S=11 THEN FM=-10¢580   IF S=7 THEN FM=10¢590 ENDPROC ¢