TweetFollow Us on Twitter

Clipboard 2
Volume Number:1
Issue Number:6
Column Tag:BASIC

The Clipboard

By Dave Kelly

One of the features that makes the Macintosh unique from other computers is the use of the clipboard. The clipboard adds flexibility to the Mac user interface. With it you can exchange data from one application to another. Anyone who has worked with MacPaint or MacWrite is familar with the operation of the clipboard. What you cut or copy is saved in the clipboard allowing you to paste it somewhere else! But how do you deal with the clipboard from your own programs? That is the subject we want to explore this month.

Support of the clipboard is another feature of the Macintosh user interface that was left out of MSBASIC version 1.0 but fortunately is easily used in version 2.0. Most of the features that we will use here will only work for version 2.0. There are a few things you should keep in mind when writing programs to use the clipboard.

First, there are three different ways which BASIC can address the clipboard file. Use the OPEN statement with one of the following statements for the filename:

“CLIP:” for transferring data from programs that have tabular data, like Multiplan or Chart.

“CLIP:TEXT” for transfering text to and from word processors and other programs.

“CLIP:PICTURE” for transferring picture data to and from MacPaint or other programs.

Files that are OPENed to this device, using the mode indicated above, will read/write data directly from/to the Clipboard File stored on the system disk.

The sample program ‘Show Clip’ shows how the clipboard could be read within an application and displayed. You have probably seen many applications that give the user the option to “Show Clipboard”. The program will check to see if the clipboard contains picture data or text and will read the data accordingly and display it in the window. This routine is an example to show how to read from the clipboard, but could be used in your own application to produce the “Show Clipboard” option.

When you make use of EDIT FIELDs in your programs you should keep the Edit menu active so that your EDIT FIELD can be fully edited using the cut, copy and paste feature of the Edit menu. This way the clipboard is being used without having to do a whole lot of programing; however the operation is still manual. The user must decide what to select and copy or cut it into the EDIT FIELD. The same is true for inserting text with the paste option.

If the file is opened to “CLIP:” or “CLIP:TEXT”, the data is read sequentially from the clipboard file. There are actually two clipboard areas. One is the clipboard file and the other is a temporary area in memory. That’s why sometimes the disk turns on when you cut or copy something and other times it doesn’t.

To write text to the clipboard:

• Open the clipboard with OPEN “CLIP:” FOR OUTPUT AS #1 or equivalent.

• Use Write #1 or Print #1 to write your variable to the clipboard file.

• CLOSE #1 to close the file.

To read from the clipboard:

• Open the clipboard with OPEN “CLIP:” FOR OUTPUT AS #1 or equivalent.

• Use INPUT #1 to read variables from the clipboard file.

• CLOSE #1 to close the file.

See the program for an example of this.

You should remember to use the proper format when storing data in the clipboard so that other applications may use the data. For example, the text that a word processor uses would contain format control characters imbedded in the text. These kind of characters should only be left in the text stored in the clipboard if you know that the program that will be reading it will use them. Some things might not matter what format they are stored in and the data can be formatted once it has been read into the new application. Most of the applications available will tell you how the data is formatted, so if you know what the data will be used in, there won’t be any problem. Some help on transfering files to and from the clipboard and other applications can be found on page 55 of the BASIC manual.

Copying pictures is just about as easy as text. To transfer something to MacPaint:

• Use the PICTURE ON statement to record the graphics statements.

• Issue all the graphics statements you need to produce the picture. You don’t have to draw it to record it as a picture.

• Use PICTURE OFF to stop recording graphics.

A good example of this is found in the BASIC manual page 205.

• Next open the clipboard file with OPEN “CLIP:PICTURE” FOR OUTPUT AS #1 (or equavalent statement)

• Send the picture to the clipboard with PRINT #1,PICTURE$

• Close the file: CLOSE #1

Next you can either exit BASIC and paste the picture into MacPaint or save the picture in the Scrapbook to use later.

To transfer MacPaint pictures to BASIC:

• Put the MacPaint picture in the Clipboard

• Open the clipboard file with OPEN “CLIP:PICTURE” FOR INPUT AS #1 (or equavalent statement)

