Skip to content

Commit 458d36e

Browse files
fixes from FB
1 parent bb42baa commit 458d36e

2 files changed

Lines changed: 11 additions & 11 deletions

File tree

aceydu.bas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
10 REM *** GAME OF ACEY-DUCEY WRITTEN BY BILL PALMBY
2-
10 REM *** ADLAI STEVENSON HIGH SCHOOL PRAIRIE VIEW ILL
2+
20 REM *** ADLAI STEVENSON HIGH SCHOOL PRAIRIE VIEW ILL
33
30 REM *** TRANSLATED TO RSTS/E BY DAVE AHL, DIGITAL
44
100 RANDOMIZE
55
101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER:"

amazin.bas

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -15,18 +15,18 @@
1515
162 LET X=INT(RND(0)*H+1)
1616
163 FOR I=1 TO H
1717
170 IF I<>X THEN 173
18-
171 PRINT " :-- ";
18+
171 PRINT ":--";
1919
172 GO TO 180
20-
173 PRINT " ";
20+
173 PRINT ": ";
2121
180 NEXT I
22-
190 PRINT " :"
22+
190 PRINT ":"
2323
191 LET C=1
2424
192 LET W(X,1)=C
2525
193 LET C=C+1
2626
200 LET R=X
2727
201 LET S=1
2828
202 GO TO 260
29-
210 IF R<>0 THEN 240
29+
210 IF R<>H THEN 240
3030
211 IF S<>V THEN 230
3131
220 LET R=1
3232
221 LET S=1
@@ -169,21 +169,21 @@
169169
991 GO TO 250
170170
1000 GO TO 210
171171
1010 FOR J=1 TO V
172-
1011 PRINT " I " ;
172+
1011 PRINT"I";
173173
1012 FOR I=1 TO H
174174
1013 IF V(I,J)<2 THEN 1030
175-
1020 PRINT "
175+
1020 PRINT" ";
176176
1021 GO TO 1040
177-
1030 PRINT " 1 " ;
177+
1030 PRINT" I";
178178
1040 NEXT I
179179
1041 PRINT
180180
1043 FOR I=1 TO H
181181
1045 IF V(I,J)=0 THEN 1060
182182
1050 IF V(I,J)=2 THEN 1060
183-
1051 PRINT " : " ;
183+
1051 PRINT": ";
184184
1052 GO TO 1070
185-
1060 PRINT "
185+
1060 PRINT ":--";
186186
1070 NEXT I
187-
1071 PRINT " : "
187+
1071 PRINT":"
188188
1072 NEXT J
189189
1073 END

0 commit comments

Comments
 (0)