Rosetta Code/Run examples: Difference between revisions
Content added Content deleted
| Line 58: | Line 58: | ||
a$ = word$(a$,2,"-") |
a$ = word$(a$,2,"-") |
||
a$ = word$(a$,1,"""") |
a$ = word$(a$,1,"""") |
||
cls ' clear screen |
|||
cls |
|||
'print a$ ' this is the program number used in the [RC] editor |
'print a$ ' this is the program number used in the [RC] editor |
||
| Line 98: | Line 98: | ||
WEND |
WEND |
||
END FUNCTION</lang> |
END FUNCTION</lang> |
||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||