TweetFollow Us on Twitter

Printing Techniques 1
Volume Number:1
Issue Number:8
Column Tag:Basic School

"Printing Techniques"

By Dave Kelly, Hybrids Engineer, Hughes Aircraft Co., MacTutor Editorial Board

This month's column features a guide to printing on the Macintosh. The ability of the Macintosh to make our documents look good is one of the things that attracted me to the Mac. There are some choices to make when printing via Microsoft BASIC.

MSBASIC PRINTING

MSBASIC offers the following commands for printing:

BASIC PRINT COMMANDS

LCOPY - Sends a copy of screen to the printer just like command shift-4. (standard quality)

LIST,filename - see below for valid filenames.

LLIST - same as LIST,filename when filename = "LPT1:DIRECT" see more below.

LPOS - gives the position of the print head (not necessarily the physical position).

LPRINT - works just like PRINT except it prints to the printer instead of the screen. Draft quality.

LPRINT USING - works just like PRINT USING except it prints to the printer instead of the screen. Draft quality

OPEN # / CLOSE # - output to printer is specified by the filespec. Used the same as in storing files to a sequential file.

PRINT # - use with OPEN and CLOSE. Same as output to a sequential file.

PRINT # USING - use with OPEN and CLOSE. Same as output to a sequential file.

WIDTH # - used to set the line width size and print-zone parameters (similar to tab stops) for the printer.

WIDTH output-device - same as WIDTH #

WIDTH LPRINT - same as WIDTH #

WINDOW OUTPUT # - allows the printer to print subsequent graphics as determined by subsequent graphics statements such as CIRCLE, PSET, PICTURE, and calls to the Macintosh ROM routines. See sample program.

WRITE # - use with OPEN and CLOSE. Same as output to a sequential file.

The filespec, output-device, or filename may be one of the following:

"LPT1:" - All data written to a file opened to this output-device will be directed to the lineprinter. Prints in standard quality and issues a printer form feed when done. Supports graphics.

"LPT1:DIRECT" - When this is used, BASIC sends data to the printer as ASCII characters. The printer will respond to all normal printer codes just as it would connected to some other computer. Prints draft quality with no form feed. Fastest way to print. No graphics.

"LPT1:PROMPT" - This calls the standard page setup and printer quality dialog boxes and allows you to choose and quality of printing. Also allows 50% reduction if you have the new imagewriter driver installed. There is no known way to print high quality without using this output-device. Perhaps there is a way to call the imagewriter driver directly?? Graphics is supported only when High and Standard quality print is selected.

Now the decision is up to you. MSBASIC supplies the tools to print just about anything that can be printed to the screen. When the file-spec is set to one of the modes that supports graphics, (LPT1: or LPT1:PROMPT) whatever font has been specified with the TEXTFONT and other related commands will appear in the proper font as expected. When printing in draft quality modes, graphics is not supported and the font used is the one built in to the printer. One thing missing is the ability to output high quality printing without having to go through the dialogs. There may be a way to call the imagewriter driver directly to do this, but I haven't discovered how to do that yet.

It should be noted that the TAB and SPC functions may only be used with PRINT and LPRINT. This should not be much of a problem though.

The program below demonstrates how to print graphics created within a MSBASIC program. The "LPT1:PROMPT" output- device specification is used. This allows you to print with any quality of printing. The program uses the PICTURE statement to create a sine wave drawing. The menu lets you print on the screen or the printer or do a screen dump using the LCOPY statement. The WINDOW OUTPUT # statement is used to send graphics output to the printer. The WINDOW OUTPUT # statement saves graphics commands and sends them to the printer when the output file is closed. In this program I have used the ROM functions PAINTOVAL, ERASEOVAL, and FRAMEOVAL to draw a sinewave either on the screen or on the printer. The ROM functions are well documented in the MSBASIC 2.0 manual.

NOTE THAT THIS ROUTINE DOES NOT WORK WITH THE LASER PRINTER. MACTUTOR WILL PAY $50 TO THE FIRST ARTICLE SUBMISSON THAT EITHER MAKES THIS PROGRAM WORK ON THE LASER OR GIVES A WELL DOCUMENTED ACCOUNT OF WHY IT DOESN'T.

