equal
deleted
inserted
replaced
29 |
29 |
30 implementation |
30 implementation |
31 uses Types, uVariables, uUtils; |
31 uses Types, uVariables, uUtils; |
32 |
32 |
33 const cLineWidth: LongInt = 0; |
33 const cLineWidth: LongInt = 0; |
34 cLinesCount = 256; |
34 cLinesCount = 8; |
35 |
35 |
36 type |
36 type |
37 TTextLine = record |
37 TTextLine = record |
38 s: shortstring; |
38 s: shortstring; |
39 end; |
39 end; |
50 procedure WriteToConsole(s: shortstring); |
50 procedure WriteToConsole(s: shortstring); |
51 var Len: LongInt; |
51 var Len: LongInt; |
52 done: boolean; |
52 done: boolean; |
53 begin |
53 begin |
54 {$IFNDEF NOCONSOLE} |
54 {$IFNDEF NOCONSOLE} |
55 {$IFDEF DEBUGFILE}AddFileLog('Console write: ' + s);{$ENDIF} |
55 {$IFDEF DEBUGFILE}AddFileLog('[Con] ' + s);{$ENDIF} |
56 Write(s); |
56 Write(s); |
57 done:= false; |
57 done:= false; |
58 |
58 |
59 while not done do |
59 while not done do |
60 begin |
60 begin |