Advertisement
•
• •
I
• •
I.
I
• •
• •
I
• •
• •
• •
• •
•
•
TRS·8D
70 IF
J
=
"-1 THEN LPRINT 1;"'144 INCH SPACING
";:60T
o
90
80 LPRINT TAB(30);
90 FOR N = 1 TO 40 : LPRINT CHR$(241Ij : NEXT N:LPRINT
100 NEXT
J
110
NEXT
I
120 LPRINT CHR$(Z7)j"@":END
I
Figure F-3 is the vertical spacing program (refer to Figure 6-5) amended
for the TRS-80.
10 RESTORE
20
LPRINT CHRS(27)jl@I;CHR$(27),"l"
30 FOR
LI :
1
TO
2
40
LPRINT CHRS(27);"K";CHR$(1141;CHR$(O);
50 FOR
SPACE:
1
TO 100:LPRINT CHRS' O );:NEXT SPACE
60 FOR COL"
=
1 TO 14:READ C:LPRINT CHR$(Clj:NEXT COL"
70 LPRINT : NEXT LI
90
DATA 14,16,34,64,140,140,128,128,140,140,64,34,16,14
90 DATA 224,16,232,68,34,18,18,18,19,34,68,232,16,224
100 LPRINT CHR$(Z7);"@"ILPRINTILPRINT:LPRINT
Figure F-4 is the dot graphics program presented in Chapter 6 (the one
that puts
a
smile on your paper) amended for the TRS-80.
10
LPRINT CHR$(1631;CHRf(161';CHRf(27);"A";CHRf(6)
ZO
LPRINT CHR'(162);CHR$(lbO);CHR$(Z71;IZ"
30 END
Figure F-5 is the circle program presented in Chapter
7,
amended for the
TRS-80.
10
LPRINT TAS(I);CHRS(163';CHR$(27);"A
a
;CHRf(6)
20 LPRINT CHR$(160)
30 END
Figure F-6 is the tilde program presented in Chapter
7
amended for the
TRS-80.
211
Advertisement
