home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1988 December / 88_dec.atr / koala.act < prev    next >
Text File  |  2023-02-26  |  855b  |  1 lines
  1. ¢;      CHECKSUM DATA¢;[C0 AC 3F D7 02 ]¢¢BYTE XDIR=624,YDIR=625,LEFTB=636,¢     RIGHTB=637,FL=[0]¢INT  OX,OY,X1,Y1¢INT  ARRAY X(228),Y(228)¢¢PROC FILLXY()¢  BYTE A ¢  CARD B¢  OPEN(1,"D:XARRAY.DAT",4)¢  FOR A=1 TO 228 DO¢   B=GETD(1)¢    IF A>=183 THEN¢     B==+255¢    FI X(A)=B¢  OD CLOSE(1) OPEN(1,"D:YARRAY.DAT",4)¢  FOR A=1 TO 228 DO¢   B=GETD(1) Y(A)=B¢  OD CLOSE(1)¢RETURN¢¢PROC DRAW()¢  IF FL=1 THEN¢   IF OX-X1>11 OR OY-Y1>11 THEN¢    RETURN ELSE DRAWTO(X1,Y1)¢    OX=X1 OY=Y1 RETURN¢    FI ELSE FL=1 PLOT(X1,Y1)¢    OX=X1 OY=Y1¢  FI¢RETURN¢¢PROC CHECKBUTTONS()¢  DO¢   DO X1=X(XDIR) Y1=Y(YDIR)¢    IF XDIR<=4 AND YDIR<=4 THEN¢     FL=1 EXIT¢    FI¢    IF LEFTB=0 THEN¢     DRAW() ELSE FL=0¢    FI¢   OD¢  OD¢RETURN¢¢PROC MAIN()¢  BYTE COL1=709,COL2=710,COL3=712¢  GRAPHICS(24) COL1=0 COL2=10¢  COL3=10 COLOR=1¢  FILLXY() CHECKBUTTONS()¢RETURN¢¢