10 CLS:CLEAR
20 PRINT"WHICH SHAPE?"
30 PRINT"CIRCLE, SQUARE, TRIANGLE, RECTANGLE"
40 PRINT
50 PRINT"PRESS C, S, T, R,"
60 KY$=INKEY$
70 IFKY$=""THEN60
80 IFKY$="C"THEN200
90 IFKY$="T"THEN400
100 IFKY$="S"THEN600
110 IFKY$="R"THEN800
120 GOTO60
200 CLS
210 PRINT"DIMENSIONS FOR CIRCLE"
220 PRINT"RADIUS MAY BE 2 TO 31"
230 INPUT"RADIUS";D
240 IFD<2ORD>31THEN230
250 CLS
260 FORM=1TO22
270 X=120+D*SIN(C)
280 Y=32+D*COS(C)
290 PSET(X,Y)
300 C=C+6
310 NEXTM
320 GOTO1000
400 CLS
410 PRINT"DIMENSIONS FOR TRIANGLE"
420 PRINT"THE BASE CAN BE 2 TO 238"
430 INPUT"BASE: ";B
440 IFB<2ORB>238THEN430
450 PRINT"THE HIEGHT CAN BE 1 TO 63"
460 INPUT"HEIGHT: ";H
470 IFH<1ORH>63THEN460
480 BB=B/2:CLS
490 LINE(120,63)-(120+BB,63)
500 LINE(120+BB,63)-(120,63-H)
510 LINE(120,63-H)-(120-BB,63)
520 LINE(120-BB,63)-(120,63)
530 GOTO1000
600 CLS
610 PRINT"DIMENSIONS FOR SQUARE"
620 PRINT"EACH SIDE CAN BE 1 TO 63"
630 INPUT"SIDE LENGTH: ";L
640 IFL<1ORL>63THEN630
650 PRINT"PRESS L (OUTLINE) OR S (SOLID)"
670 K$=INPUT$(1)
680 IFK$="L"THEN710
690 IFK$="S"THEN740
700 GOTO670
710 CLS
720 LINE(90,63)-(90+L,63-L),1,B
730 GOTO1000
740 CLS
750 LINE(90,63)-(90+L,63-L),1,BF
760 GOTO1000
800 CLS
810 PRINT"DIMENSIONS FOR RECTANGLE"
820 PRINT"THE WIDTH CAN BE 1 TO 239"
830 INPUT"WIDTH: ";W
840 IFW<1ORW>239THEN830
850 PRINT"HEIGHT CAN BE 1 TO 63"
860 INPUT"HEIGHT: ";H
870 IFH<1ORH>63THEN860
880 PRINT"PRESS L (OUTLINE) OR S (SOLID)"
900 K$=INPUT$(1)
910 IFK$="L"THEN950
920 IFK$="S"THEN980
930 GOTO900
950 CLS
960 LINE(0,63)-(0+W,63-H),1,B
970 GOTO1000
980 CLS
990 LINE(0,63)-(0+W,63-H),1,BF
1000 IFINKEY$=""THEN1000
1010 GOTO10