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$; ’’*”;CHR$(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
