0 Members and 2 Guests are viewing this topic.
NAME:CALCIMGAxesOffClrDrawClrHomeGoto 1Lbl 1ClrHomeClrDraw"0"->Str4I+28->C:J->Ulength(Str4Ans/(3+2(Ans>29)+4(Ans>29->ZIf min(Ans!={8,16,32Then ClrHome "ACBCEFEFBCBCCECBCACACACACACCACA989898964317979BCCECECECECECECCACACACACACCECACEC9797979797979779797979797979797979779797979797979797979797979797CCACAFFFDFCACCDCCACACCBCBCCBCBFECBCBCCBCECBCCBCBCBCBFFEFBCECBCBC97797977979797979797964646799497676313461616161616464997989898989898989898897997646466464631331313131313466466464979977979979797979797979CBCEFBCCECCCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBC9797ABDEACDCCACACACBCCBC56565656565565656565"->Str4 ClrHome 32->ZEndFor(B,1,length(Str4 inString("123456789ABCDEF",sub(Str4,B,1 If 4<Ans Pt-On(U-5-randInt(1,5),C-5-randInt(3,10 Line(U-randInt(0,9),C-randInt(0,8),3,2 If 4<8fPart(Ans/8 C+4->C U+(C=I+Z->UIf C=I+Z:I->C:EndClrDrawClrHomeMenu("More?","Yes",1,"No",2)Lbl 2ClrDrawClrHomeDelVar Str4DelVar BDelVar CDelVar IDelVar JDelVar UDelVar YDelVar ZStop
For(X,0,500)If randInt(0,1):ThenLine(randInt(Xmin,Xmax),randInt(Ymin,Ymax),randInt(Xmin,Xmax),randInt(Ymin,Ymax))ElsePt-On(randInt(Xmin,Xmax),randInt(Ymin,Ymax))EndEnd