10  REMPROGRAM ONE
 20 Y = 6
 30  DEF  FN A(X) = X * Y
 40  PRINT  FN A(2)
 50 D$ =  CHR$ (4)
 60  PRINT D$"BLOADCHAIN,A520"
 70  CALL 520"PROGRAM TWO"

SAVE PROGRAM ONE
RUN