I
1610 LPRINT ES: “S1” :“SUBSCRIPT” :ES: “’T’”:“,“
1620 LPRINT HS:CS:’’O0nnlnad characters: “:
1630 GOSUB 2090
1640 LPRINT DS:ES:’’%1”: ‘Select draft download character
1650 FOR 1=1 TO5
1660 LPRINT CHR$(60): ‘Print download character
1670 NEXT I
1680 LPRINT E$:’’%O”: ‘Select normal character
1690 GOSUB 2180
1700 LPRINT CS:E3:’’%1”: ‘Select NLQ download character
1710 FOR 1=1 TO 5
1720 LPRINT CHRS(60): ‘Print download character
1730 NEXT I
1740 LPRINT E$:’’%O” ‘Select normal character
1750 LPRINT
1760 LPRINT HS:C5:’4Uari0ue dot graphics densities:”
1770 0111 LOGOS(4)
1780 RESTORE 2390
1790 FOR ROU=l TO 4
1800 FOR COL=l TO 65
1810 REAO OG
1820 LOGO$(ROU) =LOGOS(ROW)+CHRS (OG)
1830 NEXT COL
1840 NEXT ROM
1850 LPRINT ES:’’A’’:CHRS(8) :
1660 FOR ROU=l TO 4
1870 LPRINT ““:
1880 FOR S=0 TO 3
1890 LPRINT EY3:’’~’’:CHR$(B):
1900 LPRINT CHRS(65):CHRS(0) :LOGO$(ROU):
1910 LPRINT ““:
1920 NEXT 8
1930 LPRINT
1940 NEXT ROU
“Set 8/72” line spacing
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300
LPRINT :LPRINT
FOR ROW=l TO 4
LPRINT ““:
FOR 8=4 TO 7
LPRINT ES:’’~’’:CHR$(B):
LPRINT CHRS(65) :CHR$(0);LOGOS (ROW):
LPRINT ““:
NEXT B
LPRINT
NEXT ROM.
LPRINT EYI:”@”
ENO

,,

“SUBROUTINES
‘Oefine draft dawnload character
LPRINT OS:E$:’’&’’ :CHR$(O):CHR$ (60) :CHR3(60):
RESTORE 2280
FOR M=O TO 11
REAO MM
LPRINT CHR$(MM):
NEXT M
RETURN
.
‘Define NLQ download character
LPRINT CS:ES:’’&’’ :CHRS(O) :CHRS(60):CHRS (60) :
LPRINT CHR5(0) :CHR.$(23):CHR.$ (0):
RESTORE 2310
FOR M=l TO 69
REAO MM
LPRINT CHR$(t’lM):,
NEXT M
RETURN
‘OCITA
‘Oraft dnwnload character data
OATA 139.124, 0, 66, 4, 64, 36, 16, 2. 16. 12, 0
124