;----------------------------------------
SLOWSHOW	LDR	RHOLD,9
	MSET
	JSR SS_LOOP
	JSR SS_LOOP2
	JSR HIDEOUT
	RET

SS_LOOP	CLRALL
	INCR RHOLD
	VOX 4,0,0
	VOX 0,0,4
	SHOW
	VOX 3,0,0
	VOX 0,0,3
	VOX 4,0,1	
	VOX 1,0,4
	SHOW
	VOX 2,0,0
	VOX 0,0,2
	VOX 2,0,4
	VOX 4,0,2
	SHOW
	VOX 1,0,0
	VOX 0,0,1
	VOX 3,0,4
	VOX 4,0,3
	SHOW
	VOX 0,0,0
	VOX 4,0,4
	SHOW
	VOX 0,1,0
	VOX 4,1,4
	SHOW
	VOX 0,2,0
	VOX 4,2,4
	SHOW
	VOX 0,3,0
	VOX 4,3,4
	SHOW
	VOX 0,4,0
	VOX 4,4,4
	SHOW
	VOX 1,4,0
	VOX 0,4,1
	VOX 4,4,3
	VOX 3,4,4
	SHOW
	VOX 2,4,0
	VOX 0,4,2
	VOX 2,4,4
	VOX 4,4,2
	SHOW
	VOX 3,4,0
	VOX 0,4,3
	VOX 4,4,1
	VOX 1,4,4
	SHOW
	VOX 4,4,0
	VOX 0,4,4
	SHOW
	VOX 4,3,0
	VOX 0,3,4
	SHOW
	VOX 4,2,0
	VOX 0,2,4
	SHOW
	VOX 4,1,0
	VOX 0,1,4
	INCR RHOLD
	INCR RHOLD
	INCR RHOLD
	SHOW	
	RET

SS_LOOP2
	VOX 1,0,1
	VOX 3,0,3
	SHOW
	VOX 2,0,1
	VOX 1,0,2
	VOX 3,0,2
	VOX 2,0,3
	SHOW
	VOX 3,0,1
	VOX 1,0,3
	SHOW
	VOX 3,1,1
	VOX 1,1,3
	SHOW
	VOX 3,2,1
	VOX 1,2,3
	SHOW
	VOX 3,3,1
	VOX 1,3,3
	SHOW
	VOX 3,4,1
	VOX 1,4,3
	SHOW
	VOX 2,4,1
	VOX 1,4,2
	VOX 2,4,3
	VOX 3,4,2
	SHOW
	VOX 1,4,1
	VOX 3,4,3
	SHOW
	VOX 1,3,1
	VOX 3,3,3
	SHOW
	VOX 1,2,1
	VOX 3,2,3
	SHOW
	VOX 1,1,1
	VOX 3,1,3
	SHOW
	VOX 2,0,2
	SHOW
	VOX 2,1,2
	SHOW
	VOX 2,2,2
	SHOW
	VOX 2,3,2
	SHOW
	VOX 2,4,2
	SHOW
	RET

HIDE
	MCLR
	VOXM
	DECY
	MSET
	VOXM
	SHOW
	DECRSZ R0
	JUMP HIDE
	MCLR
	SHOW
	RET

HIDE1 LDR R0,4
	INCR RHOLD
	JSR HIDE
	RET	
	
HIDEOUT	LDR RHOLD, 1
	VOX 2,4,2
	JSR HIDE1
	VOX 1,4,2
	JSR HIDE1
	VOX 1,4,3
	JSR HIDE1
	VOX 2,4,3
	JSR HIDE1
	VOX 3,4,3
	JSR HIDE1
	LDR RHOLD, 1
	VOX 3,4,2
	JSR HIDE1
	VOX 3,4,1
	JSR HIDE1
	VOX 2,4,1
	JSR HIDE1
	VOX 1,4,1
	JSR HIDE1
	VOX 0,4,1
	JSR HIDE1
	LDR RHOLD, 1
	VOX 0,4,2
	JSR HIDE1
	VOX 0,4,3
	JSR HIDE1
	VOX 0,4,4
	JSR HIDE1
	VOX 1,4,4
	JSR HIDE1
	VOX 2,4,4
	JSR HIDE1
	LDR RHOLD,1
	VOX 3,4,4
	JSR HIDE1
	VOX 4,4,4
	JSR HIDE1
	VOX 4,4,3
	JSR HIDE1
	VOX 4,4,2
	JSR HIDE1
	VOX 4,4,1
	JSR HIDE1
	LDR RHOLD, 1
	VOX 4,4,0
	JSR HIDE1
	VOX 3,4,0
	JSR HIDE1
	VOX 2,4,0
	JSR HIDE1
	VOX 1,4,0
	JSR HIDE1
	VOX 0,4,0
	JSR HIDE1
	LDR RHOLD, 20
	SHYU
	SHOW
	SHYU
	SHOW
	ROTATEX
	SHOW
	SHZB
	MSET
	LDXYZ 1,1,2
	LINE 1,0,0,3
	LINE 0,1,0,3
	LINE -1,0,0,3
	LINE 0,-1,2,3
	VOX 2,2,2
	SHOW
	SHZB
	VOX 2,2,2
	SHOW
	SHZB
	SHOW
	SHZB
	SHOW
	SHZB
	SHOW
	RET