⚠️ Warning: This is a draft ⚠️

This means it might contain formatting issues, incorrect code, conceptual problems, or other severe issues.

If you want to help to improve and eventually enable this page, please fork RosettaGit's repository and open a merge request on GitHub.

{{implementation|BASIC}}'''UBASIC''' is a freeware BASIC interpreter written by Yuji Kida at Rikkyo University in Japan, specialized for mathematical computing. More information and links can be found at its [[wp:UBASIC|Wikipedia article]].

==Sample Program== This simple program approximates specific derivatives:

```10  Point 6 'Sets decimal display to 28 places (0+.1^27)
20  rf=#pi/180 'Degree -> Radian Conversion
30 Dc=20
```

100 Q=73rf:?Chr(2):?" F'(Q): Approximation"," Actual Value":N=1:GoSub 1000:?Using(,Dc),cos(Q):N=2:GoSub 1000:?Using(,Dc),1/Q:N=3:GoSub 1000:?Using(,Dc),#piQ^(#pi-1) 999 End 1000 '*** Print Sub *** 1010 ?Using(,Dc),.Fp(Q);" ";:Return 59999 End 60000 '*** Function Assignment *** 60100 .F(N,Q):If N=1 Then Return(sin(Q)) 'Fp=cos(Q) 60102 If N=2 Then Return(log(Q)) 'Fp=1/Q 60104 If N=3 Then Return(Q^#pi) 'Fp=piQ^(pi-1) 60105 ?"Invalid Function Code: N must be '1' or '2' or '3'" 60109 End 60210 .Fp(Q):dQ=#eps^0.3:Return((.F(N,Q+0.5dQ)-.F(N,Q-0.5*dQ))/dQ) '' '' '''''Run'''''ning as written gives:

Run 0.29237170472273672804 0.29237170472273672810 0.78487369196003179303 0.78487369196003179283 5.27771467407719816786 5.27771467407719816637 OK