10 MEMORY 23999
20 CALL &6B78: CALL &BC02
30 MODE 0:|3D,0:|SETLIMITS,0,80,0,200
31 PEN 2:LOCATE 4,1:PRINT "8BP V36-sprite order"
35 PEN 1:INPUT "tipo de orden (0,1,2,3)";t
36 INPUT "N";n
40 ball=39
41 vy=-2:count=4    
42 FOR i=0 TO 31: |SETUPSP,i,0,0:NEXT
43 x=10:y=160
50 FOR i=0 TO n
51 IF i>n THEN ball=40
60 |SETUPSP,i,9,ball
70 |SETUPSP,i,0,9
81 |LOCATESP,i,160-i*5,10+i*2
90 |SETUPSP,i,5,0,0
91 |PRINTSP,i
100 NEXT
101 |PRINTSPALL,1:|PRINTSPALL,0,n,0,0:|PRINTSPALL,t
102 s=0
103 |SETUPSP,s,9,40
110 ' ciclo de juego
120 |PRINTSPALL,n,0,0
121 xa=x:ya=y
122 GOSUB 200:|LOCATESP,s,y,x   
130 IF x<>xa OR y<>ya THEN 120
131 GOTO 122
200 'rutina de control movimiento
210 IF INKEY(67) THEN 220
215 y=y-2: GOTO 240
220 IF INKEY(69) THEN 240
230 y=y+2
240 IF INKEY(27) THEN 250
245 x=x+1: RETURN
250 IF INKEY(34) THEN RETURN
255 x=x-1:RETURN