TweetFollow Us on Twitter

Printing Techniques 2
Volume Number:1
Issue Number:11
Column Tag:Basic School

Printing Techniques for Basic

By Dave Kelly, Hybrids Engineer, MacTutor Editorial Board

Managing BASIC Font Printing

Sometimes when talking about the Macintosh, people have asked "How many columns does the Macintosh have?". My answer to them is that it depends. Many of you like myself started out on other computers such as the Apple //. Many of the early computers had only 40 columns of text display. This severely limited the usefulness of word processing software until the introduction of 80-col display plug in boards. Back in those days it was very important to ask how many columns there were because of the limitations that are imposed by the lack of 80 column display. The Macintosh is an entirely different animal though. Because of the ability of the Macintosh to display proportional spaced fonts on the screen just as it will look when printed, it is not applicable to refer to the Macintosh screen as an 80-col display. It is important in development of applications for the Macintosh that we realize the difference between the Macintosh and other computers when it comes to displaying and printing data. Some may have experienced some frustration in trying to format text when using proportional fonts. I'll try to discuss a few items to keep in mind when using proportional spacing. There are some advantages and disadvantages to be aware of. This month we will explore some of the ins and outs of printing in different size fonts.

First, lets take a look at the difference between proportional and monospaced fonts. The unit of measurement for the spacing is the size of the character "0" in the current font. For monospaced fonts the character "0" happens to be the same width as the rest of the characters in the font. For the proportional spaced font, the "0" is an average width but not necessarily the same width as the other characters. Notice that the spacing of all the uppercase characters for a monospaced font is the same as for the lower case characters. Also note that the proportional spaced "A" is wider than the "a".

The advantage of using the monspaced type of font is that you can always be sure of just where each character will be printed or displayed. In the proportional font each of the letters are a different width depending on how much spacing each character requires. Now that we have a feel for proportional characters, try the following lines of BASIC and compare the results of printing with monospacing and proportional spacing:

' Sample program #1 
' Dave Kelly 
' MACTUTOR ©1985 

l1$="Name #1":r1$="Name #2" 
l2$="123 Main St.":r2$="456 Central Ave." 
l3$="Anyplace, USA":R3$="Anywhere, USA" 

FOR i=1 TO 40     
 zero$=zero$+"0" 
NEXT i 

WIDTH 40,20 
TEXTFONT(4):TEXTSIZE(12) 'Monaco 
GOSUB printit 
TEXTFONT(2):TEXTSIZE(12) 'New York 
GOSUB printit 
END 

printit: 
PRINT  l1$,r1$ 
PRINT  l2$,r2$ 
PRINT  l3$,R3$ 
PRINT  zero$

PRINT  l1$;TAB(21);r1$ 
PRINT  l2$;TAB(21);r2$ 
PRINT  l3$;TAB(21);R3$ 
PRINT  zero$
RETURN 

In the sample program it is clear that the spacing of "0" is different for the 2 fonts, which explains why the second column does not line up. RULE 1: Remember that when mixing fonts you can't expect them to line up. This program demonstrates the use of the BASIC WIDTH command. The syntax of the WIDTH command is defined on page 264 of the MSBASIC manual. In general the syntax is: WIDTH [size ] [,print-zone ] . The size is the number of standard characters that a line may contain. In other words, BASIC will force a carriage return after the line size is full. If the size is 255 then BASIC will not force any carriage returns. The print-zone assigns the width of the print zone. The print zones are similar to tab stops, and they are forced by comma delimiters in the PRINT or LPRINT statements. In the sample program you can see that by using TAB or by using WIDTH the same result can be achieved. Using WIDTH the position of the 2nd column is determined by the print-zone. By using TAB(I), print position moves to the position indicated by I. An understanding of how these commands may be used is helpful when you are trying to format your printed output. An example would be the printing of a multiple column roster or newsletter where different fields might be combined together to create an entire line. The traditional way to do this would be to combine the fields together as one string variable and then to print the variable. The spacing of each field is filled to the size of the print-zone before combining all the fields, so that the total width of all the fields will fit. This works fine with monospaced fonts but it quite difficult to accomplish with proportional spaced fonts. An alternative solution is to use TAB or WIDTH functions to specify where each field will be printed. It is still important to check the length of each field before printing to make sure that each field will fit into the specified print zone. If it won't fit then either the field must be truncated or the print-zone should be adjusted. If not, then the field will print past the assigned print-zone and into the next print-zone. The next field to be printed will be pushed over to the next available print-zone.

