Gemini Industries Printer user manual Printing Capablllties

Printing Capablllties

10 CLS:PRINT"':PRINT"":PRINT"":PRIN'I*

20 PRINT"THISPROGRAMTAKESABOUT3 MINUTESTO RUN"

30 PRINT'PLEASETURNON YOURPRINTERANDSTAND BY" 100DIM E!TX(76,12)

110MASKX(l)=l28:MASKX(41-16 !20MASKX(21=64:MASKXWd 130MASKXt3)=32:MASKX(6)=4 !40LX:20:LY=20

150XFAC~72/LX:YFAC=?S/LY

!OOOREMPLOTCURVE 1010RAD=9 1020Xl=l9:Yl=lO 1030FORANG=OTO 360STEP19 !040Rl=ANGt6,29/360 1050X2=RAD~COS(Rl!+lO:YZ=RAD:SIN(RI,I+10 1060GCSUB3000

1070NEXTANG

1080FORANG=OTO 360STEP15 1090Rl=ANGtb,?fl/360 1100Q'=(ANG+150)#6,?fl/360. 1110X1~RADtCDS(Rl)tlO:Yl=RAD;SIN~Rl)rlO !l?OX2~RADtCOS(R2)tlO:Y2=RADfSrN(R2)clO !130GOSUB3000

1140NEXTANG 2000#?DTH"LPT!:",255 2010LPRINTCHRI(2!):"A":CHP$(61 2020CO!?ROW TO !1

‘IyOA(%""

?04(1LPR!N?CHR)(??):"K":CHR((l!?):CHR$(l): 2050FOR CDL=:TO 73

2060CURLL-1TO !

2070LPRINTCHRO~B!TX!COL,ROW~i; 2080NEXTI!

2090NEXTCOL 2100LPR!NT 2110NEXTRON ?!20LPRINT 2130END

3000REM DRAWA LINEFROMX!,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)