Advertisement
•
I
Apple /I Plus
~
!I
I
2090 RI
II
ANG
l
6.28
I 360
2100 R2 = (ANG
+
150) • 6.28
I 360
•
2110 XI
II
RAD. COS (Rll
+
10:Y!
10
RAD • SIN (Rll
+
10
2120 X2
=
RAD. COS (RZ)
+
IOeV2 : RAD • SIN (R2)
+
10
I
2130 GOSUB 4000
2140 NEXT ANG
•
2150 BITt (39.0) : 4
3000
REM SEND BIT IMAGE HAP TO PRINTER
3005 PRfi
!
•
3006 PRINT CHRt (9);"255N"
3010 PRINT CHR$ (27);"A"; CHRS
(6)
•
3015 PRINT CHRt (13)
3020 FOR ROW: 0 TO II
•
3025 PRINT CHR. (2711
OK",
CHR. (1191; CHRt
(1);
3050
FOR COL : I TO
7~
•
3055 FOR LL : 1 TO 5
3060 PRINT CHR$ (BITt(COL,RON));
•
3065 NEXT LL
3070 NEXT COL
3080 PRINT
•
3090 NEXT ROW
3100 PRINT
•
3102 PRI 0
3110
END
•
4000 REM
DRAM A LINE FROM Xl,Yl TO X2,Y2
4010 XL = X2 - XI:YL = Y2 - Yl
•
4020 NX
=
ABS (XL' XFAC)INV
10
ABS (VL • YFAC1
4030 IF NX
<
NY THEN NX = NY
4040 NSt
10
INT (NX
+
1)
•
4050 DX = XL
I
NSX:DY = YL
I
NSt
4060 FOR 1 = 1 TO NSt
•
4070 Xl = Xl
+
DX:Yl = VI
+
DY
4080 60SUB 5000
•
4090 NEXT I
4100 RETURN
•
5000 REM PLOT A POINT AT XI.VI
5010 XX
II
XI • XFAC:YY
=
Yl • YFAC
5020 COL : 1NT (XXI
+
1
•
5030 ROW = INT
(yv
I 6)
5040 X ITt
=
I NT
(YY -
(6 • ROM))
+
1
•
5042 POKE 250,BITX(COL,RONl
5044 POKE 251,MASKX(XITX)
I
161
Advertisement
