Megalextoria
Retro computing and gaming, sci-fi books, tv and movies and other geeky stuff.

Home » Archive » net.micro.amiga » More columns and lines from Amiga BASIC
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Switch to threaded view of this topic Create a new topic Submit Reply
More columns and lines from Amiga BASIC [message #282278] Thu, 16 January 1986 15:52
bruceb is currently offline  bruceb
Messages: 41
Registered: October 1985
Karma: 0
Member
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 ------------
  Switch to threaded view of this topic Create a new topic Submit Reply
Previous Topic: Terminal Emulator
Next Topic: Maxidesk, Deluxe Paint
Goto Forum:
  

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Thu Mar 28 10:39:18 EDT 2024

Total time taken to generate the page: 0.46307 seconds