—.
3450
3460
3470
-,-----
JqO”
3490
3500
3510
3!320
3530
3540
3550
3560
3570
3580
3590
36oO
3610
3620
FOR Y-1 TO WI :B$-B$+CHR$(P(CC,YJ) :NEXT Y
IF NOT NLQ THEN BS-B$+STRING$(35,0) :GOTO 348o
FOR Y-1 TO WI :B$-B$+CHR$(Q(CC,Y)) :NEXT Y
LSI?TA$-B$ :PuT#l,M
NEXTCC :RI?IIJRN
‘----- Output to Printer ------------------------------------------------
LPRINT HD$;
FOR CC-33 TO 126
IF A(CC)<O THEN 3580
LPRINT E$;-&’’;CHR$(0);STRING$(2,CC);:Z-A(CC):GOSUB 36OO
FOR Y-1 TO WI :Z-P(CC,Y) :GOSUB 3600 :NEXT Y
IF NOT NLQ THEN 3580
FOR Y-1 TO WI :Z-Q(CC,Y) :GOSUB 3600 :NEXT Y
NEXT CC
LFRINT E$;’’%l’’;:RETURN
IF PB THEN 3640
PP-INP(6H3BD) :IF PP<12S THEN 3620
3630 OUT &H3BC,Z :OUT $4H3BE,5 :OliT6H3BE.4 :GOTO 3660
3640 PP-INP(&H379) :IF PP<128 THEN 3640
3650 OUT &H378,z :OLiT&li37A.5:OUT &H37A.4
3660 RFT’URN
3670 ‘-----Plot character ----------------------------------------------------
3680 LOCATE X*2+1,Y*2+1 :PRINT CS$
3690 LOCATE X*2+2,Y*2+1 :PRINT CS$
37OO LOCATE BX*2+1,BY*2+1 :PRIWT CSS
3710 LOCATE BX*2+2.BY*2+1 ,PRINT CS$
3720 LOCATE X+2,Y+2 :PRIWT CS$
373o LOCATE BX+2.BY+2 :PRINT CS$
:
:R3TURN
:REllJRN
:RETURN
—
.
—
—
—
—
-.
—
—
—
—
—
.