1 RЕМ (зарезервировать 106 байт - для кассетной версии)
2 DEF FN b(а$)= USR VAL "23899"
3 RЕМ (зарезервировать 69 байт, набрав любые символы)
Теперь ответственный этап - занесение машинных кодов в Бейсик-строку. Добавьте следующие программные строки:
10 RESTORE: LET s=0
20 FOR i=23899 TO 23899+68
30 READ d: POKE i,d: LET s=s+d: NEXT j
40 IF s<>6932 THEN PRINT "ERROR in DATA!"
50 DATA 042,011,092,035,035,
        035,035,126,095,035,
        126,087,035,070,235,
        094,123,254,031,216
60 DATA 254,127,208,022,000,
        197,229,033,160,000,
                    ---
        237,075,123,092,009,
        235,041,041,041,237
70 DATA 075,054,092,009,006,
        008,126,203,063,182,
        018,019,035,016,247,
        062,002,205,001,022
80 DATA 062,164,215,225,035,
            ---
        193,016,203,201