680 CALL 776: REM Relocate table to protected buffer
690 GOSUB 1140: GOTO 730
700 REM ------- Edit Macros
710 REM in memory
720 POKE 35,24: POKE 34,21: HOME : VTAB 22: PRINT "Type number to edit, SPACE for next pg.,";: POKE 36,9: PRINT "or <ESC> for Main Menu": POKE 35,21: POKE 34,6: RETURN
730 IF NOT F THEN PRINT : PRINT : POKE 36,12: PRINT "No file in memory": GOTO 1970
740 IF MA$(0) = "" THEN GOSUB 1140
750 GOSUB 720
760 HOME : PRINT "Open Apple Commands ": PRINT
770 FOR I = 0 TO 9: IF UE THEN PRINT " ";: GOTO 790
1110 PRINT D$"BSAVE"T$F$",A"LA",L";L:S = 1: ON NOT XT GOTO 580: RETURN
1120 REM ------- Initialize
1130 REM macro arrays
1140 VTAB 22: POKE 36,14: PRINT "Please Wait.";:L = RB: FOR I = 0 TO 19:MA$(I) = ""
1150 GOSUB 1690:X = PEEK(L):MA$(I) = MA$(I) + CHR$(X -(X >127) *128):L = L +1: ON X <128 GOTO 1150: NEXT : RETURN
1160 REM ------- Edit Macro
1170 POKE 49168,0: WAIT 49152,128:X = PEEK(49152) -128: IF X = 32 THEN RETURN
1180 IF X = 27 THEN POP : POKE 35,24: GOTO 580
1190 IF X <48 OR X >57 THEN 1170
1200 POKE 35,24: POKE 34,21: HOME : VTAB 22: PRINT " Enter macro and press RETURN when you ";: POKE 36,3: PRINT "are finished, or <ESC> to go back.": POKE 34,6: POKE 35,21
1740 PRINT : PRINT : POKE 36,10: PRINT "ARE YOU SURE(Y/N)? ";: GET YN$: PRINT YN$: IF YN$ < >"Y" AND YN$ < >"y" THEN 580
1750 IF F = 1 AND S < >1 THEN PRINT : PRINT : POKE 36,4: PRINT "FILE NOT SAVED. SAVE NOW(Y/N)? ";: GET YN$: PRINT YN$: IF YN$ < >"N" AND YN$ < >"n" THEN XT = 1: GOSUB 1070
1760 ON NOT F GOTO 1770: ON NOT S GOSUB 1380
1770 PRINT CHR$(21): TEXT : HOME : ON NOT F GOTO 1790
1780 HOME : PRINT D$"PR#3": PRINT : HOME : & MAC: PRINT "AppleMate Installed": NEW
1790 END
1800 REM ------- Error Trap
1810 REM routine
1820 TEXT : POKE 34,6: HOME :ER = PEEK(222)
1830 R$ = "APPLESOFT": IF ER >0 AND ER <22 THEN ER$ = "DISK"
1840 ER$ = ER$ +" ERROR": IF ER = 0 OR ER >21 THEN ER$ = ER$ +" # " + STR$(ER) +" AT LINE " + STR$( PEEK(218) + PEEK(219) *256): GOTO 1960
1850 IF ER = 4 THEN ER$ = ER$ +", DISK WRITE PROTECTED": GOTO 1960
1860 IF ER = 6 THEN ER$ = ER$ +", FILE NOT FOUND":F$ = "": GOTO 1960
1870 IF ER = 8 THEN ER$ = ER$ +", CHECK DISK IN DRIVE": GOTO 1960
1880 IF ER = 9 THEN ER$ = ER$ +", THIS DISK IS FULL": GOTO 1960
1890 IF ER = 10 THEN ER$ = ER$ +", THAT FILE IS LOCKED": GOTO 1960
1900 IF ER = 13 THEN ER$ = ER$ +", NOT A MACRO FILE": GOTO 1960
1910 IF ER = 16 OR ER = 11 THEN ER$ = ER$ +", DOS/PRODOS SYNTAX ERROR":F$ = "": GOTO 1960
1920 ER$ = ER$ +", UNKNOWN PROBLEM": GOTO 1960
1930 VTAB 15: PRINT "ERROR IN SETUP SECTION. Check to see"
1940 PRINT "that all files have been correctly"
1950 PRINT "saved and all lines correctly keyed in.": END