Advertisement
I
Gemini User's Manual
- - - - - - -
10 RE" DEFINE ESCAPE CHARACTER
20 ESCS=CHRS(27)
22 OPEN4,4,5:C"D4
24 RE" COpy CHARACTERS TO
RA~
25 PRINT ESCS;CHRS!42'jCHRS(01
30 RE" DEFINE COPYRIGHT SYMBOL
IN
PLACE
@
40
PRINT ESCS;CHRS(42IjCHRS[11;CHRS(64);CHRt(O';CHRS!28';
45 PRINT CHRS(341;CHRt!731;CHRS(20IjCHRS(6SI;CHRS(201;
47
PRINT CHRS(65';CHRt(341;CHR$(20)
50 RE" SELECT DOWNLOADABLE CHARACTERS
bO
PRINT ESCS;CHRS(36);CHR$(I)
70 REM PRINT OUR NEN SYMBOL
90
PRINT ' C OPY RIGHT
@
1983"
90
PRINTI4:CLOSE4:END
Figure C-13 is the downloading program presented in Figure 8-5 amend-
ed for the Commodore computer.
:0
REM DEFINE ESCAPE CHARACTER
20 ESC$=CHRS(27)
22 OPEN4.4,5:CMD4
24
REM COpy CHARACTERS TO RA"
25 PRINT ESCS;CHR$!421;CHRS(0)
30 REM DEFINE COPYRI6HT SYMBOL IN PLACE
@
40 PRINT ESC$;CHRS[421;CHRS(1);CHRS(64';CHRSIO);CHR$(28);
45 PRINT
CHR$(34):CHR$(73';CHR$(20);CHR$(6SI;C~SI20)j
47 PRINT CHRS(651;CHRSI34);CHRS(201
49
RE" DEFINE COPYRIGHT SY"BOL IN PLACE OF
~
50
?RINT ESCS;CHRS(42';CHRS(1IjCHR$(3S);CHR$ll';CHRS(2S);
5S PRINT CHRS(34);CHRS(73
I
jCHR$(20ljCHR$(6S);CHR$(20);
57 PRINT CHRS(bS);CHRS(34)iCHRS(20)
59 RE" SELECT DOWNLOADABLE CHARACTERS
bO
PRINT ESC$;CHRS(36);CHR${1)
70 RE" PRINT OUR NEW SY"BOL
80 PRINT
'@~@'@&@'@&@&@&@"
90
PRINTI4:CLOSE4:END
Figure C-14 is the downloading program presented in Figure 8-6 amend-
ed for the Commodore computer.
190
I
• •
•
I
• •
• •
• •
I
• •
• •
•
I
I
•
I
•
I
Advertisement
