Article-I.D.: amiga.556
Posted: Thu Jan 16 15:52:41 1986
Date-Received: Sat, 18-Jan-86 08:11:41 EST
Reply-To: bruceb@hunter.UUCP (Bruce Barrett)
Organization: Commodore-Amiga Inc., 983 University Ave #D, Los Gatos CA 95030
Lines: 48
We've gotten several requestes for how to access more than the
typical 77.5 x 23.5 charcter window display from Amiga BASIC.
The following 2 lines will do it.
WINDOW 2,"",,0
WINDOW OUTPUT 2
A program example demostrates (read remarks for more info):
Good luck!, Bruce Barrett
REM ----------------- Cut Here ---------
REM --- Creating a borderless window for 79x24.5 output ----
REM --- Quickly hacked together by Bruce Barrett
REM --- Placed in the public domain. If you can
REM --- get someone to pay for this go ahead.
DEFINT a-Z
' This is the good part! The rest just proves it.
' Note: Name ="", no gadgets selected to take up border space
WINDOW 2,"",,0
' Select new window for "standard output"
WINDOW OUTPUT 2
' Set the REAL window width so wrap works
WIDTH 79
LOCATE 11,1 ' Start in the midle of the screen
' print 79 characters (tens digit)
FOR i = 1 TO 79
PRINT CHR$((INT(i/10) MOD 10) + ASC("0"));
NEXT
' print 85 characters (ones digit) to cause wrap.
FOR i = 1 TO 85
PRINT CHR$((i MOD 10) + ASC("0"));
NEXT
' print 25 lines (well, 24.5) vertically
FOR i = 1 TO 25
LOCATE i,11
PRINT USING "##";i;
NEXT
' pause to let the user see what we did.
LOCATE 18,20 : INPUT "Press to end ",a$
WINDOW CLOSE 2
END
REM ---------- Cut Here ------------