Table of Contents
Advertisement
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
Advertisement
Table of Contents
Troubleshooting
