10 lines
175 B
Text
10 lines
175 B
Text
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
|