Listato per il basic dell'MSX che crea il gioco tipo Arkanoid.
20 cls:input" Fornisci un numero intero :";f
30 for i=1 to f:y=rnd(1):next
40 screen 3:color 11,13,15:cls
50 fori=1 to 18
60 pset (36+4*i,20),1
70 pset (40,4*i+20),0:pset (108,4*i+20),0
80 next i
90 for i=1 to 7
100 for j=11 to 26
110 pset (4*j,4*i+20),i+3
120 next j
130 next i
140 h=-1:k=-0.5:j=18:i=17:y=j
150 pset (4*y-8,96),13:pset (4*y-4,96),1:pset (4*y,96),1
155 pset (4*y+4,96),1 :pset (4*y+8,96),13
160 a$=inkey$
170 y=y-(a$=chr$(28) and y<28)+(a$=chr$(29) and y>8)
180 if t=1 then pset (4*j,4*i+20),13
190 if i>22 then r$=input$(2)
200 if i>22 then screen 0:print"Il tuo punteggio: ";s
205 r$=input$(1):goto 40
210 i=i+h:j=j+k
220 c=point(4*j,4*i+20)
230 if c=13 then pset (4*j,4*i+20),0:t=1:goto 150
240 if c=0 then 280
250 if c<>1 then f=c: pset (4*j,4*i+20),0 :t=1: goto 300
260 h=-h
270 k=rnd(1)-rnd(1)
280 k=-k:t=0:play "l64n80"
290 goto 150
300 s=s+f:play "l64n60"
310 k=-(k-(2*(rnd(1)<0.5)+1)*rnd(1)/3)
320 h=-h
330 goto 150
Torna indietro
