60-80 Prints the Commodore logo and "Commodore Business Machines'' ten times. Prints to the printer Prints 'enhanced characters' Prints the programmed character (the Com- modore logo) Cursor Up Sets the printer to uppercase Cursor Down Sets the printer to lowercase PRINT#4 CHR$(14) CHR$(254) 90-100 Closes the two files opened by the program. After typing RUN, you get the result: c: Co mmo d o r e Bus iness Ma.eh in e s c: Co mmo d o r e Bus iness Ma.eh ines c: Co mmo d o r e Bus iness Ma.eh in es c: Co mmo d o r e Bus ines:s Ma.eh ine.s c: Co mmo d o r e Bus iness Ma.eh ines c: Commodore Bus iness Ma.eh ine:s c: Co mmo d o r e Bus ines:s Ma.eh in e :s c:
Co mmo d o r e Bus ines:s Ma.eh ine:s c: Co mmo d o r e Bus ines:s Ma.eh ines c: C o mmo d o r e Bus iness Ma.eh ines Note: Multiple programmable characters in the same line can only be made by overprinting. The programmable character cannot be changed when a line wraps around to the next line. Setting Spacing Between Lines: sa = 6 A secondary address assignment of 6 controls the number of steps between successive lines of print. There are 216 steps per inch, so a declared value ( ~ 127) of 27 produces eight lines per inch. A declared value of 72 produces three lines per inch. The default value is 36, which produces the standard 6 lines per inch. Example:
10 OPEN 4,4 20 OPEN 6,4,6 30 FORI= 1TO127 STEP4 40 PRINT #6, CHR$(1) 50 PRINT #4, ''HHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHHHH'' 60 NEXT 70 CLOSE6:CLOSE4 56