Filter
Top Products
3450 FOR Y-l TO WI :BS=B$+CHRS(P(CC.Y)) :NEXT Y
3460 IF NOT NLQ THEN BJ=B$+STRING$(35.0) :GOTO 3480
3470 FOR Y-l TO WI :BE=BB+CHR5(Q(CC.Y)) :NEXT Y
3480 LSET AS-B5 :PUT C1.M
3490 NEXT CC :RETURN
3500 I_-_-_ Output to printer ---____________________________________
3510 LPRINT HDO;
3520 FOR CC-33 TO 126
3530
IF A(CC)<O THEN 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 NLQ THEN 3580
3570 FOR Y-l TO WI :Z=Q(CC.Y) :GOSUB 3600 :NEXT Y
3580
NEXT CC
3590
LFRINT E5;"%1"::RETURN
3600
'
3610
IF PB THEN 3640
3620
PP=INP(GHJBD) :IF PP<128 THEN
3620
3630 OUT 6H3BC.Z :OUT 6H3BE.5 :OUT &H3BE,4 :GOTO 3660
3640
PP-INP(6H379) :IF PP<12S THEN
3640
3650 OUT 6H370.Z :OUT 6H37A.5 :OUI hH37A.4
3660
REIURN
3670
I----- Plot character -______________-_--_____________________-----------
3680 LOCATE X*2+1.Y*2+1
:PRINT CS5
3690 LOCATE X'2+2.Y'2+1
:PRINT CSS :RETURN
3700 LOCATE BX"2+1,BY*2+1 :PRINT CSS
3710 LOCATE BX*2+2,BY*2+1 :PRINT CS5 :RETURN
3720 LOCATE X+2.Y+2
:PRINT CS5 :RETURN
3730 LOCATE BX+2,BY+2
:PRINT CS$ :RENRN
-
98