EUG PD


Hints And Tips

 
Author: Greg German
Published in EUG #3

Simple Address Labels

Printing out address labels for correspondence is nothing new but to buy the special self adhesive labels, and setting everything up, is time consuming and has a cost element.

It can be useful if one has to send letters to regular addresses, whether it be to the club, the bank, or to members of the family, to have some ready duplicated address labels.

With View it is easy to type a label then to copy the block as many times as necessary, print out and cut the paper into individual labels. Much the same can be achieved from a simple BASIC program such as:

  10 VDU 2
  20 PRINT"NAME"
  30 PRINT"No. ROAD"
  40 PRINT"TOWN"
  50 PRINT"COUNTY"
  60 PRINT"POST CODE"
  70 PRINT
  80 PRINT
  90 GOTO 20

Similarly if one has written a letter, it only needs the printing of an extra top part of the letter to yield a label for the envelope.

Now there is nothing very clever in this, but it leaves the question of how to stick the label securely in place. I have found Pritt Stick - you know, the non-sticky sticky stuff - to be ideal.

I have used this method for several years and to my knowledge have not yet had a letter go astray.

Elkpaint - Program Modified

I wonder how many readers remember the Elkpaint art program which appeared some time back in Electron User. It is quite good but lacks the facility to print out the screen.

It can be modified to incorporate a printout feature without much difficulty.

Firstly add the following to the end of line 80:

   ELSE IF K%=71 PROCprint

This means that if you press the 'G' key, it will call PROCprint.

Next add the following procedure to the end of the program:

1050 DEFPROCprint
1060 VDU 2
1070 *FX 6,0
1080 *FX 5,1
1090 *FX 8,4
1100 FOR Y% = 831 TO 31 STEP -32
1110 VDU 1,27,1,51,1,24
1120 VDU 1,9,1,27,1,75,1,64,1,1
1130 FOR X% = 0 TO 1276 STEP 4
1140 A% = 0 : B% = 128
1150 FOR C% = 0 TO 28 STEP 4
1160 IF POINT(X%,Y%-C%)A%=A%+B%
1170 B% = B% / 2
1180 NEXT
1190 VDU 1,A%
1200 NEXT
1210 VDU 1,10
1220 NEXT
1230 VDU 3
1240 ENDPROC

It is a good idea to save the screen before printing as it cannot be recovered afterwards.

A further tip... by placing a sheet of transparent plastic in front of the screen, any picture traced onto the plastic can then be followed to compose the same picture on screen.

G. S. German

Greg German