740 HOME : PRINT "*** NEW CODE GENERATION ***": PRINT
750 PRINT "FOR EACH CODE, ENTER THE DESIRED"
760 PRINT "APPLESOFT COMMAND OR KEYWORD.": PRINT "RETURN FOR MENU."
770 PRINT : PRINT "CODE COMMAND CODE COMMAND"
780 FOR I = 1 TO 14: HTAB 3: PRINT CHR$(63 +I);: INPUT " ";C$
790 ON C$ < >" " GOTO 810: GOSUB 1790
800 VTAB 8 +I:I = I -1: GOTO 840
810 GOSUB 1870
820 IF E = 0 THEN PRINT "INVALID COMMAND": FOR KK = 1 TO 550: NEXT :I = I -1: VTAB I +8: CALL -958: GOTO 840
830 C(I) = J:C$(J) = D$(J -127)
840 NEXT
850 VTAB 9: FOR I = 15 TO 27: HTAB 17: PRINT CHR$(63 +I);" ";: INPUT " ";C$
860 ON C$ < >"" GOTO 880: GOSUB 1790
870 VTAB I -6: HTAB (17): CALL -868:I = I -1: GOTO 910
880 GOSUB 1870
890 IF E = 0 THEN HTAB 17: PRINT "INVALID COMMAND": FOR KK = 1 TO 550: NEXT : VTAB I -5: HTAB 17: CALL -868:I = I -1: VTAB I -5: HTAB 15: CALL -868: GOTO 910
900 C(I) = J:C$(I) = D$(J -127)
910 NEXT
920 GOTO 160
930 :
940 REM SAVE CODE SET TO FILE
950 :
960 GOSUB 1830
970 HOME : PRINT "*** SAVE CODE SET TO FILE ***
980 IF MD = 1 THEN PRINT "DO YOU WANT MODIFIED CODES STORED IN ";F$;: INPUT "(Y/N)? ";A$: IF A$ = "Y" OR A$ = CHR$(121) THEN 1080
990 PRINT D$"CLOSE": PRINT : PRINT "ENTER NAME OF FILE TO STORE CODES (.COD SUFFIX WILL AUTOMATICALLY BE ADDED)."
1000 PRINT : PRINT "RETURN FOR MENU"
1010 PRINT : INPUT ":";F$:F$ = F$ +".COD"
1020 IF LEN(F$) >15 THEN PRINT "NAME TOO LONG. DO NOT USE MORE THAN": PRINT "11 CHARACTERS. ": PRINT : GOTO 990
1030 IF F$ = ".COD" THEN 160
1040 GOSUB 1760: PRINT : PRINT "CODE FILE WILL BE SAVED AS ": PRINT F$" ON DRIVE "DR
1050 PRINT : INPUT "IS THIS CORRECT (Y/N)? ";A$
1060 GOSUB 1910: IF E = 1 GOTO 1050
1070 IF A$ = "N" OR A$ = CHR$(110) THEN 970
1080 PRINT D$"OPEN"F$",D"DR: PRINT D$"WRITE"F$
1090 FOR I = 1 TO 27: PRINT C(I): NEXT
1100 PRINT D$"CLOSE":MD = 0
1110 GOTO 160
1120 :
1130 REM CUSTOMIZE ENTERSPEED
1140 :
1150 HOME : PRINT "*** CREATE CUSTOMIZED ENTERSPEED ***
1160 PRINT : PRINT "DO YOU WANT THE CODE SET IN MEMORY TO"
1170 INPUT "BE INSERTED INTO THE ENTERSPEED PROGRAM (Y/N)? ";A$
1180 GOSUB 1910: IF E = 1 THEN 1160
1190 IF A$ = "N" OR A$ = CHR$(110) THEN 160
1200 REM GENERATE THE ENTERSPEEC EXEC FILE AND THEN EXEC IT