NT20S Bedienershandbuch
NT20S Bedienershandbuch
NT20S Bedienershandbuch
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Kapitel 6 – Funktionen der Schnittstelle RS–232C<br />
1940 LOCATE 43,9:COLOR 4:PRINT ”Press ESC Key”;:COLOR 0<br />
1950 *SND.KY.IN<br />
1960 A$=INKEY$:IF A$CHR$(&H1B) THEN *SND.KY.IN<br />
1970 *LV3.END<br />
1980 LOCATE 0,12:PRINT SPACE$(79);<br />
1990 FOR I=0 TO 10<br />
2000 LOCATE 39,I:PRINT SPACE$(40);<br />
2010 NEXT I<br />
2020 GOTO *LV1 ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Return to Sub-menu<br />
2030 ’<br />
2040 *PRO.END ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . End routine<br />
2050 COM(1) OFF:CLOSE ’ . . . . . . . . . . . . . . . . . . . . . . . . Close communication port<br />
2060 CONSOLE 0,25,0,1:CLS 3<br />
2070 END<br />
2080 ’<br />
2090 *SEND ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Send command routine<br />
2100 SND$=CHR$(&H1B)+MID$(SEND$,6)<br />
2110 PRINT #1,SND$<br />
2120 RETURN<br />
2130 ’<br />
2140 *RECV ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Receive interrupt routine<br />
2150 IF LOC(1)=0 THEN GOTO *NORCV<br />
2160 SX=POS(0):SY=CSRLIN<br />
2170 LINE INPUT #1,RCV$<br />
2180 LOCATE 0,RY:COLOR 0<br />
2190 PRINT ”[ESC]”;MID$(RCV$,2)<br />
2200 R.CODE$=MID$(RCV$,2,1)<br />
2210 *ESC.Y ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Notify screen number<br />
2220 IF R.CODE$”Y” THEN GOTO *ESC.E<br />
2230 PRINT ”Screen Number : ”;VAL(”&H”+MID$(RCV$,3,4))<br />
2240 PRINT:GOTO *RCV.END<br />
2250 *ESC.E ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Notify 4-digit number<br />
2260 IF R.CODE$”E” THEN GOTO *ESC.F<br />
2270 PRINT ”Numeral table # : ”;VAL(”&H”+MID$(RCV$,3,3))<br />
2280 PRINT ”Input decimal value”;VAL(MID$(RCV$,6,4))<br />
2290 PRINT:GOTO *RCV.END<br />
2300 *ESC.F ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Notify 8-digit number<br />
2310 IF R.CODE$”F” THEN GOTO *ESC.H<br />
2320 PRINT ”Numeral table # : ”;VAL(”&H”+MID$(RCV$,3,3))<br />
2330 IF MID$(RCV$,6,1)=”F” THEN NN=0–VAL(MID$(RCV$,7,7)) ELSE NN=VAL(MID$(RCV$,6,8))<br />
2340 PRINT ”Input decimal value : ”;NN<br />
2350 PRINT:GOTO *RCV.END<br />
2360 *ESC.H ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Notify touch switch (number)<br />
2370 IF R.CODE$”H” THEN GOTO *ESC.J<br />
2380 PRINT ”Pressed touch switch number : ”;VAL(”&H”+MID$(RCV$,3,3))<br />
2390 PRINT:GOTO *RCV.END<br />
2400 *ESC.J ’ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Notify touch switch (bit)<br />
2410 IF R.CODE$”J” THEN GOTO *ESC.S<br />
173