480 VTAB 20: PRINT L$;: VTAB 21: HTAB 1: INVERSE : PRINT "<-";: NORMAL : PRINT " ";: INVERSE : PRINT "->";: NORMAL : PRINT " TO SELECT ...<";: INVERSE : PRINT "RETURN";: NORMAL : PRINT "> TO EXECUTE": PRINT " UP OR DOWN ARROW KEYS MAY BE USED"
490 PRINT " <ESC> RETURNS TO PREVIOUS MENU"
500 VTAB 24: PRINT L$;: RETURN
510 VTAB 3: HTAB 1: PRINT "PRINTER ": RETURN
520 VTAB 3: HTAB 9: PRINT "IN SLOT #";SL: RETURN
530 VTAB 3: HTAB 1: PRINT "NO PRINTER ": RETURN : REM 8 SPACES
1290 HOME : VTAB 10: PRINT "YOU HAVE AN ACTIVE LAYOUT IN PROGRESS.": PRINT : PRINT "VIEWING THE VEGETABLE GRAPHICS": PRINT "WILL DESTROY THE EXISTING LAYOUT.": PRINT : PRINT "DO YOU WISH TO CONTINUE ANYWAY? N";: HTAB 33
1300 POKE KB,0: GET Z$: IF Z$ = "Y" OR Z$ = CHR$(121) THEN LN = 0: GOTO 1320
3020 VTAB 20: INVERSE : PRINT "DISK ERROR OR BAD FILE NAME-TRY AGAIN": NORMAL : GOSUB 690: POKE 216,0: GOTO 2810
3030 HOME : TEXT : IF LN <6 THEN VTAB 10: HTAB 10: PRINT "NO LAYOUT IN PROGRESS!": GOSUB 690: GOTO 2630
3040 IF R >0 AND S >0 THEN 1220
3050 PRINT : VTAB 10: PRINT "NO GARDEN BEING PLANTED!": GOSUB 690: GOTO 2630
3060 REM PRINT GRAPHICS
3070 IF GP = 0 THEN 1080: REM MAIN MENU
3080 HOME : VTAB 10: PRINT TAB( 5)"BE SURE PRINTER IS ON.."
3090 VTAB 24: PRINT "<ESC>= STOP PRINTER <RETURN>= CONTINUE";: GOSUB 700: IF X$ = CHR$(27) THEN 2630
3100 HOME : HCOLOR= 0: FOR I = 161 TO 191: HPLOT 0,I TO 279,I: NEXT : HCOLOR= 3: PRINT : PRINT D$"PR#";SL: PRINT GP$: PRINT : HOME : PRINT D$"PR#0": GOTO 2630
3110 GOTO 1080: REM MAIN MENU
3120 REM GARDEN ECONOMICS
3130 U = 0:U$ = "":P = 0:P$ = "":T = 0:LB = 0:LB$ = "":T$ = "": FOR I = 1 TO 4:S$(I) = "": NEXT : HOME : FOR I = 1 TO 16: IF EC%(I) < >0 THEN I = 16: NEXT : GOTO 3160: REM AT LEAST ONE ENTRY
3690 GOSUB 700: IF PT = 1 AND (X$ = "P" OR X$ = CHR$(112)) THEN VTAB 18: HTAB 1: CALL -958: PRINT L$: PRINT : ON SD GOTO 3710: VTAB 23: PRINT TAB( 8)"PRESS <ESC> TO CANCEL PRINT": GOTO 3730: REM TYPE OF SCREEN PRINT
3700 GOTO 1220: REM NO PRINT-BACK TO PLANNER MENU
3710 IF SD = 1 THEN VTAB 17: CALL -958: PRINT : GOSUB 1000: GOTO 3740
3720 REM GENERIC SCREEN DUMP
3730 GOSUB 1010
3740 TEXT : HOME : GOSUB 690: GOTO 1220: REM PLANNER MENU
3750 HOME : VTAB 12: PRINT "<RETURN> TO RUN CONFIGURE": PRINT : PRINT "<ESC> FOR MAIN MENU";: GET Z$: PRINT : ON Z$ = CHR$(27) GOTO 1080: PRINT D$"RUN CONFIGURE"
3760 REM ERROR TRAP
3770 GOSUB 960: REM NO ONERR
3780 IF ER = 6 THEN X$ = "GRAPHIC NOT ON THIS DISK":Y$ = "CHECK NAME OR SELECT OTHER DISK": GOTO 3830
3790 IF ER = 4 THEN X$ = "DISK WRITE PROTECTED":Y$ = "REMOVE WRITE-PROTECT TAB": GOTO 3830
3800 IF ER = 8 THEN X$ = "DISK I/O PROBLEM":Y$ = "CHECK DRIVE DOOR OR DISK POSITION":F$ = "": GOTO 3830
3810 IF ER = 9 THEN X$ = "THIS DISK IS FULL":Y$ = "INSERT OTHER DISK OR CHANGE DRIVES": GOTO 3830
3860 HOME :I = PEEK(EM): POKE EM,0: ON I GOTO 3980,2630,390,3750
3870 GOTO 1080: REM MAIN MENU
3880 GOSUB 960: IF ER < >6 THEN 3790
3890 VTAB 5: HTAB 1: PRINT "THESE FILES MUST BE ON THE DISK:": VTAB 8: HTAB 1: PRINT "PG.GUIDE, PG.NAMES, CURSOR.BAR.4": PRINT " TEXT.SHAPES & VEG.SHAPES": VTAB 11: PRINT "NOT ALL WERE FOUND."
3900 VTAB 19: PRINT "PRESS <RETURN> TO QUIT PROGRAM.";: POKE KB,0: GET X$: PRINT : END
3910 HOME : GOTO 3890
3920 REM NO CONFIG. FILE
3930 ONERR GOTO 4030
3940 HOME : VTAB 12: HTAB 1: PRINT "NO GP.CONFIG FILE FOUND": PRINT "<RETURN> TO RUN CONFIGURE": PRINT : PRINT "<ESC> TO QUIT";: GET Z$: PRINT : IF Z$ < > CHR$(27) THEN PRINT D$"RUN CONFIGURE"
3950 END
3960 GOTO 3760: REM OTHER ERROR
3970 REM ONERR FROM DISK/GRAPHICS AREA
3980 PRINT : GOTO 370: REM RE- CONFIG
3990 ER = PEEK(222): IF ER = 6 THEN 3930
4000 GOTO 3770
4010 POKE EM,3:ER = PEEK(222): IF ER = 6 THEN TEXT : HOME : VTAB 10: PRINT "FILE NOT FOUND ON DISK": PRINT : PRINT "FATAL ERROR--CANNOT CONTINUE": END
4020 GOTO 3770: REM OTHER ERROR
4030 ER = PEEK(222): IF ER = 6 THEN HOME : VTAB 12: PRINT "CONFIGURE NOT ON THIS DISK": PRINT : PRINT "RETURN TO TRY AGAIN, <ESC> TO QUIT";: GET Z$: PRINT : ON Z$ = CHR$(27) GOTO 3950: PRINT D$"RUN CONFIGURE"