home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / wave / watch_opl < prev    next >
Text File  |  1994-10-13  |  671b  |  38 lines
  1. watch:
  2. LOCAL K$(1),S%,SE%,MI%
  3. POKEB $007C,0
  4. CLS :PRINT "S=STOP, L=LAP" :PRINT "Press any key...";
  5. GET :CLS
  6. zero::
  7. MI%=0 :SE%=0 :S%=SECOND
  8. loop::
  9. K$=KEY$
  10. IF UPPER$(K$)="S"
  11. GOTO pause::
  12. ENDIF
  13. IF UPPER$(K$)="L"
  14. AT 1,2 :PRINT "LAP: ";MI%;":";
  15. IF SE%<10 :PRINT "0"; :ENDIF
  16. PRINT SE%;" ";
  17. ENDIF
  18. IF SECOND<>S%
  19. S%=SECOND :SE%=SE%+1
  20. IF SE%=60 :SE%=0 :MI%=MI%+1 :ENDIF
  21. PRINT CHR$(14);MI%," mins";" ";
  22. IF SE%<10 :PRINT "0"; :ENDIF
  23. PRINT SE%;" secs";
  24. ENDIF
  25. GOTO loop::
  26. pause::
  27. PRINT CHR$(15)+"Restart/Zero/End";
  28. K$=UPPER$(GET$)
  29. PRINT CHR$(15);
  30. IF K$="R"
  31. GOTO loop::
  32. ELSEIF K$="Z"
  33. CLS :GOTO zero::
  34. ELSEIF K$<>"E"
  35. GOTO pause::
  36. ENDIF
  37. POKEB $007C,5
  38.