80 LX=~O : LY=20
90 LXFAC=72/LX : LYFAC=~'~'/LY
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
it:
;zi
2:
410
420
430
440
450
460
.470
480
600
610
620
630
640
650
1 Plot curve
GOSUB 600
1
1 Send bit image map to printer
LPRINT CHR$(27);"A";CHR$(6);
FOR ROW%=0 TO MAXROW%
A$=""
LPRINT CHR$(27) ;"*";CHR$(O);CHR$(MAXCOL%);
CHR$(O) ;
FOR COL%=l TO MAXCOL%
A$=A$+CHR$(BIT%(COL%,ROW%))
NEXT COL%
LPRINT A$;" It
NEXT ROW%
LPRINT CHR$(27>;"A";CHR$(l2);
END
1
) Subroutine to draw a line from Xl,Yl to
X2,Y2
I
XL=X2-Xl : YL=Y2-Yl
NX=ABS(XL*LXFAC) : NY=ABS(YL*LYFAC)
IF NX < NY THEN NX=NY
NS$=INT(NX+l)
DX=XL/NS% : DY=YL/NS%
'FOR I%=1 TO NS%
Xl-Xl+DX : Yl=Yl+DY
GOSUB 400
NEXT 1%
RETURN
I
1 Subroutine to plot a point at Xl,Yl
-
XX=Xl"LXFAC : YY=Yl"LYFAC
COL%=INT(XX)+l
ROW%=INT(YY/6)
XIT%=INT(YY-ROW%s6)+l
BIT%(COL%,ROW%)=BIT%(COL%,ROW%) OR MASK%(XIT%)
RETURN
?
( Subroutine to plot a circle
!
RAD=9
x1=19 : Yl=lO -
FOR ANG%=O To 360 STEP 10