10 REM CHAIN test part 2
15 OPEN "chain.dat" FOR OUTPUT AS 1
20 ON ERROR GOTO 1000
30 PRINT#1, A,B,C,D,E,S,T,K,A%,B%
40 S="1"
50 T="2"
60 PRINT#1,FNF(1)
70 PRINT#1, G(1), H(1)
80 PRINT#1, G(0)
90 PRINT#1, H(0)
100 CLOSE 1
110 DEFSTR S, T
120 CHAIN "chain.ba3",,ALL
999 END
1000 PRINT#1, "error: "; ERR ; ERL
1010 RESUME NEXT

