Execute Brain****/TI-89 BASIC: Difference between revisions

Execute Brain****/TI-89 BASIC (view source)

19 bytes added , 1 year ago

m

Fixed syntax highlighting.

9,482

edits

Revision as of 20:16, 1 December 2009 (view source) rosettacode>Kevin Reid (add TI-89 BASIC as translation of TI-83)		Latest revision as of 12:04, 1 September 2022 (view source) PureFox (talk \| contribs) m (Fixed syntax highlighting.)
(5 intermediate revisions by 5 users not shown)
Line 1: ~~[[Category:TI-89 BASIC]]~~{{implementation\|Brainf***}}{{collection\|RCBF}} {{trans ~~subpage~~\|TI-83 BASIC\|subpage=1}} This implementation (in [[TI-89 BASIC]]) is basically a direct translation of the [[RCBF/TI-83 BASIC]]\|TI-83 BASIC example]]. It makes use of some TI-89 features; the program and memory size are given as parameters, and all variables are declared local. IO is performed with numbers; character IO could be done (using char() and ord() to convert) but the TI-89 has no cursor for user program IO, so it would be necessary to either implement one or buffer output until the program exits or waits for input, in order to display more than one character per line. <~~pre~~syntaxhighlight ~~style~~lang="~~font-family:'TI Uni'~~ti89b">Define bf(Raw) = Prgm Local valid, raw, BFprog, inst, memory, ip, brackets, memp "+-.,[]<>" → valid Line 55: While ip≥0 and brackets ≠ 0 If mid(BFprog,ip,1) = "[" Then brackets-1 → brackets▼ ElseIf mid(BFprog,ip,1) = "]" Then▼ brackets+1 → brackets ▲ ElseIf mid(BFprog,ip,1) = "]" Then ▲ brackets-1 → brackets EndIf ip-1 → ip Line 73: EndIf EndFor EndPrgm</~~pre~~syntaxhighlight>