Not very interesting, I just thought I'd post the code for your amusement/benefaction:
This isn't really at all optimized either...
(T=theta)
Code:
So when you run this and enter program ABC, the output will be, say...
Code:
Currently the main commands must be at the beginning of the line but that should be easy to fix.
This isn't really at all optimized either...
(T=theta)
Code:
:ClrHome
:Input "PROGRAM:",Str0
:0->T:Asm(CELTIC2
:T->L:0->I
:ClrHome
:Disp "","","","","","","
:For(X,1,L
:0->T:X:Asm(CELTIC2)
:":"+Str9->Str9
:I-(Str2="Else" or Str2="End->I
:0->N
:If not(I:Then
:Disp Str9
:Else
:Disp sub(" ",1,I)+Str9
:End
:I+(Str2="Then" or Str2="For(" or Str2="While" or Str2="Repeat" or Str2="Else->I
:Pause :EndSo when you run this and enter program ABC, the output will be, say...
Code:
:ClrHome
:While 1
:Input "",N
:N+randInt(-5... [...,5)->O]
:While N=O
:N+randInt(-... [...5,5)->O]
:End
:Disp O
:EndCurrently the main commands must be at the beginning of the line but that should be easy to fix.