This can be demonstated by changing the sample program. In the program the print-zone is set at 20 characters wide. If fewer than 20 characters are printed then the next print field will begin 20 characters after the start of the first print field. Try changing the line: l1$="Name #1":r1$="Name #2" to a field that has more than 20 characters, for example: l1$="Name #1 is too long now":r1$="Name #2" to demonstate the problem. To fix the line change it to:

l1$=LEFT$("Name #1 is too long now",20):r1$="Name #2" or adjust the WIDTH statement to: WIDTH 40,25.

Another consideration when using fonts of different sizes and widths is that each font will use a different number of lines to print the same thing. Because there are so many different fonts and sizes available it is difficult to examine the effect of each one. So, before using any set of fonts you should test each one out to see how many lines will fit on a page and adjust your program to count the lines as they are printed. If you are printing in a 10 pt. font it is probable that you will have more lines than for a 12 pt. font. The Disk Labeler program is a quick sample of what might be done with the WIDTH statement. Keep in mind that this is just a sample and may or may not be a useful application, however it may be modified to meet your needs.

Disk Labeler Program Sample

The program will read filenames one at a time from the disk and place them in an array called filename$(i). I have limited the size to 10 files to simplify the program. Choose Add/Remove from the files menu to add or remove a file. The selected files are printed in window 1. The second menu lets you select the font info. This illustrates a method of changing the fonts and sizes that will be used. This could be expanded to select various attributes such as Bold or Italics. Keep in mind that the different attributes will also change the width of each character. The printlabel routine demonstrates printing different fonts to the printer. If you have had trouble changing fonts when printing to the printer you may want to take a closer look at this routine. The key is the WINDOW OUTPUT #1 statement. This statement is necessary to direct all graphics commands, including those which change the fonts, to the printer. The Set Disk Label item of the files menu will let you set the number of lines and the number of columns that will be printed. The columns are formatted with the WIDTH statement. Disk labels may be printed in any desired font by adding additional fonts to the menu. I recommend printing labels in a small font (9 point) in order to fit more on a label. Have any useful printing tips? Send your best suggestions to me care of MacTutor!

' Disk Labeler 
' By Dave Kelly 
' MACTUTOR ©1985
 
' Watch line breaks. A few Basic lines are longer than 
' this Journals column width, but the breaks are
' obviously placed so that it is clear the Basic line
' continues from the previous line. 

number.of.files=0:DEFINT i-m:maxfiles=10 number.of.lines=5:number.of.col=2 

DIM filename$(maxfiles)
 
'fonts 
chicago=0: Appl=1: Newyork=2: Geneva=3: Monaco=4 
activefont=Geneva: activesize=12
WINDOW 1,"",(200,50)-(400,275),2 
'menu clear 
FOR i=1 TO 5:MENU i,0,0,"":NEXT i 

'set new menus 

MENU 1,0,1,"File" 
MENU 1,1,1,"Add/Remove a file" 
MENU 1,2,1,"Clear all files" 
MENU 1,3,0,"-" 
MENU 1,4,1,"Print Disk Label" 
MENU 1,5,1,"Set Disk Label" 
MENU 1,6,1,"Quit"
 
MENU 2,0,1,"Font Info" 
MENU 2,1,0,"Fonts" 
MENU 2,2,1,"NewYork" 
MENU 2,3,2,"Geneva" 
MENU 2,4,1,"Monaco" 
MENU 2,5,0,"-" 
MENU 2,6,1,"9 point" 
MENU 2,7,1,"10 point" 
MENU 2,8,2,"12 point"
 
ON MENU GOSUB Menucheck:MENU ON 
idle: GOTO idle
 
Menucheck:     
Menunumber=MENU(0): Menuitem=MENU(1)     
ON Menunumber GOSUB Filemenu, Fontmenu     
RETURN      

Filemenu:     
MENU     
ON Menuitem GOSUB Add, Clearfiles,Blank,Printlabel,      Setlabel, Quit 
    
RETURN      

Add:     
x$=FILES$(1)     
IF x$="" THEN GOSUB display:RETURN     'x$=MID$(x$,INSTR(x$,":")+1) 
'optional line:use to strip volume name     

FOR i= 1 TO number.of.files         
IF x$=filename$(i) THEN filename$(i)="zzzzz":      i=number.of.files+2: 
CALL Sort(filename$(),  number.of.files): number.of.files= number.of.files-1 
    
NEXT i     

IF number.of.files>=maxfiles THEN GOSUB display:   RETURN     
IF i=number.of.files+1 THEN filename$(i)=x$:       number.of.files=i 
    
