|
te0# = TIMER GOSUB testo ch% = 0 ch1% = 0 ch2% = 0 in% = 0 coin% = 0 fin% = 15 tecon# = 0 DO WHILE ch% = 0 tempo# = TIMER IF ch1% = 0 THEN t0# = tempo# END IF t$ = INKEY$ IF t$ = "s" OR t$ = "S" THEN ch% = 1 'USCITA IF t$ = "a" OR t$ = "A" THEN ch1% = 1 'AVVIO IF t$ = "d" OR t$ = "D" THEN ch1% = 0 'STOP CRONOMETRO IF t$ = "f" OR t$ = "F" THEN ch2% = 1 'INTERTEMPO (STOP) IF t$ = "g" OR t$ = "G" THEN ch2% = 2 'PAUSA CRONO IF ch2% = 2 THEN ch2% = 0 ch1% = 0 tecon# = tecon# + tempo# - t0# END IF IF ch1% = 1 THEN tx# = tecon# + tempo# - t0# ri% = 7 co% = 2 GOSUB tempo IF ch2% = 1 THEN ch2% = 0 in% = in% + 1 coin% = coin% + 1 IF coin% > fin% THEN coin% = 1 GOSUB testo END IF co% = 7 ri% = 7 + coin% GOSUB tempo LOCATE 7 + coin%, 1 PRINT in%; "ø"; END IF END IF dt# = tempo# - te0# IF dt# > 100 THEN ch% = 2 ri% = 2 co% = 1 tx# = tempo# GOSUB tempo LOOP END tempo: h& = INT(tx# / 3600) m& = INT((tx# - h& * 3600) / 60) s! = tx# - h& * 3600 - m& * 60 se! = FIX(s! * 100) / 100 LOCATE ri%, co% PRINT h&; m&; se! RETURN testo: CLS LOCATE 2, 20 PRINT "Ora" LOCATE 7, 20 PRINT "Cronometro" LOCATE 2, 50 PRINT "a = avvio" LOCATE 3, 50 PRINT "s = uscita" LOCATE 4, 50 PRINT "d = stop al conteggoio" LOCATE 5, 50 PRINT "f = intertempo" LOCATE 6, 50 PRINT "g = pausa" RETURN
|
|
