Advertisement
10 REM DEFINE THE ESCAPE CHARACTER
20 ESCS=CHRS(27)
24 REM COPY CHARACTERS TO RAM
25 LPRINT ESCSjCHR$(42);CHRS(0)
30 REM DEFINE COPYRIGHT SYMBOL
IN PLACE OF
@
Gemini User's Manual
40 LPRINT ESCSjCHRS(42)jCHR$(1);CHR$(b4)jCHRS(0)jCHR$(28):CHR$
(34);CHRS(73)jCHR$(20)jCHRS(65)jCHRS(20)jCHRS(bS)jCHRS(34)jCHR
$(20)
44
REM DEFINE COPYRIGHT SYMBOL IN PLACE OF
~
45 LPRINT ESCSjCHRS(42)jCHRS(lljCHR$(38)jCHRS(1)jCHRS(28)jCHR$
(34)jCHRS(73)jCHRS(20)jCHR$(b5)jCHRS(20)jCHRS(6S)jCHRS(34JjCHR
$(20)
~O
REM SELECT DOWNLOADA8LE CHARACTERS
60 LPRINT ESC$jCHRS(3b)jCHR$(1)j
70
REM PRINT OUR NEW SYMBOL
80
LPRINT
"@~@~@~@&@&@&@~@&@&'
QO END
Figure F-14 is the downloading program presented in Figure
8-6
amend-
ed for the TRS-80.
10 REM DEFINE ESCAPE CHARACTER
20 ESCS=CHRS(27)
30 REM DEFINE MACRO TO BE EMPHASIZED AND EXPANDED TEXT
40 LPRINT ESCS;CHRS(43)jESCSj"E";ESCSj"W';CHR$(1);CHRS(30!
SO REM ISSUE MACRO CDMMAND AND TRY PRINT!NG
60 LPRINT ESCSjCHR$(33)
~O
LPRINT "EMPHASIZED AND EXPANDED BY MACRO"
80 END
Figure F-15 is the macro-commands program (refer to Figure 8-7) amend-
ed for the TRS-80.
216
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Advertisement
