home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_APP0.OPL < prev    next >
Text File  |  1992-08-27  |  479b  |  42 lines
  1. APP myapp0
  2.     TYPE 0
  3.     ICON "\opd\me"
  4. ENDA
  5.  
  6.  
  7.  
  8. PROC start:
  9.     GLOBAL a%(6),k%
  10.     STATUSWIN ON
  11.     SCREEN 30,9,1,1
  12.     gSETWIN 0,0,179,79
  13.   PRINT "Q to Quit"
  14.   PRINT " or press Delete in the"
  15.   PRINT "the System screen"
  16.     DO
  17.         k%=getk%:
  18.         PRINT CHR$(k%);
  19.     UNTIL (k% AND $ffdf)=%Q
  20. ENDP
  21.  
  22.  
  23.  
  24. PROC getk%:
  25.     DO
  26.         GETEVENT a%()
  27.         IF a%(1)=$404
  28.             IF LEFT$(GETCMD$,1)="X"
  29.                 endit:
  30.             ENDIF
  31.         ENDIF
  32.     UNTIL a%(1)<256
  33.     RETURN a%(1)
  34. ENDP
  35.  
  36.  
  37.  
  38. PROC endit:
  39.     STOP
  40. ENDP
  41.  
  42.