Вывод информации на экран осуществляет программа CGAVISU.BAS или VGAVISU.BAS. Вторая из них применяется, если желательно воспользоваться большим разрешением, соответствующим экранам VGA.

500 REM ----CGAVISU----
510 OPEN "dat.dat" FOR INPUT AS #1
520 INPUT#l,Y:Y=199-INT(Y*199/5)
530 PSET(0,Y)
540 FOR X=1 TO 639
550 INPUT#l,Y:Y=199-INT(Y*199/5)
560 LINE -(X,Y)
570 NEXT X
580 CLOSE
590 REM (c)1997 Patrick GUEULLE
500 REM ----VGAVISU----
510 OPEN "dat.dat" FOR INPUT AS #1
520 INPUT#l,Y:Y=349-INT(Y*349/5)
530 PSET(0,Y)
540 FOR X=1 TO 639
550 INPUT#l,Y:Y=349-INT(Y*349/5)
560 LINE -(X,Y)
570 NEXT X
580 CLOSE
590 REM (c)1997 Patrick GUEULLE

Очевидно, каждую из программ надо объединить с экранным драйвером CGA.BAS или VGA.BAS, соответствующим используемому оборудованию.

300 REM ----CGA----
310 SCREEN 2
320 KEYOFF:CLS
330 LINE(0,0)-(0,199)
340 FOR Y=0 TO 199 STEP 20
350 LINE(0,Y)-(639,Y),,,&HCCCC
360 NEXT Y
370 FOR X=0 TO 639 STEP 32
380 LINE(X,0)-(X,199),,,&HCCCC
390 NEXT X
400 LINE(639,0)-(639,199)
410 LINE(0,199)-(639,199),,,&HCCCC
420 REM (c)1997 Patrick GUEULLE
300 REM --—-VGA----
310 SCREEN 9
320 KEY OFF:CLS
330 LINE(0,0)-(0,349)
340 FOR Y=0 TO 349 STEP 35
350 LINE(0,Y)-(639,Y),,,&HCCCC
360 NEXT Y
370 FOR X=0 TO 639 STEP 32
380 LINE(X,0)-(X,349),,,&НСССС
390 NEXT X
400 LINE(639,0)-{639,349)
410 LINE(0,349}-(639,349),,,&HCCCC
420 REM (c)1997 Patrick GUEULLE

Это объединение можно сделать следующим образом:

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32

Измеритильные приборы, 2010