Star Micronics LC24-10 User Manual page 103

2530 IF Y<Al THEN DT(X,Y+l)=O :CS$=STRING$(2,1) :GOTO 2610 ELSE GOT0 2610
2540 IF Y=Al THEN CS$=CHR$(P) ELSE CS$=STRINGQ(2,2)
2550
GOT0
2610
2560
'
2570
IF ST<3 THEN CS$=CHR$(l) :GOTO 2610
2580 IF DT(X,Y+l)=l THEN CS$=CHRQ(l) :GOTO 2610
2590 DT(X,Y)=l :CS$=CHR$(2)
2600
IF Y<AI THEN DT(X,Y+l)=2 :CS$=STRING$(L,Z)
2610 GOSUB 3670
2620 SS=ST :BX=X :BY=Y :GOSUB 2930 :IF SS-ST THEN 2710
2630
'
2640 IF
ST>3 THEN 2670
2650 FOR Z=lO TO 12 :LOCATE Z,48 :PRINT " s, :NEXT Z
2660 LOCATE 9+ST,48 :PRINT "+" :GOTO 2480
2670 IF ST=4 THEN GOSUB 3040 :GOTO 2460
2680
IF ST=5 THEN CLS :GOTO 1940
2690 IF ST=6 THEN 3210
2700 IF ST-7 THEN 3100
2710
'
2720
IF DT(BX,BY)=O THEN 2750 :ELSE CS$="
2730 IF DT(BX,BY)=l AND BY<Al THEN CS$="
2740
GOT0 2810
d
u
'I
2750
'
2760
CS$=" . I'
:IF
(BX HOD 8)-l THEN CS$="-"
2770 IF (BY HOD 10)-O THEN CS$="+"
2780 IF BY-Al OR DT(BX,BY+l)OO THEN 2810
2790 IF ((BY+l) MOD lO)=O THEN CS$=CS$+"+" :GOTO 2810
2800 IF (BX HOD 8)=1 THEN CSQ=CS$+"-" ELSE CS$=CS$+"."
2810
GOSUB 3680 :GOTO 2480
2*2,,
I------ yes or No __----___---------__---------------------------
2830 LOCATE PX,PY :PRINT " 88 ; SO$
2840 LOCATE PX+l,PY :PRINT I' ";Sl$
2850 IF NOT S THEN 2860 ELSE 2880
2860 LOCATL PX,PY
:pRINT "==)"
2870 LOCATE PX+l,PY :PRINT u 'I :LOCATE PX,PY
2880
IF S THEN 2890 ELSE 2910
2890 LOCATE PX,PY :PRINT w '
2900 LOCATE PX+l,PY :PRINT "==>" :LOCATE PX,PY
2910 I$=INPUT$(l)
:IF I$<>CHR$(lJ) THEN E=NOT S :GOTO 2850
2920 RETURN
2930 I--_-__ Fu,,c,..,,n ,'e,, check _--____-----_----__----~---~-~----~~~-
2940 I$=INPUT$(l) :SK=ASC(I$) :FK=VAL(I$)
2950 IF SK>6 AND SK<14 THEN ST=SK-6 :GOTO 3030
2960 IF FK-0 OR
FK=S
THEN 2940
2970 IF FK MOD 3 = 0 THEN Y=Y+l
2980 IF FK MOD 3 = 1 THEN Y=Y-1
2990 IF
FK
>6 THEN X=X-l
3000 IF FK <4 THEN X=X+1
3010 IF Y>Al THEN
Y=Al
ELSE IF Y<l THEN Y=l
3020 IF X>HI THEN X=HI ELSE IF X<l THEN X=1
3030 RETURN
3040 t----w- clear al1 dots -------____----__-----~~-----~~~~----~~~~-
3050
FOR N=l TO
HI-7
STEP 8 :FOR
O=N
TO N+7 :LOCATE 0,l
3060 IF O=N THEN PRINT LEFT$(SC$(O),Al); ELSE PRINT LEFT$(SC$(l),Al);
3070
NEXT 0,N
3080
FOR X=1 TO HI :FOR Y=l TO Al :DT(X,Y)=O :NEXT Y,X
3090 ST=2 :X=1 :Y=l :RETURN
3100 I------ Store character data ~_-----------___~~-_~~~~~~~-~~~~~~~~
3110 CLS :LOCATE 20,20
:PRINT II***** WAIT *.***t'
3120 FL-O :A$(CC)=CHR$(AO)+CHR$(Al)+CHR$(A2) :A(CC)=Al :P$(CC)=""
3130 FOR Y-1 TO Al :FOR N=l TO HI-7 STEP 8 :WT=128 :P=O
3140 FOR X-N TO N+7 :P=P+WT*(DT(X,Y) AND 1) :FL=FL+P
3150
liT=.S"WT :NEXT X
3160 P$(CC)=P$(CC)+CHR$(P) :NEXT N,Y
95