10 For i=54272 to 54296
20 Poke i,0: next
30 poke 54277,90: poke 54278,94
40 poke 54296,15
50 read hf,bf,du
60 if hf<0 then goto 160
70 poke 54273,hf: poke 54272,bf
80 poke 54276,33
90 for i= 1 to du: next
100 poke 54276,32: for i= 1 to 90:next
110 goto 50
120 data 33,135,128,33,135,128,33,135,128
130 data 37,162,128,42,62,250,37,62,250
140 data 33,135,128,42,62,128,37,162,128
150 data 37,162,128,33,135,250, -1, -1, -1
160 end

Questo messaggio è stato modificato l'ultima volta il: 05-18-2008 09:24 AM da saver71.

digitato e eseguito, grazie!

prova tu questo:

10 FOR J = 40960 TO 49151
20 POKE J, PEEK(J)
30 NEXT J
40 FOR J = 41848 TO 41853
50 READ L$
60 POKE J, ASC(L$)
70 NEXT J
80 DATA S,A,V,E,R,!

POKE 1,54