Advertisement
~
_________________________________ G_6_m_i_n'_·U_S_6_'·S __ M_8_nu __ 8t
10 DIM E,(S)
15 OPEN t4,8,O,·P"
20 REM DEFINE ESCAPE CHARACTERS
2S ES=CHRS(27)
27 REM COpy CHARACTERS TO RAM
28
PRINT 14;E$;CHR'(42),CHR$(0)
3S REM DEFINE COPYRIGHT SYMBOL IN PLACE
@
40 PRINT 14;ES;CHRS(42);CHR$(I)jCHR$(64);CHR$(0);CHR'(2Bl;
45 PRINT 14;CHR$(34);CHRS(73);CHR$(20)jCHR$(bS);CHR$(20);
47 PRINT 14;CHRS(bS);CHRS(34J:CHRS(20)
49
REM DEFINE COPYRIGHT SYMBOL IN PLACE
&
50
PRINT 14;ES;CHR$(42);CHRS(1';CHR$(38);CHR$(lJ;CHR$(2Bl;
55
PRINT 14;CHR$(34):CHR$(73),CHR$(20)jCHR$(bSl;CHR$(201;
57
PRINT 14;CHR$(6S);CHR$(34J;CHRS(20)
59 REM SELECT DOWNLOADABLE CHARACTERS
60 PRINT 14;E$:CHR$(3b):CHR$(1)
70 REM PRINT OUR NEW SYMBOL
90 PRINT
t4;'@'@~@&@~@&@l@&@&@"
90 CLOSE 14:END
Figure 8-14 is the downloading program presented in Figure
8-6
amend-
ed for the Atari computer.
5
DIM
£$(5)
10
REM DEFINE ESC CHARACTER
20
E$=CHR$(27)
30
OPEN
14,8,O,"P'
40
PRINT 14;E$;CHR$(43);ES;"E";E$;"W
1
;CHR$(I';CHRS(30)
50 REM ISSUE MACRO COMMAND
bO PRINT i4:ES;CHR$(33)
70 PRINT 14:"EIIPHASlZED AND EXPANDED BY MACRO·
80
CLOSE 14:END
Figure 8-15 is the macro-commands program (refer to Figure 8-7) amend-
ed for the Atari computer.
178
• •
•
•
• •
•
• •
• •
•
• •
•
• •
•
• •
•
•
•
Advertisement
