← DL-Pascal collection

cov07.log

DOWNLOAD ORIGINAL FILE

=== Section 7: CRT Unit ===

-- Write/WriteLn --
TestWrite start
ABCDEF
  above should be ABCDEF
Dec: 42
Neg: -7
Wid:     42
Zero:   0
Real:   3.1415
Real:   -2.50
Sci:     12345.678
Str:       Hello
Str:  Hi
Char: A
Char: B
Bool: TRUE
Bool: FALSE
x=3 y=4 sum=7
TestWrite done

-- GotoXY/WhereXY --
OK   GotoXY 1,1 X
OK   GotoXY 1,1 Y
OK   GotoXY 5,2 X
OK   GotoXY 5,2 Y
AFAIL WhereX after write
OK   GotoXY invalid X
OK   GotoXY invalid Y

-- Window --
OK   Full win MinX
OK   Full win MinY
OK   Full win MaxX
OK   Full win MaxY
OK   Sub win MinX
OK   Sub win MinY
OK   Sub win MaxX
OK   Sub win MaxY
OK   Win cursor X
OK   Win cursor Y

-- ClrScr/ClrEol --
Line one
Line two
Line thrOK   ClrEol X
OK   ClrEol Y
OK   ClrScr X
OK   ClrScr Y

-- DelLine/InsLine --
Row 1
Row 2
Row 3
Row 4OK   DelLine Y
OK   InsLine Y

-- Cursor --
Cursor off test   Cursor on         
OK   Cursor on/off

-- Sound --
OK   Sound A4
OK   Sound C5
OK   Sound E5
OK   Sound A5
OK   Sound low
OK   Sound scale

-- Timer --
OK   Timer0 fired
OK   Timer0 counted
OK   Timer1 fired
OK   Timer2 not yet
OK   Timers independent
OK   Timer1 done

-- Keyboard --
OK   No key initially
OK   NextKey empty
OK   Still no key
  (ReadKey/Read skipped - interactive)

-- Graphics --
OK   Plot/Point set
OK   Plot/Point clr
OK   Plot invert
OK   Plot re-invert
OK   Point outside
OK   Line pixel mid
OK   Line pixel start
OK   Line pixel end
OK   Line cleared
OK   Display done
Graphics!OK   TextDisplay done

-- Write Formats --
MaxInt: 32767
MinInt: -32768
OK   Str width
Zero real:   0.0000
Small:       0.001000
Large:        99999.9
NegReal:    -3.1400
Char
  above: Char

=== Section 7 complete ===