• Transfer the picture to a string variable (called image$ in this case): image$=INPUT$(LOF(1),1)

• Close the file: CLOSE #1

• Draw the Picture to the screen exactly the way it was recored: PICTURE,image$

See the program for an example of reading a picture from the clipboard.

To determine if the data in the clipboard is picture or text we can use the BASIC statement LOF. LOF(1) will return the length of the specified file (in this case our file is “CLIP:”. If the result turns out to be zero, it means that either the data is a picture or the clipboard is empty. So next just read whatever picture Is stored, if any. If the clipboard is empty, the resulting string variable will also be empty.

There is one more way to store text or graphics in the clipboard. I’m not sure that there is a good reason to want to do this though. Using a screen GET, a portion of the screen can be copied into a non-string variable array. This variable can be written to the clipboard for later use. You can then read the clipboard and use a screen PUT, to place the data back on the screen. The screen GET and PUT commands are much more useful in moving sections of the screen image. Since the array used is not a string, it is not in the proper format for MacPaint or for PICTURE statements. I tried to use screen GET and PUT to read the picture of Professor Mac found in last month’s Screen Poke article. The problem is that when the image is directly poked on the screen, BASIC doesn’t recognize it as being anything useful. You can’t record pokes with the PICTURE ON/OFF feature of BASIC. Perhaps one of our readers knows how to change the data from a screen GET format to MacPaint picture format. For most programs you will want to use the other methods mentioned anyway.

In conclusion, figure 1 shows the different ways that data can be stored in the clipboard. Most of these methods are explained fairly well in the BASIC 2.0 manual. (ref. pg. 55-58 for more information on tranfering data between BASIC and other programs. Note there is an error on page 58 where it says PICTURE$,IMAGE$ should be PICTURE, IMAGE$. Also see pg. 205 for PICTURE statement.)

‘     Show Clip
‘     By Dave Kelly
‘     ©MACTUTOR 1985

‘Set up windows
WINDOW 1,”Output Window”, (2,40)-(510,200),1
WINDOW 2,”Clipboard File”,  (2,220)-(510,340),1
WINDOW CLOSE 2
‘Set up menus
MENU 4,0,0,””
MENU 5,0,1,”Windows”
MENU 5,1,1,”Output Window”
MENU 5,2,1,”Show Clipboard”
MENU 5,3,1,”Quit”
ON MENU GOSUB handlemenu
MENU ON
ON DIALOG GOSUB handlewindow
DIALOG ON
EDIT FIELD 1,””,(150,42)-(365,120),1
show:GOTO show:GOSUB showclipboard
handlemenu:  ‘Menu handler
number=MENU(0)
IF number<>5 THEN RETURN
item=MENU(1):MENU
IF item=1 THEN WINDOW 1
IF item=2 THEN GOSUB showclipboard
IF item=3 THEN WINDOW CLOSE 2:WINDOW CLOSE 1:MENU RESET: END
RETURN
handlewindow:  ‘Menu handler
stat=DIALOG(0)
IF stat=3 THEN WINDOW DIALOG(3)
IF stat=4 THEN WINDOW CLOSE DIALOG(4)
RETURN
showclipboard:
WINDOW 2:CLS
DIALOG STOP:MENU STOP
‘Read text from clipboard
OPEN “CLIP:TEXT” FOR INPUT AS #1
IF LOF(1)=0 THEN CLOSE #1:GOTO   do.picture
LOCATE 1,1
WHILE NOT EOF(1)
        INPUT #1,a$:PRINT a$
WEND
CLOSE #1:DIALOG ON:MENU ON
RETURN
do.picture:  ‘Read picture from Clipboard
DIALOG STOP:MENU STOP
OPEN “CLIP:PICTURE” FOR INPUT AS #1
        image$=INPUT$(LOF(1),1)
        PICTURE,image$
CLOSE #1:DIALOG ON:MENU ON:RETURN

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Trend Micro 11.0.2062 - An essential sec...
Trend Micro Antivirus provides essential security for macOS with real-time malware detection and mitigation in an affordable solution with a simple, intuitive interface. However, be aware that more... Read more
Backblaze 7.0.2.490 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $6 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Pro Video Formats 2.2.1 - Updates for pr...
Pro Video Formats includes support for the following professional video codecs: Apple Intermediate Codec Apple ProRes AVC-Intra 50 / 100 / 200 / 4:4:4 / LT AVC-LongG XAVC XF-AVC DVCPRO HD HDV XDCAM... Read more
Boom 3D 1.3.11 - $19.99
Boom 3D is a revolutionary app with 3D Surround Sound and phenomenally rich and intense audio that is realistic and works on any headphones. Features 3D surround sound Built-in audio player... Read more
Final Cut Pro 10.5.2 - Professional vide...
Redesigned from the ground up, Final Cut Pro combines revolutionary video editing with a powerful media organization and incredible performance to let you create at the speed of thought.... Read more
Chromium 89.0.4389.72 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 89.0.4389.72: Complete list of changes can... Read more
iMovie 10.2.3 - Edit personal videos and...
With a streamlined design and intuitive editing features, iMovie lets you create Hollywood-style trailers and beautiful movies like never before. Browse your video library, share favorite moments,... Read more
OmniPlan 4.2.5 - Professional-grade proj...
With OmniPlan, you can create logical, manageable project plans with Gantt charts, schedules, summaries, milestones, and critical paths. Break down the tasks needed to make your project a success,... Read more
Compressor 4.5.2 - Adds power and flexib...
Compressor adds power and flexibility to Final Cut Pro X export. Customize output settings, work faster with distributed encoding, and tap into a comprehensive set of delivery features. Features:... Read more
Motion 5.5.1 - Create and customize Fina...
Motion is designed for video editors, Motion 5 lets you customize Final Cut Pro titles, transitions, and effects. Or create your own dazzling animations in 2D or 3D space, with real-time feedback as... Read more

Latest Forum Discussions

See All

Frogger in Toy Town's latest update...
Konami Digital Entertainment has announced today that their Apple Arcade title Frogger in Toy Town has been updated to introduce a new ranked Endurance Mode. This new game variant's arrival is also accompanied by a few other changes. [Read more] | Read more »
Mitoza is surreal adventure toy you can...
The folks behind the Rusty Lake games have just put a new title onto the App Store. Second Maze, Rusty Lake's collaborative publishing brand, has just brought this 10 year old adventure game from Gal Mamalya to mobile. The best part about all of... | Read more »
Pocket Gamer Awards 2021: You have five...
Three weeks ago our sister site, Pocket Gamer, entered the voting stage for the upcoming Pocket Gamer Awards 2021 and is now in the final stretch. You only have a few hours left to vote for the games you’ve enjoyed on mobile in the past year, as... | Read more »
Patty Stack is a casual arcade game, ava...
Patty Stack is a casual arcade title that's available now for iOS and Android. It's the debut game from developer Feeka Games tasks players with making an increasingly giant burger tower. Think of it as Tower Bloxx but more edible. [Read more] | Read more »
Distract Yourself With These Great Mobil...
There’s a lot going on right now, and I don’t really feel like trying to write some kind of pithy intro for it. All I’ll say is lots of people have been coming together and helping each other in small ways, and I’m choosing to focus on that as I... | Read more »
Genshin Impact Guide - Gacha Strategy: W...
This is part 2 of our Genshin Impact gacha strategy guides. See part 1 here. You can check out more guides for Genshin Impact here. | Read more »
Slashy Camp is a new endless runner insp...
Blue Wizard Digital has released Slashy Camp onto iOS and Android after it spent a short amount of time in early access. [Read more] | Read more »
Kinder World is a relaxing game about lo...
Lumi Interactive is releasing a game called Kinder World later this year on iOS and Android, which is all about looking after houseplants. [Read more] | Read more »
Steam Link Spotlight - Fights in Tight S...
Steam Link Spotlight is a feature where we look at PC games that play exceptionally well using the Steam Link app. Our last entry was on Hades. Read about how it plays using Steam Link over here. | Read more »
Lyxo, the light-based puzzler for mobile...
Vienna-based independent game studio Emoak has just released its unique light-based puzzler for iOS and Android. Founded in 2014 by Tobias Sturn, the company is also the creative force behind the infinite climbing game Paper Climb, as well as the... | Read more »

Price Scanner via MacPrices.net

Weekend Sale: $100 off Apple iPad Magic Keybo...
Amazon has Apple iPad Magic Keyboards on sale for $100 off MSRP for a limited time. Amazon’s prices are the lowest available for iPad Magic Keyboard from any Apple reseller this weekend: – Magic... Read more
Gazelle now offering a full line of refurbish...
Gazelle is now offering a full range of discounted, refurbished, unlocked Apple iPhone 12 models starting at $649. iPhones are offered in Fair, Good, and Excellent conditions, and multiple colors are... Read more
These are the latest discounted iPhones Apple...
Apple has a range of Certified Refurbished iPhones available right now starting at only $339. Apple includes a standard one-year warranty, new outer shell, and shipping is free. According to Apple, “... Read more
Save up to $64 on new M1 MacBook Airs at Expe...
Apple reseller Expercom has 2020 13″ M1 MacBook Airs on sale for $51-$64 off Apple’s MSRP with prices starting at $947.96. In addition to their MacBook Air sale prices, take $50 off AppleCare+ when... Read more
Discounts available on 16″ MacBook Pros with...
Upgrade a 16″ 6-Core or 8-Core MacBook Pro from 16GB of standard RAM to 32GB at Adorama, and save $100-$210 over Apple’s price for this custom option: – 16″ 6-Core MacBook Pro/32GB RAM: $2699, save $... Read more
10.9″ iPad Airs on sale for $50-$70 off Apple...
Amazon has new 2020 10.9″ Apple WiFi iPad Airs in stock and on sale today for up to $70 off MSRP with prices starting at $549. Note that Amazon’s sale price might be restricted to certain colors (see... Read more
Apple restocks 2020 27″ 5K iMacs for up to $3...
After an initial offering in January, Apple has restocked a full line of Certified Refurbished 2020 27″ 5K iMacs starting at $1529 and up to $350 off original MSRP. Apple’s one-year warranty is... Read more
Sale! 16″ 8-Core MacBook Pro for $2449, $350...
Apple reseller Adorama has the 16″ 2.3GHz 8-Core Space Gray MacBook Pro in stock and on sale today for $2449 including free shipping. Their price is $350 off Apple’s MSRP for this model, and it’s the... Read more
Roundup of 13″ Multi-Core Intel MacBook Pro s...
Apple resellers are offering significant sales & deals this week on 2020 13″ MacBook Pros with 10th generation Intel CPUs. Take up to $250 off Apple’s MSRP, get free fast shipping, and/or pay no... Read more
64GB iPhone 8 Plus available for $379 at Appl...
Apple has the 64GB iPhone 8 Plus in Space Gray & Gold colors available for $379 today, Certified Refurbished. Each phone is unlocked and comes with Apple’s standard 1-year warranty and free... Read more

Jobs Board

Geek Squad Advanced Repair *Apple* Professi...
**795178BR** **Job Title:** Geek Squad Advanced Repair Apple Professional **Job Category:** Store Associates **Store Number or Department:** 001406-Allen Park-Store Read more
Geek Squad *Apple* Consultation Professiona...
**796549BR** **Job Title:** Geek Squad Apple Consultation Professional **Job Category:** Store Associates **Store Number or Department:** 001800-Hot Springs-Store Read more
*Apple* Mobility Specialist - Best Buy (Unit...
**796014BR** **Job Title:** Apple Mobility Specialist **Job Category:** Store Associates **Store Number or Department:** 001776-Woodmore Towne Centre-Store **Job Read more
Systems Architect, *Apple* Production Engin...
…package beginning on your first day? If so, we hope you'll keep reading! The Apple Sales Engineering and account team is looking for a stellar presales engineer with Read more
Systems Engineer, Webscale, *Apple* Retail,...
…beginning on your first day? If so, we hope you'll keep reading! The Apple Sales Engineering team is looking for a pre-sales engineer with Enterprise engineering Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.