Draft Character; Nlq Character - Star Micronics lC-10 User Manual

1700 a----- Key expla"atlons --------------------______________----------------
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 =haracter ----------------------------------.-------------------
1790 IF A(K)<0 THEN GOSUB 3220 :GOTO 1950
1800 IF NLQ THEN 1870
1810 I----- Draft character
1820 FOR Y-l TO 11 :WT=128 :FOR X-l TO 8
1830 IF fP(CC,Y) AND ml-0 THEN IS50
1840 DT(X,Yl=1 :DT(X,Y+l)=Z :BX=X :BY-Y :CS$="#X#" :GOSUB 3700
1850 WT=.5*WT :NEXT X.Y :GOTO 1940
1860 I----- NLQ character
1870
1880
1890
1900
1910
1920
1930
1940
1950
FOR Y-l TO 23 :WT=128 :FOR X-l TO 15 STEP 2
IF fP(CC.Yl AND WI)=0 THEN GOT0 1900
DT(X,Y)=i :DT(X.Y+1)=2 :BX=X :BY=Y :CS$="##" :GOSUB 3730
IF (Q(CC.Y) AND WI)=0 THEN GOT0 1920
DT(X+l.Yl=l :DT(X+l,Y+11=2 :BX=X+l :BY=Y :CS$="##" :GOSUB 3730
W-.5%-I :NEXT X,Y
I----- Modify & plot character ----------------------------~-~~~~~~~~~~~~~
X-l :Y=l
-
FOR Z-10 TO 12 :LOCATE 2.38 :PRINT u o :NEXT Z
ST-2 :LOCATE 11.38 :PRINT II" :IF NLQ THEN 2180
I----- Draft character
1960
1970
1980 IF DT(X,Y)=2 THEN CS5=CHR$(2)+" fl :GOTO 2050
1990 IF DT(X.Y)=0 THEN 2020
2000 IF ST-1 THEN DT(X.Y)=0 :DT(X,Y+l)-0 :CS5=STRING$(3,11+" u :GOTO 2050
2010 CS$=STRING5(3,2)+" " :GOTO 2050
2020 IF ST<3 THEN CS$=STRING$(Z.l) :GOTO 2050
2030 IF DT(X,Ytll=1 THEN CS$=STRING5(2,1) :GOTO 2050
2040 DT(X.Y)=1 :DT(X.Y+1)=2 :CSB=STRINGBf3.2)+" M
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 " " :NEXT Z
2090 LOCATE 9tST.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="# u :GOTO 2170
2150 IF DT(BX.BY)-1 THEN CSS="### u :GOTO 2170
2160 IF DT(BX,BY)=0 AND DT[BX.BY+l)=O THEN CS5=" " ELSE CS$=" "
2170 GOSUB 3700 :GOTO 1980
2180 I----- NLQ character
2190 IF DT(X,Yl=2 THEN CS$=CHR$(Z) :GOTO 2260
2200 IF DT(X,Y)=0 THEN 2230
2210 IF ST-1 THEN DT(X.Y)=0 :DT(X.Y+l)=O :CS$=STRING5(2,1) :GOTO 2260
2220 CS$=STRING5(2.21 :GOTO 2260
2230 IF ST<3 THEN CSS-CHR$(l) :GOTO 2260
2240 IF DTIX.Y+ll=1 THEN CS$=CHRB[ll :GOTO 2260
2250 DT(X,Yl=1 :DT(X.Y+11=2 :CSB=STRING5(2.21
2260 GOSUB 3720
2270 SS-ST :BX=X :BY=Y :GOSUB 3110 :IF SS-ST THEN 2360
2280 '
2290 IF ST>3 THEN 2320
2300 FOR Z-10 TO 12 :LOCATE 2.38 :PRINT u v :NEXT Z
2310 LOCATE 9+ST,38 :PRINT IIn :GOTO 2180
2320 IF ST-4 THEN GOSUB 3220 :GOTO 1950
2330 IF ST-5 THEN GOSUB 3220 :GOTO 1520
2340 IF ST-6 THEN 2410
2350 IF ST-7 THEN 3260
2360 '
2370 IF DT(BX,BYl=2 THEN CS$="#" :GOTO 2400
!
2380 IF DT(BX.BYl=1 THEN CS$="##" :GOTO 2400
2390 IF DT(BX,BY+l)-0 THEN CS$=" " ELSE CSS-" "
94