Vertical Formatting; Using Tabs With Basic - Epson 8133 User Manual

New apple ii intelligent parallel interface
Table of Contents

Advertisement

In this case n is the total number of lines on a page; if you set n to 0,
form feeds are disabled, and printing is continuous.
VERTICAL FORMATTING
11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
where
n
is equal to the total number of columns within which the TAB
command will function. Ifno value is specified for
n,
or if the value is
less than 48, normal APPLE tabbing is restored.
The following program illustrates how the command is used:
USING TABS WITH BASIC
1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111!111111111111111111111111111111111111
The TAB command in BASIC was designed to work with the 40
column APPLE screen. It does not work as expected if a command is
given to tab to a column greater than column 40. The Epson # 8133
Interface Board has a command which does allow tabulation beyond
40 columns without difficulty. The command is:
<CTRL>-ln?
AB
ABCD
130 PRINT CHRS (9!;"50?"
140 FOR
J
= S TO 45 STEP 5
150 PRINT TAB< Jl
11
ABCD
1;
160 NEXT J
170 PRINT
180 RETURN
190 FOR
J
= 5 TO 45 STEP 5
200 PRINT TAB ( Jl "ABCD";
210 NEXT
J
220 PRINT
230 RETURN
240
ABCD
CD
250 FOR
J
= 1 TO 5
260 FORK= 0 TO 9
270 PRINT K;
280 NEXT K,J
290 RETURN
The output of the program is like this:
APPLESOFT TABS
01234567890123456789012345678901234567890123456789
ABCD
ABCD
ABCD
ABCD
ABCD
ABCD
set page length
10 0$ = CHR$ (13l
+
CHRS
(4)
20 PRINT DS;"PR£1"
30 PRINT CHRS (9l;"50N"
35 REN LINE 30 IS ESSENTIAL TO SET PAGE WIDTH
40 PRINT "APPLESOFT TABS"
50 GOSUB 250
60 GOSUB 190
70 PRINT : PRINT : PRINT
80 PRINT "CORRECTED TABS'
90 GOSUB 250
100 GOSUB 130
110 PRINT DS;"PR£0'
120 END
<CTRL>-lnP
22
23

Advertisement

Table of Contents
loading

Table of Contents