Genicom GEK 00031B - Manual (Page 45)

GEK-00029B 5000 Series Programmer’s Manual 45
BASIC Programming Example for Skip to Channel
This is a sample program showing the use of the skip-to-channel
command. It makes use of the previously loaded EVFU program.
PROGRAM INSTRUCTION REMARKS
10 WIDTH “LPT1:”,255 Required by some BASIC languages to avoid
auto LF at column 80
20 LPRINT CHR$(27);”[0;1!p”; Go to top of form (channel 1)
30 LPRINT “TOP OF FORM”; Print the indicated words
40 LPRINT CHR$(27);”[0;3!p”; Go to channel 3
50 LPRINT “LINE 6”; Print the indicated words
60 LPRINT CHR$(27);”[0;4!p”; Go to channel 4
70 LPRINT “LINE 25”; Print the indicated words
80 LPRINT CHR$(27);”[0;5!p”; Go to channel 5
90 LPRINT “LINE 57”; Print the indicated words
100 LPRINT CHR$(27);”0;8!p”; Go to channel 8
110 LPRINT “END OF FORM”; Print the indicated words
120 END
NOTE
Establish Top of Form locally before
printing forms. When executing the
program, paper slews to the top of
the next form before beginning to
print.