0 REM\\\HAHE.\\\PIRAMIDE DEMO\\\HAHE.'83\\\ 10 CLEAR4;A=58;%B=10;C=173 30 B=%B;C=C-1;IFC<173ANDC>143G.a 34 IFC<144ANDC>118G.b 36 IFC<119ANDC>92G.a 38 IFC<91ANDC>58G.b 50a%B=%B-.5;G.70 60b%B=%B+.5 70 A=A+B;PLOT4,A,C;PLOT5,255,C;IFA<256;G.30 195 FORC=0TO450;A=RND%300;B=ABSRND%35+175;PLOT14,A,B;N.C 200 A=30;B=110 210 A=A+2;B=B-5;PLOT4,75,170;PLOT5,A,B;IFA<52;G.210 300 A=52;B=55 310 A=A+3;B=B+1;PLOT4,75,170;PLOT5,A,B;IFA<151;G.310 400 PLOT4,32,105;PLOT5,52,55;PLOT5,151,88 500 A=18;B=150 510 A=A+1;B=B-2;PLOT4,35,170;PLOT5,A,B;IFA<25;G.510 600 A=25;B=134 610 A=A+3;B=B+1;PLOT4,35,170;PLOT5,A,B;IFA<53;G.610 700 PLOT4,19,148;PLOT5,25,134;PLOT5,55,144;G.1300;REMboot 730 G.1100;REMpalm 740 B=173; A=-2 745 B=B-2; A=A+2 750 PLOT4,0,A;PLOT6,255,A;PLOT4,0,B;PLOT6,255,B;IFB>-1G.745 780 PLOT4,0,0;PLOT7,255,0 785 PLOT4,255,0;PLOT7,255,191 790 PLOT4,255,191;PLOT7,0,191 795 PLOT4,0,191;PLOT7,0,0 800 FORQ=1TO300;WAIT;N.;B=172 820 B=B+1;PLOT4,0,B;PLOT5,255,B;IFB<192;G.820 850 B=173;A=-2 860 B=B-2;A=A+2;PLOT4,0,A;PLOT6,255,A;PLOT4,0,B;PLOT6,255,B 870 IFB>-1;G.860 900 FORC=0TO70;A=ABSRND%250+50;B=ABSRND%120+100;PLOT4,180,185 910 PLOT6,A,B;N.C 920 FORC=0TO50;A=ABSRND%80+10;B=ABSRND%200+80;PLOT4,180,185 930 PLOT6,A,B;N.C 940 FORC=0TO100;A=ABSRND%40+160;B=ABSRND%35+165;PLOT4,180,185 950 PLOT6,A,B;N.C 1000 A=-2;B=257 1010 A=A+2;B=B-2;PLOT4,A,0;PLOT6,A,191;IFA=128;G.1060 1030 PLOT4,B,0;PLOT6,B,191;IFA<257;G.1010 1040 G.1065 1060 FORQ=0TO10000;N.Q;G.1030 1065 REMzand 1070 FORJ=0TO300;A=ABSRND%230+20;B=ABSRND%49;PLOT15,A,B;N.J 1075 FORJ=0TO200;A=ABSRND%210;B=ABSRND%39;PLOT15,A,B;N.J 1080 FORJ=0TO150;A=ABSRND%170;B=ABSRND%30;PLOT15,A,B;N.J 1090 G.1200 1100 FORF=0TO11;H=ABSRND%24+12;A=ABSRND%120+35 1108 B=ABSRND%25+45;C=ABSRND%25+5 1109iI=RND%20;IFI<10IFI>-10G.i 1110 D=(B-C)/10;G=I/10;J=A;K=C 1120 FORP=0TO17;J=J+G;K=K+D;PLOT4,A,C;PLOT5,J,K 1121 IFI>10;PLOT4,(A-1),C;PLOT5,J,K 1122 PLOT4,(A+2),C;PLOT5,J,K;FORQ=1TO100 ;N.Q;N.P 1126 E=J-H-4 1130 E=E+4;L=ABSRND%7+8 1140 PLOT4,J,K;PLOT5,E,(K-L) 1150 IFE<=(J+H);G.1130 1155 N.F 1160 G.740;REMinvert 1200 A=0;REMHAHE.end 1210 FORD=0TO30;B=ABSRND%7+8;C=ABSRND%2+3;E=RND%2;A=A+6 1220 PLOT4,A,C;PLOT7,(A+E),B;N.D 1230 A=4 1240wB=ABSRND%4+5;D=ABSRND%4+5;C=ABSRND%2+10;F=RND%2;E=A+C 1242 PLOT4,A,B;PLOT7,E,D;A=E-F;IFA<180;G.w 1250 F.Q=1TO600;WAIT;N.;G.10 1300 A=280;B=127;C=123;REMboot 1310sA=A-1;D=A+9;E=A+28;F=A+20;G=A+4;H=A+10;I=B+9 1320 PLOT4,A,B;PLOT7,D,C;PLOT4,E,B;PLOT5,F,C 1322 PLOT4,H,B;PLOT5,H,(B+2);PLOT4,G,(I+9);PLOT7,G,I 1325 PLOT4,G,I;PLOT7,(H+2),(I-8);PLOT4,G,(I+9);PLOT5,(H+3),I 1327 PLOT4,(H+3),I;PLOT5,(H+3),(I-8) 1330 PLOT15,G,(B+1);PLOT4,(G+2),(B+3);PLOT7,(G+2),B 1340 IFA>142;G.s 1342 Y=B-1 1345 FORD=0TO3;Y=Y+1 1346 PLOT4,(A+4),Y;PLOT5,(A+8),Y;N.D 1360 A=132;H=125;G=154;T=0;Z=7;REMpop 1365kA=A+1;H=H-1;T=T+1 1366 IF A>=154 AND H>=60 T.A=G 1367 IF H<60 T.G=A 1370 I=H+2;K=H-4;L=H-8;M=H-7 1380 B=A+1;C=A+2;D=A+3;E=A+4;F=A+5 1382 IFT=2;PLOT14,B,L;T=0 1384 IFT=1;PLOT15,A,M;PLOT14,E,L 1390gPLOT4,A,H;PLOTZ,A,K 1392 PLOT4,B,H;PLOTZ,B,M 1394 PLOT4,C,I;PLOTZ,C,M 1396 PLOT4,D,I;PLOTZ,D,M 1398 PLOT4,E,H;PLOTZ,E,M 1400 PLOT4,F,H;PLOTZ,F,K 1401 IFZ=5T.Z=7;FORQ=1TO300;N.Q;G.g 1402 IFH<25;G.1440 1403 IFZ=7T.Z=5;G.k 1440 A=194;H=24;T=0;U=0;Z=7;V=400 1445lA=A-1;T=T+1;U=U+1 1450 B=A+1;C=A+2;D=A+3 1460 K=H-4;L=H-7;M=H-8;I=H+2;F=A-3;G=H-3;V=V-4 1465yIFV<-36;R=0;G.x 1470 PLOT4,A,H;PLOTZ,A,K 1472 PLOT4,B,I;PLOTZ,B,L 1474 PLOT4,C,I;PLOTZ,C,M 1475 IF U=5 T.PLOT4,A,H;PLOT5,F,G;PLOT4,F,G;PLOT5,F,M;U=0 1476 PLOT4,D,H;PLOTZ,D,L 1477 IF T=2 T.PLOT13,A,M;T=0 1478 IFZ=5T.Z=7;FORQ=1TOV;N.Q;G.y 1479 IFA<22;G.1500 1480 IFZ=7T.Z=5;G.l 1500 A=21;H=23;%A=0;Z=5;T=0 1510oH=H+1;A=A-%A;%A=%A+.5 1515 FIF%A=2 T.%A=0 1520 B=A+1;C=A+2;D=A+3;E=A+4;F=A+5;T=T+1 1525 I=H+2;K=H-4;L=H-8;M=H-7 1526 IFT=2;PLOT14,B,L;T=0;PLOT4,A,(L-1);PLOT7,F,(L-1) 1527 IFT=1;PLOT14,E,L;PLOT4,A,(L-1);PLOT7,F,(L-1) 1530zPLOT4,A,H;PLOTZ,A,K 1532 PLOT4,B,H;PLOTZ,B,M 1534 PLOT4,C,I;PLOTZ,C,M 1536 PLOT4,D,I;PLOTZ,D,M 1538 PLOT4,E,H;PLOTZ,E,M 1540 PLOT4,F,H;PLOTZ,F,K 1541 IFZ=5T.Z=7;FORQ=1TO300;N.Q;G.z 1542 IFH>50;L=L-1;G.1545 1544 IFZ=7T.Z=5;G.o 1545 FORJ=0TO1;L=L+1;PLOT4,A,L;PLOT5,F,L;PLOT13,(F+2),L;N.J 1546 FORJ=0TO2;L=L+1;PLOT4,A,L;PLOT5,C,L;N.J 1547 FORJ=0TO1;L=L+1;PLOT4,C,L;PLOT5,D,L;N.J 1548 L=L-2;PLOT4,B,L;PLOT5,(B-4),(L-4) 1549 PLOT13,(F+1),(L-4) 1550 FORQ=1TO180;WAIT;N.;G.730 1600xX=A-9;Y=M;R=R+1 1610 FORW=0TO1;Y=Y+1;S=Y+1 1620 PLOT4,A,Y;PLOT6,X,Y 1622 PLOT4,X,(Y+2);PLOT6,(X+1),(Y+2);PLOT14,(A+2),Y;N.W 1625 PLOT4,X,Y;PLOT6,(X-2),(Y-5);PLOT4,X,Y;PLOT6,(X-4),(Y-1) 1630 PLOT4,(A-4),S;PLOT6,(X+2),S;IFR=2;V=600;Z=7;G.y;REMHAHE. 1640 FORQ=1TO5000;N.Q;G.x