MACBASIC PRINTING

The Macintosh BASIC Handbook, by Thomas Blackadar and Jonathan Kamin makes no reference printing graphics on the printer. Apparently Apple has spent alot of time trying to develop MacBASIC as an "educational" tool and hasn't developed all the features to make it into a serious development language. According to this book, and few other "pre-mature" books that are out, the TOOLBOX function will not even be documented in the initial release of MacBASIC. The TOOLBOX includes the means of creating windows, menus, and other Mac controls. Printing is limited to draft quality via a file aparameter named .PRINTER. The fancy features of MacBASIC only apply to the Mac screen.

'        Sine Wave
'      by Dave Kelly
'  ©MACTUTOR 1985

MENU 1,0,1,"File"
MENU 1,1,1,"Quit"
MENU 5,0,0,""
MENU 4,0,0,""
MENU 3,0,0,""
MENU 2,0,0,""
ON MENU GOSUB premenu: MENU ON
WINDOW OUTPUT 1
period=70: amplitude=70
phase=0: offset=120
pi=3.141592654#: w=(2*pi)/period
CLS:PRINT" Please wait while picture data    is being recorded (approx 
25 sec.)"
PICTURE ON
FOR x=10 TO 525

' Sine wave equation
y=offset+amplitude*SIN((w*x)+phase)

'Set up parameters for PAINTOVAL
rectangle%(0)=y-19: rectangle%(1)=x-19
rectangle%(2)=y: rectangle%(3)=x
PAINTOVAL(VARPTR(rectangle%(0)))

'Setup parameters for ERASEOVAL
rectangle%(2)=y-2: rectangle%(3)=x-2
ERASEOVAL(VARPTR(rectangle%(0)))

'Setup parameters for FRAMEOVAL
rectangle%(0)=y-20: rectangle%(1)=x-20
rectangle%(2)=y-1: rectangle%(3)=x-1
FRAMEOVAL(VARPTR(rectangle%(0)))
NEXT x
PICTURE OFF:MENU OFF

'Setup menus
MENU 2,0,1,"Print Sine Wave"
MENU 2,1,1,"On Screen"
MENU 2,2,1,"On Printer"
MENU 2,3,1,"Screen Dump"

ON MENU GOSUB menuselect:MENU ON
CLS: PRINT"Make your    ^ ^ ^ ^ ^ ^ ^ ^ ^          selection from this 
menu"
loop: GOTO loop

premenu: 
menunumber=MENU(0):MENU
IF menunumber=1 THEN PICTURE  OFF: GOTO quit
RETURN

menuselect:
menunumber=MENU(0):MENU
IF menunumber =1 THEN quit
IF menunumber<>2 THEN RETURN
menuitem=MENU(1)

'Print graphics on Screen
IF menuitem=1 THEN CLS:GOSUB  printpic:RETURN

'Screen dump
' Note that LCOPY does not work with
' laser printers. Anybody  know why?
IF menuitem=3 THEN CLS:GOSUB  printpic:LCOPY:RETURN

'Print graphics on printer
' Note that this does not work with laser
' printers. Anybody know why?
OPEN "LPT1:PROMPT" FOR OUTPUT AS #1
WINDOW OUTPUT #1
GOSUB printpic
CLOSE #1
RETURN

printpic:
MENU 1,0,0:MENU 2,0,0
PICTURE(2,40)-(510,340),PICTURE$
MENU 1,0,1:MENU 2,0,1
RETURN

