Luigi Rosa

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== PRG.ITA ======
===== Descrizione =====
Area italiana dedicata alla programmazione in generale.
=====Messaggi interi =====
====M000.C====
<code>
019/033 16 May 90 17:48:16
From:   Flavio Bernardotti
To:     All
Subj:   M000.C
------------------------------------------------
/*
** ITALINK CBBS - m000.c
**
** Chiave controllo copyright
**
** directive() e' nel main()
*/

#include "itk_exte.h"

void    (*function[6])(void) = {
        show_last_user,
        loaduser,
        incrementaconnect,
        calcola_minuti,
        aggiorna,
        write_last_user
};

/*                         0000000000111111111122222222223333333333444444  */
/* NUMERO CARATTERE ------ 0123456789012345678901234567890123456789012345  */
/*                         vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv  */
static  char    cpr[]   = "(C) Copyright 1989, F. Bernardotti & M. Agosti\r\n";
/* IL CALCOLO AVVIENE SU                       ^  ^      ^      ^  ^   ^   */

/* Calcoli per indici in array di puntatori a funzioni                  */

#define PRIMOMAIN       (cpr[20] - 'F') /* Controllo F  ['F'-'F' = 0]   */
#define SECONMAIN       (cpr[23] - 'A') /* Controllo B  ['B'-'A' = 1]   */
#define TERZOMAIN       (cpr[30] - 'm') /* Controllo o  ['o'-'m' = 2]   */
#define QUARTOMAIN      (cpr[37] - 'J') /* Controllo M  ['M'-'J' = 3]   */
#define QUINTOMAIN      (cpr[40] - '=') /* Controllo A  ['A'-'=' = 4]   */
#define SESTOMAIN       (cpr[44] - 'o') /* Controllo t  ['t'-'o' = 5]   */

void    directive(void)
{
        sprintf(buff_3,"%s",cpr);
        txstring(buff_3,-1);
        if(st_comp.show)
                (*function[PRIMOMAIN])();
        call_parser(st_comp.logo,1);
        flag_connect    = FALSE;
        (*function[SECONMAIN])();
        flag_connect    = TRUE;
        (*function[TERZOMAIN])();
        (*function[QUARTOMAIN])();
        (*function[QUINTOMAIN])();
        (*function[SESTOMAIN])();
        looping();
}


--- ITALMAIL v2.06
 * Origin: ITALINK CBBS Montecastello (0131-355506)   (2:334/2)
</code>
====Pasqua ====
<code>= MSDOS\Programmatori (2:331/318.3) ================================== PRG.ITA =
 Msg  : #580 [25] - 516 + 708       Uns                                         
 From : Franco Milani               2:333/308               Wed 18 Mar 92 12:53 
 To   : William Brioschi                                                        
 Subj : Pasqua                                                                  
================================================================================
.EID:a307 187266bc
Ciao William

> Come si fa a sapere in che giorno cade la Pasqua?

Puoi usare l'algoritmo di Clavio. Ti riporto un metodo, valido per lo
meno fino all'anno 9005. INT indica la parte intera, MOD il resto della
divisione intera. Dato l'anno A,

B=(A MOD 19)+1
C=INT(A/100)+1
D=INT(3*C/4)
E=INT((8*C+5)/25)
F=INT(5*A/4)-D+2
G=44-((11*B+27+E-D) MOD 30)
IF (G=19 AND B>11) OR (G=20) THEN G=G-1
IF G<21 THEN G=G+30
G=G+7-((F+G) MOD 7)

A questo punto se G>31 allora Pasqua e' il G-31 aprile, altrimenti e' il
G marzo.


---
 * Origin: Bit Linker - Padova 049-8642029 (2:333/308)
SEEN-BY: 242/2 331/101 104 108 109 110 111 201 301 302 304 306 307
SEEN-BY: 331/308 315 318 .3 320 332/2 333/100 102 111 203 300 302
SEEN-BY: 333/304 307 308 312 314 400 501 603 334/0 335/4 5
.PATH: 333/308 300 100 331/101 306 301 318</code>
===== Perle =====
  * devo lavorare in Thru Color (32 o 64000)