Omron NT20S - APPENDICES; APPENDIX A Specifications

224
EXAMPLE PROGRAM
Section 6-7
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