CONDOT )j P.$12"CONDOT"'"(C) CREATIBE COMPUTING"'' P."THIS PROGRAM WILL PLAY CONNECT"'"THE DOTS WITH YOU."' P."TO MAKE A MOVE, ENTER THE"'"PLACE WHERE YOU WANT A " P."LINE,"'"E.G. A2"'' @=0 DIM AA168,W64 V=0 # P."DO YOU WANT TO BEGIN (Y/N)?" $ DO V=RND;KEY J;U.J=#59 OR J=#4E % P.$12 ( F.R=1 TO 12 2 F.C=1 TO 12 < IF R%2+C%2<2 AA(R*13+C)=0;G.110 P AA(R*13+C)=-50 n N.;N. IF J=#4E G.460 GOS.1000 IN."YOUR MOVE"$W IF L.W=2 G.230 P.$7"EH?"';G.210 Y=?W-CH"@";X=W?1-CH"0" G.260 P.$7"YOU REALLY DON'T WANT TO PUT"'"A LINE THERE!"' G.210 IF (X-1)*(X-7)>0 G.212 X=X+2 IF (Y-1)*(Y-7)>0 G.212 Y=Y+2 IF (X+Y+1)%2=1 G.240 " IF AA(X*13+Y)<>0 G.240 , AA(13*X+Y)=50 6 IF X%2=0 G.380 @ V=AA((X-2)*13+Y)+AA((X-1)*13+Y-1)+AA((X-1)*13+Y+1) E IF V<>150 G.350 J P=1 T AA((X-1)*13+Y)=1 ^ V=AA((X+2)*13+Y)+AA((X+1)*13+Y-1)+AA((X+1)*13+Y+1) c IF V<>150 G.440 h AA((X+1)*13+Y)=1 r G.200 | V=AA(X*13+Y-2)+AA((X+1)*13+Y-1)+AA((X-1)*13+Y-1) IF V<>150 G.410 AA(X*13+Y-1)=1 P=1 V=AA(X*13+Y+2)+AA((X+1)*13+Y+1)+AA((X-1)*13+Y+1) IF V<>150 G.440 AA(X*13+Y+1)=1 G.200 IF P=1 G.200 GOS.1000 P."MY MOVE:"' F.R=4 TO 10 S.2 F.C=4 TO 10 S.2 V=AA((R-1)*13+C)+AA((R+1)*13+C)+AA(R*13+C-1)+AA(R*13+C+1) IF V<>150 G.680 AA(R*13+C)=-1 IF AA((R-1)*13+C)<>0 G.550 AA((R-1)*13+C)=50 V=AA((R-3)*13+C)+AA((R-2)*13+C-1)+AA((R-2)*13+C+1) IF V<>150 AB.;AB.;G.450 AA((R-2)*13+C)=-1 & IF AA((R+1)*13+C)<>0 G.590 0 AA((R+1)*13+C)=50 : V=AA((R+3)*13+C)+AA((R+2)*13+C-1)+AA((R+2)*13+C+1) ? IF V<>150 AB.;AB.;G.450 D AA((R+2)*13+C)=-1 N IF AA(R*13+C-1)<>0 G.630 X AA(R*13+C-1)=50 b V=AA(R*13+C-3)+AA((R-1)*13+C-2)+AA((R+1)*13+C+2) g IF V<>150 AB.;AB.;G.450 l AA(R*13+C-2)=-1 v IF AA(R*13+C+1)<>0 AB.;AB.;G.450 AA(R*13+C+1)=50 V=AA(R*13+C+3)+AA((R-1)*13+C+2)+AA((R+1)*13+C+2) IF V<>150 AB.;AB.;G.450 AA(R*13+C+2)=-1 AB.;AB.;G.450 N. N. IF E>1 G.730 IF AA((12-X)*13+12-Y)<>0 G.730 AA((12-X)*13+12-Y)=50 IF E>1 G.870 G.200 F.R=3 TO 9 F.C=3 TO 9 IF (R+C)%2=0 G.850 IF AA(R*13+C)<>0 G.850 IF R%2=0 G.830 V=AA((R-2)*13+C)+AA((R-1)*13+C-1)+AA((R-1)*13+C+1) IF V=100 G.850 V=AA((R+2)*13+C)+AA((R+1)*13+C-1)+AA((R+1)*13+C+1) % IF V=100 G.850 * AA(R*13+C)=50 / AB.;AB. 4 G.200 > V=AA(R*13+C-2)+AA((R-1)*13+C-1)+AA((R+1)*13+C-1) C IF V=100 G.850 H V=AA(R*13+C+2)+AA((R-1)*13+C+2)+AA((R+1)*13+C+1) M IF V<>100 G.810 R N. \ N. ^ IF E>1 G.700 f R=A.R.%7+3 p C=A.R.%7+3 q IF R%2=0 G.885 r IF C%2=0 G.900 s G.870 u IF C%2=1 G.900 v G.870 IF AA(R*13+C)<>0 G.870 AA(R*13+C)=50 G.200 P.'"WANT TO PLAY AGAIN (Y/N)?" DO KEY A;U.A=CH"Y" OR A=CH"N" P.$A' IF A=CH"Y" G.35 END P=0 D=0 E=0 F.R=3 TO 9 P.R-2" " F.C=3 TO 9 V=AA(R*13+C) $ IF V=0 P." ";G.1240 . IF V=-50 P.".";G.1240 8 IF V=-1 P."C";G.1170 B IF V<>1 G.1200 L IF V=1 P."H" D=D+AA(R*13+C) E=E+1 G.1240 IF R%2=0 G.1230 P."-" G.1240 P.":" N. P.' N. P." ";F.C=1 TO 7;P.$CH"@"+C;N.;P.'' IF E>=9 G.1280 RETURN AB.;AB.;ABS.;IF D>0 G.1310 P."I WON!"' G.930 P."YOU WON!"' ( G.930 YHAMMURABI ) P.$12"HAMMURABI"'"CREATIVE COMPUTING"'' P."TRY YOUR HAND AT GOVERNING"'"ANCIENT SUMERIA FOR A 12-" P."YEAR"'"TERM OF OFFICE!"' #F.I=0TO3500;N. _W=0;O=0;@=0;%P=0 dZ=0;P=95;S=2800;H=3000;E=H-S nY=3;A=H/Y;I=5;Q=1 D=0 P.''"HAMMURABI:"'"I BEG TO REPORT TO YOU,"';Z=Z+1 P."IN YEAR "Z-1", "D" PEOPLE STARVED"'I" CAME TO THE CITY" P=P+I IFQ>0 G.230 P=P/2 P.'"A HORRIBLE PLAGUE STRUCK!"'"HALF THE PEOPLE DIED." P.'"POPULATION IS NOW "P'"THE CITY NOW OWNS "A" ACRES"' P."YOU HARVESTED "Y'" BUSHELS PER ACRE"'"RATS ATE " P.E" BUSHELS"'"YOU NOW HAVE "S'" BUSHELS IN STORE"' IFZ=13 G.860 6Y=17+ABSRND%10 8P."LAND IS TRADING AT "Y'" BUSHELS PER ACRE"' @IN."HOW MANY ACRES DO YOU WISH TO"'" BUY"Q;IFQ<0 G.850 BIFY*Q<=S G.330 CGOS.710 DG.320 JIFQ<>0 A=A+Q;S=S-Y*Q;C=0;G.400 TIN."HOW MANY ACRES DO YOU WISH TO"'" SELL"Q;IFQ<0 G.850 VIFQ>=A GOS.720;G.340 ^A=A-Q;S=S+Y*Q;C=0 P.' IN."HOW MANY BUSHELS DO YOU WISH"'" TO FEED YOUR PEOPLE"Q IFQ<0 G.850 IFQ>S GOS.710;G.410 S=S-Q;C=1 IN."HOW MANY ACRES DO YOU WISH TO"'" PLANT WITH SEED"D IFD=0 G.511 IFD<0 G.850 IFD>A GOS.720;G.440 REM**ENOUGH GRAIN FOR SEED? IFD/2>S GOS.710;G.440 REM**ENOUGH PEOPLE TO TEND THE CROPS? IFD