Advertisement
•
I
•
I
I
• •
• •
• •
• •
II
I
• •
• •
• •
•
I
TRS·80
CHR$(9) jCHR$(11S) jCHRS(9);CHR$(O)jCHRS(127);CHR$(O)
50 RE" SELECT DOWNLOADABLE CHARACTERS
60 LPRINT ESC$;CHR$(3c)jCHR$(1)
70
RE~
PRINT DUR NEW SY"BOL
80 LPRINT
' @ @@@t@"
90 END
Figure F-11 is the downloading paragraph symbols program (refer to
Figure 8-2) amended for the TRS-80.
10 RE" DEFINE THE ESCAPE CHARACTER
20 ESC$=CHR$(27)
30 RE" DEFINE COPYRIGHT SY"BOl IN PLACE OF
@
40 LPRINT ESCSjCHRS(421;CHRS(lljCHR$(c4);CHR$(0);CHRS(2S)jCHRS
(34);CHR$(73)jCHR$(201;CHR$(6S);CHRS(20);CHR$(6SI;CHR'(34);CHR
S(20)
50 RE" SELECT DOWNLDADABLE CHARACTERS
60 LPRIHT ESCS;CHR$(36);CHRS(1);
70 REM PRINT OUR NEW SYMBOL
SO LPRINT ' C OPY RIGHT
@ 1983"
90 END
Figure F-12 is the downloading copyright program (refer
to
Figure 8-4)
amended for the TRS-80.
10 RE" DEFINE THE ESCAPE CHARACTER
20 ESC$=CHR$ 1m
24 REM COpy CHARACTERS TO RA"
25 LPRINT ESC$jCHR$(42);CHR$(0)
30 REM DEFINE COPYRIGHT SY"BOL IN PLACE OF
@
40 LPRINT ESC$;CHR$(42);CHR$(I)jCHR$(64);CHR$(0);CHRS(28)jCHR$
(34);CHRS(731:CHR$(20)jCHR$(65)jCHR$(20):CHR$(bS);CHRS(341;CHR
$
CO)
50 RE" SELECT DONNLOADABLE CHARACTERS
60 LPRINT ESCSjCHR$(36);CHR$(!lj
70 REM PRINT OUR NEW SYMBOL
80 LPRINT ' C OPY RIGHT
@ 1983"
qo END
I
Figure F-13 is the downloading program presented in Figure
8-5
amend-
ed for the TRS-80.
215
Advertisement
