5 rem set the computer to 7 MHZ! MSXHans 2001 10 DEFINT A-Z 20 KEY OFF 30 COLOR 15,0,0 40 WIDTH 20 50 CLS 60 INTERVAL ON 70 J= 0:M=0:S=0 80 LOCATE 7,10:FOR I=1 TO 12:PRINTCHR$(&HDB);:NEXT 90 LOCATE 7,14: FOR I=1 TO 12:PRINTCHR$(&HDB);:NEXT 100 LOCATE 7,11: PRINTCHR$(&HDB); 110 LOCATE 7,12: PRINTCHR$(&HDB); 120 LOCATE 7,13: PRINTCHR$(&HDB); 130 LOCATE18,11: PRINTCHR$(&HDB); 140 LOCATE18,12: PRINTCHR$(&HDB); 150 LOCATE18,13: PRINTCHR$(&HDB); 160 SET VIDEO 2,1 170 OUT &HF6,&B11011111 180 OUT &HF7,&B10111111 185 A$=INKEY$ 186 IF A$<>"s" AND A$<>"S" GOTO 185 190 ON INTERVAL=1 GOSUB 220 200 ON STOP GOSUB 270: STOP ON 210 GOTO 210 220 LOCATE 9,12:PRINT USING"##:##:##";M,S,J 230 J=J+1 240 IFJ=50THENJ=0:S=S+1 250 IFS=60THENS=0:M=M+1 260 RETURN 270 SET VIDEO 0 280 INTERVAL OFF 290 OUT &HF6,&HFF 300 OUT &HF7,&HFF 310 COLOR 15,4,4:CLS:WIDTH 40 320 END