Filter
Top Products
1700
I_____ Key explanatio"s ------------_-------------~------~----------------
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
a----- Get ,--,ara,-ter ~__~~~~~-~~~___-~~_~____________________-------------
1790 IF A(CC)<O THEN GOSUB 3220 :GOTO 1950
1800 IF NLQ THEN 1870
1810
I----- Draft character
1820 FOR Y-1 TO li :WT-128 :FOR X-l TO 8
1830 IF (P(CC.Y) AND WT)-0 THEN 1850
1840 DT(X,Y)-1 :DT(X,Y+l)-2 :BX-X :BY-Y :CSS-"XXI" :GOSUB 3700
1850 WT-.J'WT :NEXT X,Y :GOTO 1940
1860 I----- NLQ character
1870 FOR Y-l TO 23 :Wl--128 :FOR X-l TO 15 STEP 2
1880 IF (P(CC,Y) AND WT)-0 THEN GOT0 1900
1890 DT(X,Y)-1 :DT(X,Y+l)-2 :BX-X :BY-Y :CSS-"CX" :GOSUB 3730
1900 IF (R(CC.Y) AND wT)-0 THEN GOT0 1920
-
1910 DT(X+l.Y)-1 :DT(X+l.Y+l)-2 :BX-X+1 :BY-Y :CSS-"lit" :GOSUB 3730
1920 WT-.5*WT :NEXT X.Y
1930
I----- Modify & plot character -------------------------------------------
- - 1940 X-l :Y-1
1950 FOR Z-10 TO 12 :LOCATE 2.38 :PRINT " " :NEXT Z
1960 ST-2 :LOCATE 11.38 :PRINT uu :IF NLQ THEN 2180
1970 I----- Draft character
1980 IF DT(X.Y)-2 THEN CSS-CHRS(2)+" o :GOTO 2050
1990 IF DT(X,Y)-0 THEN 2020
2000 IF ST-1 THEN DT(X.Y)-0 :DT(X.Y+l)-0 :CSI-STRINGS(3,l)t" u :GOTO 2050
2010 CSS-STRINGS(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-STRINGJ(2.1) :GOTO 2050
2040 DT(X,Y)-1 :DT(X,Y+l)-2 :CS$-STRINGS(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 * u :NEXT Z
2090 LOCATE 9+ST,38 :PRINT "II :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-"I " :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 CSt-" "
2170 GOSUB 3700 :GOTO 1980
2180
I----- NLQ character
2190 IF DT(X,Y)-2 THEN CSt-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 :CS$-STRINGS(2.2)
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 o u :NEXT Z
2310 LOCATE 9+ST,38 :PRINT mn :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,BY)-2 THEN CS5-"#" :GOTO 2400
2380 IF DT(BX.BY)-1 THEN CSE-"#I" :GOTO 2400
2390 IF DT(BX,BY+l)-0 THEN CS5-"
" ELSE CSS-" "
96