home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1170 / gepackt.exe / BALL.HRP next >
Encoding:
Text File  |  1993-08-01  |  1.7 KB  |  46 lines
  1. Variable        X,2,0
  2. Variable        Y,2,0
  3. Variable        Eing,1
  4.                 Clear           7
  5.                 
  6.                 LABEL           RUNTERRECHTS
  7.                 Compare         X,80,,,RUNTERLINKS
  8.                 Add             X,1
  9.                 Add             Y,1
  10.                 PERFORM         PRINT
  11.                 Compare         Eing,"",END
  12.                 Compare         Y,25,,RUNTERRECHTS,HOCHRECHTS
  13.                 
  14.                 LABEL           RUNTERLINKS
  15.                 Compare         X,1,,,RUNTERRECHTS
  16.                 Subtract        X,1
  17.                 Add             Y,1
  18.                 PERFORM         PRINT
  19.                 Compare         Eing,"",END
  20.                 Compare         Y,25,,RUNTERLINKS,HOCHLINKS
  21.                 
  22.                 LABEL           HOCHRECHTS
  23.                 Compare         X,80,,,HOCHLINKS
  24.                 Add             X,1
  25.                 Subtract        Y,1
  26.                 PERFORM         PRINT
  27.                 Compare         Eing,"",END
  28.                 Compare         Y,1,HOCHRECHTS,,RUNTERRECHTS
  29.                 
  30.                 LABEL           HOCHLINKS
  31.                 Compare         X,1,,,HOCHRECHTS
  32.                 Subtract        X,1
  33.                 Subtract        Y,1
  34.                 PERFORM         PRINT
  35.                 Compare         Eing,"",END
  36.                 Compare         Y,1,HOCHLINKS,,RUNTERLINKS
  37.                 
  38.                 LABEL           PRINT
  39.                 WriteAt         X,Y     "*"
  40.                 ReadKey         Eing,,"",1
  41.                 Wait            1
  42.                 Clear
  43.                 EXIT
  44.                 
  45.                 LABEL                   END
  46.