home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 3
/
PDCD_3.iso
/
pocketbk
/
developmen
/
oplexamp
/
EX_APP0.OPL
< prev
next >
Wrap
Text File
|
1992-08-27
|
479b
|
42 lines
APP myapp0
TYPE 0
ICON "\opd\me"
ENDA
PROC start:
GLOBAL a%(6),k%
STATUSWIN ON
SCREEN 30,9,1,1
gSETWIN 0,0,179,79
PRINT "Q to Quit"
PRINT " or press Delete in the"
PRINT "the System screen"
DO
k%=getk%:
PRINT CHR$(k%);
UNTIL (k% AND $ffdf)=%Q
ENDP
PROC getk%:
DO
GETEVENT a%()
IF a%(1)=$404
IF LEFT$(GETCMD$,1)="X"
endit:
ENDIF
ENDIF
UNTIL a%(1)<256
RETURN a%(1)
ENDP
PROC endit:
STOP
ENDP