CALL Sort (filename$(),number.of.files )     
GOSUB display     
RETURN      

Clearfiles:     
number.of.files=0     
GOSUB display     
RETURN      

display:     
TEXTFONT(chicago):TEXTSIZE(12)     
CLS:PRINT number.of.files;"files have been selected."     TEXTFONT(activefont):TEXTSIZE(activesize) 
    
FOR i=1 TO number.of.files    
  maxlength=30     
 IF activesize<=10 THEN maxlength=40     
 PRINT LEFT$(filename$(i),maxlength)     
NEXT i 
   
IF number.of.files=maxfiles THEN 
 PRINT"Max.";maxfiles;"files allowed"     
RETURN      

Blank:RETURN
 
Printlabel:    
IF number.of.files=0 THEN RETURN    
OPEN "LPT1:PROMPT"  FOR OUTPUT AS #1     
WINDOW OUTPUT #1     TEXTFONT(activefont):TEXTSIZE(activesize)     
colwid=30:IF number.of.col=2 THEN colwid=20     
WIDTH "LPT1:",(colwid+1)*2,colwid+1     
PRINT: items=number.of.files     
ON ERROR GOTO Error.handle 'check for printing abort     
IF number.of.col=1 THEN onecol    
IF number.of.lines<number.of.files/2 THEN    items=number.of.lines*2 
   
 FOR i= 1 TO items STEP 2         
PRINT #1,LEFT$(filename$(i),colwid), LEFT$(filename$(i+1),colwid)    

NEXT i 
    
CLOSE #1 

Exit.printing:     
WINDOW OUTPUT 1     
GOSUB display     
RETURN 

onecol:     
IF number.of.lines<number.of.files THEN      items=number.of.lines 
    
FOR i= 1 TO items         
 PRINT #1,LEFT$(filename$(i),colwid)     
NEXT i 
    
CLOSE #1     
GOTO Exit.printing     

Error.handle: RESET:RESUME
 
Exit.printing:STOP 

Setlabel:     
CLS:TEXTFONT(0):TEXTSIZE(12)     
LOCATE 1,1:PRINT"Lines per label:"     
LOCATE 3,1:PRINT "# of columns:"     lines$=STR$(number.of.lines)    
 
cwid$=STR$(number.of.col)     
EDIT FIELD 2,cwid$,(125,31)-(155,46),1,2
 EDIT FIELD 1,lines$,(125,1)-(145,16),1,2     
BUTTON 1,1,"OK",(25,70)-(75,88)    

 i=1     

loop:         
d=DIALOG(0)         
IF d=1 THEN Done ' got OK button         
IF d=2 THEN i=DIALOG(2):EDIT FIELD i 'got field 
IF d=6 THEN Done 'got return key         
IF d=7 THEN i=(i MOD 2)+1:EDIT FIELD i 'got TAB key         GOTO loop 
    

Done:         
lines$=EDIT$(1)         
number.of.lines=VAL(lines$)         
IF number.of.lines<1 OR  number.of.lines>9 THEN loop         cwid$=EDIT$(2) 
        
number.of.col=VAL(cwid$)         
IF number.of.col<1 OR number.of.col>2 THEN loop        
EDIT FIELD CLOSE 1:EDIT FIELD CLOSE 2         
BUTTON CLOSE 1         
CLS         
GOSUB display 
RETURN          

Quit:    
 MENU RESET     
WINDOW 1,"Disk Labeler",(2,40)-(510,250),1     
END 

Fontmenu:     
ON Menuitem GOSUB Blank,NY,Geneva,Monaco,          Blank,Pt09,Pt10,Pt12 
    
GOSUB display     
RETURN      

NY:     activefont=Newyork     
MENU 2,2,2: MENU 2,3,1:  MENU 2,4,1     
RETURN      

Geneva:     activefont=Geneva     
MENU 2,2,1: MENU 2,3,2:  MENU 2,4,1     
RETURN      

Monaco:     activefont=Monaco     
MENU 2,2,1: MENU 2,3,1: MENU 2,4,2     
RETURN     

 Pt09:     activesize=9     
MENU 2,6,2: MENU 2,7,1: MENU 2,8,1     
RETURN 

Pt10:     activesize=10     
MENU 2,6,1:  MENU 2,7,2: MENU 2,8,1     
RETURN      

Pt12:     activesize=12     
MENU 2,6,1: MENU 2,7,1: MENU 2,8,2     
RETURN      

