1 REM НБГИЙОЕ МБОЗХБЗЕ ТПХФЙОЕУ ›2 REM ФП ХУЕ ЙО ВБУЙГ РТПЗТБНУ ›3 STOP ›1000 REM ДПХВМЕ РЕЕЛ ›1001 INPUT XXX›1002 DPEEK=ADR("hh…Нh…М ±М…ФИ±М…Х`")›1003 I=USR(DPEEK,XXX):? I›1004 REM ДПХВМЕ РПЛЕ ›1005 DPOKE=ADR("hЄКh…Хh…Ф h…Цh‘ФИҐЦ‘ФИКРс`")›1006 X=USR(DPOKE,ADDRESS,WORD,WORDN)›1007 REM УЙОЗМЕ РПЛЕ ›1008 SPOKE=ADR("hЄКh…Нh…М hh‘МИКРш`")›1009 X=USR(SPOKE,BYTE,BYTEN)›2001 REM ТБЙОВПЧ ›2002 RAINBOW=ADR("h©……iиЋРЋ ФЕРх`")›2003 I=USR(RAINBOW)›3001 REM ГМЕБТ НЕНПТЩ ›3002 CLEAR=ADR("hh…Сh…Рh…Уh…ТҐТeР…ТҐУeС…У©Ё‘Р¦РдТР¦СдУР`жРРжСўРз")›3003 I=USR(CLEAR,LOCATION,NUM)›3005 REM ГМЕБТ Іµ¶ ВЩФЕУ ›3006 CLEAR256=ADR("hh…Хh…Ф©Ё‘ФИРы`")›3007 I=USR(CLEAR256,START-LOCATION)›4001 REM РЇН НПЦЕ ›4002 UP=ADR("hh…Мh…Л ±Л€‘ЛИИАРх`")›4003 DN=ADR("hh…Мh…Л ±ЛИ‘Л€€А Рх`")›4004 I=USR(UP,MYPMBASE+512+Y):Y=Y-1›4005 I=USR(DN,MYPMBASE+511+Y):Y=Y+1›4007 REM НЕНПТЩ УИЙЖФ ›4008 SHIFT=ADR("hh…сh…рh…Хh…Фh…пh…о ±р‘ФжФРжХжрРжсЖоРкЖпж`")›4009 I=USR(SHIFT,FROM,TOO,BYTES)›5000 REM ГЙП ›5001 CIO=ADR("hhhЌbhЌehЌdhЌihЌhў LVд")›5002 X=USR(CIO,7,ADDRESS,BYTES)›