Nachdem wir nun Beispiele mit Zahlen, Datum und Währung erlernt haben, folgt nun eine Stopp-Uhr, welche sogar ein ganz simples, kleines Menü mit enthält.
 

Neuer Befehl

Neu kommt  der ZEIT-Befehl SECOND zur Anwendung.
Für die Menü-Anzeige ist der Abschnitt mit dem Befehl mCARD (und den Variablen) massgebend.

Der Code (dieses Beispiel besteht nur aus einer Prozedur):

INCLUDE "APPFRAME.OXH"
INCLUDE "CONST.OPH"

PROC watch:
LOCAL k%,s%,se%,mi%
FONT 12,16
gAT 320,80
gPRINT "Stoppuhr"
gAT 320,120
gPRINT "Mit beliebiger Taste starten"
GET
   DO
   CLS :mi%=0:se%=0:s%=SECOND
   AT 15,8
   PRINT " S=Stop, L=Lap "
   loop::
   k%=KEY AND $ffdf
   IF k%=%S
   GOTO pause::
   ENDIF
   IF k%=%L
   AT 20,3 :PRINT "Lap: ";mi%;":";
   IF se%<10 :PRINT "0"; :ENDIF
   PRINT se%;" ";
   ENDIF
   IF SECOND<>s%
   s%=SECOND :se%=se%+1
   IF se%=60 :se%=0:mi%=mi%+1 :ENDIF
   AT 17,5
   PRINT "Min.",mi%,"Sek.",
   IF se%<10 :PRINT "0"; :ENDIF
   PRINT se%;" ";
   ENDIF
   GOTO loop::
   pause::
   mINIT
   mCARD "Stoppuhr","Weiter",%r,"Neu",%z,"Ende",%x
   k%=MENU
   IF k%=%r
   GOTO loop::
   ENDIF
   UNTIL k%<>%z
ENDP