Filter
Top Products
Printing Capablllties
10 CLS:PRINT "':PRINT "":PRINT "":PRIN' I*
20 PRINT "THIS PROGRAM TAKES ABOUT 3 MINUTES TO RUN"
30 PRINT 'PLEASE TURN ON YOUR PRINTER AND STAND BY"
100 DIM E!TX(76,12)
110 MASKX(l)=l28:MASKX(41-16
!20 MASKX(21=64 :MASKXWd
130 MASKXt3)=32 :MASKX(6)=4
!40 LX:20:LY=20
150 XFAC~72/LX:YFAC=?S/LY
!OOO REM PLOT CURVE
1010 RAD=9
1020 Xl=l9:Yl=lO
1030 FOR ANG=O TO 360 STEP 19
!040 Rl=ANGt6,29/360
1050 X2=RAD~COS(Rl!+lO:YZ=RAD:SIN(RI
1060 GCSUB 3000
1070 NEXT ANG
1080 FOR ANG=O TO 360 STEP 15
1090 Rl=ANGtb,?fl/360
1100 Q'=(ANG+150)#6,?fl/360 , .
,I+10
1110 X1~RADtCDS(Rl)tlO:Yl=RAD;SIN~Rl)rlO
!l?O X2~RADtCOS(R2)tlO:Y2=RADfSrN(R2)clO
!130 GOSUB 3000
1140 NEXT ANG
2000 #?DTH "LPT!:",255
2010 LPRINT CHRI(2!):"A":CHP$(61
2020 CO!? ROW TO !1
‘IyO A(%""
?04(1 LPR!N? CHR)(??):"K":CHR((l!?):CHR$(l):
2050 FOR CDL=: TO 73
2060 CUR LL-1 TO !
2070 LPRINT CHRO~B!TX!COL,ROW~i;
2080 NEXT I!
2090 NEXT COL
2100 LPR!NT
2110 NEXT RON
?!20 LPRINT
2130 END
3000 REM DRAW A LINE FROM X!,Y! TO X?,Y?
Figure 7-4a.
This BASIC program will allow you to create your own
low- and high-resolution bit-image graphics. (continued)