Code: Select all
[A](A,B
If 25=Ans or 14=Ans
Then
prgmA3
Else
prgmLVL
End
[A](A,B
Repeat A=1 or B=1 or A=8 or B=12 or 25=Ans or 14=Ans
Repeat O
real(1,8B-8,8A-8,1,8,0,0,X,3,0,1
getKey->O
real(1,8B-8,8A-8,1,8,0,0,X,3,0,0
End
B+(O=26 and 12<[A](A,B+1))-(O=24 and 12<[A](A,B-1->B
A+(O=34 and 12<[A](A+1,B))-(O=25 and 12<[A](A-1,B->A
X+(O=26)(8-(8+X)(X≥16
Ans+(O=24)(8-(Ans-16)(Ans≥40 or Ans≤16
If O=25
55
If O=34
48
Ans->X
If O=21
prgmA1
[A](A,B
End
prgmSTART
<_= less than or equal to