![background image](http://html.mh-extra.com/html/omron/nt20/nt20_user-manual_744538256.webp)
235
Key to Programs
Section 6-8
Example Program
1000 ’ ********************************************************
1010 ’ * OPERATION COMMAND EXAMPLE PROGRAM (NT20-ST128)*
1020 ’ ********************************************************
1030 ’
Draw screen frame
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1040 SECT=9
1050 DIM CMND$(SECT,10,1),CMND(SECT),TS.B(31)
1060 SCREEN 3:CLS 3:CONSOLE 15,10,0,0
1070 LINE (0,176)–(639,176),7,,&HF0F0
1080 LINE (159,0)–(159,176),7,,&HF0F0
1090 LINE (300,0)–(300,176),7,,&HF0F0
1100 LINE (0, 16)–(159, 16),7,,&HF0F0
1110 LINE (0, 96)–(159, 96),7,,&HF0F0
1120 LINE (0,112)–(159,112),7,,&HF0F0
1130 LINE (520,176)–(520,224),7,,&HF0F0
1140 LINE (0,223)–(639,224),7,B
1150 COLOR 0:LOCATE 2,0:PRINT ”OPERATING COMMANDS”
1160 COLOR 0:LOCATE 2,6:PRINT ”TERMINAL COMMANDS”
1170 CMND(0)=SECT ’
Set display character strings
. . . . . . . . . . . . . . . . . . . . . . . . . . . .
1180 FOR I=1 TO SECT
1190 READ CMND$(0,I,0)
1200 NEXT I
1210 FOR I=1 TO SECT
1220 READ CMND(I)
1230 FOR J=1 TO CMND(I)
1240 READ CMND$(I,J,0),CMND$(I,J,1)
1250 IF CMND$(I,J,1) = ”@@@@@@” THEN CMND$(I,J,1) = ”[ESC]”+CHR$(&H22)
1260 NEXT J
1270 NEXT I
1280 ’
1290 RY=15
1300 ON COM(1) GOSUB *RECV ’
Set receive interrupt routine
. . . . . . . . . . . . . . . . . .
1310 OPEN ”COM1:E81NN” AS #1 ’
Open communications port
. . . . . . . . . . . . . . .
1320 ’ NT20_SETTING OF RS-232C
1330 ’ DATA BIT LENGTH
8 BITS
1340 ’ STOP BIT LENGTH
1 BIT
1350 ’ PARITY
ODD
1360 ’ FLOW CONTROL
RS/CS
1370 ’ BAUD RATE
(VALUE SET BY SWITCH COMMAND)
1380 COM(1) ON
1390 ’
1400 *LV0 ’
Main Menu
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1410 LV=0:SECT.NO=0:SEL.NO=1
1420 GOSUB *SELECT
1430 IF SEL.NO=0 THEN GOTO *PRO.END
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 ...