home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / pan.zip / TESTPAN.CLA < prev   
Text File  |  1989-11-01  |  3KB  |  100 lines
  1. TESTPAN         PROGRAM
  2.           INCLUDE('C:\CLARION\STD_KEYS.CLA')
  3.           INCLUDE('C:\CLARION\CTL_KEYS.CLA')
  4.  
  5.          MAP
  6.            MODULE('PAN'),BINARY
  7.          PROC(PAN)
  8.            .
  9.          .
  10.  
  11.  
  12. SCREEN         SCREEN      HUE(7,1)
  13.            ROW(9,57)  PAINT(1,5),HUE(10,1)
  14.            ROW(13,58) PAINT(1,4),HUE(12,3)
  15.            ROW(2,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  16.            ROW(3,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  17.            ROW(4,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  18.            ROW(5,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  19.            ROW(6,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  20.            ROW(7,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  21.            ROW(8,25)  STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  22.            ROW(9,25)  STRING('LETS SEE JUST HOW FAST THIS REAL')
  23.          COL(57)  STRING('LY IS')
  24.            ROW(10,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  25.            ROW(11,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  26.            ROW(12,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  27.            ROW(13,25) STRING('LETS SEE JUST HOW FAST THIS REALL')
  28.          COL(58)  STRING('Y IS')
  29.            ROW(14,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  30.            ROW(15,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  31.            ROW(16,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  32.            ROW(17,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  33.            ROW(18,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  34.            ROW(19,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  35.            ROW(20,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  36.            ROW(21,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  37.            ROW(22,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  38.            ROW(23,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
  39.          .
  40. I         LONG
  41. J         REAL
  42. STARTX         SHORT
  43. STARTY         SHORT
  44. ROWS         SHORT
  45. COLUMNS         SHORT
  46. BYTES         SHORT
  47. BLUE_BLANK   EQUATE(1720H)    !BLUE_SPACE
  48. !BLUE_BLANK  EQUATE(4F2AH)    !WHITE ASTERISK ON RED-TRY BOTH
  49.  
  50.   CODE
  51.   BLANK
  52.   OPEN(SCREEN)
  53.   STARTX=2
  54.   STARTY=25
  55.   ROWS=22
  56.   COLUMNS=38
  57.   BYTES=7
  58.   SETHUE(7,1)
  59. START
  60.   ASK
  61.   IF KEYCODE()=ESC_KEY THEN RETURN.
  62.   IF KEYCODE()=RIGHT_KEY THEN
  63.      IF STARTY>8 THEN
  64.     PAN(STARTX,STARTY,ROWS,COLUMNS,BYTES,BLUE_BLANK)
  65.     LOOP I=2 TO 20
  66.        J=I
  67.        IF J=10 THEN
  68.           REVERSE
  69.        .
  70.        SHOW(I,STARTY+COLUMNS-BYTES,FORMAT(J+1000,@N4))
  71.        IF J=10 THEN
  72.           NORMAL
  73.        .
  74.     .
  75.     STARTY-=BYTES                      !TRY REMOVING THIS LINE
  76.      ELSE
  77.     BEEP
  78.      .
  79.   .
  80.   IF KEYCODE()=LEFT_KEY THEN
  81.      IF STARTY+COLUMNS<72 THEN
  82.     PAN(STARTX,STARTY,ROWS,COLUMNS,-BYTES,BLUE_BLANK)
  83.     LOOP I=2 TO 20
  84.         J=I
  85.         IF J=10 THEN
  86.            SETHUE(4,1)
  87.         .
  88.         SHOW(I,STARTY,FORMAT(J+1000,@N4))
  89.         IF J=10 THEN
  90.            SETHUE(7,1)
  91.         .
  92.     .
  93.     STARTY+=BYTES                    !TRY REMOVING THIS LINE
  94.      ELSE
  95.     BEEP
  96.      .
  97.   .
  98.   GOTO START
  99.  
  100.