10 ! PROGRAM TSTSEN
11 ! TO TEST VARIABLE SEND AND RECEIVE
20 DIM N$[6]V,D$[40]V
30 N$="TESTSN"
35 S=0
40 D$="THIS IS A MESSAGE SENT FROM A BASIC TASK"
50 LOAD "VARSRR"
60 CALL "VARSRR"(N$,D$,50,S)
70 PRINT "STATUS =";S
80 STOP