newer version of amazing.bas including the fixes that came out after 101 Computer Games

Author: maurymarkowitz

bas/amazing.bas

@@ -80,7 +80,7 @@
 680 IF W(R+1,S)<>0 THEN 740
 685 IF S<>V THEN 700
 690 IF Z=1 THEN 730
-695 Q=1:GOTO 830
+695 Q=1:GOTO 710
 700 IF W(R,S+1)<>0 THEN 730
 710 X=INT(RND(1)*2+1)
 720 ON X GOTO 860,910
@@ -117,10 +117,15 @@
 975 V(R,S)=3:Q=0:GOTO 1000
 980 V(R,S)=1:Q=0:R=1:S=1:GOTO 250
 1000 GOTO 210
-1010 FOR J=1 TO V
-1011 PRINT "I";
-1012 FOR I=1 TO H
-1013 IF V(I,J)<2 THEN 1030
+1010 IF Z=1 THEN 1015
+1011 X=INT(RND(1)*H+1)
+1012 IF V(X,V)=0 THEN 1014
+1013 V(X,V)=3: GOTO 1015
+1014 V(X,V)=1
+1015 FOR J=1 TO V
+1016 PRINT "I";
+1017 FOR I=1 TO H
+1018 IF V(I,J)<2 THEN 1030
 1020 PRINT "   ";
 1021 GOTO 1040
 1030 PRINT "  I";