; Define a label for the loop funtion

;LAB ja

; Linking shows together in an AmigaDOS script will make the Workbench
; continuously flicking back in between. The trick is to make the Workbench
; and the MousePointer invisible by colouring them completely black.
;
; Use the POINTER and PALETTE programs in the prefs drawer to make the 
; presets "black.pointer" and "black.palet". You also have to make presets 
; for the default colours, otherwise you end up with a black workbench when 
; the demo is finished...

workbench:prefs/pointer workbench:prefs/presets/black.pointer use
workbench:prefs/palette workbench:prefs/presets/black.palet use

NWiper Shows/Pixels.NW
NWiper Shows/Rotate.NW
NWiper Shows/SpecialRot.NW
NWiper Shows/Door.NW
NWiper Shows/CubeMorph.NW
NWiper Shows/Cube.NW
NWiper Shows/Morph.NW
NWiper Shows/Zoom.NW

; use the following line to make an eternal loop

;SKIP BACK ja

; make the workbench + pointer visible

workbench:prefs/pointer workbench:prefs/presets/default.pointer use
workbench:prefs/palette workbench:prefs/presets/default.palet use