Arch is the best! Implementations.

TI-BASIC

TI-BASIC, 68k

Now ported to TI calculators: TI-BASIC, 68k

:archbest()
:Prgm
:RclPic arch
:Dialog
:  Title "Arch is the Best"
:  Text "Arch is the best!"
:EndDlog
:DispHome
:EndPrgm

~ MetalRandomist, 2008-05-14 14:43:14

TI-BASIC, 83plus-compatible

Now ported to TI calculators: TI-BASIC, 83plus-compatible

:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExtrOff
:FnOff
:ClrDraw
:DispGraph
:"ARCH IS THE BEST!!! :)->Str0
:1->A
:For(X,1,22
  :randInt(0,22->B
  :9->C
  :Repeat B=A and C=1
    :Text(C6,B4,"    "
    :B+(B<A)-(B>A->B
    :If Câ� 1:C-1->C
    :Text(C6,B4,sub(Str0,A,1
  :End
  :If C:Then
    :Text(C6,B4,"    "
    :Text(0,B4,sub(Str0,A,1
  :End
  :A+1->A
:End
:Pause
:ClrGraph
:AxesOn
:ClrHome

~ MetalRandomist, 2008-05-14 14:43:34