home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_WATCH.OPL < prev    next >
Text File  |  1992-08-27  |  694b  |  37 lines
  1. PROC watch:
  2.     LOCAL k%,s%,se%,mi%
  3.     AT 15,1 :PRINT "Stopwatch"
  4.     AT 10,9 :PRINT "Press a key to start"
  5.     GET
  6.     DO
  7.     CLS :mi%=0:se%=0:s%=SECOND
  8.     AT 10,9 :PRINT "   S=Stop, L=Lap    "
  9.     loop::
  10.     k%=KEY AND $ffdf REM ensures upper case
  11.     IF k%=%S
  12.         GOTO pause::
  13.     ENDIF
  14.     IF k%=%L
  15.         AT 15,5 :PRINT "Lap: ";mi%;":";
  16.         IF se%<10 :PRINT "0"; :ENDIF
  17.         PRINT se%;" ";
  18.     ENDIF
  19.     IF SECOND<>s%
  20.         s%=SECOND :se%=se%+1
  21.         IF se%=60 :se%=0:mi%=mi%+1 :ENDIF
  22.         AT 13,7
  23.         PRINT "Mins",mi%,"Secs",
  24.         IF se%<10 :PRINT "0"; :ENDIF
  25.         PRINT se%;" ";
  26.     ENDIF
  27.     GOTO loop::
  28.     pause::
  29.     mINIT
  30.     mCARD "Watch","Restart",%R,"Zero",%Z,"Exit",%X
  31.     k%=MENU
  32.     IF k%=%r
  33.         GOTO loop::
  34.     ENDIF
  35.     UNTIL k%<>%z
  36. ENDP
  37.