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 T------ Wraphup --_-------____----______________________---------
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.10 :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 #I
3300
GOSUB 3410 :CLOSE #l
3310
'
3320
LOCATE 7,l
3330 PRINT "DOWNLOAD TO PRINTER?
(DIP SWITCH 2-l MUST BE OFF)”
3340 S=O :PX=B :PY=l :SO$="Yes" :Sl$="No" :GOSUB 2820
3350 IF S THEN END
3360 LOCATE 11,l :PRINT "Select I/F board "
3370 S=PB :SO$="COLOR"
:Sl$="EONOCRO"
:PX=12 :PY=l :GOSUB 2820 :PB=S
3380
GOSUB 3480 :LPRINT E$;"3";CHR$(50);
3390 FOR CC=33 TO 126 :LPRINT CHR$(CC);" ";:NEXT CC
3400 LPRINT STRING$(lO,lO) :END
3410 U-----s Output to Diskette _-_~~_~__------~___-__________________
3420
PRINT#l,HD$;
3430
FOR CC=33 TO 126
3440
IF A(CC)<O THEN 3460
3450
PRINT#l,E$;"&";CHR$(O);STRING$(2,CC);AS(CC);P$(CC);
3460
NEXT CC
3470 PRINT#l E$'"$l"::RETURN
I I
3480 I------ Output to Print-r -_-_--------___------------------------
3490
IF QUA>0 OR SCR THEN 3510
3500 IF PT=l THEN LPRINT E$;"M";
3510 LPRINT HD$;
ELSE IF PT=2 THEN LPRINT CHR$(lJ);
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(BID$(A$(CC),Y,l)) :GOSUB 3590 :NEXT
Y
3560 FOR Y-1 TO LEN(P$(CC)) :Z=ASC(HID$(P$(CC),Y,l)) :GOSUB 3590 :NEXT Y
3570
NEXT CC
3580
LPRINT E$;"%l"::RETURN
3590
'
3600
IF NOT PB THEN 3630
3610
PP-INP(CH3BD) :IF PP<128 THEN 3610
3620 OUT kH3BC.Z :OUT bH3BE,5 :OUT &H3BE,4 :GOTO 3650
3630
PP=INP(&H379) :IF PP<128 THEN 3630
3640 OUT &H378,Z :OUT &H37A,5 :OUT bH37A,4
3650
RETURN
3660 t-----s plot character ~~~~---~~~~~~------~~~~-------~---~------~
3670 LOCATE X,Y :PRINT CS$;:RETURN
3680 LOCATE BX,BY :PRINT CS$;:RETURN
96