NT20S Bedienershandbuch

Kapitel 6 – Funktionen der Schnittstelle RS–232C
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.NO1 THEN GOTO *SECT2
1550 ON SEL.NO GOSUB *ESC.0,*ESC.X
1560 *SECT2
1570 IF SECT.NO2 THEN GOTO *SECT3
1580 ON SEL.NO GOSUB *ESC.B,*ESC.C,*ESC.D,*ESC.2F
1590 *SECT3
1600 IF SECT.NO3 THEN GOTO *SECT4
1610 ON SEL.NO GOSUB *ESC.K,*ESC.Q,*ESC.R
1620 *SECT4
1630 IF SECT.NO4 THEN GOTO *SECT5
1640 ON SEL.NO GOSUB *ESC.U,*ESC.V
1650 *SECT5
1660 IF SECT.NO5 THEN GOTO *SECT6
1670 ON SEL.NO GOSUB *ESC.P,*ESC.T,*ESC.W
1680 *SECT6
1690 IF SECT.NO6 THEN GOTO *SECT7
1700 ON SEL.NO GOSUB *ESC.26,*ESC.29,*ESC.2A
1710 *SECT7
1720 IF SECT.NO7 THEN GOTO *SECT8
1730 ON SEL.NO GOSUB *ESC.21,*ESC.22,*ESC.23,*ESC.24,*ESC.25
1740 *SECT8
1750 IF SECT.NO8 THEN GOTO *SECT9
1760 ON SEL.NO GOSUB *ESC.2B,*ESC.4
1770 *SECT9
1780 IF SECT.NO9 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
1900 LOCATE 66,12:COLOR 0:PRINT SPACE$(14);
1910 IF YN=–1 THEN GOTO *LV3.END
1920 GOSUB *SEND ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Send command
1930 COM(1) ON
172