Advertisement
4030 IF NX<NV THEN NX=NY
$040 NS=[NTINX+l)
4050 DX=XlINS
4055 DY=YlINS
4060 FOR 1=1 TO NE
4070 Xl=Xl+DX:YI=Vl+DY
4080
60SUB
5000
4090 NEXT I
4100 RETURN
5000 RE" PLOT A POINT AT XI,V1
5010 XX=XlaXFAC:YY=YltVFAC
5020 COL=INT(XX)+!
5030 ROW=INT(VY/bJ
5040 XIT=INT(VY-ROW' 6 )+t
5050 Al=BITICOL,ROW)
5060 A2="ASKIXIT)
5070 BITICOL,ROWJ=USRI153b,AI,A2i
50BO RETURN
Gemini User's Manual
Figure 8-10 is the graphics program (refer to Figure
7-4)
amended for the
Atari computer.
10 DI" £$IS)
20 RE" DEFINE ESCAPE CHARACTERS
25 ES=CHR$(271
30 OPEN 14,8,O,'P"
35 RE" DEFINE PARA6RAPH SYMBOL IN PLACE
@
40 PRINT 14jESjCHR$(42);CHRS(11;CHR$(b4);CHR$(OljCHRS(ol;
45 PRINT 14;CHRSI9J;CHR$(O);CHRS(9l;CHR$(118);CHR$(9)jCHRS(Olj
47 PRINT 14jCHRS(1271,CHR$(0)
50 RE" SELECT DOWNLOADABLE CHARACTERS
60 PRINT 14;ES;CHR$(361;CHRS(I)
70 REM PRINT OUR NEM SYMBOL
80
PRINT
14;"@@@@@@1
90 CLOSE 14:END
Figure 8-11 is the downloading paragraph symbols program (refer to
Figure 8-2) amended for the Atari computer.
176
• •
• •
• •
•
• •
• •
• •
• •
•
• •
• •
• •
•
Advertisement
