Filter
Top Products
I
1890
1900
1910
1920
1930
1940
1950
1960
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
2360
2390
2400
2410
2420
2430
2440
2450
2460
2470
24.90
2490
2500
2510
2520
SO$="Continue" :Sl$="Start over"
S=O :PX=l7 :PY=l :GOSUB 2820 :IF S THEN CLS :GOTO 1120
CLS
I----- Select character position
--------------------------------
CH$=CHR$(CC)
LOCATE 1,SO :PRINT "CHARACTER [";CH$;"]";
I$=INPUT$(l)
IF " "<I$ AND I$<CHR$(127) THEN CH$=I$ ELSE GOT0 2000
CC=ASC(CHS)
LOCATE‘1,56 :PRINT "CHARACTER : ";CH$;" I'
IF A(CC)<O THEN AO=O :Al=A :A2=W-A :GOTO 2030
AO=ASC(LEFT$(A$(CC),l)) :Al=A(CC) :A2=ASC(RIGHT$(A$(CC),l))
LOCATE 3.50 :PRINT "Body-Width = ";A1
LOCATE 4,50 :PRINT "Left Space = ":A0
LOCATE 5,50 :PRINT "Right Space = ":A2
LOCATE 7,50 :PRINT "( Are you sure ? )"
LOCATE 8,50 :PRINT "*** Yes or No ***'*
A$=INPUT$(l)
LOCATE 7,50 :PRINT SPC(25) :LOCATE 8,50 :PRINT SPC(25)
IF A$="N" OR A$="n" THEN 2110 ELSE GOT0 2240
I----- Select Character width/Left space ------------------------
FOR I=3 TO 5 :LOCATE I,50 :PRINT SPC(25) :NEXT I
LOCATE 3,50 :INPUT "Body-Width
= ";A1
IF Al=0 OR Al>W THEN BEEP :LOCATE 3.50 :PRINT SPC(20) :GOTO 2130
LOCATE 3.63 :PRINT STR$(Al);". '
LOCATE 4,50 :INPUT "Left Space = ";A0
IF AO+Al>W THEN BEEP :LOCATE 4,50 :PRINT SPC(20) :GOTO 2160
LOCATE 4,63 :PRINT STR$(AO);". '
IF QUA=2 THEN 2210
A2=W-AO-Al :LOCATE 5.50 :PRINT "Right Space =";:GOTO 2230
LOCATE 5,50 :INPUT "Right Space = ";A2
IF AO+Al+A2>W THEN LOCATE 3,50 :PRINT SPC(20) :GOTO 2210
LOCATE 5.63 :PRINT STR$(AP);". " :GOTO 2060
n----- Key explanations -----___------------__I_________________-
LOCATE lo,50 :PRINT “Fl:
Clear dot"
LOCATE 11,50 :PRINT “F2:
Pass over"
LOCATE 12,50 :PRINT “F3:
Set dot"
LOCATE 13,50 :PRINT “F4:
Clear all dots"
LOCATE 14,50 :PRINT "F5:
Skip character"
LOCATE 15,50 :PRINT "F6:
End"
LOCATE 16,50 :PRINT "RET Record character"
t----- Get character ~_~---------~~~~~~~~~~~~~~~~~~~~-~~-~~-~----
IF A(CC)<O THEN GOSUB 3040 :GOTO 2460
FOR N=l TO HI-7 STEP S :FOR O=N TO N+7 :LOCATE 0,l
IF O=N THEN PRINT LEFT$(SC$(O),Al); ELSE PRINT LEFT$(SC$(l),Al);
NEXT 0,N
H=O :FOR Y=l TO Al :FOR N=l TO HI-7 STEP 6 :H=H+l :WT=l20
P=ASC(MID$(P$(CC),H,l)) :FOR O-N TO N+7
IF (P AND WT)=O THEN 2430
~~'~;xl=~kp~;';II~y~~~~~ ;:;;mb"
:GOSUB 3680 ELSE GOSUB 3680
WT=.J'WT :NEXT 0 :NEXT N :NEXT
P----m Modify & plot character ---------_-----___________________
x=1 :r=1
FOR Z=lO TO 12 :LOCATE Z,48 :PRINT M II :NEXT Z
ST=2 :LOCATE 11,48 :PRINT "+" :GOTO 2480
;F DT(X,Y)=P THEN CS$=CHR$(P) :GOTO 2610
IF DT(X,Y)=O THEN 2570
IF ST>1 THEN 2540 ELSE DT(X,Y)=O :CS$=CHR$(l)
94