home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A.N.A.L.O.G. Magazine 1987 January
/
87_jan.atr
/
trails3.act
< prev
next >
Wrap
Text File
|
2023-02-26
|
676b
|
1 lines
¢; 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¢¢¢