0 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED 5 PRINTCHR$(5)"[147] *** POLYGONS *** 10 [153][199](158) 20 [153]" (null)VALVALVALVALVALVALVALVAL(null)" 30 [153]" A (null) (null)" 50 [153]" (null)ATN=INT ANGLE (null) " 52 [153]"AB=DIAGONAL (null)(null)" 55 [153]" (null) (A R E A) (null)" 57 [153]" (null) (null) B" 60 [153]" (null) SIDE (null) " 70 [153]" VALVALVALVALVALVALVALVAL " 75 [153][199](5) 100 [133]"NUMBER OF SIDES=";SI 110 [139]SI[179]4[167][153]"THIS PROGRAM REQUIRES 4 OR MORE SIDES":[128] 120 [153]"I ALREADY KNOW: (ONE ONLY)" 130 [153]" 1) SIDE" 140 [153]" 2) WIDTH" 150 [153]" 3) DIAG." 160 [153]" 4) AREA" 170 [133]"CATEGORY NUMBER=";CA 180 [139] CA[178](1)[167]220:[137]190 190 [139] CA[178](2)[167]330:[137]200 200 [139] CA[178](3)[167]410:[137]210 210 [139] CA[178](4)[167]510 220 C[178]360[173]SI 230 A[178](180[171]C)[173]2 240 [133]"SIDE DIMENSION =";SD 250 R[178](SD[173][191](C[173](180[173][255])))[172][191](A[173](180[173][255])) 260 [139] (SI)[173]2[179][177][181](SI[173]2)[167][153]"DIAG. AND WIDTH ARE NOT MEANINGFUL FOR ODD"; 270 [139] (SI)[173]2[179][177][181](SI[173]2)[167][153]" NUMBERS OF SIDES BECAUSE THEY DO NOTPASS "; 280 [139] (SI[173]2)[179][177][181](SI[173]2)[167][153]"THROUGH THE CENTER.":[137]310 290 [153]"DIAGONAL =";:[153]2[172](R) 300 [153]"WIDTH =";:[153]2[172]([191](A[173](180[173][255])))[172](R) 310 [153]"AREA =";:[153] (SI)[172](SD)[172]([191](A[173](180[173][255])))[172](R)[173]2 320 [153]"INTERNAL ANGLE =";180[171](360[173]SI):[137]620 330 [133]"WIDTH =";WD 340 [139](SI)[173]2[179][177][181](SI[173]2)[167][153]"YOU CAN'T SAY WIDTH OF ODD SIDED FIGURE.":[128] 350 H[178]WD[173]2 360 C[178]360[173]SI[173]2 370 [153]"SIDE =";:[153]2[172](H[172]([192](C[173](180[173][255])))) 380 [153]"DIAGONAL =";:[153] H[173][190](C[173](180[173][255]))[172]2 390 [153]"AREA =";:[153](H[172]([192](C[173](180[173][255]))))[172]H[172]SI 400 [153]"INTERNAL ANGLE =";180[171](360[173]SI):[137]620 410 [133]"DIAGONAL =";DI 420 B[178]360[173]SI[173]2 430 A[178]90[171]B 440 [139](SI[173]2)[179][177][181](SI[173]2)[167][153]"YOU CAN'T DEFINE WIDTH OR DIAG OF ODD "; 450 [139](SI[173]2)[179][177][181](SI[173]2)[167][153]" SIDED FIGURE.":[128] 460 [153]"WIDTH =";:[153](DI)[172][191](A[173](180[173][255])) 470 [153]"SIDE =";:[153]((DI[173]2)[172][190](A[173](180[173][255])))[172]2 480 AR[178]((DI)[172][191](A[173](180[173][255])))[172]((DI[173]2)[172][190](A[173](180[173][255])))[172]SI[173]2 490 [153]"AREA =";:[153](AR) 500 [153]"INTERNAL ANGLE =";180[171](360[173]SI):[137]620 510 [133]"AREA =";AR 520 AT[178]AR[173]SI[173]2 530 B[178]360[173]SI[173]2 540 A[178]90[171]B 550 [153]"SIDE =";2[172]([186](2[172]AT[172][192](B[173](180[173][255])))) 560 [139](SI[173]2)[178][181](SI[173]2)[167]590 570 [139](SI)[173]2[179][177][181]((SI)[173]2)[167][153]"ODD NUMBER SIDES HAS NO WIDTH OR"; 580 [153]" DIAG. DEFINED.":[137]610 590 [153]"DIAGONAL =";2[172]([186](2[172]AT[172][192](B[173](180[173][255]))))[173][191](B[173](180[173][255])) 600 [153]"WIDTH =";([186](2[172]AT[172][192](B[173](180[173][255]))))[172][192](A[173](180[173][255]))[172]2 610 [153]"INTERNAL ANGLE =";180[171](360[173]SI) 620 [133]"ANOTHER PROBLEM (A), HARDCOPY (H) OR QUIT (Q)";E$ 625 [139]E$[179][177]"A"[175]E$[179][177]"H"[175]E$[179][177]"Q"[167][153]"* ONLY 'A' OR 'H' OR 'Q' *":[137]620 630 [139]E$[178]"A"[167][137]0 640 [139]E$[178]"H"[167][141]60035 650 [139]E$[178]"Q"[167][153][199](30):[153]"LOAD* THANKS. I'D BE GLAD TO HELP AGAIN *":[128] 60035 A$[178]"":[159]4,4:Z[178]1023:[129]Y[178]0[164]24:[129]X[178]0[164]39:Z[178]Z[170]1 60040 CH[178][194](Z):[139]CH[177]128[167]CH[178]CH[171]128 60050 [139]CH[179]32[176]CH[177]95[167]CH[178]CH[170]64:[137]60070 60060 [139]CH[177]63[175]CH[179]96[167]CH[178]CH[170]32 60070 A$[178]A$[170][199](CH):[130]:[152]4,A$:A$[178]"":[130]:[160]4