232
EXAMPLE PROGRAM
Section 6-7
5120 IF LV=1 THEN LY=I–1
5130 LOCATE LX,LY:PRINT SPACE$(20)
5140 NEXT I
5150 SEL.NO=0
5160 GOTO *SEL.RET
5170 *KY1
5180 IF A$<>CHR$(&H1E) AND A$<>CHR$(&H1F) THEN GOTO *KY2
5190 IF LV=0 AND SEL.NO<=5 THEN LY=SEL.NO
5200 IF LV=0 AND SEL.NO>5 THEN LY=SEL.NO+1
5210 IF LV=1 THEN LY=SEL.NO–1
5220 COLOR 0:LOCATE LX,LY:PRINT CMND$(SECT.NO,SEL.NO,0)
5230 IF A$=CHR$(&H1E) THEN SEL.NO=SEL.NO–1 ELSE SEL.NO=SEL.NO+1
5240 IF SEL.NO=0 THEN SEL.NO=CMND(SECT.NO)
5250 IF SEL.NO>CMND(SECT.NO) THEN SEL.NO=1
5260 IF LV=0 AND SEL.NO<=5 THEN LY=SEL.NO
5270 IF LV=0 AND SEL.NO>5 THEN LY=SEL.NO+1
5280 IF LV=1 THEN LY=SEL.NO–1
5290 COLOR 4:LOCATE LX,LY:PRINT CMND$(SECT.NO,SEL.NO,0)
5300 GOTO *KY.IN
5310 *KY2
5320 IF A$<>CHR$(&HD) THEN GOTO *KY.IN
5330 *SEL.RET
5340 COLOR 0
5350 RETURN
5360 DATA ”SCREEN CONTROL”,”MEMORY TABLE OPERATION”,”LAMP, TOUCH SWITCH OPERATION”
5370 DATA ”TOUCH SWITCH INPUT”,”SYSTEM CONTROL”,”CHARACTER SIZE”
5380 DATA ”CHARACTER DISPLAY ATTRIBUTE”,”CHARACTER-STRING DISPLAY”,”FIGURE DISPLAY”
5390 DATA 2
5400 DATA ”Display specified screen”,”[ESC]0”
5410 DATA ”Request screen number”,”[ESC]X”
5420 DATA 4
5430 DATA ”Write character-string memory table”,”[ESC]B”
5440 DATA ”4-digit write numeral table”,”[ESC]C”
5450 DATA ”8-digit write numeral table”,”[ESC]D”
5460 DATA ”Copy memory table”,”[ESC]/”
5470 DATA 3
5480 DATA ”Lamp and touch switch display (bit specification)”,”[ESC]K”
5490 DATA ”Lamp and touch switch display (address specification)”,”[ESC]Q”
5500 DATA ”Lamp and touch switch display status enguiry”,”[ESC]R”
5510 DATA 2
5520 DATA ”Touch switch disable”,”[ESC]U”
5530 DATA ”Touch switch enable”,”[ESC]V”
5540 DATA 3
5550 DATA ”Screen display control”,”[ESC]P”
5560 DATA ”Buzzer control”,”[ESC]T”
5570 DATA ”Mode Transition Enable”,”[ESC]W”
To Next Page
Loading...
