Filter
Top Products
3450 FOR Y-l TO WI :BS-BS+CHRS(P(C!C.Y)) :NEXT Y
3460 IF NOT NLQ THEN BS-BS+STRINGS(35.0) :GOTO 3480
3470 FOR Y-l TO WI :BS-BS+CHRS(Q(CC.Y)) :LEXT Y
3480 LSET AS-B5 :PUT #l,M
3490 NEXT CC :RETURN
3500 ~_----
Output to printer -----------------___-----------------------------
3510
LPRINT HDS;
3520
FOR CC-33 TO 126
3530
IF A(CC)<O TEEN 3580
3540
LPRINT E5;"6";CHR5(O);STRING5(2,CC);:Z-A(CC)
:GOSUB 3600
3550 FOR Y-l TO WI :Z-P(CC.Y) :GOSUB 3600 :NEXT Y
3560
IF NOT NLP THEN 3580
3570 FOR Y-l TO WI :Z-Q(CC,Y) :GOSUB 3600 :NEXT Y
3580
NEXT CC
3590
LPRINT E5:"%1"::RETURN
3600
'
3610
IF PB THEN 3640
3620
PP-INP(SHBBD) :IF PP<128 THEN 3620
3630 OUT 6H3BC.Z :OUT 6HHJBE.5 :OUT 6H3BE.4 :GOTO 3660
3640
PP-INP(Mi379) :IF PP<128 THEN 3640
3650 OUT 6H378.Z :OUT SH37A.5 :OUl- hH37A.4
3660
RETURN
-
3670
I----- plot charact,,= --------------------------------------------------
3680 LOCATE X*2+1.Y*2+1
:PRINT CSt
3690 LOCATE X'2+2.Y*2+1
:PRINT css :RETURN
3700 LOCATE BX"2+1.BY"2+1 :PRIM CSS
3710 LOCATE BX'2+2,BY*2+1 :PRINT CS5 :RETURB
3720 LOCATE X+2.Y+2
:PRINT css :REluRN
3730 LOCATE BX+2,BY+Z
:PRINT CS5 :RETURN
98