Luigi Rosa

User Tools

Site Tools

Trace:
fidonet:prg.ita

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
fidonet:prg.ita [20/12/2021 05:08] – ↷ Page moved from prg.ita to fidonet:prg.ita lrosafidonet:prg.ita [ 1/01/2025 07:45] (current) – lrosa
Line 1: Line 1:
 +====== 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)