![background image](http://html.mh-extra.com/html/omron/nt20s/nt20s_operation-manual_744540250.webp)
231
EXAMPLE PROGRAM
Section 6-7
4660 LY$=STR$(LY):LY$=RIGHT$(LY$,LEN(LY$)–1):LY$=RIGHT$(”00”+LY$,3)
4670 LOCATE 39+(LN MOD 5)*8,LN¥5:PRINT LX$;”,”;LY$;
4680 SL$=SL$+LX$+LY$
4690 LN=LN+1
4700 IF LN<40 THEN GOTO *E7.X
4710 *E7.E
4720 LN$=HEX$(LN–1):LN$=RIGHT$(”0”+LN$,2)
4730 SEND$=SEND$+LN$+SL$
4740 RETURN
4750 *ESC.8 ’
Draw circle
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4760 *E8.X
4770 LOCATE 43,0:PRINT SPACE$(36)
4780 LOCATE 43,0:INPUT ”X COORDINATE OF CENTER OF CIRCLE : ”,CX
4790 IF CX>255 OR CX<0 THEN *E8.X
4800 *E8.Y
4810 LOCATE 43,1:PRINT SPACE$(36)
4820 LOCATE 43,1:INPUT ”Y COORDINATE OF CENTER OF CIRCLE : ”,CY
4830 IF CY>127 OR CY<0 THEN *E8.Y
4840 *E8.R
4850 LOCATE 43,2:PRINT SPACE$(36)
4860 LOCATE 43,2:INPUT ”?????#####”,CR
4870 IF CR>63 OR CR<0 THEN *E8.R
4880 CX$=STR$(CX):CX$=RIGHT$(CX$,LEN(CX$)–1):CX$=RIGHT$(”00”+CX$,3)
4890 CY$=STR$(CY):CY$=RIGHT$(CY$,LEN(CY$)–1):CY$=RIGHT$(”00”+CY$,3)
4900 CR$=STR$(CR):CR$=RIGHT$(CR$,LEN(CR$)–1):CR$=RIGHT$(”00”+CR$,3)
4910 SEND$=SEND$+CX$+CY$+CR$
4920 RETURN
4930 ’
4940 *SELECT ’
Item selection routine
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4950 IF LV=0 THEN LX=3 ELSE LX=LV*20+1
4960 IF LV=0 THEN LY=1 ELSE LY=0
5970 COLOR 4:LOCATE LX,LY:PRINT CMND$(SECT.NO,1,0)
5980 COLOR 0
5990 FOR I=2 TO CMND(SECT.NO)
5000 IF LV=0 AND I<=5
THEN LY=I
5010 IF LV=0 AND I>5
THEN LY=I+1
5020 IF LV=1
THEN LY=I–1
5030 LOCATE LX,LY:PRINT CMND$(SECT.NO,I,0)
5040 NEXT I
5050 *KY.IN
5060 A$=INKEY$:IF A$=””
THEN GOTO *KY.IN
5070 IF A$<>CHR$(&H1B)
THEN GOTO *KY1
5080 COLOR 0
5090 FOR I=1 TO CMND(SECT.NO)
5100 IF LV=0 AND I<=5
THEN LY=I
5110 IF LV=0 AND I>5
THEN LY=I+1
Summary of Contents for NT20S
Page 1: ...Cat No V020 E1 04 NT20S Programmable Terminal OPERATION MANUAL ...
Page 2: ...i ...
Page 3: ...ii ...
Page 4: ...iii NT series Programmable Terminal Operation Manual Revised August 1997 ...
Page 5: ...iv ...
Page 7: ...vi ...
Page 11: ...x ...
Page 19: ...xviii ...
Page 129: ...110 ...
Page 169: ...150 ...
Page 253: ...234 ...