10 MODE 2:PRINT" 1 ) Designer":PRINT" 2 ) Ups + Downs":PRINT" 3 ) Positive + Negative":PRINT" 4 ) Double Slope":PRINT" 5 ) Slope":PRINT" 6 ) Flat topper"
20 INPUT "Please choose a number ";a 30 IF a<1 OR a>10 THEN RUN 40 MODE 2 50 IF a>1 THEN LOCATE 1,1:MODE 2:PRINT"Please wait...." 60 INK 0,0:INK 1,26 70 DIM h(16,16) 80 DIM x(16,16),y(16,16) 90 IF a>1 THEN GOTO 340 100 cx=1:cy=1 110 FOR q=1 TO 16:FOR w=1 TO 16 120 x(q,w)=(w*16)+(q*16):y(q,w)=(q*8)+(16-w*8)+150:PLOT x(q,w),y(q,w),1 130 h(q,w)=0 140 NEXT:NEXT 150 PLOT x(cx,cy),y(cx,cy)+h(cx,cy),0 160 IF INKEY(11)=0 THEN h(cx,cy)=h(cx,cy)+2:PLOT x(cx,cy),y(cx,cy)+h(cx,cy),1:PLOT x(cx,cy),y(cx,cy)+h(cx,cy)+2,0::PLOT x(cx,cy),y(cx,cy)+h(cx,cy)-2,0 170 IF INKEY(10)=0 THEN h(cx,cy)=h(cx,cy)-2:PLOT x(cx,cy),y(cx,cy)+h(cx,cy),1:PLOT x(cx,cy),y(cx,cy)+h(cx,cy)+2,0::PLOT x(cx,cy),y(cx,cy)+h(cx,cy)-2,0 180 PLOT x(cx,cy),y(cx,cy)+h(cx,cy),1 190 IF INKEY(0)=0 AND cx<16 THEN cx=cx+1 200 IF INKEY(2)=0 AND cx>1 THEN cx=cx-1 210 IF INKEY(8)=0 AND cy>1 THEN cy=cy-1 220 IF INKEY(1)=0 AND cy<16 THEN cy=cy+1 230 IF INKEY(47)=0 THEN GOTO 250 240 GOTO 150 250 FOR q=1 TO 16:FOR w=1 TO 15 260 PLOT x(q,w),y(q,w)+h(q,w),1:DRAW x(q,w+1),y(q,w+1)+h(q,w+1) 270 NEXT:NEXT 280 FOR w=1 TO 16:FOR q=1 TO 15 290 PLOT x(q,w),y(q,w)+h(q,w),1:DRAW x(q+1,w),y(q+1,w)+h(q+1,w) 300 NEXT:NEXT 310 WHILE INKEY(47)=0:WEND 320 LOCATE 1,1:PRINT"Press SPACE.." 330 WHILE INKEY(47)<>0:WEND:RUN 340 IF a=3 THEN GOTO 440 350 IF a=4 THEN GOTO 520 360 IF a=5 THEN GOTO 590 370 IF a=6 THEN GOTO 650 380 FOR q=1 TO 16:FOR w=1 TO 16 390 x(q,w)=(w*16)+(q*16):y(q,w)=(q*8)+(16-w*8)+150 400 h(q,w)=40+SIN(q*w)-(q+w)*COS(w/2) 410 PLOT x(q,w),y(q,w)+h(q,w) 420 NEXT:NEXT 430 GOTO 250 440 co=256:FOR q=1 TO 16:FOR w=1 TO 16 450 x(q,w)=(w*16)+(q*16):y(q,w)=(q*8)+(16-w*8)+150 460 IF q<9 THEN h(q,w)=((q*q)/(w*w))*2 470 IF q>8 THEN H(q,w)=h(17-q,w) 480 IF w>8 THEN h(q,w):h(q,17-w)-(h(q,17-w)*2) 490 PLOT x(q,w),y(q,w)+h(q,w) 500 NEXT:NEXT 510 GOTO 250 520 FOR-q=1 TO 16:FOR w=1 TO 16 530 x(q,w)=(w*16)+(q*16):y(q,w)=(q*8)+(16-w*8)+150 540 IF w<9 THEN h(q,w)=q*w 550 IF w>8 THEN h(q,w)=h(q,17-w) 560 PLOT x(q,w),y(q,w)+h(q,w) 570 NEXT:NEXT 580 GOTO 250 590 FOR q=1 TO 16:FOR w=1 TO 16 600 x(q,w)=(w*16)+(q*16):y(q,w)=(q*8)+(16-w*8)+150 610 h(q,w)=q+w*q 620 PLOT x(q,w),y(q,w)+h(q,w) 630 NEXT:NEXT 640 GOTO 250 650 FOR q=1 TO 16:FOR w=1 TO 16 660 x(q,w)=(w*16)+(q*16):y(q,w)=(q*8)+(16-w*8)+150 670 NEXT:NEXT 680 FOR q=1 TO 8:FOR w=1 TO 8 690 h(q,w)=(q*q)+(w*w) 700 h(17-q,w)=100 710 h(17-q,17-w)=h(q,w) 720 h(q,17-w)=h(q,w) 730 PLOT x(q,w),y(q,w)+h(q,w) 740 PLOT x(17-q,w),y(17-q,w)+h(17-q,w) 750 PLOT x(17-q,17-w),y(17-q,17-w)+h(17-q,17-w) 760 PLOT x(q,17-w),y(q,17-w)+h(q,17-w) 770 NEXT:NEXT 780 GOTO 250 |