linux build and fix typo
This commit is contained in:
parent
240ab1b0fc
commit
7a3b3a7c69
@ -137,7 +137,6 @@ BEGIN
|
||||
movecount := movecount + 1;
|
||||
|
||||
IF depth >= 4 THEN BEGIN
|
||||
comment winner2 is faster than winner
|
||||
p := winner2( move );
|
||||
IF p # 0 THEN BEGIN
|
||||
IF p = 1 THEN value := 6
|
||||
|
6
RHA (Minisystems) ALGOL v55/m.sh
Normal file
6
RHA (Minisystems) ALGOL v55/m.sh
Normal file
@ -0,0 +1,6 @@
|
||||
str=$(tr '[a-z]' '[A-Z]' <<< $1)
|
||||
|
||||
rm $str.OBJ 2>/dev/null
|
||||
|
||||
ntvdm -r:. -u algol $str
|
||||
ntvdm -r:. -u -c -p arun $str.OBJ
|
Loading…
Reference in New Issue
Block a user