Advertisement
I
• •
• •
•
• •
• •
I
• •
•
I
•
I.
il
•
• •
• •
I
•
Osborne
3030
At:··
3040 lPRINT CHR$(27);'K"jCHRt(119)jCHR$(1Ij
3050 FOR COLI
=
1 TO 75
3055 FOR Ll=1 TO 5
3060 LPRINT CHR$'BITI(COLI,RONX));
3065 NEXT LL
3070
NEXT
COLI
3080 LPRINT
3090 NEXT ROllI
3100 LPRINT CHR$(27)j"A·jCHR$(12)
3110
END
4000 RE" DRAW A LINE FRO" XI,Y! TO X2,V2
4010
XL=X2-Xl :YL=Y2-Yl
4020 NX=ABS(XL' X FAC) : NY=ABS(VLtVFACI
4030 IF NX<NV THEN NX=NY
4040 NS%=lNTINX+l)
4050 DX=XL/NSI : DY=Yl/NS%
4060 FOR IX=! TO N51
4070 Xl=Xl+DX
: Yl=Yl+DY
4080 GCSUB
5000
4090 NEXT
It
4100 RETURN
SOOO RE" PLOT A POINT AT XI,Y!
5010 XX=Xl.XFAC
:YY=YltYFAC
5020 COLX=INT(XX)+1
5030 RDII%=INT(YV/b)
5040 XIT%=INT(YY-ROWXtb)+l
5050 BIT%(COL%,ROW%)=BIT%(COL%,ROWX) OR "ASKX(XITl)
5060 RETURN
Figure E-10 is the graphics program (refer to Figure 7-4) amended for the
Osborne computer.
10
REK DEFINE ESCAPE CHARACTER
20 ESC$=CHRS(271
30 REK DEFINE PARAGRAPH SVKBDL IN PLACE OF •
40 LPRINT ESC$;CHR$C42'jCHR$(1)jCHRtI64)jCHR$(0);CHRt(6);
4S LPRINT CHR$(2S)jCHRSI0);CHR$(2S);CHR$(118)jCHR$(2SljCHR$(Olj
47 LPRINT CHR$(127);CHR$10)
50 RE" SELECT DOWNLOADABLE CHARACTERS
203
Advertisement
