Здравия всем.

data, read, restore...были когда-то такие функции в обычном Basic. Как эти функции выглядят в MicroPascal for pic?
---------
чтоб было нагляднее вышеописанному, то нужно последовательно присвоить относительно большой объем переменной, т.е. по очереди я хочу считать вот это с основного кода программы, т.к. в еепром (128 байт) все данные не влазят. В одну строку для операторов DIM или ARRAY тоже. Можно в 3 строки реализовать, но хотелось бы не так "криво"...

Спойлер

data 134,214,1,1,2,1,1,3,1,1,2,1,1,1,1,2,1,2,5,1,1,2,1,16,2,2,1,2,2,2,1,1,2,3,1,1,1,1,3,2,1,2,1,17,2,1,1,3,1,1,1,1,4,2,2,1,1,1,1,1,1,1,1,3,2,16,1,2,1,1,1,1,2,2,3,1,3,2,1,1,3,2,1,1,1,18,2,1,1,2,1,1,1,2,1,4,3,1,1,1,2,1,1,1,4,17,2,7,1,1,2,3,5,1,1,1,3,1,1,19,5,1,4,1,1,2,1,1,2,2,1,1,2,4,1,1,2,16,1,1,4,2,2,1,5,1,2,3,4,5,1,16,3,5,2,1,3,2,1,1,3,1,1,1,1,1,1,2,2,17,1,1,5,2,1,1,4,1,3,3,2,1,2,3,1,17,1,1,1,4,1,3,6,1,3,1,4,1,1,20,1,1,1,6,1,1,3,2,1,1,3,1,3,4,2,17,1,2,1,2,1,4,2,4,2,1,1,1,2,1,7,16,1,2,6,2,7,4,4,1,1,20,1,3,1,1,1,1,2,1,4,1,1,1,1,1,1,1,2,1,1,4,2,16,1,1,2,2,4,1,2,2,1,3,2,1,2,4,1,1,2,16,1,1,1,1,1,2,2,2,1,6,1,1,1,1,1,1,1,4,3,16,2,1,1,1,2,4,1,2,2,1,1,2,1,1,2,1,4,2,1,16,1,2,1,1,2,1,1,2,1,1,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,1,1,16,2,1,7,1,4,2,1,4,1,1,2,4,2,16,4,1,1,5,1,1,1,1,2,2,1,2,6,1,3,16,3,2,2,1,2,1,3,1,2,1,2,2,1,2,3,1,1,18,1,1,1,1,2,1,3,1,3,2,1,1,1,3,3,3,1,1,1,17,1,1,1,6,1,1,2,1,2,2,3,1,3,3,1,2,1,16,1,2,1,1,2,2,1,1,5,1,1,2,1,1,2,1,2,4,1,16,3,2,1,1,3,1,1,6,2,2,3,1,6,16,3,1,1,1,1,4,2,1,3,1,1,1,1,1,1,2,2,21,2,4,3,2,2,1,7,1,1,4,4,17,2,2,1,3,2,1,1,6,1,1,1,1,4,2,3,17,2,1,2,1,1,4,1,3,1,1,1,4,8,1,1,16,2,1,3,1,1,1,1,1,3,2,2,4,1,2,2,2,2,17,1,2,2,3,2,1,1,2,4,4,1,2,1,2,1,19,2,6,1,2,1,5,4,1,4,1,2,2,1,16,3,1,6,1,2,1,2,2,1,3,1,6,1,1,1,16,1,2,1,2,2,1,1,1,2,1,2,1,2,1,1,1,2,2,1,1,1,2,1,16,3,1,1,1,1,1,2,1,1,1,2,3,1,1,1,1,2,1,1,1,2,1,2,16,1,2,4,4,2,4,1,4,3,1,6,16,1,2,1,3,3,1,1,3,1,1,2,1,1,1,1,1,1,3,2,1,1,16,5,1,2,3,4,1,2,2,1,1,1,3,2,2,2,16,2,2,1,2,1,1,1,1,1,2,1,1,1,1,1,1,1,1,3,1,1,1,1,1,2,16,1,2,1,1,2,1,1,2,1,5,1,2,1,1,1,2,1,1,5,16,1,4,2,1,2,1,1,1,2,1,4,2,1,2,1,5,1,16,7,4,1,3,4,3,2,1,5,18,1,4,3,1,1,1,3,1,1,1,3,2,2,2,1,2,2,17,5,1,1,1,1,2,2,3,2,2,1,1,1,2,1,1,5,16,2,1,1,1,1,2,1,2,5,1,1,2,1,1,1,1,2,1,1,3,1,16,1,1,3,3,1,2,1,1,2,2,1,2,1,1,1,1,2,1,1,2,1,17,3,1,2,1,1,1,1,1,1,4,1,1,1,3,3,1,1,3,1,17,1,2,1,3,1,3,2,1,1,1,3,1,1,1,3,1,3,1,1,17,1,4,1,3,1,1,4,2,3,2,5,21,1,1,1,1,4,1,1,1,4,3,1,3,2,2,1,1,4,16,2,1,4,2,1,1,1,1,1,3,1,4,3,1,1,2,3,16,8,1,1,1,1,2,2,1,2,3,2,2,1,1,1,2,1,16,4,2,3,2,1,1,1,2,1,2,2,1,2,3,1,20,1,1,1,2,1,1,2,2,2,1,3,1,2,2,3,1,1,1,1,19,3,1,1,1,2,1,1,1,2,1,3,1,1,1,1,1,1,3,2,20,2,1,2,1,3,2,3,2,2,4,1,1,1,2,1,1,2,17,3,1,2,5,1,1,1,4,1,3,7,1,2,16,2,2,2,1,1,3,1,3,2,5,3,1,4,18,4,1,5,1,1,2,3,2,1,2,2,4,1,1,2,16,1,2,1,3,1,3,2,4,2,1,1,1,3,1,6,16,2,1,5,3,1,1,1,1,3,4,6,1,1,18,4,1,1,1,1,1,1,1,1,1,1,5,1,2,3,1,1,2,1,18,3,4,2,2,2,2,2,1,3,1,1,1,6,18,3,4,2,2,1,4,1,1,3,1,9,17,1,1,1,1,5,2

P.s. сильно не пинать за ламерство )

в обычном паскале это выглядит либо таклибо так
как же вы взялись писать программу на языке, которого не знаете?!

Спасибки Полностью прокатило на Pascale. На MicroPascale пришлось урезать количество данных, т.к. даже в ROM pic`a не влазило, с 1153 байт до 934, чтоб "влезло тело программы" (про eeprom я уже говорил: 128 байт).
...Не знал, что можно "просто" нажимать Enter и вводить данные далее...
...Интересен еще момент: (потом проверю), что после "For next" компилятор не ругается на "step 2" ... (это имхо в микроБейсике). Не ругается или ему пофиг.
... HEX на Паскале получился больше, чем на Бейсике... Я больше Паскалю доверяю, возможно, операторов было немного. Больше было данных.

как же вы взялись писать программу на языке, которого не знаете?![/uquote]
...как-то и не отвечу в одной фразе... Скорее, для себя, нравится познавать. Задумок много, а напрягать народ "сделайте всё вместо меня, а я воспользуюсь -- неправильно"

PCBWay - всего $5 за 10 печатных плат, первый заказ для новых клиентов БЕСПЛАТЕН

Сборка печатных плат от $30 + БЕСПЛАТНАЯ доставка по всему миру + трафарет

Онлайн просмотровщик Gerber-файлов от PCBWay + Услуги 3D печати