140 IF CA < >19422 THEN PRINT "CHECKSUM ERROR IN LINES 100-110": PRINT "TOTAL IS ";CA;" AND SHOULD BE 19422": END
150 IF CB < >43867 THEN PRINT "CHECKSUM ERROR IN LINE 130.": PRINT "TOTAL IS ";CB;" AND SHOULD BE 43867": END
160 IF CL < >146 THEN PRINT "CHECKSUM ERROR IN LINE 130": PRINT "TOTAL IS ";CL;" AND SHOULD BE 146": END
170 FOR I = 1 TO 14
180 A = D:O = -1
190 FOR Q = A TO L(I) +(A -1)
200 O = O +1:D = D +1
210 C(Q) = B(I) +O +61440
220 NEXT : NEXT
230 FOR I = 1 TO 146
240 POKE C(I),A(I): NEXT
250 PRINT PEEK( -16256)
260 DATA 215,173,93,192,173,95,192,208,208,204,197,169,40,133,33,12,234,234,234,234,234,234,234,234,234,234,234,234,234,164,36,165,37,72,32,36,252,32,158,252,160,0,104,105,0,197,35,144,240,176,202,165
270 DATA 34,133,37,160,0,132,36,240,228,165,34,72,32,36,252,165,40,133,42,165,41,133,43,164,33,136,104,105,1,197,35,176,13,72,32,36,252,177,40,145,42,136,16,249,48,225,160,0,32,158,252,176,134,164,36
280 DATA 169,160,145,40,200,196,33,144,249,96,230,78,208,2,230,79,44,0,192,16,245,145,40,173,0,192,44,16,192,12,133,50,223,234,234,234,234,234,234
290 DATA 2047,1,2677,6,2826,4,2897,4,2979,1,2995,13,3138,32,3184,56,3355,19,3376,1,3394,2,3459,1,3759,1,3781,5