Advertisement
• •
•
•
I
I
I
•
I
II
I
I
I
I
I
I
I
•
I
I
I
•
•
Atar; 8001400
10 OIl! ES(5)
20
REI! DEFINE ESCAPE CHARACTERS
2S
ES=CHRt(27)
30 OPEN 14,8,O,'P'
35 REI! DEFINE COPYRIGHT SYI!BOL IN PLACE
@
40 PRINT 14;ES;CHRS(42);CHRS(lljCHRt(641;CHRS(O);CHR$(28l;
45 PRINT 14jCHRS(34)jCHRS/73);CHR$(20)jCHR${bS);CHRt(20);
47 PRINT 14;CHRS(65);CHRS{34);CHRS(20)
50 REM SELECT DOWNLOADABLE CHARACTERS
60 PRINT '4jES;CHRS(3b)jCHRS(I)
70 REI! PRINT OUR NEN SYMBOL
SO PRINT 14;'COPV RIGHT
@
1983"
90 CLOSE 14:END
Figure 8-12 is the downloading copyright program (refer to Figure
8-4)
amended for the Atari computer.
10 OIl! ESI5'
15 OPEN t4,B,0,'P'
20 REI! DEFINE ESCAPE CHARACTERS
25 ES=CHRS(27)
27 REI! COPY CHARACTERS TO RAil
28 PRINT 14;ES;CHRS(42);CHRS(01
3S REI! DEFINE COPYRI6HT SYMBOL IN PLACE
@
40 PRINT '4;ES;CHRS(421;CHRS(I);CHRS(b4);CHRS(OljCHRS(2S);
45 PRINT 14;CHR$(341;CHR$(73);CHRS(20);CHRS(b5);CHR${20Ij
47 PRINT 14;CHR$(b5);CHRS(341;CHRS(20)
50 REI! SELECT DONNLOADABLE CHARACTERS
bO PRINT 14;ES;CHRS!3b1iCHRS(1)
70 REM PRINT OUR NEN SVKBOL
SO PRINT 14i'CDPY RIGHT
@
1983"
90 CLOSE t4:END
Figure 8-13 is the downloading program presented in Figure
8-5
amend-
ed for the Atari computer.
177
Advertisement
