Thing (*); Procedimientos; Define (*); End - AMSTRAD CPC 6128 Manual Del Usario

entrada es el nombre de una variable, y FALSE en caso contrario.
?make "sabor "chocolate
?:sabor
chocolate
?namep "sabor
TRUE
?namep "chocolate
FALSE

thing (*)

(cosa). Da el valor de la variable citada.
?make "ordenador "amstrad
?thing "ordenador
amstrad

Procedimientos

define (*)

(definir). Toma como definición del procedimiento especificado la lista de entrada
?define "cuadrado [[] [repeat 4 [fd 50 rt 90]]]
?po "cuadrado
to cuadrado
repeat 4 [ fd 50 rt 90 ]

end

?text "cuadrado
[[] [repeat 4 [fd 50 rt 90]]]
end
Indica el final de la definición de un procedimiento; la palabra end debe figurar sola al principio
de la última línea.
?to cuadrado
>repeat 4 [fd 50 rt 90]
>end
cuadrado defined
?cuadrado
po
(print out, listar). Da el listado de la definición de los procedimientos o variables especificados.
?po "cuadrado
to cuadrado
repeat 4 [fd 50 rt 90]
end
?make "x 3
?po "x
x is 3
Manual de Amstrad CPC 6128 (revisión 2008) - Página 240