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