Introducción al tratamiento de la información mediante registros (con sus campos) amb WinLogo (LOGO)

; ---------------------------------------------------------
; Introducció al tractament de fitxes (registres) d'informació
; amb els seus camps
;
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment demana.fitxa
  esborra.text
  Escriu.seguit [Quin és el teu nom ? $ ]
  posa.a "nom paraula.llegida
  Escriu.seguit [I el teu cogonom ? $ ]
  posa.a "cognom paraula.llegida
  Escriu.seguit [Quants anys tens ? $ ]
  posa.a "edat paraula.llegida
fi

procediment resultat.fitxa
  esborra.text
  mou.cursor [7 2] 
  (escriu [Fitxa] 
  mou.cursor [9 4]
  (escriu [nom:] :nom)
  mou.cursor [9 5]
  (escriu [cognom:] :cognom)
  mou.cursor [9 6]
  (escriu [edat:] :edat)
fi

procediment fitxa
  demana.fitxa
  resultat.fitxa
  escriu " ;salt de linia
  escriu [Voleu fer més fitxes ? (s/n)]
  posa.a "resposta caràcter.llegit
  si :resposta = "n [acaba]
  fitxa
fi
; ---------------------------------------------------------

% fitxa ;exemple