Programa 3 - Mover un personaje por pantalla

Otro sencillo programa que mueve un personaje de izquierda a derecha y viceversa teniendo en cuenta, también, su rotación.

Código BASIC

10 CLS
20 FOR x=1 TO 39
30 LOCATE x,20
40 CALL &BD19
50 PRINT " ";CHR$(250)
60 NEXT x
70 FOR n=1 TO 300:NEXT n
80 FOR x=39 TO 1 STEP -1
90 LOCATE x,20
100 FRAME
110 PRINT CHR$(251);" "
120 NEXT x
130 FOR n=1 TO 300:NEXT n
140 GOTO 20