SUB  Sort (item$(maxfiles),N) STATIC      
FOR i=1 TO  N-1        
 FOR j=i+1 TO  N             
IF  item$(i)> item$(j) THEN SWAP item$(i),item$(j)         
NEXT  j     
NEXT  i
END SUB 
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Dropbox 193.4.5594 - Cloud backup and sy...
Dropbox is a file hosting service that provides cloud storage, file synchronization, personal cloud, and client software. It is a modern workspace that allows you to get to all of your files, manage... Read more
Google Chrome 122.0.6261.57 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more
Skype 8.113.0.210 - Voice-over-internet...
Skype is a telecommunications app that provides HD video calls, instant messaging, calling to any phone number or landline, and Skype for Business for productive cooperation on the projects. This... Read more
Tor Browser 13.0.10 - Anonymize Web brow...
Using Tor Browser you can protect yourself against tracking, surveillance, and censorship. Tor was originally designed, implemented, and deployed as a third-generation onion-routing project of the U.... Read more
Deeper 3.0.4 - Enable hidden features in...
Deeper is a personalization utility for macOS which allows you to enable and disable the hidden functions of the Finder, Dock, QuickTime, Safari, iTunes, login window, Spotlight, and many of Apple's... Read more
OnyX 4.5.5 - Maintenance and optimizatio...
OnyX is a multifunction utility that you can use to verify the startup disk and the structure of its system files, to run miscellaneous maintenance and cleaning tasks, to configure parameters in the... Read more
Hopper Disassembler 5.14.1 - Binary disa...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32- and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about its... Read more
WhatsApp 24.3.78 - Desktop client for Wh...
WhatsApp is the desktop client for WhatsApp Messenger, a cross-platform mobile messaging app which allows you to exchange messages without having to pay for SMS. WhatsApp Messenger is available for... Read more
War Thunder 2.33.0.135 - Multiplayer war...
In War Thunder, aircraft, attack helicopters, ground forces and naval ships collaborate in realistic competitive battles. You can choose from over 1,500 vehicles and an extensive variety of combat... Read more
Iridient Developer 4.2 - Powerful image-...
Iridient Developer (was RAW Developer) is a powerful image-conversion application designed specifically for OS X. Iridient Developer gives advanced photographers total control over every aspect of... Read more

Latest Forum Discussions

See All

A Legitimate Massage Parlor, I Swear – T...
In this week’s Episode of The TouchArcade Show we talk about some of the major new releases on mobile this week including Warframe, we go over all the major news that came out from the Nintendo Direct Partner Showcase on Wednesday, we read our one... | Read more »
TouchArcade Game of the Week: ‘Rainbow S...
I feel like I am in a fever dream right now. What is this game that I’m playing? It’s a Rainbow Six game? But it’s all cutesy, and cartoony, and also kind of psychedelic? How is this a real thing? Well, it’s no fever dream, it is indeed a real thing... | Read more »
SwitchArcade Round-Up: ‘Promenade’, ‘Cho...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for February 23rd, 2024. It’s Friday, so we have to check out the remaining releases of the week. Not so many big ones today, but a healthy crop nonetheless. After summarizing all the... | Read more »
Steam Deck Weekly: Gundam Breaker 4 and...
Welcome to this week’s slightly shorter edition of the Steam Deck Weekly. I was a bit unwell this week so no reviews in this edition, but there is a lot of news and new Steam Deck Verified and Playable games to catch up on. I have something special... | Read more »
The 10 Best Run-And-Gun Games for Ninten...
The year 2024 is a rare one, because it is a year with a brand-new Contra game. Contra: Operation Galuga might be the freshest face on the block when it comes to Nintendo Switch run-and-gun action games, but it’s hardly fighting that war alone.... | Read more »
Version 1.4 of Reverse: 1999 will be lan...
Free up your diary for February 29th, as Bluepoch has announced the impending release of the award-winning Reverse: 1999s Version 1.4 update. The Prisoner in the Cave is an Ancient Greece-themed update with new recruits, gameplay modes, and plenty... | Read more »
Premium Mobile RPG ‘Ex Astris’ From ‘Ark...
Arknights developer Hypergryph’s premium RPG Ex Astris () recently had its release date confirmed, and we finally have an extended gameplay showcase. | Read more »
Apple Arcade Weekly Round-Up: Updates fo...
Following yesterday’s big Hello Kitty Island Adventure update, a few more notable game updates and events have gone live on Apple Arcade. Cypher 007 () has gotten its first content update in a few months taking you to Egypt for five new levels... | Read more »
‘Thunder Ray’ and ‘Hime’s Quest’ Are Now...
Crunchyroll has pushed two new games into the Crunchyroll Game Vault including Purple Tree Studio’s Thunder Ray which was already on iOS before as a premium release. Shaun even reviewed it last year. Read his review here. The second game is Poppy... | Read more »
Adorable Kitty-Collector Sequel ‘Neko At...
Ya’ll. This October will mark the ten-year anniversary of Hit Point launching Neko Atsume, the adorable kitty collecting sim that has become a runaway success and essentially created a sub-genre of cozy pet-collecting life sim games. Sure, the... | Read more »

