RMS
- 10 DBNAME$="SECRET"
- 15 NAME$="empty":PASSWORD$="empty"
- 20 TRAP 60:OPEN #0,DBNAME$,"INPUT"
- 30 INPUT #0,NAME$
- 40 INPUT #0,PASSWORD$
- 50 CLOSE #0:GOTO 100
- 55 REM SAVE CODE
- 60 OPEN #0,DBNAME$,"OUTPUT"
- 70 PRINT #0,NAME$
- 80 PRINT #0,PASSWORD$
- 90 CLOSE #0
- 100 REM LATER CODE
Правильное постоянное сохранение и считывание данных из хранилища приложения. Благодаря AHiLLA было найдено даное решение. И так объяснение по порядку:
20 - Пытаемся открыть хранилище, если не существует переходим к строке 60. Поскольку мы не можем считывать данные из несуществующего хранилища, на 60-й строке оно создается и в него заносятся данные по умолчанию. Теперь при последующих запусках на 60-ю строку переходить не будет и данные будут считываться не вызывая вылет из приложения.
Опонент: "А как же мне сохранить свои данные?". Всё просто, код из строк с 60 по 90 можно выполнить в любом другом месте.
20 - Пытаемся открыть хранилище, если не существует переходим к строке 60. Поскольку мы не можем считывать данные из несуществующего хранилища, на 60-й строке оно создается и в него заносятся данные по умолчанию. Теперь при последующих запусках на 60-ю строку переходить не будет и данные будут считываться не вызывая вылет из приложения.
Опонент: "А как же мне сохранить свои данные?". Всё просто, код из строк с 60 по 90 можно выполнить в любом другом месте.
