home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
pan.zip
/
PAN.COM
/
TESTPAN.CLA
< prev
Wrap
Text File
|
1989-11-01
|
3KB
|
100 lines
TESTPAN PROGRAM
INCLUDE('C:\CLARION\STD_KEYS.CLA')
INCLUDE('C:\CLARION\CTL_KEYS.CLA')
MAP
MODULE('PAN'),BINARY
PROC(PAN)
.
.
SCREEN SCREEN HUE(7,1)
ROW(9,57) PAINT(1,5),HUE(10,1)
ROW(13,58) PAINT(1,4),HUE(12,3)
ROW(2,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(3,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(4,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(5,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(6,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(7,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(8,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(9,25) STRING('LETS SEE JUST HOW FAST THIS REAL')
COL(57) STRING('LY IS')
ROW(10,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(11,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(12,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(13,25) STRING('LETS SEE JUST HOW FAST THIS REALL')
COL(58) STRING('Y IS')
ROW(14,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(15,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(16,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(17,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(18,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(19,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(20,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(21,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(22,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
ROW(23,25) STRING('LETS SEE JUST HOW FAST THIS REALLY IS')
.
I LONG
J REAL
STARTX SHORT
STARTY SHORT
ROWS SHORT
COLUMNS SHORT
BYTES SHORT
BLUE_BLANK EQUATE(1720H) !BLUE_SPACE
!BLUE_BLANK EQUATE(4F2AH) !WHITE ASTERISK ON RED-TRY BOTH
CODE
BLANK
OPEN(SCREEN)
STARTX=2
STARTY=25
ROWS=22
COLUMNS=38
BYTES=7
SETHUE(7,1)
START
ASK
IF KEYCODE()=ESC_KEY THEN RETURN.
IF KEYCODE()=RIGHT_KEY THEN
IF STARTY>8 THEN
PAN(STARTX,STARTY,ROWS,COLUMNS,BYTES,BLUE_BLANK)
LOOP I=2 TO 20
J=I
IF J=10 THEN
REVERSE
.
SHOW(I,STARTY+COLUMNS-BYTES,FORMAT(J+1000,@N4))
IF J=10 THEN
NORMAL
.
.
STARTY-=BYTES !TRY REMOVING THIS LINE
ELSE
BEEP
.
.
IF KEYCODE()=LEFT_KEY THEN
IF STARTY+COLUMNS<72 THEN
PAN(STARTX,STARTY,ROWS,COLUMNS,-BYTES,BLUE_BLANK)
LOOP I=2 TO 20
J=I
IF J=10 THEN
SETHUE(4,1)
.
SHOW(I,STARTY,FORMAT(J+1000,@N4))
IF J=10 THEN
SETHUE(7,1)
.
.
STARTY+=BYTES !TRY REMOVING THIS LINE
ELSE
BEEP
.
.
GOTO START