Filter
Top Products
3170 IF FL=0 THEN A(CC)=-1
3180 BEEP
3190 CC=CC+l :
IF CC=127 THEN CC=33
3200 GOT0 1920
3210 I_---__ Wrap-up --------------_--___----------------------------
3220 CLS :LOCATE 1,l :PRINT "SAVE TO FILE?"
3230 S=O :PX=2 :PY=l :SD$="Yes" :Sl$="No" :GOSUB 2820
3240 IF S THEN 3310
3250 LOCATE 5,lO :PRINT "Output file name [";FI$;") ";
3260 INPUT FO$
3270 IF FO$="" AND FI$="" THEN 3250
3280 IF FO$="" THEN FO$=FI$
3290 OPEN FO$ FOR OUTPUT AS #1
3300 GOSUB 3410 :CLOSE #l
3310 '
3320 LOCATE 7,l
3330 PRINT "DOWNLOAD TO PRINTER?
(DIP SWITCH 2-l HUST BE OFF)"
3340 S=O :PX=8 :PY=l :SO$="Yes" :Sl$="No" :GOSUB 2820
3350 IF S THEN END
3360 LOCATE 11,l :PRINT "Select I/F board 'I
3370 S=PB :SO$="COLOR" :Sl$="RONOCRO"
:PX=12 :PY=l :GOSUB 2820 :PB=S
3380 GOSUB 3480 :LPRINT E$;"3":CHR$(SO);
3390 FOR CC=33 TO 126 :LPRINT CHR$(CC):" ";:NEXT CC
3400 LPRINT STRING$(lO,lO) :END
3410 I------ Output to Diskette
-____-___----_----_-------~-~-~~~~~~-~
3420 PRINT#l,HD$;
3430 FOR CC=33 TO 126
3440 IF A(C THEN 3460
3450 PRINT#l,E$;"&";CHR$(O);STRING$(2,CC);A$(CC);P$(CC):
3460 NEXT CC
3470 PRINT#l,E$;"%l";:RETURN
3460 t-e---- Output to printer __-__--__---___------------------------
3490 IF QUA>0 OR SCR THEN 3510
3500 IF PT=l THEN LPRINT E$;"M";
ELSE IF PT=2 THEN LPRINT CHR$(15);
3510 LPRINT HD$;
3520 FOR CC=33 TO 126
3530 IF A(CC)<O THEN 3570
3540 LPRINT E$;"&";CHR$(O):STRING$(2,CC);
3550 FOR Y=l TO 3 :Z=ASC(HID$(A$(CC),Y,l)) :GOSUB 3590 :NEXT Y
3560 FOR Y=l TO LEN(P$(CC))
:Z=ASC(BID$(P$(CC),Y,l)) :GOSUB 3590 :NEXT Y
3570 NEXT CC
3580 LPRINT E$;"%l";:RETURN
3590 '
3600 IF NOT PB THEN 3630
3610 PPuWIP(hH3BD) :IF PP<128 THEN 3610
3620 OUT &HJBC,Z :OUT &H3BE,5 :OUT 6H3BE.4 :GOTO 3650
3630 PP=INP(&H379) :IF PP<128 THEN 3630
3640 OUT &H378,Z :OUT 6H37A.5 :OUT 6iH37A.4
3650 RETURN
3660 1__-___ plot chara,-.ter -____-___---_----_---~-~----~-~-~~~~-~~~~~
3670 LOCATE X,Y
:PRINT CS$;:RETURN
3680 LOCATE BX,BY
:PRINT CS$;:RETURN
96