Star Micronics LC-IOII user manual Locate

1700	I_____	Key explanations			_____________-------------~-----------------------
1710	LOCATE	10.40	:PRINT	"Fl:	Clear	dot"
1720 LOCATE		11.40	:PRINT	"F2:	Pass	over"
1730	LOCATE	12.40	:PRINT	"F3:	Set dot"

1740 LOCATE 13.40 :PRINT "F4: Clear all dots"

1750 LOCATE 14.40 :PRINT "F5: Skip character"

1760 LOCATE 15.40 :PRINT "F6: End"

1770 LOCATE 16.40 :PRINT "RET Record character"

1780 I_____ Get character ------------_____~______________________~~~~~~~~~~~~~

1790 IF A(W)<0 THEN GOSUB 3220 :GOTO 1950

1800 IF NLQ THEN 1870

1610 I----- Draft character

1820 FOR Y-l TO 11 :WI-128 :FOR X-l TO 8 1830 IF (P(CC,Y) AND W)-0 THEN 1850

1840 DT(X,Y)-1 :DT(X,Y+l)-2 :BX-X :BY-Y :CSS-"XIX" :GOSUB 3700 1850 MT-.5*WI :NEXT X.Y :GOTO 1940

1860 I----- NLQ character

1870 FOR Y-l TO 23 :wT-128 :FOR X-l TO 15 STEP 2 1880 IF (P(CC.Y) AND WI)-0 THBN GOT0 1900

1890 DT(X,Y)-1 :DT(X.Y+l)-2 :BX-X :BY-Y :CSB-"##" :GOSUB 3730 1900 IF (Q(CC.Y) AND WI)-0 THEN GOT0 1920

1910 DT(X+l.Y)-1 :DT(X+l,YCl)-2 :BX-X+1 :BY-Y :CSS-"##" :GOSUB 3730

1920 WT-.S'WT :NEXT X.Y

1930 a----- Modify & plot ,--,ara,-ter ______----------~~-~~~-~-~-~~~~~~~~~~-~~~~~

1940 X-l :Y-1

1950 FOR Z-10 TO 12 :LOCATE 2.38 :PRINT " u :NEXT 2 1960 ST-2 :LOCATE 11.38 :PRINT u" :IF NLQ THEN 2180 1970 I----- Draft character

1980 IF DT(X,Y)-2 THEN CSS-CHR5(2)+" u :GOTO 2050 1990 IF DT(X.Y)-0 THEN 2020

2000 IF ST-1 THEN DT(X,Y)-0 :DT(X,Y+l)-0 :CSS-STRING$(3,1)+" " :GOTO 2050 2010 CSS-STRING$(3,2)+" u :GOTO 2050

2020 IF ST<3 THEN CSS-STRINGS(2.1) :GOTO 2050

2030 IF DT(X,Y+l)-1 THEN CSS-STRING5(2,1) :GOTO 2050 2040 DT(X,Y)-1 :DT(X.Y+l)-2 :CSS-STRING5(3,2)+" u

2050 GOSUB 3680

2060 SS-ST :BX-X :BY-Y :GOSUB 3110 :IF SS-ST THEN 2140 2070 IF ST>3 THEN 2100

2080 FOR Z-10 TO 12 :LOCATE 2.38 :PRINT n " :NEXT 2 2090 LOCATE 9+ST.38 :PRINT u" :GOTO 1980

2100 IF ST-4 THEN GOSUB 3220 :GOTO 1950

2110 IF ST-5 THEN GOSUB 3220 :GOTO 1520 2120 IF ST-6 THEN 2410

2130 IF ST-7 THEN 3260

2140 IF DT(BX.BY)-2 THEN CSS-"# " :GOTO 2170

2150 IF DT(BX,BY)-1 THEN CSS-"### " :GOTO 2170

2160 IF DT(BX,BY)-0 AND DT(BX,BY+l)-0 THEN CSS-" " ELSE CSS-" " 2170 GOSUB 3700 :GOTO 1980

2180 I----- NLQ character

2190 IF DT(X.Y)-2 THEN CSJ-CHRS(2) :GOTO 2260 2200 IF DT(X.Y)-0 THEN 2230

2210 IF ST-1 THEN DT(X,Y)-0 :DT(X.Y+l)-0 :CSS-STRINGS(2.1) :GOTO 2260 2220 CSS-STRINGS(2.2) :GOTO 2260

2230 IF ST<3 THEN CSS-CHRS(1) :GOTO 2260

2240 IF DT(X,Y+l)-1 THEN CSS-CHRS(1) :GOTO 2260

2250 DT(X.Y)-1 :DT(X.Y+l)-2 :CSS-STRINGGs(2.2)

2260 GOSUB 3720

2270 SS-ST :BX-X :BY-Y :GOSUB 3110 :IF SS-ST THEN 2360

2280 0

2290 IF ST>3 THEN 2320

2300 FOR Z-10 TO 12 :LOCATE 2.38 :PRINT n v :NEXT Z 2310 LOCATE 9+ST,38 :PRINT ,a- :GOTO 2180

2320 IF ST-4 THEN GOSUB 3220 :GOTO 1950 2330 IF ST-5 THEN GOSUB 3220 :GOTO 1520 2340 IF ST-6 THBN 2410

2350 IF ST-7 THEN 3260

2360 ’

2370 IF DT(BX,BY)-2 THEN CS5-"#" :GOTO 2400

2380 IF DT(BX,BY)-1 THEN CS5-"##" :GOTO 2400

2390 IF DT(BX.BY+l)-0 THEN CSS-" " ELSE CSS-" "

96