1 REM (106 байт - для кассетной версии)
2 DEF FN s(x,y,a,b,d,s$)= USR VAL "23939"
3 REM (зарезервировать 318 байт)
Теперь, как и в предыдущем примере, данные:
 10 RESTORE: LET s=0
 20 FOR i=23939 TO 23939+317
 30 READ d: POKE i,d: LET s=s+d: NEXT i
 40 IF s<>29036 THEN PRINT "ERROR in DATA!"
 50 DATA 221,042,011,092,062,
         128,033,042,092,119,
         035,203,063,048,250,
         213,221,094,044,221
 60 DATA 086,045,221,110,046,
         221,102,047,025,054,
         255,235,209,126,035,
         034,032,092,111,060
 70 DATA 032,016,221,094,044,
         221,086,045,221,110,
         046,221,102,047,025,
         054,034,201,038,000
 80 DATA 041,041,041,237,075,
         054,092,009,062,008,
         050,036,092,221,126,
         012,050,041,092,221
 90 DATA 126,004,050,040,092,
         062,009,050,037,092,
         126,035,034,034,092,
         007,050,038,092,058
100 DATA 037,092,061,032,048,
         058,036,092,061,032,
         023,221,126,036,071,
         221,126,020,079,221
110 DATA 126,004,129,005,032,
         252,221,119,004,042,
         032,092,024,155,050,
         036,092,221,126,028
120 DATA 071,058,041,092,128,
         050,041,092,042,034,
         092,024,182,050,037,
         092,221,126,020,071
130 DATA 058,041,092,050,039,
         092,221,126,028,079,
         197,024,028,193,058,
         039,092,060,050,039
140 DATA 092,013,032,242,058,
         040,092,060,050,040,
         092,005,032,222,058,
         038,092,024,152,024
150 DATA 228,058,142,092,092,
         238,255,071,058,141,
         092,160,071,058,040,
         092,230,248,111,058
160 DATA 039,092,254,192,048,
         229,031,031,031,230,
         031,103,203,028,203,
         029,203,028,203,029
170 DATA 203,028,203,029,062,
         088,180,103,058,142,
         092,166,176,119,058,
         039,092,071,230,007
180 DATA 246,064,103,120,031,
         031,031,230,024,180,
         103,120,023,023,230,
         224,111,058,040,092
190 DATA 071,031,031,031,230,
         031,181,111,235,033,
         042,092,120,230,007,
         079,006,000,009,070
200 DATA 026,033,038,092,203,
         070,040,004,176,018,
         024,143,047,176,047,
         018,024,137