Compact Menus And More Savings

The display menu and edit menu each consist of several sections. | prefer to see as many options at one time as possible. Also, if you have a long search command (more than one line long) you will run into a problem with the screen SCROLL. These changes solve both situations and save about 350 bytes as well.

102 IF X$="DEFP" THEN PRINT AT 14,0;: PLOT 120,70: GO SUB 6500: INK 0: GO SUB 9830: INK 7: PRINT AT 9,7;A$; INK 0;E$(1);E$(1);E$(1): GO TO 60
1040 PRINT AT 20,0;X$
1047 PRINT AT 20,0;X$
1050 GO SUB 9100: PAPER 5: INK 0: PRINT AT 16,1;"Press ENTER to continue","C)opy  D)elete  E)dit  A)dd fileG)oto menu       R)estart searchM)ore info   TYPE SEARCH COMMAND":INPUT "OPTION? ";Y$
1051 IF Y4="M" THEN PAPER 0: INK 5: PRINT AT 16,0;: GO SUB 9850: INPUT "OPTION? ";Y$: IF Y$="M" THEN GO TO 1050
1070 IF Y$="G" THEN GO TO 1
5004 INK 1: PLOT 0,48: PAPER 6: DRAW 255,0: INK 0: PRINT AT 16,0; PAPER 1; INK 7;"ENTER:Next line or use SHIFT and 1:Switch Insert/Over 2:Caps Lock3:Line Delete       4:Line Erase5-8:Move Cursor      9:More Info";AT L,C;: LET M=0
5115 IF M=0 THEN PRINT BRIGHT 1; PAPER 1;AT 17,0;"SYMBOL SHIFT:Line Insert","STOP:Close File",,: LET M=-1: GO TO 5040
5116 IF M=-1 THEN PRINT AT 16,0;: GO SUB 9850: LET M=1: GO TO 5040
9850 PRINT "FILE: "; INK 7;F$; INK 3;"     ORDER: "; INK 7;S, INK 4;"OPEN: "; INK 7;LEN D$-P;: PRINT " bytes";TAB 0;: PRINT "FORMAT:";INK 7;A$,,,TAB 0;: RETURN

Remember that you now use “G” to return from the display menu to the main menu instead of “N”!