Stopwatch for the Apple II

>LIST

  5 REM           "STOPWATCH"
  6 REM            ^^^^^^^^^
  7 REM
  8 REM        BY BOB HUELSDONK &
  9 REM            VAL GOLDING
 10 REM
 11 REM    APPLE PUGETSOUND PROGRAM
 12 REM        LIBRARY EXCHANGE
 13 REM
 14 REM        6708 39TH AVE. SW
 15 REM        SEATTLE, WA.  98136
 16 REM
 17 REM           FEB 12, 1978
 18 REM
 50 GOTO 100
 60 X= PEEK (-16384): IF X>127 THEN 300: POKE -16368.0: RETURN

 70 PRINT : TAB 15: RETURN
 80 VTAB 16: GOSUB 70: RETURN
 90 PRINT "0";: RETURN
100 TEXT : CALL -936: VTAB 4
110 PRINT "THIS PROGRAM FUNCTIONS AS EITHER A": PRINT "REAL TIME CLO
    CK OR STOPWATCH"
120 PRINT : PRINT " FOR STOP WATCH FUNCTION, ": PRINT "ENTER ALL TIME
    S AS ZERO"
130 PRINT : PRINT "TO FREEZE TIME, HIT RETURN": PRINT : PRINT "AFTER
    A BRIEF PAUSE, ELAPSED TIME WILL BE DISPLAYED"
140 GOSUB 80: PRINT "HRS:MIN:SEC"
150 GOSUB 70: PRINT "HOURS": INPUT H
170 GOSUB 70: PRINT "MINUTES": INPUT M
180 GOSUB 70: PRINT "SECONDS": INPUT S
190 CALL -936: POKE 37,23: POKE 34,22
200 TAB 15: PRINT H;":";: IF M<10 THEN GOSUB 90: PRINT M;":";: IF
    S<10 THEN GOSUB 90: PRINT S
210 REM ADJUST MAXIMUM VALUE OF I          70 VARY CLOCK SPEED
220 FOR I=1 TO 640: NEXT I: GOSUB 60
230 ES=ES+1: IF ES>59 THEN 240: GOTO 260
240 EM=EM+1:ES=0: IF EM>59 THEN 250: GOTO 260
250 EH=EH+1:EM=0
260 S=S+1: IF S>59 THEN 270: GOTO 200
270 M=M+1:S=0: IF M>59 THEN 270: GOTO 200
280 H=H+1:M=0: IF H>12 THEN H=1: GOTO 200
300 PRINT H:":";: IF M<10 THEN GOSUB 90: PRINT M;";";: IF S<10 THEN
    GOSUB 90: PRINT S:
310 FOR I=1 TO 12000: NEXT I
320 TEXT : CALL -936: VTAB 4: PRINT "TO RESET TIME, TYPE 'RUN'."

330 VTAB 8: TAB 4: PRINT "ELAPSED TIME ";
350 PRINT EH;":";: IF EM<10 THEN GOSUB 90: PRINT EM;":";: IF ES<
    10 THEN GOSUB 90: PRINT ES
360 END

>PR#0

Computer Type: 
Manufacturer: