Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site amiga.amiga.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!bellcore!decvax!decwrl!pyramid!amiga!bruceb
From: bruceb@amiga.UUCP (Bruce Barrett)
Newsgroups: net.micro.amiga
Subject: More columns and lines from Amiga BASIC
Message-ID: <556@amiga.amiga.UUCP>
Date: Thu, 16-Jan-86 15:52:41 EST
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 <Return> to end ",a$
WINDOW CLOSE  2
END
     
REM ---------- Cut Here ------------