0 Members and 9 Guests are viewing this topic.
In other news, Frey continues kicking unprecedented levels of ass.
Well, then you lose the speed advantage present in 8.8 fixed point notation.
How about EFF.FF ?
.PASCALClrHomesub(PAS,5)Disp L1>DecReturnLbl PAS1->{L1}1->CFor(J,1,r1r1-J->Bsub(EXC,r1A->Csub(EXC,JC/A->Csub(EXC,BC/A->CC->{L1+J}EndReturnLbl EXC1->AFor(I,1,r1A*I->AEndReturn
Lbl PASClrHomeFor(J,0,r1r1-J->Bsub(EXC,r1A->Csub(EXC,JC/A->Csub(EXC,BC/A->CC->{L1+J}Disp C>Dec,i.Imaginary ^EndReturn
Lbl 001getKey->KIf K=15.QUITReturn./QUITEndIf K=33:N*10+0->NEndIf K=34:N*10+1->NEndIf K=26:N*10+2->NEndIf K=18:N*10+3->NEndIf K=35:N*10+4->NEndIf K=27:N*10+5->NEndIf K=19:N*10+6->NEndIf K=36:N*10+7->NEndIf K=28:N*10+8->NEndIf K=20:N*10+9->NEndIf N<10Output(1,1,N>Dec)ElseReturnEndGoto 001
Lbl 001getKey->KReturnIf K=15If K //if K is not 0N*10+inData(K,Data(33,34,26,18,35,27,19,36,28,20,0))-1->N EndIf N<10Output(1,1,N>Dec)ElseReturnEndGoto 001