Rosetta Code

Execute Brain****/BASIC/QuickBasic: Difference between revisions

Page Discussion

Execute Brain****/BASIC/QuickBasic (view source)

Revision as of 00:47, 7 May 2008

249 bytes removed ,  16 years ago
I found a contains function for BASIC strings :)
m (RCBF/BASIC moved to RCBF/BASIC/QuickBasic: Allowing for other BASIC dialects.)
(I found a contains function for BASIC strings :))
Line 30:
in = 0
'check to see if this is a valid instruction character
FORIF j = 1 TO LENinstr(instChars$,char$) THEN
IF char$ = MID$(instChars$, j, 1) THEN
'valid instruction characters kept, others ignored
in = 1
EXIT FOR
END IF
NEXT j
 
IF in THEN
code$ = code$ + char$
'count brackets
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/64191"