Price Scanner via MacPrices.net

16-inch M3 Max MacBook Pro on sale for $300 o...
Amazon is offering a $300 instant discount on one of Apple’s 16″ M3 Max MacBook Pros today. Shipping is free: – 16″ M3 Max MacBook Pros (36GB/1TB/Space Black): $3199, $300 off MSRP Their price is the... Read more
Apple M2 Mac minis on sale for $100 off MSRP...
B&H Photo has Apple’s M2-powered Mac minis in stock and on sale for $100 off MSRP this weekend with prices available starting at $499. Free 1-2 day shipping is available to most US addresses: –... Read more
Apple Watch SE on sale for $50 off MSRP this...
Best Buy has all Apple Watch SE models on sale this weekend for $50 off MSRP on their online store. Sale prices available for online orders only, in-store prices may vary. Order online, and choose... Read more
Deal Alert! Apple 15-inch M2 MacBook Airs on...
Looking for the lowest sale price on a new 15″ M2 MacBook Air? Best Buy has Apple 15″ MacBook Airs with M2 CPUs in stock and on sale today for $300 off MSRP on their online store. Prices valid for... Read more
Amazon discounts iPad mini 6 models up to $12...
Amazon is offering Apple’s 8.3″ WiFi iPad minis for $100-$120 off MSRP, including free shipping, for a limited time. Prices start at $399. Amazon’s prices are among the lowest currently available for... Read more
Apple AirPods Pro with USB-C discounted to $1...
Walmart has Apple’s 2023 AirPods Pro with USB-C in stock and on sale for $199.99 on their online store. Their price is $50 off MSRP, and it’s currently one the lowest prices available for new AirPods... Read more
Apple has 14-inch M3 MacBook Pro with 16GB of...
Apple has 14″ M3 MacBook Pros with 16GB of RAM, Certified Refurbished, available for $270-$300 off MSRP. Each model features a new outer case, shipping is free, and an Apple 1-year warranty is... Read more
Save $318-$432 on 16-inch M3 Max MacBook Pros...
Apple retailer Expercom has 16″ M3 Max MacBook Pros on sale for $318-$432 off MSRP when bundled with a 3-year AppleCare+ Protection Plan. Discounts are available for Silver models as well a Space... Read more
New today at Apple: 16-inch M3 Pro/M3 Max Mac...
Apple is now offering 16″ M3 Pro and M3 Max MacBook Pros, Certified Refurbished, starting at $2119 and ranging up to $530 off MSRP. Each model features a new outer case, shipping is free, and an... Read more
Apple is now offering $300-$480 discounts on...
Apple is now offering 14″ M3 Pro and M3 Max MacBook Pros, Certified Refurbished, starting at $1699 and ranging up to $480 off MSRP. Each model features a new outer case, shipping is free, and an... Read more

Jobs Board

Part-time *Apple* and Peach Research Assist...
…and minimum qualifications: + Assist with planting, pruning, and harvesting of apple and peach trees + Conduct regular maintenance tasks to ensure optimal Read more
Housekeeper, *Apple* Valley Villa - Cassia...
Apple Valley Villa, part of a senior living community, is hiring entry-level Full-Time Housekeepers to join our team! We will train you for this position and offer a Read more
Sublease Associate Optometrist- *Apple* Val...
Sublease Associate Optometrist- Apple Valley, CA- Target Optical Date: Feb 22, 2024 Brand: Target Optical Location: Apple Valley, CA, US, 92307 **Requisition Read more
Sublease Associate Optometrist- *Apple* Val...
Sublease Associate Optometrist- Apple Valley, CA- Target Optical Date: Jan 24, 2024 Brand: Target Optical Location: Apple Valley, CA, US, 92307 **Requisition Read more
Housekeeper, *Apple* Valley Village - Cassi...
Apple Valley Village Health Care Center, a senior care campus, is hiring a Part-Time Housekeeper to join our team! We will train you for this position! In this role, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.