Calendar: Difference between revisions

m
Line 923:
 
Define 'Dibuja calendario'
Locate (fila, columna) Just center (23, [ contador mes++ ] Cget 'meses')
Print it
Print ( Just center (23, [ contador mes++ ] Cget 'meses') )
++fila, Loc row (fila--),
Loc row (fila--) [ {i}Plus(1):{i}Plus(7), 1:7 ] Cget 'calendario'
Print this table
columna += 25, ++contador columna
columna += 25
When( Equals (contador columna, 4) ) {
Set '1', Copy to 'contador columna',
Move to 'columna'
fila += 9
}
i += 8
Return
 
545

edits