Substring/Top and tail: Difference between revisions
Content added Content deleted
(Substring/Top and tail in Applesoft BASIC, Chipmunk Basic and MSX Basic) |
|||
Line 367: | Line 367: | ||
9010 DEF FN L$(A$)=LEFT$(A$,LEN(A$)-1) |
9010 DEF FN L$(A$)=LEFT$(A$,LEN(A$)-1) |
||
9020 DEF FN B$(A$)=FN L$(FN F$(A$))</syntaxhighlight> |
9020 DEF FN B$(A$)=FN L$(FN F$(A$))</syntaxhighlight> |
||
==={{header|Applesoft BASIC}}=== |
|||
<syntaxhighlight lang="qbasic">10 s$ = "Rosetta Code" |
|||
20 PRINT s$ |
|||
30 PRINT MID$(s$,2) |
|||
40 PRINT LEFT$(s$,LEN(s$)-1) |
|||
50 PRINT MID$(s$,2,LEN(s$)-2) </syntaxhighlight> |
|||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="qbasic">10 s$ = "Rosetta Code" |
|||
20 print s$ |
|||
30 print mid$(s$,2)'strip first |
|||
40 print left$(s$,len(s$)-1)'strip last |
|||
50 print mid$(s$,2,len(s$)-2)'strip first and last</syntaxhighlight> |
|||
==={{header|MSX Basic}}=== |
|||
{{works with|GW-BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 S$ = "Rosetta Code" |
|||
20 PRINT S$ |
|||
30 PRINT MID$(S$, 2) 'strip first |
|||
40 PRINT LEFT$(S$, LEN(S$) - 1) 'strip last |
|||
50 PRINT MID$(S$, 2, LEN(S$) - 2) 'strip first and last</syntaxhighlight> |
|||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |