File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 1110 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
3330 REM *** TRANSLATED TO RSTS/E BY DAVE AHL, DIGITAL
44100 RANDOMIZE
55101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER:"
Original file line number Diff line number Diff line change 1515162 LET X= INT (RND (0 )* H+ 1 )
1616163 FOR I= 1 TO H
1717170 IF I<> X THEN 173
18- 171 PRINT " :-- " ;
18+ 171 PRINT ":--" ;
1919172 GO TO 180
20- 173 PRINT " " ;
20+ 173 PRINT ": " ;
2121180 NEXT I
22- 190 PRINT " :"
22+ 190 PRINT ":"
2323191 LET C= 1
2424192 LET W(X,1 )= C
2525193 LET C= C+ 1
2626200 LET R= X
2727201 LET S= 1
2828202 GO TO 260
29- 210 IF R<> 0 THEN 240
29+ 210 IF R<> H THEN 240
3030211 IF S<> V THEN 230
3131220 LET R= 1
3232221 LET S= 1
169169991 GO TO 250
1701701000 GO TO 210
1711711010 FOR J= 1 TO V
172- 1011 PRINT " I " ;
172+ 1011 PRINT "I" ;
1731731012 FOR I= 1 TO H
1741741013 IF V(I,J)< 2 THEN 1030
175- 1020 PRINT "
175+ 1020 PRINT " " ;
1761761021 GO TO 1040
177- 1030 PRINT " 1 " ;
177+ 1030 PRINT " I" ;
1781781040 NEXT I
1791791041 PRINT
1801801043 FOR I= 1 TO H
1811811045 IF V(I,J)= 0 THEN 1060
1821821050 IF V(I,J)= 2 THEN 1060
183- 1051 PRINT " : " ;
183+ 1051 PRINT ": " ;
1841841052 GO TO 1070
185- 1060 PRINT "
185+ 1060 PRINT ":--" ;
1861861070 NEXT I
187- 1071 PRINT " : "
187+ 1071 PRINT ": "
1881881072 NEXT J
1891891073 END
You can’t perform that action at this time.
0 commit comments