WHEN I'M 64

[files: WhenI'm64 (PROG) + 64 (CODE)]



Ben Stragnell from Warwickshire presents a simple way of producing 64

characters to a line. Type in the listing and SAVE the code to tape

when prompted. The code is completely relocatable and can be added to

a program by including the line:

CLEAR address-1: LOAD "" CODE address



The code is 144 bytes long and uses the UDG character U. To use it the

variable s$ is reserved and should be set in the first line of your

program to the maximum length of the message you will need PLUS 3 by a

DIM statement. This is because it must be the first in the variables

area of the computer. i.e. line 1 DIM s$(67).



Before calling the 64 print code you have to set up s$ by filling it

with the data required in the format:

LET s$=CHR$ x+CHR$ y+"text to be printed"+CHR$ 128

x is a value between 0 and 63 and is the horizontal coordinate.

y is a value between 0 and 21 and is the vertical coordinate.

Finally you include a line:

PRINT AT 0,0;: LET anyvar=USR address

to print it.