>LIST 10 REM************************************ 20 REM* GPY-52 GPY-31 GPY-32 GPY-04EX * 30 REM* Audio & Projector control * 40 REM* 2004/12/11-1 by toru okada * 50 REM************************************ 100 REM **GPY-32 input card address ******* 110 I_0=0FF6CH : REM Port 0 Pwer Switc 0 120 I_1=I_0+1H : REM Port 1 DC330 selector 8-15 130 I_2=I_0+2H : REM Port 2 140 I_3=I_0+3H : REM Port 3 150 REM **GPY-31 output card address ****** 160 O_0=0FF64H : REM Port 0 LED Driver 0-7 170 O_1=O_0+1H : REM Port 1 LED Common R=8 G=10 B=12 180 O_2=O_0+2H : REM Port 2 Powe Switch 16 190 O_3=O_0+3H : REM Port 3 24-46(15V) 200 REM -0 210 REM -1 Red, 220 REM -2 -,-,-,Solenoid 230 REM -3 DC330,?,?,?,DF-35,0=up/1=dwn,motor,Amp 240 REM**MAINSWITCH STATUS***************** 250 T=3 : REM for Timer 260 POWER=0 : REM Solenoid & AC Port Controler 270 MASTER=0 : REM for Port 3 280 BLIND=0 : REM UP=2 DWN=1 STOP=0 290 SCEN=0 : REM UP=2 DWN=1 STOP=0 300 AC_PRO=0 : REM ON<0 OFF=0 ON>0 Port No 310 REM*****Projector control data********* 320 DIM PROJE(101),COLOR(8) 330 FOR N=1 TO 100 : READ PROJE(N) : NEXT N 340 FOR N=0 TO 7 : READ COLOR(N) : NEXT N 350 DATA 165,01,00,01,00,01,03,00,01,00,01 360 DATA 19,10,16,03,00,01,01,08,90 : REM Projector ON 370 DATA 165,01,00,01,00,01,03,00,01,00,01 380 DATA 19,10,16,03,00,01,00,09,90 : REM Projector OFF 390 DATA 165,01,00,01,00,01,03,00,01,00,01 400 DATA 19,113,16,03,00,01,00,114,90 : REM VIDEO 410 DATA 165,01,00,01,00,01,03,00,01,00,01 420 DATA 19,113,16,03,00,01,01,115,90 : REM Hi Vision 430 DATA 165,01,00,01,00,01,03,00,01,00,01 440 DATA 19,113,16,03,00,01,03,113,90 : REM DVD 450 DATA 0,1,16,17,4,5,20,21 : REM Color 460 REM Black Blue Red Majenta Green Cyan Yelow White 470 PRJ1=1 : PRJ0=21 : VIDEO=41 : HDTV=61 : DVD=81 480 REM**GPY-04EX RS422 SET*********************************** 490 RS=0FFA0H : RQ=0FFA1H : REM GPY-04EX ADDRESS 500 XBY(RS+1)=0H : XBY(RS+5)=0H : REM RESET 510 XBY(RS+1)=0H : XBY(RS+5)=0H : REM RESET 520 XBY(RS+8)=0EH : REM original register 530 XBY(RS+1)=40H : XBY(RS+5)=40H : REM hard ware reset 540 XBY(RS+2)=0AH : XBY(RS+6)=0AH : REM 4.8Khz(1/1) 550 XBY(RS+3)=02H : XBY(RS+7)=0H : REM mode set 560 XBY(RS+1)=7DH : XBY(RS+5)=7DH : REM 8bit even 1stop 570 XBY(RS+1)=37H : XBY(RS+5)=37H : REM command register****** 580 M=PRJ0 : GOSUB 7500 : PRINT "Projector OFF" 590 XBY(O_3)=2 : T=18 : GOSUB 8000 : PRINT "Screen Up590" 1000 MASTER=0 : XBY(O_3)=MASTER 1010 XBY(O_0)=0 : XBY(O_2)=0 : GOSUB 9200 1020 S=0 : PRINT "All Off => 0 Stage620" : XBY(O_1)=COLOR(0) 1030 IF XBY(I_0)<>0 THEN 1030 : REM********0 Stage LOOP**** 1040 T=1 : GOSUB 8000 : GOSUB 9000 1050 IF XBY(I_0)<>0 THEN 1030 1060 MASTER=64 : XBY(O_3)=MASTER : REM 01000000 1070 IF S=0 THEN T=6 ELSE T=0 : REM T=610 1080 GOSUB 8000 : C=1 : GOSUB 9200 1090 S=1 : PRINT "Rbidume Power ON = 1st Stag1090" : XBY(O_1)=COLOR(1) 1100 IF XBY(I_0)<>0 THEN 1100 : REM********1st Stage LOOP** 1110 T=1 : GOSUB 8000 : GOSUB 9000 1120 IF XBY(I_0)<>0 THEN 1000 1130 MASTER=192 : XBY(O_3)=MASTER : REM 11000000 1140 IF S=1 THEN T=15 ELSE T=0 1150 GOSUB 8000 : GOSUB 9200 1160 S=2 : PRINT "DC-330 ON = 2nd Stage1160" : XBY(O_1)=COLOR(2) 1170 L=XBY(I_1) : XBY(O_0)=L 1200 IF XBY(I_0)<>0 THEN 1170 : REM********2nd Stage LOOP** 1210 T=1 : GOSUB 8000 : GOSUB 9000 1220 IF XBY(I_0)<>0 THEN 1060 1230 MASTER=241 : XBY(O_3)=MASTER : REM 11110001 1240 IF S=2 THEN T=37 ELSE T=0 1250 GOSUB 8000 : GOSUB 9200 1260 S=3 : PRINT "All AMPs ON = 3rd Stage840" : XBY(O_1)=COLOR(4) 1270 L=XBY(I_1) : XBY(O_0)=L 1300 IF XBY(I_0)<>0 THEN 1270 : REM********3rd Stage LOOP** 1310 T=1 : GOSUB 8000 : GOSUB 9000 1320 IF XBY(I_0)<>0 THEN 1130 1330 GOSUB 7000 : GOSUB 9200 1340 S=4 : PRINT "Projector ON = Final Stage1340" : XBY(O_1)=COLOR(5) 1350 L=XBY(I_1) : XBY(O_0)=L 1400 IF XBY(I_0)<>0 THEN 1350 : REM********Final Stage LOOP** 1410 GOSUB 7100 : GOSUB 9200 1420 PRINT "Projector OFF1420" : GOTO 1260 7000 REM*******Projector ON*********** 7010 M=PRJ1 : GOSUB 7500 : AC_PRO=1 : PRINT "Projector ON" 7020 XBY(O_3)=247 : REM 11110111 7030 T=16 : GOSUB 8000 7040 XBY(O_3)=241 : REM 11110001 7050 PRINT "Down" : RETURN 7100 REM*******Projector OFF********** 7110 M=PRJ0 : GOSUB 7500 : AC_PRO=0 : PRINT "Projector OFF" 7120 XBY(O_3)=243 : REM 11110011 7140 T=18 : GOSUB 8000 7150 XBY(O_3)=241 : REM 11110001 7160 PRINT "Up" : RETURN 7500 REM*******RS-422 TX CH1********* 7510 FOR N=M TO M+20 7520 REM R=XBY(RQ).AND.01H : IF R>01H.OR.R<01H THEN 7520 7530 XBY(RS)=PROJE(N) 7550 NEXT N 7560 RETURN 8000 REM********* T Sec Timer******* 8010 PRINT "Wait ",T,"sec." 8020 TIME=0 : CLOCK 1 : ONTIME T,9300 8030 XBY(O_1)=COLOR(INT(RND*7)) 8040 IF T=0 THEN 8060 8050 L=XBY(I_1) : XBY(O_0)=L : GOTO 8030 8060 RETURN 9000 REM********Pop ********************** 9010 XBY(O_2)=0 9020 FOR Q=1 TO 3 9030 FOR P=1 TO 30 : XBY(O_2)=1 : NEXT P 9040 XBY(O_2)=0 9050 NEXT Q 9070 L=XBY(I_1) : XBY(O_0)=L : RETURN 9200 REM********Pop Up Until Up*********** 9210 XBY(O_2)=0 : XBY(O_1)=COLOR(7) 9220 FOR P=1 TO 30 : XBY(O_2)=1 : NEXT P 9230 IF XBY(I_0)<>0 THEN 9250 9240 XBY(O_2)=0 : GOTO 9220 9250 XBY(O_2)=0 9260 L=XBY(I_1) : XBY(O_0)=L : RETURN 9300 T=0 : RETI : REM***ON TIME*********** READY >RUN Projector OFF Wait 18 sec. Screen Up590 All Off => 0 Stage620