Generate Chess960 starting position: Difference between revisions

Content added Content deleted

Inline

@@ Line 81: / Line 81: @@
 =={{header|BASIC}}==
 ==={{header|Commodore BASIC}}===
-{{works with|Commodore BASIC|7.0}}
+{{works with|Commodore BASIC|3.5,7.0}}
-Uses DO/LOOP and BEGIN/BEND from Commodore BASIC 7 on the C-128.
+Uses structured DO/LOOP introduced in Commodore BASIC 3.5 on the C-16 and Plus/4, also found in BASIC 7.0 on the C-128.
 <lang basic>100 REM CHESS 960
@@ Line 90: / Line 90: @@
 IF SP<0 THEN SP=INT(RND(.)*960):PRINT SP
 PRINT
-IF SP<0 OR SP>959 THEN PRINT "NEED 0 <= SP < 960":GOTO 110
+DO WHILE SP>959: SP=SP-960: LOOP
 AR$="--------"
 P=SP
@@ Line 102: / Line 102: @@
 FOR N1=0 TO 3
 : FOR N2=N1+1 TO 4
-:   IF N=0 THEN BEGIN
+:   IF N<>0 THEN 340
 :     P$="N":N=N1:GOSUB 420
 :     P$="N":N=N2-1:GOSUB 420
 :     N1=3
 :     N2=4
-:   BEND
 :   N=N-1
 : NEXT N2
@@ Line 114: / Line 113: @@
 P$="K":N=0:GOSUB 420
 P$="R":N=0:GOSUB 420
-PRINT AR$
+PRINT STR$(SP);":";AR$
 END
 FOR I=1 TO LEN(AR$)
-: IF MID$(AR$,I,1)="-" THEN BEGIN
+: IF MID$(AR$,I,1)<>"-" THEN 510
-:   IF N=0 THEN BEGIN
+: IF N<>0 THEN 480
-:     MID$(AR$,I,1)=P$
+: MID$(AR$,I,1)=P$
-:     I=LEN(AR$)
+: I=LEN(AR$)
-:   BEND:ELSE BEGIN
+: GOTO 510
-:     N=N-1
+: N=N-1
-:   BEND
-: BEND
 NEXT I
-RETURN</lang>
+RETURN
+</lang>
 {{Out}}
@@ Line 133: / Line 131: @@
 RUN
 SPID (-1 FOR RANDOM):518
-RNBQKBNR
+:RNBQKBNR
 READY.
 RUN
-SPID (-1 FOR RANDOM):- 926
+SPID (-1 FOR RANDOM):-1
+:RKRQNBBN
-RKRQNBBN
 READY.</pre>