Advertisement
•
Gemini User's Manual
•
1130 60SUB 3000
1140
NEXT
2000 60SUB 5000
~010
LPRINT CHRS(27);"A";CHRSlb)
2020 FOR RON=O TO
11
2040
LPRINT CHRS(271j"K"jCHRS!1191jCHRSll1j
2050 FOR COL=! TO 75
:060 FOR LL=l TO 5
2070
LPRINT CHRS(BIT7.(COL,RONl);
2090 NEXT:NEXT:lPRINT:NEXT:LPRINT
2090 END
3000
RE" DRAN A LINE FRO" Xl,YI TO
X2,Y2
3010
XL=X2-Xl:Vl=V2-Yl
3020 NX=ABS(Xl.XFAC):NV=ABS(YL.VFACl
3030 IF NJ.<NV THEN NX=NY
~040
M51=!NT!NX+!)
3050 DX=XL/N5X:DY=YL/NS:
3060 FOR 1=1 TO NS1
3070
Xl=Xl+DX:Vl=Vl+DY
:080 SOSUB 4000
3090 NEXT
!
3100
RETURN
4000 RE" PLOT A POINT AT XI,YI
4010
XX=XllXFAC:YY=YI' V FAC
4020
COl=INT(XX+ll
4030 ROW=INT(VVi6)
4040
XJT:=INT(VV-(6.RONl)+1
lOSO BIT%(COL,ROWI=BIT%(COL,ROW) OR
"ASK~(XIT%l
4060 RETURN
5000
FOR 1=0 TO II:FOR J=I TO
75
SOlO IF BIT%{J,I)=12 THEN BIT7.(J,Il=14
5020 NEXT:NEXT:RETURN
Figure F-10 is the graphics program (refer to Figure
7-4)
amended for the
TRS-80.
10 REM DEFINE THE ESCAPE CHARACTER
20 E5C$=CHR$(27)
30 REM DEFINE PARAGRAPH SYMBOL IN PLACE OF
@
40
LPRINT ESC$;CHR$(42l;CHR$(1);CHRS(b4)jCHR$(O);CHR$(6);CHR$(9)iCHR$(O);
214
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Advertisement
