10 REM    *************************** 
100 RESERVE
110 GET PALETTE
120 EXTENSION (Index #6) (Token 0xac)
130 VARNAME
140 IF
150 VARNAME
160 IF
170 VARNAME
180 EXTENSION (Index #6) (Token 0xac)
190 EXTENSION (Index #6) (Token 0xac)
20 REM    *    not very good Demo   * 
200 EXTENSION (Index #6) (Token 0xac)
210 EXTENSION (Index #6) (Token 0xac)
220 EXTENSION (Index #6) (Token 0xac)
230 EXTENSION (Index #6) (Token 0xac)
240 EXTENSION (Index #6) (Token 0xac)
250 EXTENSION (Index #6) (Token 0xac)
260 EXTENSION (Index #6) (Token 0xac)
270 EXTENSION (Index #6) (Token 0xac)
280 EXTENSION (Index #6) (Token 0xac)
290 EXTENSION (Index #6) (Token 0xac)
30 REM    *  using a slow harware   * 
300 EXTENSION (Index #6) (Token 0xac)
310 EXTENSION (Index #6) (Token 0xac)
320 EXTENSION (Index #6) (Token 0xac)
330 EXTENSION (Index #6) (Token 0xac)
340 EXTENSION (Index #6) (Token 0xac)
350 EXTENSION (Index #6) (Token 0xac)
360 EXTENSION (Index #6) (Token 0xac)
370 EXTENSION (Index #6) (Token 0xac)
380 EXTENSION (Index #6) (Token 0xac)
390 EXTENSION (Index #6) (Token 0xac)
40 REM    *  zoom effect  ...       * 
400 EXTENSION (Index #6) (Token 0xac)
410 EXTENSION (Index #6) (Token 0xac)
420 EXTENSION (Index #6) (Token 0xac)
430 EXTENSION (Index #6) (Token 0xac)
440 EXTENSION (Index #6) (Token 0xac)
450 EXTENSION (Index #6) (Token 0xac)
460 EXTENSION (Index #6) (Token 0xac)
470 EXTENSION (Index #6) (Token 0xac)
480 EXTENSION (Index #6) (Token 0xac)
490 EXTENSION (Index #6) (Token 0xac)
50 REM    *      BLITTER EXT        * 
500 IF
510 SCREEN SWAP
530 GOTO
60 REM    ***************************  Press fire  to exit or mouse button
70 MODE
80 LOGIC
90 FLASH