4 in a row
Author : Rasmus Anthin (anthin@algonet.se)
Size : 1102+1480
Models : 7700
Code format : custom
The code:
"4 IN A ROW"
" "
Lbl C
Mcl
1->X~Y
Lbl A
0->Mat A[Y,X]
X=8=>Isz Y
X=8=>0->X
Y=9=>Goto B
Isz X
Goto A
Lbl B
Range 1,127,0,1,63,0
Plot 5,5
Plot 5,45
Line
Plot 15,5
Plot 15,45
Line
Plot 25,5
Plot 25,45
Line
Plot 35,5
Plot 35,45
Line
Plot 45,5
Plot 45,45
Line
Plot 55,5
Plot 55,45
Line
Plot 65,5
Plot 65,45
Line
Plot 75,5
Plot 75,45
Line
Plot 85,5
Plot 85,45
Line
Plot 5,5
Plot 85,5
Line
Plot 5,3
Plot 85,3
Line
Plot 10,48
Plot 10,52
Line
Plot 21,48
Plot 19,48
Line
Plot 19,50
Line
Plot 21,50
Line
Plot 21,52
Line
Plot 19,52
Line
Plot 29,48
Plot 31,48
Line
Plot 31,50
Line
Plot 29,50
Line
Plot 31,50
Line
Plot 31,52
Line
Plot 29,52
Line
Plot 41,48
Plot 41,52
Line
Plot 41,49
Plot 39,49
Line
Plot 39,52
Line
Plot 49,48
Plot 51,48
Line
Plot 51,50
Line
Plot 49,50
Line
Plot 49,52
Line
Plot 51,52
Line
Plot 59,50
Plot 61,50
Line
Plot 61,48
Line
Plot 59,48
Line
Plot 59,52
Line
Plot 61,52
Line
Plot 71,48
Plot 71,52
Line
Plot 69,52
Line
Plot 69,51
Line
Plot 79,48
Plot 81,48
Line
Plot 81,52
Line
Plot 79,52
Line
Plot 79,48
Line
Plot 80,50
Plot 0,0_
Lbl 0
U=4=>Goto C
V=4=>Goto C
"PLAYER X"
"ENTER COLUMN (1-8)"?->A
C[A+1]+5->C[A+1]
A=1=>5->D
A=2=>15->D
A=3=>25->D
A=4=>35->D
A=5=>45->D
A=6=>55->D
A=7=>65->D
A=8=>75->D
C[A+1]/5->B
9-B->B
1->Mat A[B,A]
Prog W ; 'Prog W : will speed it up, but you must then check by your self who has won.
Plot D+2,C[A+1]+1
Plot D+8,C[A+1]+5
Line
Plot D+8,C[A+1]+1
Plot D+2,C[A+1]+5
Line_
Lbl 1
U=4=>Goto C
V=4=>Goto C
"PLAYER O"
"ENTER COLUMN (1-8)"?->A
C[A+1]+5->C[A+1]
A=1=>5->D
A=2=>15->D
A=3=>25->D
A=4=>35->D
A=5=>45->D
A=6=>55->D
A=7=>65->D
A=8=>75->D
C[A+1]/5->B
9-B->B
2->Mat A[B,A]
Prog W ; The same thing here as before if you want to speed up the game.
Plot D+2,C[A+1]+1
Plot D+8,C[A+1]+1
Line
Plot D+8,C[A+1]+4
Line
Plot D+2,C[A+1]+4
Line
Plot D+2,C[A+1]+1
Line_
A>=1=>A<=8=>Goto 0
Lbl 2
Program W
---------
'SUB;---CHECK XO
1->r
1->@ ; @ means theta (alpha Range)
Lbl 0
r=1=>@=1=>"PLEASE"
Mat A[r,@]=1=>Isz U
Mat A[r,@]=2=>Isz V
Mat A[r,@]<>1=>0->U ; <> means: not equal (PRGM F2 F2)
Mat A[r,@]<>2=>0->V
Mat A[r,@+1]=1=>Isz U
Mat A[r,@+1]=2=>Isz V
Mat A[r,@+1]<>1=>0->U
Mat A[r,@+1]<>2=>0->V
Mat A[r,@+2]=1=>Isz U
Mat A[r,@+2]=2=>Isz V
Mat A[r,@+2]<>1=>0->U
Mat A[r,@+2]<>2=>0->V
Mat A[r,@+3]=1=>Isz U
Mat A[r,@+3]=2=>Isz V
Mat A[r,@+3]<>1=>0->U
Mat A[r,@+3]<>2=>0->V
U=4=>Goto W
V=4=>Goto W
0->U~V
@=5=>Goto 1
Isz @
Goto 0
Lbl 1
Isz r
r=9=>Goto 2
1->@
Goto 0
Lbl 2
1->r
1->@
Lbl 4
r=1=>@=1=>"WAIT"
Mat A[r,@]=1=>Isz U
Mat A[r,@]=2=>Isz V
Mat A[r,@]<>1=>0->U
Mat A[r,@]<>2=>0->V
Mat A[r+1,@]=1=>Isz U
Mat A[r+1,@]=2=>Isz V
Mat A[r+1,@]<>1=>0->U
Mat A[r+1,@]<>2=>0->V
Mat A[r+2,@]=1=>Isz U
Mat A[r+2,@]=2=>Isz V
Mat A[r+2,@]<>1=>0->U
Mat A[r+2,@]<>2=>0->V
Mat A[r+3,@]=1=>Isz U
Mat A[r+3,@]=2=>Isz V
Mat A[r+3,@]<>1=>0->U
Mat A[r+3,@]<>2=>0->V
U=4=>Goto W
V=4=>Goto W
0->U~V
r=5=>Goto 5
Isz r
Goto 4
Lbl 5
Isz @
@=9=>Goto 6
1->r
Goto 4
Lbl 6
1->r
1->@
Lbl 7
r=1=>@=1=>"A"
Mat A[r,@+3]=1=>Isz U
Mat A[r,@+3]=2=>Isz V
Mat A[r,@+3]<>1=>0->U
Mat A[r,@+3]<>2=>0->V
Mat A[r+1,@+2]=1=>Isz U
Mat A[r+1,@+2]=2=>Isz V
Mat A[r+1,@+2]<>1=>0->U
Mat A[r+1,@+2]<>2=>0->V
Mat A[r+2,@+1]=1=>Isz U
Mat A[r+2,@+1]=2=>Isz V
Mat A[r+2,@+1]<>1=>0->U
Mat A[r+2,@+1]<>2=>0->V
Mat A[r+3,@]=1=>Isz U
Mat A[r+3,@]=2=>Isz V
Mat A[r+3,@]<>1=>0->U
Mat A[r+3,@]<>2=>0->V
U=4=>Goto W
V=4=>Goto W
0->U~V
@=5=>Goto 8
Isz @
Goto 7
Lbl 8
Isr r
r=5=>Goto 9 ; Bug is fixed here.
1->@
Goto 7
Lbl 9
1->r
1->@
Lbl A
r=1=>@=1=>"MOMENT !!!"
r=1=>@=1=