3270 GET A$: IF C = >2 THEN IF A$ < > CHR$(13) THEN 3270
3280 IF A$ = CHR$(13) AND IN$ = "" THEN GOSUB 120: GOTO 3270
3290 IF A$ = "B" THEN 3130
3300 IF A$ = CHR$(13) THEN PRINT A$;:WR = VAL(IN$): GOTO 3330
3310 IF A$ <"0" OR A$ >"9" THEN GOSUB 120: GOTO 3270
3320 PRINT A$;:IN$ = IN$ +A$:C = C +1: GOTO 3270
3330 PRINT :C = 0:IN$ = ""
3340 HTAB 9: PRINT ">CEILING< INSULATION": PRINT
3350 PRINT " ENTER R-VALUE OF INSULATION==>";
3360 GET A$: IF C = >2 THEN IF A$ < > CHR$(13) THEN 3360
3370 IF A$ = "B" THEN 3230
3380 IF A$ = CHR$(13) AND IN$ = "" THEN GOSUB 120: GOTO 3360
3390 IF A$ = CHR$(13) THEN PRINT A$;:RR = VAL(IN$): GOTO 3420
3400 IF A$ <"0" OR A$ >"9" THEN GOSUB 120: GOTO 3360
3410 PRINT A$;:IN$ = IN$ +A$:C = C +1: GOTO 3360
3420 PRINT :C = 0:IN$ = ""
3430 PRINT " ENTER ANNUAL HEATING COST=>$";
3440 GET A$: IF C = >5 THEN IF A$ < > CHR$(13) THEN 3440
3450 IF A$ = "B" THEN 3230
3460 IF A$ = CHR$(13) AND IN$ = "" THEN GOSUB 120: GOTO 3440
3470 IF A$ = CHR$(13) THEN PRINT A$;:AC$ = IN$:IN$ = "": GOTO 3500
3480 IF A$ <"0" OR A$ >"9" THEN GOSUB 120: GOTO 3440
3490 PRINT A$;:IN$ = IN$ +A$:C = C +1: GOTO 3440
3500 PRINT : HTAB 5: PRINT "THE WORKSHEET IS NOW COMPLETE!": PRINT : HTAB 8: PRINT "PRESS RETURN TO CONTINUE";
3510 GET A$: IF A$ = "B" THEN 3230
3520 IF A$ = CHR$(13) THEN 3540
3530 GOSUB 120: GOTO 3510
3540 POKE 34,0:WA = WA +TA +TP +UW:WA = WA -(DP +SP):RA = RA +UC
3550 IF WA <10 OR RA <10 THEN GOSUB 120: GOSUB 120: PRINT : PRINT : PRINT "THE DATA AS ENTERED IS QUESTIONABLE!!!!": PRINT : HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE";: GET A$
3560 HOME : REM STD ANALYSIS VALUES
3570 HTAB 3: PRINT "****INSULATION ENERGY ANALYSIS****": PRINT : PRINT " HEAT LOSS OF EXISTING STRUCTURE": PRINT LINE$