Publicidad
Secuencia de teclas:
‚ å
„°
@) S TACK! @@DUP@
‚ é # ~ „n
‚ å
1„°
@) S TACK! @SWAP
„°
@) B RCH! @) F OR@! @FOR@
~„j
„°
@) T YPE OBJ
ARRY@
„°
@) B RCH! @) @ IF@@ @@IF@@
~ „j#
~ „n
„°
@) T EST! @@@<@@@
„°
@) B RCH! @) @ IF@ @THEN
~ „j #1+
„°
L
@) S TACK!
@ROLL
„°
@) B RCH! @) @ IF@ @END
„°
@) B RCH! @) F OR@! @NEXT
„°
@) B RCH! @) @ IF@ @@IF@@
~ „n #1
„°
@) T EST! @@@>@@@
„°
@) B RCH! @@IF@ @THEN
1#
~ „n #1-
„°
@) B RCH! @) F OR@! @FOR@
~ „j #
~ „j #1+
„°
L
@) S TACK!
@ROLL!
„°
@) B RCH! @) F OR@! @NEXT!
„°
@) B RCH! ) @ @IF@! @END@
~„n #
„´
@) M ATRX! @) C OL! @COL!
`
Para almacenar el programa:
Nota: si usted almacena este programa en su directorio HOME estará
disponible desde cualquier otro sub-directorio que usted utilice.
Produce:
«
DUP
n
<<
1 SWAP
FOR
j
OBJ
ARRY
IF
j
n
<
THEN
j 1 +
ROLL
END
NEXT
IF
n 1
>
THEN
1
n 1 -
FOR
j
j 1 +
ROLL
NEXT
END
n
COL
El programa se exhibe en nivel 1
³~~crmc~ K
Página 10-16
Publicidad
