: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 5
Generated by [url=http://sc.cemetech.net]SourceCoder[/url], © 2005-2012 [url=http://www.cemetech.net]Cemetech[/url]