Table of Contents
Advertisement
1
LPRINT :LPRINT
1360 LPRINT E$; ''Q'' ;CHR$(47)
'Set right margin
1370 LPRINT TM$: 'Various line and character spacings:"
1380 LPRINT E$; ''al"
'Center text
1390 FOR 1=1 TO 7
1400 LPRINT E$; ''A'' :CHR$(I);
'Line spacing set
1410 LPRINT E$;" ';CHR$(I);
'Increase character space
1420 LPRINT "THE SPACINGS ARE CHANGEDM
1430 NEXT I
1440 FOR 1=7 TO 1 STEP -1
1450 LPRINT E$; ''A''
;CHR$(I) ;
'Line spacing set
1460 LPRINT E$;" ';CHR$(I);
'Increase character space
1470 LPRINT "THE SPACINGS ARE CHANGED"
1480 NEXT I
1490 LPRINT E$; ''aO"
'Left justify
1500 LPRINT E$; "3'';CHR$(30) ;
'Set l/6m line spacing
1510 LPRINT E$;" ';CHR$(0);
'Normal character space
1520 LPRINT :LPRINT
1530 LPRINT TM$;''Other features:"
1540 LPRINT H$; E$; VX'';CHR$(0);
1550 LPRINT "Economy printing, ';
1560 LPRINT E$; ''x'' ;CHR$( 1);
1570 LPRINT "and High Quality. "
1580 LPRINT H$;E$; "q'';CHR$( l);''OUTLINED" ;E$;''q''
;CHR$(0) ;", ':
1
LPRINT E$; "q'';CHR$(2) ;"SHADOWEDu ;E$;''q'' ;CHR$(0) ;", ";
1600 LPRINT E$; "q'';CHR$(3) ;"OUTLINED WITH SHADOWED":
1610 LPRINT E$; "q'';CHR$(0) ;", M
1620 LPRINT H$;E$; "E''; ''Emphasized" :E$;"F'';", ";
1630 LPRINT E$; ''G'' Doublebstrike"ke";E$;''H'';", ";
1640 LPRINT E$; ''4''
Italicsi;E$';E$ :"5'':", "
1650 LPRINT H$;E$; N-l" ;''UnderliningM;E$;''-:",:", ';
1660 LPRINT E$;"- ";CHR$( 3); CHR$(0); CHR$( 1) :CHR$(2);CHR$(2) :
1670 LPRINT "Strike–through" ;
1680 LPRINT E$;ti (-'' :CHR$(3):CHR$(O) :CHR$(l) ;CHR$(2);CHR$ (0):", ";
1690 LPRINT E$;N (-" ;CHR$(3);CHR$(0) ;CHR$(1):CHR$(3) ;CHR$(l);
1700 LPRINT "Overlining";
1710 LPRINT E$;N (-'' ;CHR$(3) ;CHR$(O);CHR$ (1) ;CHR$(3) :CHR$(0) ;", "
"SUBSCRIPT"; E$;"T" ;", "
Download characters: ";
'Select download character
'Print download character
'Select normal character
1
LPRINT H$;E$; "SO''; ''SUPERSCRIPT";E$;''T";"and ";
1730 LPRINT E$; ''S1"
1740 LPRINT H$;TM$; '
1750 GOSUB 2520
1760 LPRINT E$;"%l"
1770 FOR 1=1 TO 5
1780 LPRINT CHR$(60
1790 NEXT I
1800 LPRINT E$; ''%O"
1810 GOSUB 2640
1820 LPRINT E$; ''%l";
'Select download character
1830 FOR 1=1 TO 5
1840 LPRINT CHR$(60);
'Print download character
1850 NEXT I
1860 LPRINT E$; ''%O"
'Select normal character
1870 LPRINT H$;TM$; ''Dotgraphics:"
1Q80 RESTORE 3290
1890 LPRINT E$; ''A'' :CHR$(8);
'Set 8/60" line spacing
1900 FOR 1=1 TO 3
1910 LPRINT E$; ''fO'';CHR$(8) ;
1920 LPRINT E$; ''*"; C HR$(33); CHR$(240) ;CHR$(0);
1930 FOR J=l TO 240'3
1940 READ DAT
1950 LPRINT CHR$(DAT);
1960 NEXT J
1970 LPRINT
1980 NEXT I
1990 LPRINT E$;"@"
'Initialize printer
80
Advertisement
Table of Contents
