Example Program - Omron NT20S Operation Manual

EXAMPLE PROGRAM

EXAMPLE PROGRAM

1000 ' ********************************************************
1010 ' * OPERATION COMMAND EXAMPLE PROGRAM (NT20S–ST128)
1020 ' ********************************************************
1030 ' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
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 '
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 '
1310 OPEN "COM1:E81NN" AS #1 '
1320 ' NT20S_SETTING OF ST128
1330 ' DATA BIT LENGTH
1340 ' STOP BIT LENGTH
1350 ' PARITY
1360 ' FLOW CONTROL
1370 ' BAUD RATE
1380 COM(1) ON
1390 '
1400 *LV0 ' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1410 LV=0:SECT.NO=0:SEL.NO=1
1420 GOSUB *SELECT
1430 IF SEL.NO=0 THEN GOTO *PRO.END
. . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . .
8 BITS
1 BIT
ODD
RS/CS
(VALUE SET BY SWITCH COMMAND)
*
Draw screen frame
Set display character strings
Set receive interrupt routine
Open communication port
Main Menu
Section 6-7
223