0 Members and 1 Guest are viewing this topic.
rand(L2(D
ClrDrawAxesOff0->Xmin0->Ymin94->Xmax62->YmaxRest of code...
:SetUpEditor L1,L2:DelVar L1DelVar L2:Lbl 1:ClrHome:ClrDraw:Line(9,34,9,28:Line(15,34,15,28:Line(9,34,15,34:Line(9,28,15,28:Line(26,34,26,28:Line(32,34,32,28:Line(26,34,32,34:Line(26,28,32,28:Line(43,34,43,28:Line(49,34,49,28:Line(43,34,49,34:Line(43,28,49,28:Line(60,34,60,28:Line(66,34,66,28:Line(60,34,66,34:Line(60,28,66,28:Line(77,34,77,28:Line(83,34,83,28:Line(77,34,83,34:Line(77,28,83,28:999→dim(L1:{0→L2:15→T:1→X:0→D:StorePic 1:Pause :Lbl 2:getKey→K:If K=11:Then:X→Y:12→A:If L1(X)=0:Then:1→L1(X:Else:0→L1(X:End:End:If K=12:Then:X+1→Y:29→A:If L1(X+1)=0:Then:1→L1(X+1:Else:0→L1(X+1:End:End:If K=13:Then:X+2→Y:46→A:If L1(X+2)=0:Then:1→L1(X+2:Else:0→L1(X+2:End:End:If K=14:Then:X+3→Y:63→A:If L1(X+3)=0:Then:1→L1(X+3:Else:0→L1(X+3:End:End:If K=15:Then:X+4→Y:80→A:If L1(X+4)=0:Then:1→L1(X+4:Else:0→L1(X+4:End:End:If K=21:Goto 3:If K=105:Goto 4:If K=85 and T>15:T-15→T:If K=95 and T<135:T+15→T:If K=11 or K=12 or K=13 or K=14 or K=15:Then:If L1(Y)=0:Then:Pt-Off(A,31:Pt-Off(A,31,2:Else:Pt-On(A,31:Pt-On(A,31,2:End:End:Text(1,1,T/15:Text(1,10,"<- DELAY:If K=45:Stop:Goto 2:Lbl 3:D+1→D:T→L2(D:X+5→X:ClrDraw:RecallPic 1:Goto 2:Lbl 4:ClrDraw:0→A:‾4→Z:0→D:Text(10,27,"ETRA OPTIES::Text(25,18,"1) ONEINDIGE LOOP:Text(32,18,"2) AANTAL-LOOP:Text(39,18,"3) NIETS:Lbl 7:getKey→K:If K=92:1→C:If K=93:2→C:If K=94:3→C:If K=92 or K=93 or K=94:Goto 6:Goto 7:Lbl 6:If C=2:Input "AANTAL: ",B:Lbl 5:If C=1:A+5→B:A+1→A:D+1→D:ClrDraw:RecallPic 1:Z+5→Z:If L1(Z)=1:Then:Pt-On(12,31,2:Pt-On(12,31:End:If L1(Z+1)=1:Then:Pt-On(29,31,2:Pt-On(29,31:End:If L1(Z+2)=1:Then:Pt-On(46,31,2:Pt-On(46,31:End:If L1(Z+3)=1:Then:Pt-On(63,31:Pt-On(63,31,2:End:If L1(Z+4)=1:Then:Pt-On(80,31,2:Pt-On(80,31:End:rand(L2(D:If D=dim(L2:Then:‾4→Z:0→D:End:If A/dim(L2)=B:Stop:Goto 5Generated by [url=http://sc.cemetech.net]SourceCoder[/url], © 2005-2012 [url=http://www.cemetech.net]Cemetech[/url]