Уточните программу?

10 PRINT " "
DIM P#(100), R#(100)
Y = 0
CLS
STOP
OPEN "G:\1FILE" FOR APPEND AS #1
INPUT "1.NOMER KARTY", P1$
WRITE #1, P1$
INPUT "2.NOMER PATIENTA: 000000000) ", P2$
WRITE #1, P2$
INPUT "3.FAMILIYA IMYA I OTCHESTVO ", P3$
WRITE #1, P3$
INPUT "4.DATA ROJDENIYA ", P4$
'WRITE #1, P4$
INPUT "5.VOZRAST (polnyh let jizni) ", P5%
WRITE #1, P5%
INPUT "6.POL (JENSKIY = 0, MUJSKOY = 1 )", P6%
WRITE #1, P6%
INPUT "7.MASSA TELA  ###.# KG ", P7!
WRITE #1, P7!
INPUT "8.ROST #.## M ", P8!
WRITE #1, P8!
P9! = P7! / (P8! ^ 2)
INPUT "9. INDEX MASSY TELA ", P9!
WRITE #1, P9!
PRINT , P9!
INPUT "10. OCENKA INDEKSA MASSY TELA: ", E2$
WRITE #1, E2$
IF P6% = 1 THEN GOTO 112
IF P9! < 16 THEN GOTO 202
IF P9! >= 16 OR P9! < 17.99 THEN GOTO 204
IF P9! >= 18 OR P9! < 20.1 THEN GOTO 206
IF P9! >= 20.1 OR P9! < 25 THEN GOTO 208
IF P9! >= 25 OR P9! < 30 THEN GOTO 210
IF P9! >= 30 OR P9! < 39.99 THEN GOTO 212
112 IF P9! < 16 THEN GOTO 202
IF P9! >= 16 OR P9! < 17 THEN GOTO 204
IF P9! >= 17 OR P9! < 18.5 THEN GOTO 206
IF P9! >= 18.5 OR P9! < 23.9 THEN GOTO 208
IF P9! >= 23.9 OR P9! < 28.6 THEN GOTO 210
IF P9! >= 28.6 OR P9! < 39 THEN GOTO 212
IF P9! >= 39 THEN GOTO 214
200 INPUT "GIPOTROFIYA 3 STEPENI", E3$
WRITE #1, E3$
GOTO 216
202 INPUT "GIPOTROFIYA 2 STEPENI", E3$
WRITE #1, E3$
GOTO 216
204 INPUT "GIPOTROFIYA 1 STEPENI", E3$
WRITE #1, E3$
GOTO 216
206 INPUT "ADEKVATNOE PITANIE (DIAPAZON KOLEBANIY)", E3$
WRITE #1, E3$
GOTO 216
208 INPUT "OJIRENIE 1 STEPENI", E3$
WRITE #1, E3$
GOTO 216
210 INPUT "OJIRENIE 2 STEPENI", E3$
WRITE #1, E3$
GOTO 216
212 INPUT "OJIRENIE 3 STEPENI", E3$
WRITE #1, E3$
216 IF P9! < 18 THEN GOTO 234
GOTO 10
END

202 INPUT "GIPOTROFIYA 2 STEPENI", E3$