Clase 01 Diciembre

Como imprimir Hola mundo 10 veces

LET i=1
inicio:
  PRINT "Hola mundo", i
  IF i=10 THEN salir ELSE sumar
sumar:
  LET i=i+1
  GOTO inicio
salir:
  PRINT "Hemos impreso ", i," Lineas con la frase hola mundo"

Listas

//suelta el servo y muestra su posición

inicio:
SERVO 0 = @
LET A=$SERVO(0)
PRINT A

IF $KIR < 0 THEN
  GOTO inicio
ENDIF

//hola mundo 10 veces

let 1
print "hola mundo"
if i=10 then 60 else 40
let i=I+1
goto 20
Print "hemos impreso ", i," Lineas con la frase hola mundo"

// imprimir hoal mundo 10 veces

LET i=1
inicio:
  PRINT "Hola mundo", i
  IF i=10 THEN salir ELSE sumar
sumar:
  LET i=i+1
  GOTO inicio
salir:
  PRINT "Hemos impreso ", i," Lineas con la frase hola mundo"

//manejo de listas
lista : el primer elemento declara el largo de la lista

LET i=0
  PRINT "----- PROBANDO LISTAS -----"
  LIST A=5,4,3,2,1,6
  PRINT "Muestra la lista  ", @a
Elementos:
  PRINT "Elemento en la posicion ",i, "--> ", @a[i]
  i=i+1
  IF i=5 THEN salir ELSE elementos
salir:
  LET A=@A
  PRINT "Largo de la lista= ";A

 
PRINT "____valores segun Ascii en Out"
LIST A=5,65,66,67,68,69
  FOR i=0 TO 4
  PRINT "  "
  OUT @a[i]
  NEXT i

//$RND: Ramdom
mod: obtiene el resto de la división con otro numero.

PRINT "--> generamos numeros al azar y obtenemos los mod de 6"
FOR j=1 TO 10
PRINT $RND mod 6
NEXT j