User's Manual ZA-200 / ZA-250
User's Manual ZA-200 / ZA-250
User's Manual ZA-200 / ZA-250
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
I<br />
1610 LPRINT ES: “S1” : “SUBSCRIPT” :ES: “’T’” : “ , “<br />
1620 LPRINT HS:CS:’’O0nnlnad characters: “:<br />
1630 GOSUB 2090<br />
1640 LPRINT DS:ES:’’%1”: ‘Select draft download character<br />
1650 FOR 1=1 TO 5<br />
1660 LPRINT CHR$(60): ‘Print download character<br />
1670 NEXT I<br />
1680 LPRINT E$:’’%O”: ‘Select normal character<br />
1690 GOSUB 2180<br />
1700 LPRINT CS:E3:’’%1”: ‘Select NLQ download character<br />
1710 FOR 1=1 TO 5<br />
1720 LPRINT CHRS(60): ‘Print download character<br />
1730 NEXT I<br />
1740 LPRINT E$:’’%O” ‘Select normal character<br />
1750 LPRINT<br />
1760 LPRINT HS:C5:’4Uari0ue dot graphics densities:”<br />
1770 0111 LOGOS(4)<br />
1780 RESTORE 2390<br />
1790 FOR ROU=l TO 4<br />
1800 FOR COL=l TO 65<br />
1810 REAO OG<br />
1820 LOGO$(ROU) =LOGOS(ROW)+CHRS (OG)<br />
1830 NEXT COL<br />
1840 NEXT ROM<br />
1850 LPRINT ES:’’A’’:CHRS(8) :<br />
1660 FOR ROU=l TO 4<br />
1870 LPRINT “ “:<br />
1880 FOR S=0 TO 3<br />
1890 LPRINT EY3:’’~’’:CHR$(B):<br />
1900 LPRINT CHRS(65):CHRS(0) :LOGO$(ROU):<br />
1910 LPRINT “ “:<br />
1920 NEXT 8<br />
1930 LPRINT<br />
1940 NEXT ROU<br />
1950<br />
1960<br />
1970<br />
1980<br />
1990<br />
<strong>200</strong>0<br />
2010<br />
2020<br />
2030<br />
2040<br />
2050<br />
2060<br />
2070<br />
2080<br />
2090<br />
2100<br />
2110<br />
2120<br />
2130<br />
2140<br />
2150<br />
2160<br />
2170<br />
2180<br />
2190<br />
2<strong>200</strong><br />
2210<br />
2220<br />
2230<br />
2240<br />
2<strong>250</strong><br />
2260<br />
2270<br />
2280<br />
2290<br />
2300<br />
124<br />
LPRINT :LPRINT<br />
FOR ROW=l TO 4<br />
LPRINT “ “:<br />
FOR 8=4 TO 7<br />
LPRINT ES:’’~’’:CHR$(B):<br />
LPRINT CHRS(65) :CHR$(0);LOGOS (ROW):<br />
LPRINT “ “:<br />
NEXT B<br />
LPRINT<br />
NEXT ROM .<br />
LPRINT EYI:”@”<br />
ENO<br />
,,<br />
“ SUBROUTINES<br />
‘ Oefine draft dawnload character<br />
LPRINT OS:E$:’’&’’ :CHR$(O):CHR$ (60) :CHR3(60):<br />
RESTORE 2280<br />
FOR M=O TO 11<br />
REAO MM<br />
LPRINT CHR$(MM):<br />
NEXT M<br />
RETURN<br />
.<br />
“Set 8/72” line spacing<br />
‘ Define NLQ download character<br />
LPRINT CS:ES:’’&’’ :CHRS(O) :CHRS(60):CHRS (60) :<br />
LPRINT CHR5(0) :CHR.$(23):CHR.$ (0):<br />
RESTORE 2310<br />
FOR M=l TO 69<br />
REAO MM<br />
LPRINT CHR$(t’lM):,<br />
NEXT M<br />
RETURN<br />
‘ OCITA<br />
‘ Oraft dnwnload character data<br />
OATA 139.124, 0, 66, 4, 64, 36, 16, 2. 16. 12, 0