Special Effects

In English: A short SuperBASIC demonstration of the QL's RECOL command: in MODE 8 it opens a window with a message, then repeatedly cycles the window's border and recolours all the window's colours to one colour, stepping up and back down through the palette; a sound-effect BEEP line is left commented out. No explanatory text accompanies the listing.

Printed title: EFFETS SPECIAUX. The article below is in French, as printed in QL_DOC n2 (February-March 1988).

---

100 REMark effets speciaux
110 MODE 8
120 WINDOW 512,256,0,0:PAPER 0:INK 0
130 CLS
140 REPeat loop
150  WINDOW 250,200,150,10:BORDER 1,7
160  PAPER 2:CLS
170  PRINT \\
180  CSIZE 1,0
190  PRINT "DEMONSTRATION ""de "
200  PRINT "l'utilisation""de la"
210  PRINT "commande RECOL"
220  CSIZE 0,0
230  PRINT \"Appuyez une touche!"
235  CSIZE 2,1
240  PAUSE 100
250   fx 0,7*8
260   fx 7*8,0
270 END REPeat loop
280 :
290 DEFine PROCedure fx(a,b)
300 IF a<b:pas=1:ELSE pas=-1
310   FOR i=a TO b STEP pas
320   BORDER i-(b AND pas=-1),i+1
330   c=i MOD 7
331 REMark    BEEP 0,100,250,1,8
332 :
340   RECOL c,c,c,c,c,c,c,c
345 :
347   BEEP
350   END FOR i
360 END DEFine