; CHAIN demonstration
; Creates a cube, starts animation on drive A
; It will chain to drive A when FREEDISK<200000
; Have your printer on to see how it works!
; NOTE: I chain with LOTS left on disk for the demo.
; You could chain to another drive as well.
; Normally, you would chain when FREEDISK<20000 or so.

new:mono:zoom 300:cube cube1,15:frame=0:chained=0

rstart "a:part1",m

for camx=-180 to 179 step 10
frame=frame+1
cam1 camx,20,0
superview:record

print"Free disk on frame",frame,"=",FREEDISK
if FREEDISK<200000 & chained=0 then gosub dochain

next camx

rstop:end

; Chaining subroutine!

@dochain:print "Chaining!":chained=1:rchain "a:part2":return