home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1987 January / 87_jan.atr / trails3.act < prev    next >
Text File  |  2023-02-26  |  676b  |  1 lines
  1. ¢;      CHECKSUM DATA¢;[BA 99 3B ]¢¢PROC Draw() ¢; =================================¢; =          for joystick         =¢; =  (substitute into listing 1)  =¢; =================================¢¢INT delx=[0],dely=[0],st¢¢x0=95  y0=95¢DO¢  st=Stick(0)¢  delx=(st&4) RSH 2 - ((st&8) RSH 3)¢  dely=((st&1)) -((st&2) RSH 1)¢  x0=(x0+2*delx ) ¢  y0=(y0+2*dely ) ¢  IF x0<1 OR x0>190 THEN x0=95  FI¢  IF y0<1 OR y0>190 THEN y0=95  FI¢  IF STrig(0)=0 THEN¢    Setup(24)¢    IF mirror=1 THEN mirror=0¢    ELSE mirror=1¢    FI¢    DO UNTIL STrig(1)<>0 OD¢  FI¢  Octplot(x(n),y(n))¢  x(n)=x0  y(n)=y0¢  Octplot(x(n),y(n))¢  n==+1¢  IF n>maxpts THEN n=0 FI¢  UNTIL (key<>255)¢OD¢RETURN¢¢¢