10 MEMORY 23999
20 MODE 0
30 ON BREAK GOSUB 280
40 CALL &6B78
50 DEFINT a-z
60 INK 0,12
70 FOR y=0 TO 400 STEP 2
80 PLOT 0,y,10:DRAW 78,y    
90 PLOT 640-80,y,10:DRAW 640,y  
100 NEXT
101 |UMAP,41800,41800+14*6,0,5000,0,5000
110 x=100:y=1000:xa=x:ya=y:|MAP2SP,y,x
120 |SETUPSP,31,0,&X100001
130 |SETUPSP,31,7,11:dir=1:' direccion inicial hacia arriba
140 |LOCATESP,31,100,36
160 |SETLIMITS,10,70,0,199: |PRINTSPALL,0,0,1,0
170 col=32:cor=32:|COLSPALL,@cor,@col
180 |COLSP, 34, 2, 2: 
190 'comienza ciclo de juego
200 IF INKEY(27)=0 THEN x=x+1:IF dir<>3 THEN dir=3:|SETUPSP,31,7,13: GOTO 220
210 IF INKEY(34)=0 THEN x=x-1:IF x<0 THEN x=0:ELSE IF dir<>4 THEN dir=4:|SETUPSP,31,7,14       
220 IF INKEY(67)=0 THEN y=y+2:IF x=xa AND dir <> 1 THEN dir=1:|SETUPSP,31,7,11: GOTO 240
230 IF INKEY(69)=0 THEN y=y-2:IF y<0 THEN y=0:ELSE IF x=xa AND dir <>2 THEN dir=2:|SETUPSP,31,7,12
240 IF xa=x and ya=y THEN dir=0 ELSE |ANIMA,31
250 |MAP2SP,y,x:|COLSPALL:IF col<32 THEN x=xa:y=ya:|MAP2SP,y,x ELSE xa=x:ya=y
260 |PRINTSPALL
270 GOTO 200
280 |MUSIC:MODE 1: INK 0,0:PEN 1