V020-E3-2 Omron, V020-E3-2 Datasheet - Page 240

• Manufacturer Part Number: V020-E3-2
• Description: Publications, Books
• Manufacturer: Omron

Specifications of V020-E3-2

• Lead Free Status / RoHS Status: na

1440 SECT.NO = SEL.NO
1450 ’
1460 *LV1 ’
1470 LV=1:SEL.NO=1
1480 GOSUB *SELECT
1490 IF SEL.NO=0 THEN GOTO *LV0
1500 *LV2 ’
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
1560 *SECT2
1570 IF SECT.NO<>2 THEN GOTO *SECT3
1580
1590 *SECT3
1600 IF SECT.NO<>3 THEN GOTO *SECT4
1610
1620 *SECT4
1630 IF SECT.NO<>4 THEN GOTO *SECT5
1640
1650 *SECT5
1660 IF SECT.NO<>5 THEN GOTO *SECT6
1670
1680 *SECT6
1690 IF SECT.NO<>6 THEN GOTO *SECT7
1700
1710 *SECT7
1720 IF SECT.NO<>7 THEN GOTO *SECT8
1730
1740 *SECT8
1750 IF SECT.NO<>8 THEN GOTO *SECT9
1760
1770 *SECT9
1780 IF SECT.NO<>9 THEN GOTO *LV2.END
1790
1800 *LV2.END ’
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
224
EXAMPLE PROGRAM
ON SEL.NO GOSUB *ESC.0,*ESC.X
ON SEL.NO GOSUB *ESC.B,*ESC.C,*ESC.D,*ESC.2F
ON SEL.NO GOSUB *ESC.K,*ESC.Q,*ESC.R
ON SEL.NO GOSUB *ESC.U,*ESC.V
ON SEL.NO GOSUB *ESC.P,*ESC.T,*ESC.W
ON SEL.NO GOSUB *ESC.26,*ESC.29,*ESC.2A
ON SEL.NO GOSUB *ESC.21,*ESC.22,*ESC.23,*ESC.24,*ESC.25
ON SEL.NO GOSUB *ESC.2B,*ESC.4
ON SEL.NO GOSUB *ESC.7,*ESC.8
......................................
............................
.................................
Branch according to command (parameter input)
Sub-menu
Confirm transmission
Section 6-7