1 A%=SELECT("ULTRA EDITOR","Создть","Открыть","О программе","Выход")
2 IF A%=0 THEN GOSUB 3
3 IF A%=1 THEN GOSUB 22
4 IF A%=2 THEN GOSUB 44
5 IF A%=3 THEN END
6 D%=EF("СОЗДАНИЕ ФАЙЛА","ОК","Назад","Ввидите имя файла",F$,10000000,0)
7 IF D%=1 THEN GOTO 6
8 IF D%=-1 THEN GOTO 1
9 H%=EF("ВВИДИТЕ ТЕКСТ","OK","Назад","Текст / Данные",T$,100000000000,0)
10 IF H%=1 THEN GOTO 9
11 IF H%=-1 THEN GOTO 3
12 DIM A$(2):A$(0)="e:/":A$(1)="c:/":A$(2)="RMS"
13 X%=CF("ПУТЬ СОХРАНЕНИЯ","OK","Назад","Выбор",A$,0)
14 IF X%=0 THEN J$= "file:///e:/"
15 IF X%=-1 THEN GOTO 6
16 IF X%=1 THEN J$="file:///c:/"
17 IF X%=2 THEN J$=""
18 OPEN #1,J$ + F$, "OUTPUT"
19 PRINT #1,T$
20 CLOSE #1
21 ALERT "Файл Сохранен!","Файл" + F$ + "был сохранен.","",1,1000:GOTO 1
22 REM "//Конец подпрограммы"
23 G%=SELECT("Путь","c:/","e:/","RMS","Ввести свой")
24 IF G%=0 THEN P$="file:///c:/"
25 IF G%=1 THEN P$="file:///e:/"
26 IF G%=2 THEN P$=""
27 IF G%=3 THEN C%=EF("ВВИДИТЕ ПУТЬ","ОК","Назад","Ваш путь","file:///" + P$, 100, 0)
28 IF C%=1 THEN GOTO 29
29 IF C%=-1 THEN GOTO 1
30 L%=EF("ВВИДИТЕ ИМЯ ФАЙЛА","ОК","Назад","Имя:",Q$,100,0)
31 IF L%=1 THEN GOSUB 32
32 IF L%=-1 THEN GOTO 1
33 OPEN #2,P$ + Q$,"INPUT"
34 INPUT #2,STRING$
35 CLOSE #2
36 Y%=MSF("Файл:" + Q$,"Редактировать","Назад","Промотр",STRNG$)
37 IF Y%=1 THEN Z%=EF("Редактор текста","ОК","Назад","Текст / Данные",K$,100000000000,0)
38 IF Y%=-1 THEN GOTO 29
39 IF Z%=1 GOSUB 40
40 IF Z%=-1 GOTO 35
41 OPEN #3, P$ + Q$,"OUTPUT"
42 PRINT #3, K$
43 CLOSE #3
44 ALERT "Файл перезаписан!", "Файл был удачно перезаписан.",1,1000:GOTO 1
45 I%=MSFF("О программе", "ОК", "Назад", "ULTRA EDITOR V1.0", "Создатель программы - Даниил Алексеев (DanuuL), программа которая дает возможность редактировать, просматривать, создавать текстовые файлы, исходный код открыт, следите за обнолениями. Спасибо за скачку рограммы). RALT 2015"
46 IF I%=1 THEN GOTO 1
47 IF I%=-1 THEN GOTO 1