\START85\
\COMMENT=Program file dated 06/22/96, 21:41
\NAME=Swim
\FILE=SWIM.85P
:Lbl HOME
:ClLCD
:Menu(1,"New",NEW,2,"Old",OLD,3,"See",SEE,4,"Disp",DSP,5,"Quit",OVR)
:Lbl NEW
:{4,4}\->\dim S
:For(N,1,4)
:ClLCD
:Outpt(8,1,"Swimmer")
:Outpt(8,9,N)
:Prompt BK
:Prompt BR
:Prompt FL
:Prompt FR
:BK\->\S(N,1)
:BR\->\S(N,2)
:FL\->\S(N,3)
:FR\->\S(N,4)
:End
:Lbl OLD
:1\E\100\->\SWM
:For(A,1,4)
:For(B,1,4)
:For(C,1,4)
:For(D,1,4)
:If A\<>\B and A\<>\C and A\<>\D and B\<>\C and B\<>\D and C\<>\D and (\#\
S(A,1)+S(B,2)+S(C,3)+S(D,4))<SWM
:Then
:(S(A,1)+S(B,2)+S(C,3)+S(D,4))\->\SWM
:ClLCD
:Outpt(1,1,A)
:Outpt(1,3,B)
:Outpt(1,5,C)
:Outpt(1,7,D)
:Outpt(3,5,SWM)
:End
:End
:End
:End
:End
:Pause 
:Goto HOME
:Lbl SEE
:ClLCD
:Prompt BK
:Prompt BR
:Prompt FL
:Prompt FR
:Disp (S(BK,1)+S(BR,2)+S(FL,3)+S(FR,4))
:Pause 
:Goto HOME
:Lbl DSP
:Pause S
:Goto HOME
:Lbl OVR
:Stop
\STOP85\