Advertisement
• •
• •
•
•
• •
• •
•
•
• •
• •
•
•
• •
•
•
•
Printing Capabilities
10 CLS:PRINT ":PRINT ":PRINT ·':PRIN
T ••
20 PRINT "THIS PROGRAM TAKES ABOUT 3 MINUTES TO RUN"
30 PRINT ' P LEASE TURN ON YOUR PRINTER AND STAND BY·
100
DIM BITX(76.12)
110 MASK%(I)=128:MASKXI4)=16
120 MASK%(2)=64
:~ASKX(5)=8
130 MASKi.(3)=32 :MASKX(61=4
140
LX=20:LY=20
150 XFAC=72/LX:YFAC=75/LY
1000 REM PLOT CURVE
1010
RAD=~
1020 Xl=19:Yl=10
1030 FOR ANG=O TO 360 STEP 10
1040 Rl=ANG'6.29/360
1050 X2=RADlCDS(Rl)+10:Y2=RADlSIN(Rl)+10
1060 SCSUB 3000
1070 NEXT AN6
10eo FOR ANG=O TO 360 STEP 15
1090 Rl=ANGt6.2S/360
1100 R2=(ANG+150).6.2S/360
1110 Xl=RAD*COS(Rl)+10:Yl=RAOlSIN(Rl)+10
1120 X2=RAOtCOS(R2)+10:Y2=RADtSINIR2)+10
1130 GOSUB 3000
1140
NEXT ANG
2000 WIDTH nLPT!:",25S
2010
LPRINT CHR$(27);"A';CHRS(6)
2020
FOR ROW=O TO 11
:O!O AS=""
:040
LPRINT CHRS(Z7):'K";CHRS(119):CHR$(1);
2050 FOR COL=1 TO 75
2060 FOR LL=l TO
~
2070
LPRINT CHR$(B!T%(COL.RDW));
2080 NEXT LL
2090 NEXT COL
2100 L?R!NT
2110
NEXT ROW
2120 LPRINT
2130 END
3000 REM DRAW A LINE
FROM
XI,V! TO X2.Y2
I
Figure 7-4a.
This BASIC program will allow you
to
create your own
low- and high-resolution bit-image graphics. (continued)
111
Advertisement
