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

Grab it now: Game Craft’s Legend of War...
The real time strategy game is now available for you to sink your teeth into, through the App Store and Google Play. Combining elements of skill, strategy and empire building, Legend of War is a real gamers’ game. [Read more] | Read more »
Skateboard Party 3 ft. Greg Lutzka (Gam...
Skateboard Party 3 ft. Greg Lutzka 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Skateboard Party is back! This third edition of the popular sports franchise features professional skater... | Read more »
Cubious (Games)
Cubious 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Cubious – How smart are you? How high is your IQube? Solve the impossible puzzles to find out, and help a lost little cube find his... | Read more »
Goat Simulator Waste of Space (Games)
Goat Simulator Waste of Space 1.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.1 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICESiPhone 4S, iPad 2, iPod Touch 5 or better.** | Read more »
Wildfulness - Unwind in nature and calm...
Wildfulness - Unwind in nature and calm your mind with nature sounds and illustrations 1.0 Device: iOS Universal Category: Healthcare & Fitness Price: $1.99, Version: 1.0 (iTunes) Description: Spending time in nature helps you to... | Read more »
Dr. Panda Racers (Education)
Dr. Panda Racers 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: STEP ON THE GAS, RACE AND WIN!Fasten your seat belts and get ready to race! Speed your way to the finish line while doing... | Read more »
ROMANCING SAGA 2 (Games)
ROMANCING SAGA 2 1.0.0 Device: iOS Universal Category: Games Price: $17.99, Version: 1.0.0 (iTunes) Description: Romancing SaGa 2, originally released only in Japan in 1993, has been completely remastered and now receives its first... | Read more »
WRIO Keyboard (Utilities)
WRIO Keyboard 1.0 Device: iOS iPhone Category: Utilities Price: $2.99, Version: 1.0 (iTunes) Description: 40% OFF DURING LIMITED INTRODUCTORY OFFER | Read more »
Hatoful Boyfriend (Games)
Hatoful Boyfriend 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The hit PC game that everybirdie loves has now migrated to your mobile device! Now you are free to explore the wonders of St... | Read more »
Warp Shift (Games)
Warp Shift 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: [ CHECK YOUR HARDWARE: Warp Shift does NOT run on iPhone 4, iPad 1 and iPod touch 4G or older devices! It requires at least iOS8... | Read more »

Price Scanner via MacPrices.net

Goal Zero and OtterBox Partner to Expand iPh...
Goal Zero, specialists in portable power, have announced a partnership with OtterBox, brand smartphone case protection, to offer the Slide and Slide Plus Batteries as modules compatible with the new... Read more
15-inch Retina MacBook Pros on sale for up to...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799... Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... Read more
21-inch iMacs on sale for up to $120 off MSRP
B&H Photo has 21″ iMacs on sale for up to $120 off MSRP including free shipping plus NY sales tax only: - 21″ 3.1GHz iMac 4K: $1379.99 $120 off MSRP - 21″ 2.8GHz iMac: $1189 $110 off MSRP - 21″ 1... Read more
Kanex Introduces GoPower USB-C Rechargeable B...
Kanex has announced its GoPower USB-C portable battery for the USB-C MacBook, featuring the new industry standard connector and cable used for connectivity and power. Providing users with a new... Read more
Convertible and Detachable Devices Winning Ov...
According to the latest figures published by International Data Corporation (IDC), Western European shipments of ultraslim convertibles and detachables posted positive growth (44.7%) to account for... Read more
New MacBook Pros And Will MacBook Air Be Upgr...
With my mid-2013 13-inch MacBook Air closing on its third anniversary come November, I’m in system upgrade mode. Actually the Haswell CPU equipped Air is still doing a fine job, but my good wife is... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more

Jobs Board

Editor, *Apple* News - APPLE (United States...
Job Summary The Apple News team is looking for a passionate and knowledgeable editor with experience covering entertainment/pop culture and experience running social Read more
*Apple* Nissan Service Technicians - Apple A...
Apple Automotive is one of the fastest growing dealer...and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive , Read more
ISCS *Apple* ID Site Support Engineer - APP...
…position, we are looking for an individual who has experience supporting customers with Apple ID issues and enjoys this area of support. This person should be Read more
Automotive Sales Consultant - Apple Ford Linc...
…you. The best candidates are smart, technologically savvy and are customer focused. Apple Ford Lincoln Apple Valley is different, because: $30,000 annual salary Read more
*Apple* Support Technician II - Worldventure...
…global, fast growing member based travel company, is currently sourcing for an Apple Support Technician II to be based in our Plano headquarters. WorldVentures is Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.