quit:
CLS:MENU RESET:END

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Can PokeMatch help you find love with Po...
The unofficial Pokemon GO companion app space has exploded almost as fast as the game itself over the last few weeks. Aspiring app developers, many of them working solo, have given us apps that locate Pokemon, keep track of the server status, and... | Read more »
How to get started with Prisma
If there's one thing people like to do more than taking pictures with their smartphones, it's tinkering with those photos in some way. Numerous apps have sprung up over the last several years that allow you to use filters and special effects to... | Read more »
6 Pokemon GO updates you can expect, acc...
Pokemon GO had a scheduled appearance at this year's San Diego Comic-Con for a while, but it was only relatively close to the show that it was upgraded to a spot in Hall H. That's the biggest venue at SDCC, one usually reserved for the largest... | Read more »
How to evolve Eevee in Pokemon GO
By now, almost everyone should be hip to how to evolve Pokemon in Pokemon GO (and if not, there's a guide for that). Just gather enough candy of the appropriate type, feed them all to the Pokemon, and evolution happens. It's a miracle that would... | Read more »
CSR Racing 2: Guide to all game modes
It might not seem like there are all that many ways to go fast in a straight line, but CSR Racing 2 begs to differ. [Read more] | Read more »
Bulb Boy (Games)
Bulb Boy 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Multi-award winning 2D point & click horror adventure about a boy with a glowing head. | Read more »
5 top free emoji keyboard apps
If we're not at peak emoji yet as a society, it feels like we definitely should be. The emoji concept has gone far beyond what anyone in Japan could have envisioned when the people there unleashed it on an unsuspecting world, but the West has... | Read more »
How to unlock more characters in Disney...
One of the big charms of Disney Emoji Blitz is seeing a wide variety of beloved Disney and Pixar characters transformed into smiling emojis. Even someone like the sneaky Randall from Monsters Inc., who probably never cracked a smile on film, is... | Read more »
Cubway (Games)
Cubway 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Cubway is a journey with an abstract story of lifecycle of rebirth, called Samsara. Guide the cube through the long way full of dangers... | Read more »
Colorcube (Games)
Colorcube 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Turn pieces and blend colours in this minimal yet visually stunning puzzler.Over 200 handcrafted and challenging levels. Features... | Read more »

Price Scanner via MacPrices.net

Clearance 12-inch Retina MacBooks, Apple refu...
Apple has Certified Refurbished 2015 12″ Retina MacBooks available starting at $929. Apple will include a standard one-year warranty with each MacBook, and shipping is free. The following... Read more
13-inch Retina MacBook Pros on sale for up to...
B&H Photo has 13″ Retina MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1199 $100 off MSRP - 13″ 2.7GHz/... Read more
13-inch 1.6GHz/128GB MacBook Air on sale for...
Amazon has the 13″ 1.6GHz/128GB MacBook Air on sale for $200 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $799.99 $200 off MSRP Their price is the... Read more
13-inch 1.6GHz/256GB MacBook Air on sale for...
Amazon has the 13″ 1.6GHz/256GB MacBook Air on sale for $200 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/256GB MacBook Air (sku MMGG2LL/A): $999.99 $200 off MSRP Their price is the... Read more
Free iOS Business App notably* Helps Service...
PayStudio Inc. has introduced their new business app notably* 1.0, developed for iPhone and iPod touch. notably* was specifically developed to help service and trade professionals go digital and... Read more
27-inch iMacs on sale for $200 off MSRP
Amazon has 27″ iMacs on sale for $200 off MSRP including free shipping: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1799.99 $200 off MSRP - 27″ 3.2GHz/1TB HD iMac 5K... Read more
Mac Pros on sale for $200 off MSRP
B&H Photo has Mac Pros on sale for $200 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3799, $200... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
13-inch 2.5GHz MacBook Pro (Apple refurbished...
Apple has Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros... Read more

Jobs Board

*Apple* Retail - Multiple Positions, Willow...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Evangelist - JAMF Software (United S...
The Apple Evangelist is responsible for building and cultivating strategic relationships with Apple 's small and mid-market business development field teams. This Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Professional Learning Specialist - A...
Job Summary The Apple Professional Learning Specialist is a full-time position for one year with Apple in the Phoenix, AZ area. This position requires a high Read more
*Apple* Picker - Apple Hill Orchard (United...
Apple Hill Orchard, Co. Rte. 21,Whitehall, NY 9/7/16-10/228/16. Pick fresh market or processing apples Productivity of 60 boxes and 80 boxes processing fruit per Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.