Advertisement
•
• •
•
I
I
I
I
• •
II
I
I
•
II
I
•
• •
• •
I
•
Osborne
IE
- - - - - - - - - - - - - - - - - - - - - - - -
,.,q
10 REM DEFINE ESCAPE CHARACTER
20 ESCt=CHR'(27)
24 REM
COpy
CHARACTERS TO ROM
25 LPRINT ESC$jCHRt(42);CHR$(0)
30 REM DEFINE COPVR!6HT SYKBOL IN PLACE OF
@
40
LPRI~T
ESC$;CHRi(42)jCHR$(1)jCHR$(b4)jCHR$(0IjCHR$(2S);
45
LPRINT CHR$(341;CHRt(73);CHRS(20)jCHRt(6S);CHRt(20);CHRS(6S);
47
LPRINT CHRt(34IjCHR$(201
49 REM DEFINE COPYRIGHT SYKBOL IN PLACE OF
~
50
~PRINT
ESC$jCHRt(42IjCHRt(1);CHR$(381;CHRt(I);CHRS(2B);
5S
LPRINT CHR$!341;CHRt(73);CHR$(20IjCHR$(6S1jCHR$(20)j
57
LPRINT CHR$(6SljCHRS(34IjCHR$(20)
59
REK SELECT DONNLOADABLE CHARACTERS
60 LPRINT ESCS;CHR$(36';CHR$(1)
70 REK PRINT OUR NEW SYMBOL
SO LPRINT
·@~@~@&I&@'@~@&@&"
90
END
Figure E-14 is the downloading program presented in Figure
8-6
amend-
ed for the Osborne computer.
10 REK DEFINE ESCAPE CHARACTER
20 ESCS=CHR$(27)
30 LPRINT ESCtjCHRS(431;ESC$;IE";ESCSj"V";CHRS(I)jCHRt(30)
40
REK ISSUE MACRO COM"AND
50 LPRINT ESC$;CHRt(33)
60 LPRINT "EMPHASIZED AND EXPANDED BY "ACRO'
70 END
Figure E-15 is the macro-commands program (refer to Figure 81-7) amend-
ed for the Osborne computer.
205
Advertisement
