![background image](http://html.mh-extra.com/html/omron/nt20/nt20_user-manual_744538257.webp)
236
Key to Programs
Section 6-8
1440 SECT.NO = SEL.NO
1450 ’
1460 *LV1 ’
Sub-menu
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1470 LV=1:SEL.NO=1
1480 GOSUB *SELECT
1490 IF SEL.NO=0 THEN GOTO *LV0
1500 *LV2 ’
Branch according to command (parameter input)
. . . . . . . . . . . . . . . . . . . . . . . . . . . .
1510 COM(1) STOP
1520 LV=2:SEND$=CMND$(SECT.NO,SEL.NO,1)
1530 *SECT1
1540 IF SECT.NO<>1 THEN GOTO *SECT2
1550 ON SEL.NO GOSUB *ESC.0,*ESC.X
1560 *SECT2
1570 IF SECT.NO<>2 THEN GOTO *SECT3
1580 ON SEL.NO GOSUB *ESC.B,*ESC.C,*ESC.D,*ESC.2F
1590 *SECT3
1600 IF SECT.NO<>3 THEN GOTO *SECT4
1610 ON SEL.NO GOSUB *ESC.K,*ESC.Q,*ESC.R
1620 *SECT4
1630 IF SECT.NO<>4 THEN GOTO *SECT5
1640 ON SEL.NO GOSUB *ESC.U,*ESC.V
1650 *SECT5
1660 IF SECT.NO<>5 THEN GOTO *SECT6
1670 ON SEL.NO GOSUB *ESC.P,*ESC.T,*ESC.W
1680 *SECT6
1690 IF SECT.NO<>6 THEN GOTO *SECT7
1700 ON SEL.NO GOSUB *ESC.26,*ESC.29,*ESC.2A
1710 *SECT7
1720 IF SECT.NO<>7 THEN GOTO *SECT8
1730 ON SEL.NO GOSUB *ESC.21,*ESC.22,*ESC.23,*ESC.24,*ESC.25
1740 *SECT8
1750 IF SECT.NO<>8 THEN GOTO *SECT9
1760 ON SEL.NO GOSUB *ESC.2B,*ESC.4
1770 *SECT9
1780 IF SECT.NO<>9 THEN GOTO *LV2.END
1790 ON SEL.NO GOSUB *ESC.7,*ESC.8
1800 *LV2.END ’
Confirm transmission
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1810 LOCATE 0,12:PRINT LEFT$(SEND$,56);
1820 IF LEN(SEND$)>56 THEN PRINT ”...”
1830 LOCATE 66,12:PRINT ”OK?”;
1840 YN=1
1850 *YN.KY.IN
1860 LOCATE 74,12:COLOR 2+2*YN:PRINT ”Y”;:COLOR 2–2*YN:PRINT ”N”;
1870 A$=INKEY$:IF A$=”” THEN GOTO *YN.KY.IN
1880 IF A$=CHR$(&H1C) OR A$=CHR$(&H1D) THEN YN=YN*(–1):GOTO *YN.KY.IN
1890 IF A$<>CHR$(&HD) THEN GOTO *YN.KY.IN
Summary of Contents for NT20
Page 1: ...Programmable Terminal Cat No V091 E1 01 NT20 USER S MANUAL ...
Page 2: ...NT series Programmable Terminal User s Manual Produced March 2007 ...
Page 3: ...iv ...
Page 5: ...vi ...
Page 9: ...x TABLE OF CONTENTS ...
Page 15: ...xvi ...
Page 21: ...xxii EC Directives 6 ...
Page 37: ...16 Before Operating Section 1 6 ...
Page 153: ...132 Transferring the Resource Data Section 3 11 ...
Page 185: ...164 Numeral Setting Section 4 8 ...
Page 267: ...246 Key to Programs Section 6 8 ...
Page 281: ...260 Specifications Appendix A ...
Page 285: ...264 Transporting and Storing PTs Appendix C ...
Page 303: ...282 Function Restrictions Depending on the Support Tool Appendix I ...
Page 307: ...286 Index ...
Page 309: ...288 Revision History ...