10 CLS : SCREEN 9 20 REM nummes%=number of measure,mesure%=value of mesure 30 REM xorig%= x axis origin 40 REM vit temporisation nummes% = 1 xorig% = 1 mesure% = 0 PRINT " DISPLAY OF DATA " PRINT " ACQUIRED BY A max 187" PRINT " -----------------------------" PRINT PRINT PRINT "DURING EXECUTION SPEED CAN BE MODIFIED BY < v > OU < l >" PRINT "AND ENDED BY < q >" PRINT "AT THE END PROGRAM CAN BE STOPPED BY < f >" INPUT "SPEED :", vit PRINT PRINT INPUT "DATE OF FILE : ", dat$ nomdefichier$ = "c:\don\" + "do" + dat$ + ".dat" OPEN nomdefichier$ FOR INPUT AS #1 100 REM main loop INPUT "START ", rep$ IF rep$ = "o" OR rep$ = "O" THEN GOTO 130 ELSE GOTO 120 120 CLOSE #1: END 130 GOSUB 200 150 GOSUB 700 170 GOSUB 400 180 GOSUB 500 190 com$ = INKEY$: IF com$ = "q" THEN GOTO 120 191 IF com$ = "v" THEN vit = vit - 100 192 IF com$ = "l" THEN vit = vit + 100 198 GOTO 150 199 END 200 REM graphics CLS LOCATE 3, 30: PRINT "DATE OF MEASURE :", dat$ LOCATE 11, 77: PRINT "4v" LOCATE 25, 77: PRINT "ov" LOCATE 11, 2: PRINT "V" LOCATE 13, 2: PRINT "O" LOCATE 15, 2: PRINT "L" LOCATE 17, 2: PRINT "T" LOCATE 19, 2: PRINT "S" LOCATE 25, 1: PRINT "Time>" RETURN 400 REM read file INPUT #1, nummes%, mesure%, temps$ IF EOF(1) THEN GOSUB 800 RETURN 500 REM draw curve of results xorig% = nummes% - (550 * (INT(nummes% / 550))) IF xorig% = 549 THEN GOSUB 200 LOCATE 3, 10: PRINT "MES:"; nummes%, "VAL:"; mesure%; "mv ", temps$ LINE (xorig% + 50, 350)-(xorig% + 50, 350 - (mesure% / 17)), 10 RETURN 700 REM tempo FOR x = 0 TO vit NEXT x RETURN 800 REM stop display stop$ = INKEY$ IF stop$ = "f" THEN GOTO 120 GOTO 800