CALL Example10 CLEAR SCREEN
20 CALL Msg("Hello world",1) !These parameters will be passed down to the SUB.
30 Msg("This is line two",2)
40 CALL "Msg" WITH ("Line three",3)
50 END
60 SUB Msg(Msg$,INTEGER X)
70 PRINT PEN X
80 PRINT Msg$
90 SUBEND
|