Advertisement
I
Gemini User's Manual
- - - - - - - -
This time we will use the downloadable feature to replace the
@
symbol with the copyright symbol.
10
~E"
Defin. tht Esca:,
:~arac:t·
:0 ESCS=CHR$(271
:0 REM Define coovr:ght svmbol in clace of
@
40 l?P'INT
ESC'ICHRS(4:)ICHR'(!)IC~R.{;4lICHP"(O)ICHp"(2e\ICHR'(34)ICH~'(73)1
:HRS(:O):CHR$(b~):CHR$(20):CHRS(6~):CHRS(~4):CHRS(20):
SO RE" Select downloadable characters
~O
LPR!NT SSCS:CHRS(36':CHRS(l':
70 REM Drint our new svmbo:
30 LPRINT ·Ccovrlght
$
1983"
Figure
8-4. Program listing to print:
' S
What happened? All we got was the copyright symbol and
nothing else. This happened because none of the other characters
in the download area (RAM) have been defined. So you need one
more command when you are only replacing a few characters at
a time:
CHR$(27) CHR$(42) CHR$(O)
This code copies all of the normal characters into the
downloadable area (RAM) of your printer. Let's insert this into Ex-
ample 2 before we define our copyright symbol.
!~
REM Define the Es:ace :hara:te"
:0 ESCS=CHRt(27)
24
RE~
:c:v characters
~c
RAM
:5 LPR!ST EScs:CHRS(42):CHP.S(O}:
30
RE~
DefIne cocypight symbol :r :la:e of
@
'0
~FR!NT
ESCS:CHRS(42':CHRS{!!:CHRSI64) :CHRS(0):CHR$128l:CHRS!34':CHRSI73):
:HRS(20):CHR'(65):CHRS!20!:CHR$!65):CHRS(34!:CH~S(2C\:
~O
RE" Select jcwnl:adable
c~aracters
~0
LPRINT ESC':
CfJRS (361 : CYRI
(1):
·0 REM
p·~~t
our
,e~
SVlbC!
80
LD~INT
"Co=vpjght
@
!99~"
Figure 8-5. Program listing to print:
•••• !."-!o-
.,
...
Now things look a little more shipshape for the editors.
118
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Advertisement
