1 RЕМ (106 байт)
2 DEF FN u(x,y,a,b,n)= USR VAL "24104"    <-скроллинг вверх
3 DEF FN d(x,y,a,b,n)= USR VAL "24209"    <-скроллинг вниз
4 DEF FN l(x,у,а,b,n)= USR VAL "24316"    <-скроллинг влево
5 DEF FN r(x,у,а,b,n)= USR VAL "24391"    <-скроллинг вправо
6 REM (зарезервировать 99 байтов)
7 RЕМ ( -//- 101 байт)
8 REM ( -//- 69 байтов)
9 RЕМ ( -//- 63 байта)
Теперь заполните кодами первый блок:
10 RESTORE: LET s=0
20 FOR i=24104 TO 24104+98
30 READ d: POKE i,d: LET s=s+d: NEXT i
40 IF s<>12116 THEN PRINT "ERROR in DATA!"
50 DATA 243,221,229,221,042,
        011,092,221,070,036,
        000,000,000,000,000,
        000,197,221,126,004
60 DATA 079,221,126,028,071,
        221,126,012,203,039,
        203,039,203,039,203,
        032,203,032,203,032
70 DATA 005,203,033,203,033,
        203,033,245,197,205,
        176,034,193,241,060,
        245,197,229,205,176
80 DATA 034,209,229,221,126,
        020,079,006,000,237,
        176,225,193,241,016,
        234,054,000,084,093
90 DATA 019,221,126,020,061,
        040,005,079,006,000,
        237,176,193,016,177,
        221,225,251,201
Для заполнения кодами второго блока перепишите строки 20 и 40, а также обновите строки DATA:
 20 FOR i=24209 ТО 24209+100
 ...
 40 IF s<> 12304 THEN ...
 50 DATA 243,221,229,221,042,
         011,092,221,070,036,
         000,000,000,000,000,
         000,197,221,126,004
 60 DATA 079,221,126,028,071,
         221,126,012,128,203,
         039,203,039,203,039,
         061,203,032,203,032
 70 DATA 203,032,005,2303,033,
         203,033,203,033,245,
         197,205,176,034,193,
         241,061,245,197,229
 80 DATA 205,176,034,209,229,
         221,126,020,079,006,
         000,237,176,225,193,
         241,016,234,054,000
 90 DATA 084,093,019,221,126,
         020,061,040,005,079,
         006,000,237,176,193,
         016,175,221,225,251
 100 DATA 201
Для третьего блока:
20 FOR i=24316 TO 24316+68
...
40 IF s<>8377 THEN ...
50 DATA 243,221,229,221,042,
        011,092,221,070,036,
        000,000,000,000,000,
        000,197,221,126,028
60 DATA 071,221,126,012,245,
        197,205,158,014,221,
        126,004,071,221,126,
        020,061,128,133,111
70 DATA 006,008,229,221,126,
        020,167,203,022,043,
        061,032,250,225,036,
        016,241,193,241,060
80 DATA 016,218,193,016,207,
        221,225,251,201
Последний блок:
20 FOR i=24391 TO 24391+62
...
40 IF s<>7781 THEN ...
50 DATA 243,221,229,221,042,
        011,092,221,070,036,
        000,000,000,000,000,
        000,197,221,126,028
60 DATA 071,221,126,012,245,
        197,205,158,014,221,
        126,004,133,111,006,
        008,229,221,126,020
70 DATA 167,203,030,035,061,
        032,250,225,036,016,
        241,193,241,060,016,
        224,193,016,213,221
80 DATA 225,251,201