0 Members and 1 Guest are viewing this topic.

.EXPORT!If H-3If D=51 or (D=15)0->A->B->D->HEnd!If D-52->A->B->D2->H6->GEnd!If D-53->A->B->D1->HEnd!If D-1A<9+A->AEnd!If D-4A-(A>0)->AEndIf D=3 or (D=2)If A/5A-5->AElseA+5->AEndEndLbl EXDClrDraw7:While ->L+17:While ->M+1!If M>1 and (M<7)0->TElse768-(A/5*320)->TEndPt-On(L*8,M*8,M*8+L*8-T+Pic6M-1:EndL-1:EndPt-On(7,A^5*6+23,Pic8StorePicIf H>3ReturnEnd!If D-545->HIf A>4 and (A<7) or (A<4)For(L,1,100->{L+L1}EndIf A<421->{L1}Else5->{L1}End0->U->D->B4->H!If A*(A-5)If {L2}-95Copy(L2,L1+1,8length(L1+1)->U!If A-5!If U-883->{L1+8}Else83->{L1+U+1}U++End:EndEnd:End!If A-1*(A-6)If {L2+10}-95Copy(L2+10,L1+1,8length(L1+1)->U!If A-6!If U-877->{L1+8}Else77->{L1+U+1}U++End:EndEnd:EndEnd!If A-46->HEndIf A<10 and (A>6)6->HEndEndEnd.MAP EDIT!If H-2!If D-513->HEndIf D=52 or (D=15)0->H->DEnd!If D-531->HEndIf G<5If getKey(48)If getKey(3)P<128+P->PEndIf getKey(2)P-(P>8)->PEndN-(N+8>P)->NIf getKey(1)Q<128+Q->QEndIf getKey(4)Q-(Q>8)->QO-(O+8>Q)->OEnd6->GEndEndIf DIf D-1<4!If D-3N+8<P*(A=7)+N->NA<7+A->AEnd!If D-2N-(N>0*(A=0))->NA-(A>0)->AEnd!If D-1O+8<Q*(B=7)+O->OB<7+B->BEnd!If D-4O-(O>0*(B=0))->OB-(B>0)->BEnd6->GElseO+B*128+N+A+Y->T.SELECT BY MAP!If D-40{T}->E8->GEnd!If D-54.ADD TO UNDO STACKIf {L1+20}{L1+20}+1While -1->L{L-1*3+L1+21}->{L*3+L1+21}{L-1*3+L1+22}^^r->{L*3+L1+22}^^rL:End:End{T}->{L1+21}T->{L1+22}^^r{L1+20}+({L1+20}<128)->{L1+20}E->{T}End.UNDO!If D-55If {L1+20}{L1+21}->{{L1+22}^^r}Copy(L1+24,L1+21,384{L1+20}-1->{L1+20}End:EndEnd:End.DRAW7:While ->L+17:While ->M+1O+M*128+L+N+Y->TIf {T}<=FPt-Off(L*8,M*8,{T}*8+ZPt-Off(L*8,M*8,{T}*8+Z+2048)^^rElsePt-Off(L*8,M*8,ZPt-Off(L*8,M*8,Z+2048)^^rEndM-1:EndL-1:EndIf GIf getKey(48)Rect(0,0,64,14RectI(1,0,62,13Rect(0,0,64,14)^^rRectI(1,0,62,13)^^rN>10*4+(N>100*4)->TO>10*4+(O>100*4)->UN+7>9*4+(N+7>99*4)->VO+7>9*4+(O+7>99*4)->WText(2,0,"X:"Text(2,6,"Y:"Text(9,0,N>DecText(9,6,O>DecText(T+13,0,"-"Text(U+13,6,"-"Text(T+17,0,N+7>DecText(U+17,6,O+7>DecText(T+V+21,0,"/"Text(U+W+21,6,"/"Text(T+V+25,0,P>DecText(U+W+25,6,Q>DecElsePt-Change(A*8,B*8,Pic4EndElse0->TEndElse.SET EDIT!If H-1If D=53 or (D=15)0->H->DEnd!If D-522->H6->GEnd!If D-513->HEndIf DIf D-1<4!If D-3A<7+A->AEnd!If D-2A-(A>0)->AEnd!If D-1B<7+B->BEnd!If D-4B-(B>0)->BEndElse!If D-56Fill(E*8+Z,8,0)Fill(E*8+Z+2048,8,0)End.NUM COMMANDSIf D>17 and (D<37)E*8+Z->T+2048->S!If D-36Copy(rotCC(T),T,8Copy(rotCC(S),S,8End!If D-28Copy(T+1,L1,7{T}->{T+7}Copy(L1,T,7Copy(S+1,L1,7{S}->{S+7}Copy(L1,S,7End!If D-20Copy(rotC(T),T,8Copy(rotC(S),S,8End!If D-35For(L,0,7{T+L}*2+(/256)->{T+L}{S+L}*2+(/256)->{S+L}End:End!If D-27For(L,0,7{T+L} xor 255->{T+L}{S+L} xor 255->{S+L}End:End!If D-19For(L,0,7{T+L}*257/2^256->{T+L}{S+L}*257/2^256->{S+L}End:End!If D-34Copy(flipH(T),T,8Copy(flipH(S),S,8End!If D-26Copy(T,L1,7{T+7}->{T}Copy(L1,T+1,7Copy(S,L1,7{S+7}->{S}Copy(L1,S+1,7End!If D-18Copy(flipV(T),T,8Copy(flipV(S),S,8EndIf E>FE->FEndEndEnd:End.ANIMATIONIf {L2+400}!If D-32->{L2+400}8->GEnd!If G2->GE++If E>F-1->EEndEndElse!If D-32+1->{L2+400}0->E+1->GEnd:EndIf D.COPY/PASTE!If D-40Copy(E*8+Z,L5,8Copy(E*8+Z+2048,L5+8,8End!If D-48Copy(L5,E*8+Z,8Copy(L5+8,E*8+Z+2048,8If E>FE->FEndEnd!If D-477:While ->L+1{E*8+Z+L} or {L+L5}->{E*8+Z+L}{E*8+Z+L+2048} or {L+L5+8}->{E*8+Z+L+2048}L-1:EndIf E>FE->FEndEnd!If D-467:While ->L+1{E*8+Z+L} xor {L+L5}->{E*8+Z+L}{E*8+Z+L+2048} xor {L+L5+8}->{E*8+Z+L+2048}L-1:EndIf E>FE->FEndEndIf (D=54)+(D=55)E*8+B+Z->T!If D-55T+2048->TEndIf {T}[e]A{T}-e^((7-A))->{T}Else{T}+e^((7-A))->{T}EndIf E>FE->FEndEndEnd7:While ->L+17:While ->M+1Pt-On(L*8,M*8,C/4*8+Pic3M-1:EndL-1:EndStorePic7:While ->L+17:While ->M+1If {E*8+M+Z}[e]LPt-On(L*8,M*8,Pic2EndIf {E*8+M+Z+2048}[e]LPt-On(L*8,M*8,Pic2)^^rEndM-1:EndL-1:EndPt-Change(A*8,B*8,Pic1Pt-Change(A*8,B*8,Pic1)^^rEnd:End.INFO!If H!If D-531->HEnd!If D-522->H6->GEnd!If D-513->HEndIf DIf D-1<48->G!If D-3E^4<3+E->EEnd!If D-2E-(E^4>0)->EEnd!If D-1E<252*4+E->EEnd!If D-4E-(E>3*4)->EEndEnd.COPY/PASTE!If D-40Copy(E*8+Z,L5,8End!If D-48Copy(L5,E*8+Z,8If E>FE->FEndEnd!If D-477:While ->L+1{E*8+Z+L} or {L+L5}->{E*8+Z+L}L-1:EndIf E>FE->FEndEnd!If D-467:While ->L+1{E*8+Z+L} xor {L+L5}->{E*8+Z+L}L-1:EndIf E>FE->FEndEnd!If D-54E->FEndEndClrDrawText(30,19,L2Text(30,25,(E+1)>DecText(46,25,(F+1)>DecText(30,33,L2+10Text(30,39,N>DecText(46,39,P>DecText(30,45,O>DecText(46,45,Q>Dec7:While ->L+17:While ->M+1Pt-On(L*8,M*8,M*8+L*8+Pic6M-1:EndL-1:EndStorePicEnd32:While ->L+1Pt-On(L^4*8+64,L/4*8,C/6*8+Pic5L-1:End!If E/32>(F/32)!If E/32-(F/32)F^32->TElse32->TEndE/32*256+Z->ST:While ->L+1Pt-Off(L^4*8+64,L/4*8,L*8+SPt-Off(L^4*8+64,L/4*8,L*8+S+2048)^^rL-1:EndEndIf GPt-Change(E^32^4*8+64,E^32/4*8,Pic4G--EndIf D-15!If R-2DispGraph^^r^^rElse!If RDispGraphElseDispGraph^^rEndEndC++!If C-12->CEndEndIf GetCalc(Str3,16)->thetaCopy(L2,theta,8)Copy(L2+10,theta+8,8)EndDelVar Str1DelVar Str2Return.TO STRINGLbl STRnib{r1+L*2}->TT>9*7+48+T->{L*2+theta}nib{r1+L*2+1}->TT>9*7+48+T->{L*2+theta+1}Return.DRAW PROG BARLbl BARsub(EXD)For(M,0,r1Pt-On(M+3,54,Pic9EndDispGraphReturn.EXP ERRORLbl ERRRect(19,33,25,9RectI(20,34,23,7Text(21,34,"ERROR!"!If D->UEnd!If UIf D3->HEndEndReturn

Wow this looks very great Can it be ran from archive entirely?