680 VTAB 9: HTAB 20: FOR I = 1 TO 15: PRINT "-";: NEXT I
690 VTAB 10: CALL -868: HTAB (20 + LEN(CC$(CH))) +FC: IF LEN(CC$(CH)) +(FC +20) >34 THEN HTAB 35
700 VTAB 10: INVERSE : PRINT "<": NORMAL
710 VTAB 10: HTAB 5: INPUT "NEW COMMAND => ";NC$(CH)
720 IF NC$(CH) = "" THEN GOTO 120
730 IF LEN(NC$(CH)) <2 THEN PRINT : PRINT "NEW COMMAND MUST AT LEAST 2 CHARACTERS": CALL -1052: FOR I = 1 TO 2000: NEXT I: VTAB 12: CALL -868: GOTO 690
740 IF LEN(NC$(CH)) > LEN(CC$(CH)) +FC THEN PRINT : PRINT "COMMAND MUST BE =< " LEN(CC$(CH)) +FC" CHARACTERS": CALL -1052: FOR I = 1 TO 2000: NEXT I: VTAB 12: CALL -868: GOTO 690
750 IF LEN(NC$(CH)) >15 THEN PRINT : PRINT "MAXIMUM COMMAND LENGTH 15 CHARACTERS": CALL -1052: FOR I = 1 TO 2000: NEXT I: VTAB 12: CALL -868: GOTO 690
760 IF LEN(CC$(CH)) > LEN(NC$(CH)) THEN FC = FC +( LEN(CC$(CH)) - LEN(NC$(CH))): GOTO 850
770 REM :
780 REM : RESET FREE BYTES
790 REM :
800 FC = FC -( LEN(NC$(CH)) - LEN(CC$(CH)))
810 REM :
820 REM : SET NEW COMMAND TO
830 REM : DISPLAY IN INVERSE
840 REM :
850 CC$(CH) = NC$(CH):IN(CH) = 1
860 HOME : GOTO 120
870 REM :
880 REM : SET STANDARD COMMANDS
890 REM : READ CURRENT COMMANDS
900 REM : FROM RAM DOS IMAGE
910 REM :
920 FOR I = 1 TO 28: READ SC$(I): NEXT I
930 FOR I = 1 TO 20:IN(I) = 0: NEXT I
940 I = 1:FC = 0
950 FOR SA = 43140 TO 43271
960 A$ = CHR$( PEEK(SA))
970 CC$(I) = CC$(I) +A$
980 IF ASC(A$) >128 THEN I = I +1
990 IF ASC(A$) = 0 THEN FC = FC +1
1000 NEXT SA
1010 RETURN
1020 RESTORE : FOR I = 1 TO 28: READ CC$(I):IN(I) = 0: NEXT I:FC = 0: GOTO 120
1030 REM :
1040 REM : POKE NEW TABLE INTO
1050 REM : MEMORY.
1060 REM :
1070 VTAB 22: HTAB 20: FLASH : PRINT "REPLACING": NORMAL
1080 FOR I = 1 TO 28
1090 FOR J = 1 TO LEN(CC$(I)) -1
1100 CS$ = CS$ + MID$ (CC$(I),J,1)
1110 NEXT J
1120 X = ASC( RIGHT$(CC$(I),1))
1130 IF X >128 THEN GOTO 1150
1140 X = X +128
1150 CS$ = CS$ + CHR$(X)
1160 NEXT I
1170 IF LEN(CS$) <133 THEN CS$ = CS$ + CHR$(0): GOTO 1170
1180 FOR I = 1 TO 132
1190 POKE 43139 +I, ASC( MID$ (CS$,I,1))
1200 NEXT I
1210 CS$ = ""
1220 VTAB 22: CALL -868: PRINT : INPUT "SAVE CHANGES AS A TEXT FILE (Y/N) =>";AN$
1230 IF LEFT$(AN$,1) = "Y" THEN GOSUB 1290
1240 VTAB 23: CALL -868: INVERSE : PRINT "PLEASE,";: NORMAL : PRINT " STAND BY CLEARING MEMORY "
1250 GOTO 80
1260 REM :
1270 REM : SAVE CHANGES TO TEXT FILE
1280 REM :
1290 HOME : VTAB 3: PRINT "<< CREATE A COMMAND CHANGE TEXT FILE >>"