home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
clockcal.zip
/
ASCII.PRG
next >
Wrap
Text File
|
1991-01-27
|
881b
|
50 lines
*** ASCII.prg
*
* (c) CTS, MRI 1991
*
PRIVATE xWIND,mTALK,mESCA,mCURS,X,Y
xWIND='WN'+STR(RAND()*1000000,6)
mCURS=SET('CURS')='ON'
mESCA=SET('ESCA')='ON'
mTALK=SET('TALK')='ON'
SET ESCA OFF
SET TALK OFF
SET CURS OFF
DEFI WIND &xWIND FROM 1,1 TO 21,78 COLOR W+/B,,RG+/N
ACTI WIND &xWIND
CLEAR
X=0
y=1
@Y-1,2 say "XXX 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 XXX"
do while x<257
if mod(x,16)=0
@Y,2 SAY IIF((X-16)<0,"",STR(X-16,3)) COLOR G+/B
@Y,70 SAY IIF((X-1)<0,"",STR(X-1,3)) COLOR G+/B
y=y+1
endif
@ y,(mod(x,16)*4)+7 say chr(x) COLOR GR+/B
x=x+1
enddo
?? SPACE(45)+"Press Esc when done!"
I=0
DO WHILE .T.
IF I=27
EXIT
ENDIF
I=INKEY()
ENDDO
RELE WIND &xWIND
IF mESCA
SET ESCA ON
ENDIF
IF mTALK
SET TALK ON
ENDIF
IF mCURS
SET CURS ON
ENDIF
RETURN
*** End of ASCII.prg
*