Star Micronics 10X User Manual page 197

•
I
Commodore VIC·20 & C·64
I
• •
:0
RE~
DEFINE ESCAPE CHARACTER
20 ESCS=CHR$(271
•
10
RE~
DEFINE PARAGRAPH SYMBOL IN PLACE
@
35 OPEN4,4.5:CMD4
•
~o
PRINT ESCS;CHRS(42ljCHRSlll;CHR$(64)jCHRS(O)jCHRS(b);
45 PRINT CHR$(9):CHR$(O);CHR$(9);CHRS!ltS);CHR$(9);CHRS!O);
•
47 PRINT CHRS(1271;CHRS(O)
50 REM SELECT DOWNLOADABLE CHARACTERS
60 PRINT ESCS;CHRS!3b);CHRS!ll
!I
70 REM PRINT OUR NEW SYMBOL
80 PRINT
.~@@@@!' •
90 PRINTI4:CLOSE4:END
I
Figure C·11 is the downloading paragraph symbols program (refer to
Figure 8-2) amended for the Commodore computer.
• •
I
• •
I
!O REM DEFINE ESCAPE CHARACTER
20 ESCS=CHR$(271
•
30 RE" DEFINE COPYRIGHT SY"BOL IN PLACE
@
35 OPEN4,4,5:CKD4
I
40 PRINT ESC$;CHRS(42);CHR${1);CHR${b4),CHRS!O)jCHR$(28);
45 PRINT CHR$(34)jCHR$/73);CHRS/20);CHR$(bS)jCHRS(20)j
•
47 PRINT CHRS{bS);CHRS(34)jCHRS(20)
50 RE" SELECT DOWNLOADABLE CHARACTERS
60 PRINT ESC$jCHRS!3b);CHRS{1)
•
70 RE" PRINT OUR NEW SY"BOL
90 PRINT ·COPY RIGHT
@
19S3"
•
90 PRINTI4:CLOSE4:END
•
Figure C·12 is the downloading copyright program (refer to Figure 8-4)
amended for the Commodore computer.
I
189