0 Members and 2 Guests are viewing this topic.
.SORT"prgm"->Str1{e9830}r->EClrHomeWhile E>{e982E}rReturnIf getKey(15)For(F,0,14{E-F}->{F+L1}EndIf getKey(1)Pause 500ClrHome!If {L1}-5/2For(A,1,{L1+6}{L6+6+A}->{Str1+A}End0->{Str1+{L1+6}+1}Text(0,0,Str1+1EndE-{L1+6}-7}->EEndEnd