V020-E3-2 Omron, V020-E3-2 Datasheet - Page 247

• Manufacturer Part Number: V020-E3-2
• Description: Publications, Books
• Manufacturer: Omron

Specifications of V020-E3-2

• Lead Free Status / RoHS Status: na

4660 LY$=STR$(LY):LY$=RIGHT$(LY$,LEN(LY$)-1):LY$=RIGHT$(”00”+LY$,3)
4670 LOCATE 39+(LN MOD 5)*8,LN¥5:PRINT LX$;”,”;LY$;
4680 SL$=SL$+LX$+LY$
4690 LN=LN+1
4700 IF LN<40 THEN GOTO *E7.X
4710 *E7.E
4720 LN$=HEX$(LN-1):LN$=RIGHT$(”0”+LN$,2)
4730 SEND$=SEND$+LN$+SL$
4740 RETURN
4750 *ESC.8 ’
4760 *E8.X
4770 LOCATE 43,0:PRINT SPACE$(36)
4780 LOCATE 43,0:INPUT ”X COORDINATE OF CENTER OF CIRCLE : ”,CX
4790 IF CX>255 OR CX<0 THEN *E8.X
4800 *E8.Y
4810 LOCATE 43,1:PRINT SPACE$(36)
4820 LOCATE 43,1:INPUT ”Y COORDINATE OF CENTER OF CIRCLE : ”,CY
4830 IF CY>127 OR CY<0 THEN *E8.Y
4840 *E8.R
4850 LOCATE 43,2:PRINT SPACE$(36)
4860 LOCATE 43,2:INPUT ”?????#####”,CR
4870 IF CR>63 OR CR<0 THEN *E8.R
4880 CX$=STR$(CX):CX$=RIGHT$(CX$,LEN(CX$)-1):CX$=RIGHT$(”00”+CX$,3)
4890 CY$=STR$(CY):CY$=RIGHT$(CY$,LEN(CY$)-1):CY$=RIGHT$(”00”+CY$,3)
4900 CR$=STR$(CR):CR$=RIGHT$(CR$,LEN(CR$)-1):CR$=RIGHT$(”00”+CR$,3)
4910 SEND$=SEND$+CX$+CY$+CR$
4920 RETURN
4930 ’
4940 *SELECT ’
4950 IF LV=0 THEN LX=3 ELSE LX=LV*20+1
4960 IF LV=0 THEN LY=1 ELSE LY=0
5970 COLOR 4:LOCATE LX,LY:PRINT CMND$(SECT.NO,1,0)
5980 COLOR 0
5990 FOR I=2 TO CMND(SECT.NO)
5000
5010
5020
5030
5040 NEXT I
5050 *KY.IN
5060 A$=INKEY$:IF A$=””
5070 IF A$<>CHR$(&H1B)
5080
5090
5100
5110
EXAMPLE PROGRAM
FOR I=1 TO CMND(SECT.NO)
IF LV=0 AND I<=5
IF LV=0 AND I>5
IF LV=1
LOCATE LX,LY:PRINT CMND$(SECT.NO,I,0)
COLOR 0
IF LV=0 AND I<=5
IF LV=0 AND I>5
....................................
..................................
THEN LY=I
THEN LY=I+1
THEN LY=I-1
THEN GOTO *KY.IN
THEN GOTO *KY1
THEN LY=I
THEN LY=I+1
Draw circle
Item selection routine
Section 6-7
231