From: Chris Shuffett
I recently switched PCs and installed TSE v2.80b. I am running Win 95 and =
my config.sys file reads:
DEVICE=3DC:=5CWINDOWS=5CHIMEM.SYS
DEVICE=3DC:=5CWINDOWS=5CEMM386.EXE NOEMS
SHELL=3DC:=5CCOMMAND.COM C:=5C /P /E:1536
DOS=3DHIGH,UMB
BUFFERS=3D40,0
FILES=3D50
I created a MS-DOS program .pif file in the =5CTSE32 directory and created =
a shortcut for it in the desktop folder. I invoke the editor from the =
Office toolbar. I have set my screen resolution at 800 x 600 pixels. I =
run in a normal window with both font types. Initial font size is 5 x 12 =
which allows two 80 column editor windows to fit side by side with minimal =
overlap. Initial size 43 lines, usage window, restore settings on =
startup.
My first problem was that I was getting out of memory errors when I would =
try to invoke the editor multiple times. The problem was sporadic. =
Eventually I solved it by changing the initial environment from Auto to =
1536.
My next problem was in running one of my games. I have created a =
demonstration program to analyze the problem.
forward
proc banner()
forward
proc graphics_demo()
proc main()
integer mode =3D Query(CurrVideoMode) // Save the video mode
banner()
// Save the banner page
PopWinOpen(1, 1, Query(ScreenCols), Query(ScreenRows), 1, =22=22, 0)
if mode _25_lines_
Set(CurrVideoMode, _25_lines_)
endif
graphics_demo() // Display video demonstration
if mode _25_lines_
Set(CurrVideoMode, mode) // Restore video mode
endif
PopWinClose() // Restore banner page
delay(50)
UpdateDisplay(_ALL_WINDOWS_REFRESH_) // Redraw the screen
end
proc banner() // Create wallpaper and title box
integer sub1 =3D 1
,last_line =3D Query(ScreenRows)
while not(sub1 > last_line)
VGotoXY(1, sub1)
Putstr(Format(=22=22 : 80 : =22=A4=22))
sub1 =3D sub1 + 1
endwhile
sub1 =3D last_line / 2 - 1
while not(sub1 > last_line / 2 + 4)
VGotoXY(25, sub1)
Putstr(Format(=22=22 : 30))
sub1 =3D sub1 + 1
endwhile
VGotoXY(31, last_line / 2 + 1)
Putstr(=22TSE 2.8 Video Test=22)
delay(50)
end
proc graphics_demo()
ClrScr() // Show first and last line
VGotoXY(1, 1)
Putstr(=22This is line 1=22)
VGotoXY(1, 25)
Putstr(=22This is line 25=22)
delay(50)
ClrScr() // All lines should be cleared
VGotoXY(31, 13)
Putstr(=22Screen Cleared=22)
delay(50)
end
The first execution fails to restore the banner page. The next time fails =
to restore the banner page and to restore 43 line mode. The next time =
puts line 1 on line 2 and fails to erase line 25. Then if I change the =
video mode back to 43 lines and try to switch to full screen I get the =
message =22This program must be run in a Window, not in a full screen. =
Your display does not support the screen size currently set by the =
program.=22 Then if I shell to DOS I can switch to full screen and =
restore the 43 line editor session. I am able to create other video =
problems by experimenting with the video commands in this way but I think =
that this description is sufficient for isolating the problems.
The demonstration program performs correctly under TSE 2.0. From my =
experience, I recommend not maximizing the editor=27s Window and experiment=
ing with the restore settings on startup flag for best customization =
results.
---
---------------
* Origin: apana>>>>>fidonet [sawasdi.apana.org.au] (3:800/846.13)
|