10 DEFFNS="vlistex"
   20 MODE0:PRINT"PRESS A KEY TO SEE A SHORT DEMO OF VLIST"'"TO USE THE ROUTINE TYPE *VLIST AT ANY TIME."''
   30 REPEATUNTILGET
   40 QWERT=123
   50 DF%=900
   60 PROCrubbish
   70 PROCgroo
   80 A$=FNS
   90 B$="This is a short example program"
  100 c$="To demonstrate the program"
  110 D$="vlist. See how it only shows"
  120 E$="the variables used so far."
  130 test$="test"
  140 *vlist
  150 PRINT''"Another PROCedure has now been called"'"PRESS A KEY"'':REPEATUNTILGET
  160 PROCthis_will_not_show
  170 CALL&AFC
  180 PRINT''"There was no need for *vlist then as the routine is in memory. CALL&AFC will do."
  190 END
  200 PROCgroo:ENDPROC
  210 DEFPROCrubbish:ENDPROC
  220 DEFPROCgroo:ENDPROC
  230 DEFPROCthis_will_not_show:ENDPROC