KEY OFF: SCREEN 0, 0, 0: CLS 15 DIM B$(80) COLOR 0, 15 A = VAL(MID$(TIME$, 7, 2)) as1: B = VAL(MID$(TIME$, 7, 2)) IF B = A THEN GOTO as1 A = VAL(MID$(TIME$, 7, 2)) ass2: B = VAL(MID$(TIME$, 7, 2)) X = X + 1 IF B = A THEN GOTO ass2 COLOR 7, 0: CLS cent = INT(X / 100): c80 = cent * 80 17 TP = VAL(MID$(TIME$, 8, 1)) 18 COLOR 0, 15 20 A = VAL(MID$(TIME$, 7, 2)) 30 B = VAL(MID$(TIME$, 7, 2)) 40 IF B = A THEN 30 45 ON TP GOTO 1000, 1000, 100, 100, 1000, 1000, 100, 1000, 100, 100 100 A$ = INKEY$: IF A$ <> "" THEN X = 0: GOTO 150 120 SOUND 800, 2: 130 A$ = INKEY$ 140 IF A$ = "" THEN X = X + 1: IF X < c80 THEN 130 150 IF X = 0 THEN X = 10: ER = ER + 1: T = T + 1: B$(T) = " Anti ": GOTO 205 160 X = X / cent: X = INT((X * 100) + .5) / 100: X$ = STR$(X): X$ = LEFT$(X$, 6) 170 IF X > 60 THEN OVER = OVER + 1: X$ = " Over ": GOTO 200 175 IF A$ = "s" OR A$ = "S" THEN 180 ELSE ERP = ERP + 1: X$ = X$ + " Err Pig": GOTO 200 180 OK1 = OK1 + 1 190 TOT = TOT + X 200 T = T + 1: B$(T) = "S" + X$: IF OK1 = 10 AND OK >= 10 THEN 5000 205 A = INT(100000! * RND) + X * cent 210 FOR N = 0 TO A: NEXT 214 X = 0: A$ = "" 215 TP = INT(RND * VAL(MID$(TIME$, 8, 1))) + 1 220 A = VAL(MID$(TIME$, 7, 2)) 230 B = VAL(MID$(TIME$, 7, 2)) 240 IF B = A THEN 230 250 ON TP GOTO 1000, 100, 100, 1000, 100, 100, 1000, 100, 1000, 100 1000 A$ = INKEY$: IF A$ <> "" THEN X = 0: GOTO 1050 1020 CLS 1030 A$ = INKEY$ 1040 IF A$ = "" THEN X = X + 1: IF X < c80 THEN 1030 1050 IF X = 0 THEN X = 10: ER = ER + 1: T = T + 1: B$(T) = " Anti ": GOTO 1098 1060 X = X / cent: X = INT((X * 100) + .5) / 100: X$ = STR$(X): X$ = LEFT$(X$, 6) 1070 IF X > 60 THEN OVER = OVER + 1: X$ = " Over ": GOTO 1095 1075 IF A$ = "l" OR A$ = "L" THEN 1080 ELSE ERP = ERP + 1: X$ = X$ + " Err Pig": GOTO 1095 1080 OK = OK + 1 1090 TOT = TOT + X 1095 T = T + 1: B$(T) = "L" + X$: IF OK = 10 AND OK1 >= 10 THEN 5000 1098 COLOR 7, 0: CLS : COLOR 0, 15 1100 A = INT(63000! * RND) + X * 1000 1110 FOR N = 0 TO A: NEXT 1115 X = 0: A$ = "" 1118 TP = INT(RND * 10) + 1 1120 A = VAL(MID$(TIME$, 7, 2)) 1130 B = VAL(MID$(TIME$, 7, 2)) 1140 IF B = A THEN 1130 1150 ON TP GOTO 1000, 100, 1000, 100, 100, 1000, 100, 1000, 100, 100 5000 COLOR 7, 0: CLS : PRINT 5001 FOR N = 1 TO T: IF N / 2 - INT(N / 2) > 0 THEN LOCATE , 18: PRINT B$(N) ELSE PRINT B$(N), 5002 'IF LEN(B$(N)) > 7 THEN 5012 5004 IF LEFT$(B$(N), 1) = "S" THEN TS = TS + VAL(MID$(B$(N), 3, 5)) 5005 IF LEFT$(B$(N), 1) = "L" THEN TL = TL + VAL(MID$(B$(N), 3, 5)) 5012 NEXT 5014 TS = TS / OK1: TL = TL / OK: MEDS = INT((TS * 10) + .5) / 10: MEDL = INT((TL * 10) + .5) / 10 5015 OK2 = OK + OK1: TOT = TOT / OK2: MEDIA = INT((TOT * 10) + .5) / 10 5020 LOCATE 2, 40: PRINT "MEDIA DI "; MEDIA; " CENT. DI SEC." 5030 LOCATE 3, 40: PRINT "CON "; OVER; " FUORI TEMPO" 5035 IF OVER = 0 THEN LOCATE 3, 40: PRINT "CON NEMMENO UN FUORI TEMPO": GOTO 5040 5040 IF ER = 0 THEN LOCATE 4, 40: PRINT "CON NEMMENO UN ANTICIPO DI PIGIATA": GOTO 5055 5050 LOCATE 4, 40: PRINT "CON "; ER; " ANTICIPO DI PIGIATA" 5055 IF ERP = 0 THEN LOCATE 5, 40: PRINT "E NESSUNA INVERSIONE DI PIGIATA": GOTO 5070 5060 LOCATE 5, 40: PRINT "E "; ERP; " INVERSIONE DI PIGIATA" 5070 LOCATE 6, 40: PRINT "media eventi sonori "; MEDS 5080 LOCATE 7, 40: PRINT "media eventi luminosi "; MEDL 5090 LOCATE 8, 40: PRINT "ev. sonori ok = "; OK1: LOCATE 9, 40: PRINT "ev. luminosi ok = "; OK 5100 LOCATE 22, 40: END