Control de la Regia a traves de un PC
5
CLS : KEY OFF: CLOSE
10
PRINT "Demonstration example of controlling the console with a PC "
20
PRINT : PRINT : "Open communication file on the COM1 or COM2": PRINT
30
INPUT "Communication portsi 1 o 2 ?
40
IF N = 1 THEN PORTA$ = "COM1" ELSE PORTA$ = "COM2"
50
OPEN PORTA$ + ":9600,n,8,1,rs,cs,ds,cd" FOR RANDOM AS #1
60
PRINT : PRINT "Reset channels": PRINT
70
PRINT #1, CHR$(&HA3);
80
PRINT "Switch on channel n°4": PRINT
90
PRINT #1, CHR$(&HA1); CHR$(3);
100
FOR I = 1 TO 4000: NEXT I
110
PRINT "Switch off channel n°4 ": PRINT
120
PRINT #1, CHR$(&HA2); CHR$(3);
130
FOR I = 1 TO 4000: NEXT I
140
PRINT "Switch on channels 2,3,6,7,8,9 ": PRINT
150
PRINT #1, CHR$(&HA1); CHR$(1); CHR$(2); CHR$(5); CHR$(6); CHR$(7); CHR$(8);
160
FOR I = 1 TO 4000: NEXT I
170
PRINT "Switch on channels 2,3,6,7,8,9": PRINT
180
PRINT #1, CHR$(&HA2); CHR$(1); CHR$(2); CHR$(5); CHR$(6); CHR$(7); CHR$(8);
190
A$ = "": PRINT : PRINT
210
PRINT "Set console in SCENE-AUTO mode with the scene sliders at maximum"
212
PRINT "and SCENE-CROSS at 4 seconds ,then press a button": PRINT: PRINT
215
A$ = INKEY$
220
IF A$ = "" THEN 215
230
PRINT " "Lower scene currently running": PRINT
240
PRINT #1, CHR$(&HA0); CHR$(0);
250
FOR I = 1 TO 30000: NEXT I
260
PRINT "Scene n° 2": PRINT
270
PRINT #1, CHR$(&HA0); CHR$(2);
280
FOR I = 1 TO 30000: NEXT I
290
PRINT "Crossfade between scene n° 2 and scene no3": PRINT
300
PRINT #1, CHR$(&HA0); CHR$(3);
310
FOR I = 1 TO 30000: NEXT I
320
PRINT "Change page, page n° 10": PRINT
325
PRINT #1, CHR$(&HA4); CHR$(10);
328
PRINT "Press a button to return to page no 1": PRINT
330
A$ = ""
340
A$ = INKEY$
350
IF A$ = "" THEN 340
360
PRINT #1, CHR$(&HA4); CHR$(1);
370
FOR I = 1 TO 10000: NEXT I
380
PRINT "series of 10 triggers to advance chase": PRINT
390
FOR T = 1 TO 10
395
PRINT #1, CHR$(&HA5);
400
FOR I = 1 TO 2000: NEXT I
410
NEXT T: CLOSE
420
PRINT " END Sample "
I
GB
", N
D
F
E
appendice