Star Micronics LC24-200 Sample program, Lprint Diffusionrangesof Lprint CARS& Telephones

Whendefiningcharacters,thenumberofprintedcolumns(ml), andthesum of side spacesand the characterwidth (MI + ml + rTz2)cannotexceedthe value shownbelow.

Charactermode	ml	mO+ ml+ m2
Draft characters	9	12
LQ pica characters	31	36
LQ elite characters	27	30
LQ semi-condesed	19	24
LQ proportional	37	42
Draft super/subscript	7	12
LQ super/subscript	19	36
LQ prop. super/subscript	37	42

L

Sample program

To demonstratehow to use the downloadcharacters,let’s use the “tele- phone”characterandtheotheruser-definedcharacterstoprinta smallgraph. This programwill do just that:

1000LPRINT WIDTH“LPTI : “ ,255

1010LPRINT CHR$(27) ; “X1“ ;

1020 LPRINT CHR$(27) ; “&”;CHR$ o);

1030 LPRINT CHR$(60) ;CHR(61)$

1040 FORN=60TO 61

1050 READLS :LPRINTCHR$[LS)

1060 READcw :LPRINTCHR$icwj

1070 READRS :~LPRINTCHR.(RS)$

1080 FORM=lTO CW*3

1090 READMM

1100 LPRINTCHR$(MM);

1110 NEXT,M

1120 NEXTN

1130 LPRINTCHR$(27);“D”;CHR(11);CHR$ (0)$

1140 LPRINTCHR$(27);“k”;CHR(4);$

1150 LPRINTCHR$(27);“h”;CHR(1);$

1160 LPRINT“ DIFFUSIONRANGESOF”

1170 LPRINT“ CARS& TELEPHONES”

1180 LPRINTCHR$(27);“h” ;CHR(0)$

1190 LPRINTCHR$(27);“k”:CHR(0);$

1200 LPRINTCHR(27);’’%’’;CHR$ $(1);

1210 LPRINT“USA”:CHR$(9);

1220FOR 1=0TO 681STEP25 :LPRINTCHR$(60);:NEXTI 1230 LPRINT

1240 LPRINTCHR$(9);

1250 FOR1=0TO 781STEP25 :LPRINTCHR$(61);:NEXTI

1260 LPRINT 1270LPRINT“GERMANY”;CHR$(9);

1280 FOR1=0TO 412STEP25 :LPRINTCHR$(60);:NEXTI

1290 LPRINT

1300 LPRINTCHR$(9);

1310 FOR1=0TO 488STEP25 :LPRINTCHR$(61);:NEXTI

1320 LPRINT

1330 LPRINT“JAPAN”;CHR$(9)

88