10 clr:print chr$(147):poke 646,1:poke53280,0:poke53281,0:poke53272,21
20 print”14 q in reverse 14 ] in reverse ATTENDERE....”
30 print “1 q in reverse 2 ] in reverse CARICAMENTO NUOVO SET DI CARATTERI”
40 poke56334,peek(56334)and254:poke1,peek(1)and251:for i=1 to 33: for j=0 to 7
50 poke12288+i*8+j,peek(12288+i*8+j):nextj:nexti
60 poke1,peek(1)or4:poke56334,peek(56334)or1
70 q1=0:q2=27:q3=28:q4=29:q5=32
80 forb=0to7 :readn :poke12288+(8*q1)+b,n :nextb
90 forb=0to7 :readn :poke12288+(8*q2)+b,n :nextb
100 forb=0to7 :readn :poke12288+(8*q3)+b,n :nextb
110 forb=0to7 :readn :poke12288+(8*q4)+b,n :nextb
120 forb=0to7 :readn :poke12288+(8*q5)+b,0 :nextb
130 data 24,28,30,31,24,255,126,60
140 data 0,56,56,24,24,255,126,60
150 data 129,66,36,24,24,36,66,129
160 data 255,129,129,129,129,129,129,255
170 fori=0to62:readd:poke320+i,d:next
180 fori=0to62:readd:poke832+i,d:next
190 fori=0to62:readd:poke896+i,d:next
200 fori=0to62:readd:poke960+i,d:next
210 fori=0to62:readd:poke15744+i,d:next
220 w1=64*247:fori=0to62:readd:pokew1+i,d:next
230 w2=64*248:fori=0to62:readd:pokew2+i,d:next
240 w3=64*249:fori=0to62:readd:pokew3+i,d:next
250 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,145,120,33,91,64
260 data 33,85,64,45,213,120,37,81,64,25,81,120,0,0,0,18,187,0,42,162,128,42
270 data 162,64,42,187,128,42,162,128,17,58,85,0,0,0,0,0,0
280 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,32,240,1,17,248,3,185,248,127
290 data 255,254,31,255,252,15,255,248,7,255,240,3,255,224,0,0,0,0,0,0,0,0,0
300 data 0,0,0,0,0,0,0,0,0,0,0,0
310 data 0,0,0,0,0,0,0,0,0,0,24,0,0,24,0,4,8,128,2,8,64,7,8,224
320 data 63,255,248,127,255,254,255,255,255,127,255,127,255,254,63,255,248
330 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
340 data 24,0,0,24,0,0,8,0,0,216,0,0,252,0,0,14,0,0,7,0,0,3,128,0
350 data 1,192,0,0,224,0,0,112,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0
360 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
370 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0