Star Micronics Radix User Manual page 218

204 Radix User's Manual
2140 GOSUB 4000
2150 GOSUB 6000
2160 NEXT PI
3000 REM SEND BIT IMAGE MAP TO PRINTER
3090 PR# 1
3100 PRINT CHR$ (9); "0N"
3110 x = (40 - LEN (TI$) / 2)
3120 FOR I = 1 TO x: PRINT " "j: NEXT I
3130 PRINT EM$;TI$;CE$;LF$
3140 PRINT VT$;VT$;VT$
3150 PRINT ES$;"A"; CHR$ (6)
3160 FOR I = 0 TO 48: PRINT TXT$(I): NEXT I
3165 PRINT RF$;VT$;VT$;VT$;
3166 PRINT LF$;LF$;LF$;LF$;LF$;LF$
3170 FOR ROW = 0 TO 35
3180 PRINT ES$;"K"; CHF@ (82); CHR$ (l);SP$;
3190 FOR COL = 1 TO 190: PRINT CHR$ (BIT%(COL,ROW));:
NEXT
3192 PRINT " "
3210 NEXT ROW
3250 PRINT ES$;"2";FF$
3255 PR# 0
3257 HOME
3260 END
4000 REM
DRAW A LINE FROM X1,Yl TO X2,Y2
4010 XL = X2 - Xl:YL = Y2 - Yl
4020 NX = ABS (XL * XFAC):NY = ABS (YL * YFAC)
4030 IF NX ( NY THEN NX = NY
4040 NS% = INT (NX + 1)
4050 DX = XL / NS%:DY = YL / NS%
4060 FOR I = 1 TO NSJ
4070 Xl = Xl + DX:Yl = Yl + DY
4080 GOSUB 5000
4090 NEXT I
4095 PRINT "*";
4100 RETURN
5000 REM PLOT A POINT AT xl,Yl
5010 XX = Xl * XFAC:YY = Yl * YFAC
5020 COL = INT (xx) + 1
5fJ3jiI
ROW = INT (YY / 6)
5040
XIT% = INT (YY - (6 * ROW)) + 1
5042 POKE 250,BIT%(COL,ROW)
5044 POKE 251,MASK%(XIT%)
5046 CALL 768
,. I
:
--
-