—
,i
i
I
I
,
!
I
I
I
[I
i
k
1700 ‘-----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 LOCATS 14,40 :PRINT “F5: Skip character”
1760 LOCATE 15,40 :PRINT “F6: End”
1770 LOCATE 16,40 :PRINT “RET Record character”
1780 ‘––––- Get character -----------------------------------------------------
1790 IF A(CC)<O THEN GOSUB 3220 :GOTO 1950
1800 IF NLQ THEN 1870
1810 ‘----- Draft character
1820 FoR Y-1 TO 11 :WT-128 :FOR X-1 TO 8
1830 IF (P(CC,Y) AND WT)-O THEN 1S50
1840 DT(X,Y)-l :DTIX,Y+l)-2 :BX=X :BY-Y :CS$=’’###”:GOSUB 3700
1850 WT-.5*WT :NEXT X,Y :GOTO 1940
1860 ‘--–-–NLQ character
1870 FOR Y-1 TO 23 :WT-1213:FOR X-1 TO 15 STEP 2
1S80 IF (P(CC,Y) AND WT)-O THEN GOTO 1900
1890 DT(X,Y)-1 :DT(X,Y+1)=2 :BX-X :BY-Y :CS$-’’##”:GOSUB 3730
1900 IF (Q(CC,Y) AND wT)-O THEM GOTO 1920
1910 DT(X+l.Y)-1 :DT(X+l,Y+l)-2 :BX-X+l :BY-Y :CS$-’’##”:GOSUB 3730
1920 tW-.5*WT :NEXT X.Y
1930 ‘----- Modify F.plot character -------------------------------------------
1940 x-1 :Y-1
1950 FOR Z-10TO 12 :LOCATE 2.38 :PRINT “ “ :NEXTZ
1960 ST-2 :LOCATE 11,38 :PRINT ““ :IF NLL2THEN 2180
1970
1980
1990
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300
2310
2320
2330
2340
2350
2360
2370
2380
2390
‘----- Draft character
IF DT(x.Y)-2 THEN CS$-CHR$(2)+” “ :GOTO 2050
IF DT(X:Y)-O THEN 2020
IF ST-1 THEN DT(X.Y)-O :DT(X,Y+l)-O:CS$-STRING$(3.1)+” “ :GOTO 2050
CS$-STRING$(3,2)+U “ :GOTO 2050
IF ST<3 THSN CS$-STRING$(2,1) :GOTO 2050
IF DT(X,Y+l)-1 THEN CS$-STRING$(2.1) :GOTO2050
DT(X,Y)-1 :DT(X.Y+l)-2 :CS$-STRING$(3r2)+” “
GOSUB 3680
SS-ST :BX-X :BY-Y :GOSUB 3110 :IF SS-ST THEN 2140
IF sT>3 THEN 2100
FOR Z-10 TO 12 :LOCATE2,38 :PRINT “ “ :NEXTZ
LOCATE 9+ST,38 :PRINT ““ :GOTO 1980
IF ST-4 THEN GOSUB 3220 :GOTO 1950
IF ST-5 THEN GOSUB 3220 :GOTO 1520
IF ST-6 THEN 2410
IF ST-7 THEN 3260
IF DT(BX,BY)-2 THEN CS$-”# “ :GOTO 2170
IF DT(BX,BY)-1 THEN CS$-’’### “ :GOTO 2170
IF DT(BX,BY)-O AND DT(BX,BY+l)-O THSN CS$-” “ ELSE CS$-” “
GOSUB 3700 :GOTO 1980
‘-----NLQ character
IF DT(X,Y)-2 THEN CS$-CHR$(2) :GOTO 2260
IF DT(X.Y)-O THEN 2230
IF ST-1 THEN DT(X,Y)-O :DT(X,Y+l)-O:CS$-STRING$(2,1) :GOTO 2260
CS$-STRING$(2,2) :GOTO 2260
IF ST<3 THEN CS$-CHR$(l) :GOTO 2260
IF DT(X,Y+I)-l THEN CS$-CHR$(l) :GOTO 2260
DT(X.Y)-1 :DT(X,Y+l)-2 :CS$-STR1NG$(272)
GOSUif3720
SS-ST :BX-X :BY-Y :GOSUB 3110 :IF SS-ST THEN 2360
IF ST>3 THEN 2320
FoR Z-10 TO 12 :LOCATE 2,38 :PRINT “ “ :NEXT Z
LOCATE 9+ST,38 :PRINT ““ :GOTO 2180
IF ST-4 THEN GOSUB 3220 :GOTO 1950
IF ST-5 THEN GOSUB 3220 :GOTO 1520
IF ST-6 THEN 2410
IF ST-7 THEN 3260
IF M(BX,BY)-2 THEN CS$-”#” :GOTO 2400
IF DT(BX,BY)-l THEN CS$-’’##”:GOTO 2400
IF DT(BX,BY+l)-O THEN CS$-” U ELSE CS$-” “
—
—
—
—
—