250 HOME : VTAB 12: PRINT "TROUBLE CREATING PG.NAMES FILE"
260 IF E = 4 THEN A$ = "DISK IS WRITE-PROTECTED": GOTO 300
270 IF E = 8 THEN A$ = "I/O ERROR--CHECK DRIVE DOOR": GOTO 300
280 IF E = 9 THEN A$ = "DISK FULL--TRY ANOTHER": GOTO 300
290 A$ = "ERROR " + STR$(E) +" IN LINE " + STR$(EL)
300 VTAB 14: HTAB 1: PRINT A$
310 VTAB 22: HTAB 1: PRINT "RETURN TO TRY AGAIN, ESCAPE TO QUIT";: GET Z$: PRINT : IF Z$ < > CHR$(27) GOTO 80
320 END
330 REM PLANTING GUIDE DATA
340 DATA ARTICHOKE,BEANS-SNAP-BUSH,BEANS-SNAP-POLE,BEANS-LIMA-BUSH,BEANS-LIMA-POLE,BEETS,BROCCOLI,BRUSSELS SPROUTS,CABBAGE,CARROTS,CAULIFLOWER,CELERY,CHARD-SWISS,CHIVES,COLLARDS,CORN
350 DATA CUCUMBER,EGGPLANT,GARLIC,KOHLRABI,LEEKS,LETTUCE-HEAD,LETTUCE-LEAF,MUSKMELON,OKRA,ONION SETS,ONION PLANTS,ONION SEED,PARSLEY,PARSNIPS,PEAS,PEPPERS,POTATO,PUMPKIN,RADISH
360 DATA RHUBARB,RUTABAGA,SPINACH,SQUASH-SUMMER,SQUASH-WINTER,SWEET POTATO,TOMATILLO,TOMATOES,TURNIPS,WATERMELON
370 DATA "CARROTS/PARSNIPS",10,"TOMATOES",13,"CORN/STALK VEGETABLES",10,"LETTUCE/CABBAGE/ETC.",13
380 DATA "MELONS/CANTALOPES",13,"CUCUMBER/ZUCCHINI",9,"SQUASH/PUMPKIN/GOURDS",13,"TURNIPS/LARGE ROOTS",11
390 DATA " PEAS/POD VEGETABLES",9,"RADISH/SMALL ROOTS",12," PEPPERS/EGGPLANT",12," BEANS/OKRA/BIG PODS",10
400 DATA " GREENS/PARSLEY",13," POTATOES/TUBERS",14," ONIONS/SCALLIONS",7," SPINACH/LEAFY GREENS",13