•
•
Afar; 8001400
I
•
•
1030
~ASK(31=tb:KASK(6)=2
•
1040 LX=20:LV=20
1050 XFAC=72!LX:YFAC=75/lV
•
2000 REK PLOT CURVE
2010 LET RAD=9
2020 Xl=19:Yl=10
•
2030 FOR AN6=O TO 360 STEP 10
2040 Rl=AN6'6.28/360
•
2050 X2=RAD.COS(Rl)+10
2055 Y2=RADlSIN(RI)+10
•
20bO 60SUB 4000
2070 NEXT AN6
I.
2080 FOR AN6=O TO 360 STEP
l~
2090 Rl=AN6f6.28/360
I.
2100 R2= (AN6+150) lb. 281360
2110 Xl=RAD.COSiRl)+IO
2115 Yl=RAD'SlN(Rll+IO
•
2120 l2=RADfCOS(R2)+10
2125 Y2=RADfSIN(R2)+10
•
2130 60SUe 4000
2140 NEXT AN6
•
:000 RE" SEND BIT
I~AGE
TO PRINTER
3005 OPEN '4,B,0,·P·
•
3010 PRINT 14jCHR$(27)j"A":CHR$(61
3020 FOR RON=O TO II
3040 PRINT t4;CHR$(27);"K";CHR$(119);CHR$(I);
•
3050 FOR COl=! TO 7S
3052 FOR ll=l TO 5
•
3054 RE=INT(BIT(CDL,RONll
3060 PRINT t4;CHR${RE);
•
30b5
NEXT Ll
3070 NEXT COL
3080 PRINT 14
•
3090 NEXT ROW
3100
PRINT 14;CHR$(27)j"A"jCHR${121
•
3105 PRINT 14,' ":PRINT 14,' •
3110 CLOSE 14
•
3150 END
4000 REK DRAW A LINE FRO" Xl, VI TO X2,V2
•
4010 XL=X2-Xl:YL=Y2-Vl
4020 NX=ABS(XL.XFAC):NY=ABS(Yl,YFACl
•
175