≡ Передовица » Макулатура » ИиО » Программа для просмотра текстовых файлов.
 |
|
|---|
Программа для просмотра текстовых файлов. (N1/1994)
Содержимое настолько компактное и интригующее, что прям хочется попробовать :)
В.А. Пасевич. Группа сайта просит вас связаться с нами! (ЗАЧЕМ ЭТО?)
Предлагаю для клуба "Агат" небольшую, но очень полезную программу. Она позволяет, не выходя в текстовый редактор (СПТ), из Бейсика просмотреть любой текстовый файл. Управление просмотром простое, но с достаточно богатыми возможностями. Имеется подробная подсказка по используемым командам. Вызов программы, её запуск и загрузка текстового файла занимают несколько секунд, просматривать тексты можно быстрее, чем в СПТ.
10 HIMEM: $26FF: REM ПРОГРАММА ПРОСМОТРА ТЕКСТОВЫХ ФАЙЛОВ В БЕЙСИКЕ. ПАСЕВИЧ В.А. 04.06.94
20 TEXT=34: HOME: A$ = "==============================================================="
30 PRINT "Управление :": PRINT A$: PRINT "-> постраничное перелистывание вперед ":
PRINT : PRINT "<- постраничное перелистывание назад"
40 PRINT "^": PRINT "- рулонный просмотр вперед": PRINT: PRINT "стрелка вниз - останов рулонного просмотра":
PRINT: PRINT "1 функцион.(справа) - выход": PRINT: PRINT "ред - возврат в начало": PRINT A$
50 PRINT "Если вы дошли до конца текста, то продолжая движение вперед,": PRINT "вы вернетесь в начало.":
PRINT "Если после этого из начала нужно посмотреть конец текста, то": PRINT "нужно нажать на <-"
60 PRINT "После рулонного просмотра нажатие на -> высветит страницу, ":
PRINT "следующую за той, с которой начался рулонный просмотр.":
PRINT "Аналогично нажатие на <- высветит страницу, предшествующую той,"
70 PRINT "с которой начался рулонный просмотр.": PRINT A$
80 *$2700:
90 !$A9008D4F298D4E298D5029A90085958597A9308D51298598A9108596A000A200B197C900F035C98DF00A9195C8C040F0034C202718C8A94065958595A9006596
100 !$85969865978597A90065988598A000A917C596F0142003284C20278E4F29A9008597A9308598AD10C0AD00C0C99BD00920E027AD10C04C0B27C99AF0ECC999D0
110 !$034C1E288D4B29A9008D4E29AD4B29C990D0034C9328C995F037C988D0CB4CB427AD10C020E027A9008595A9108596A0004C2027E000D00AAE4F29E000F0A74C
120 !$C427CACABD50298597BD512985984CA127E8E8A5979D5029A5989D51294CA127A9008595A9108596A000A9209195C891
130 !$95C0FFD0F918A90165968596A596C917D0E860A000AD00C0C999F004C99AD00DA9209195C89195C03FD0F9A00060AD4E29C900D011A9018D4E29BD50298D4C29
140 !$BD51298D4D29AD4C298597AD4D298598A000B197C900D0034C6627C98DF005C8C03FD0EE98659785978D4C29A900659885988D4D29207828A000A9008595A910
150 !$85962003284C2027A0008C40298C41298C4229A000C8D0FDA9016D40298D4029D0F1606000108596A5308598A000AD10C04C1E276000
160 !:
170 PRINT "Нажмите пробел": GET B$
180 ONERR GOTO 250
190 HOME
200 PRINT: PRINT CHR$(4)" BLOAD ?,A$3000": HOME: VTAB 29: HTAB 1: PRINT A$
210 VTAB 30: HTAB 1: PRINT "-> просмотр вперед; <- назад; стрелка вверх- рулон":
PRINT "стрелка вниз - останов; 1 справа - выход; ред - в начало"
220 CALL $2700: GET B$: VTAB 30: HTAB 1: PRINT CHR$(158): VTAB 30: HTAB 1: PRINT "1-вызов другого файла; 0 - окончание": GET B$
230 IF B$ = "1" THEN 190
240 HOME: NEW
250 HOME: PRINT "Ошибка обмена, файл не вызывается. Если будете вызывать другой":
PRINT "файл, то 1, иначе 0.": GET B$: IF B$ = "1" THEN 00190
260 HOME: NEW
* * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *