Newsgroup: italia.napoli.discussioni
Titolo: nun serv a ......(25/05/1996)

'����������������������������������������������������������������������������
'�  NOME PROCEDURA...: GOLLOTTO   -   Elaborazione..........
'�  NOME PROGRAMMA...: GOLLOTTO.BAS
'�  NOME DIRECTORY...: TG
'�  INIZIO SVILUPPO..: 25/05/1996
'�  NUMERO VERSIONE..: 1.00
'����������������������������������������������������������������������������
 
'$INCLUDE: '
DECLARE.BI
'
'$INCLUDE: '
COMMONS.BI
'
'$INCLUDE: '
DFCAMPI.BI
'
'$INCLUDE: '
DEFMENU.BI
'
 
 
     STACK 8000
     boxlogo
     menustart
     demo = 0
     GOTO MN2
 
MN1: more h
     SELECT CASE h
        CASE 59: IF 
mp.sl
(proc) = 0 THEN win.help -11
                 IF 
mp.sl
(proc) THEN win.help NOT (proc - 1)
        CASE 1024
                IF 
mp.sl
(proc) = 0 THEN 
mp.sl
(proc) = 1 ELSE 
mp.sl
(proc) =
0
                menuselect 1, proc
        CASE 27 AND 
mp.sl
(proc) = 1
 
mp.sl
(proc) = 0: menuselect 1, proc
        CASE 75 TO 77 AND 
mp.sl
(proc) = 1
 
mp.sl
(proc) = 0: menuselect 1, proc
                proc = proc + SGN(h - 76)
                IF proc > pmenu THEN proc = 1
                IF proc < 1 THEN proc = pmenu
 
mp.sl
(proc) = 1: menuselect 1, proc
        CASE 13, 72, 80: IF 
mp.sl
(proc) = 1 THEN menuapri proc, 0: GOTO MN2
        END SELECT
     GOTO MN1
 
MN2: more h
     SELECT CASE h
        CASE 119: videotape 1: COLOR 7, 0: CLS : SHELL: videotape 0
        CASE 59: win.help proc
        CASE 27: videotape 0: 
ms.sl
(proc) = 0
                 proc = 
ms.mp
(proc): GOTO MN1
        CASE 72: 
ms.sl
(proc) = 0: menuselect 0, proc: k = 0
                 DO: proc = proc + SGN(h - 76): k = k + 1
                 IF proc < mp.dv(
ms.mp
(proc + 1)) THEN proc =
mp.av(
ms.mp
(proc + 1))
                 LOOP UNTIL ms.fx(proc) = 1 OR k > 30
                 IF ms.fx(proc) THEN 
ms.sl
(proc) = 1: menuselect 0, proc
        CASE 80: 
ms.sl
(proc) = 0: menuselect 0, proc: k = 0
                 DO: proc = proc + SGN(h - 76): k = k + 1
                 IF proc > mp.av(
ms.mp
(proc - 1)) THEN proc =
mp.dv(
ms.mp
(proc - 1))
                 LOOP UNTIL ms.fx(proc) = 1 OR k > 30
                 IF ms.fx(proc) THEN 
ms.sl
(proc) = 1: menuselect 0, proc
        CASE 75, 77: videotape 0
 
ms.sl
(proc) = 0
 
mp.sl
(
ms.mp
(proc)) = 0
                 menuselect 1, 
ms.mp
(proc)
                 proc = 
ms.mp
(proc) + SGN(h - 76)
                 IF proc > pmenu THEN proc = 1
                 IF proc < 1 THEN proc = pmenu
 
mp.sl
(proc) = 1: menuselect 1, proc
                 menuapri proc, 0
        CASE 13: lanciaprog proc
     END SELECT
     GOTO MN2
'----------------------------------------------------------------------------
datacondizioni:
DATA "Scelta fisse"
DATA "Colonne filtro"
DATA "Somma numeri"
DATA "Consecutivita' numeri"
DATA "Pari e dispari"
DATA "Intervallo posizioni"
DATA "Simmetrie e Paralleli"
DATA "Coppie-terzine-quartine"
DATA "Resto"
DATA "Gruppo forte"
DATA "Gruppo debole"
DATA "Distanze pari/dispari"
DATA "Distanza minima/massima"
DATA "Distanza su posizioni"
DATA "Distanza presenze"
DATA "Somma delle distanze"
DATA "Interruzioni in generale"
DATA "Interruzioni pari/dispari"
DATA "Prima e seconda meta'"
DATA "Prima/sec./terza decina"
DATA "Quadro recupero errori"
DATA "Quadro link"
dataserie:
DATA "A  ","B  ",C1A,C1B,C2A,C2B,C2C
SUB boxbase (p)
   SELECT CASE p
      CASE 0: box 1, 1, 25, 80, 7, 3, 1, 6, 0, 0
              box 8, 5, 16, 76, 7, 3, 2, 7, 0, 0
              box 18, 25, 22, 74, 11, 6, 2, 7, 1, 0
      CASE 1: box 8, 12, 19, 68, 7, 1, 2, 0, 1, 0
              box 8, 12, 10, 68, 7, 1, 2, 7, 0, 0
              box 11, 13, 19, 52, 7, 1, 2, 5, 0, 0
              box 11, 53, 19, 67, 7, 1, 2, 4, 0, 0
              COLOR 15, 1: LOCATE 9, 32: PRINT "GESTIONE  SQUADRE"
      CASE 2: box 5, 7, 21, 74, 7, 1, 2, 0, 1, 0
              box 5, 7, 7, 74, 7, 1, 2, 7, 0, 0
              box 8, 8, 21, 57, 7, 1, 2, 5, 0, 2
              box 8, 58, 21, 73, 7, 1, 2, 4, 0, 0
              COLOR 15, 1: LOCATE 6, 31: PRINT "GESTIONE  CAMPIONATO"
      CASE 4: box 6, 10, 21, 71, 7, 1, 2, 0, 1, 0
              box 6, 10, 8, 71, 7, 1, 2, 7, 0, 0
              box 9, 10, 18, 71, 7, 1, 2, 7, 0, 0
              box 15, 24, 17, 68, 7, 1, 2, 6, 0, 0
              COLOR 15, 1: LOCATE 7, 28: PRINT "ARCHIVIO STORICO COLONNE"
      CASE 3, 6, 7, 23: k = 2 * (p = 23)
              box 3, 1, 24, 80, 7, 1, 2, 0, 1, 0
              box 3, 1, 5, 80, 7, 1, 2, 7, 0, 0
              box 6, 7 + k, 22, 40, 7, 1, 2, 5, 0, 0
              box 6, 2, 22, 7 + k, 7, 1, 2, 5, 0, 0
              box 6, 46 + k, 22, 79, 7, 1, 2, 5, 0, 0
              box 6, 41, 22, 46 + k, 7, 1, 2, 5, 0, 0
              COLOR 15, 1: LOCATE 4, 9
              IF p = 3 THEN PRINT " SCHEDINA PRONOSTICO   --"
              IF p = 6 THEN PRINT "INSERIMENTO PRONOSTICO  -"
              IF p = 7 THEN PRINT "  MODIFICA PRONOSTICO  --"
              IF p = 23 THEN PRINT "  COLONNA  VINCENTE   --"
      CASE 12, 13: x = 5: y = 4: xx = x + 16: yy = y + 25: k = y + 1
               box x, y, xx, yy, 7, 1, 2, 0, 1, 0
               box x, y, x + 4, yy, 7, 1, 2, 6, 0, 0
               FOR j = 1 TO 3
               box x + 5, k, xx, k + 5, 7, 1, 2, 4, 0, 0: k = k + 9: NEXT
               box 13, 31, 15, 77, 10, 2, 2, 6, 1, 0
               box 16, 31, 21, 77, 10, 2, 2, 6, 1, 0
      CASE 14: box 5, 7, 20, 73, 10, 2, 2, 0, 1, 0
               box 5, 7, 7, 73, 10, 2, 2, 7, 0, 0
               k = 8: FOR j = 1 TO 3
               box 9, k, 20, k + 20, 10, 2, 2, 5, 0, 2: k = k + 22: NEXT
               COLOR 0, 2: LOCATE 6, 30: PRINT "LISTA A VIDEO COLONNE"
      CASE 15, 17, 31: box 8, 8, 18, 72, 7, 1, 2, 0, 1, 0
               box 8, 8, 10, 72, 7, 1, 2, 7, 0, 0
               box 11, 9, 18, 57, 7, 1, 2, 5, 0, 0
               box 11, 58, 18, 71, 7, 1, 2, 4, 0, 0
               COLOR 15, 1: LOCATE 9, 30
               IF p = 15 THEN PRINT " STAMPA TABULATO"
               IF p = 17 THEN PRINT "STAMPA CONDIZIONI"
               IF p = 31 THEN PRINT "  STAMPA CEDOLE"
      CASE 16, 30: box 8, 7, 19, 73, 7, 1, 2, 0, 1, 0
               box 8, 7, 10, 73, 7, 1, 2, 7, 0, 0
               box 11, 8, 19, 58, 7, 1, 2, 5, 0, 0
               box 11, 59, 19, 72, 7, 1, 2, 4, 0, 0
               COLOR 15, 1: LOCATE 9, 32: PRINT "STAMPA SCHEDINE"
      CASE 18: xx = 5: yy = 5: xz = xx + 15: yz = yy + 70: k = yy + 1
               box xx, yy, xz, yz, 10, 2, 2, 0, 1, 0
               box xx, yy, xx + 2, yz, 10, 2, 2, 7, 0, 0
               xx = xx + 4: FOR j = 1 TO 3
               box xx, k, xz, k + 5, 10, 2, 2, 5, 0, 0
               box xx, k + 6, xz, k + 13, 10, 2, 2, 4, 0, 0
               box xx, k + 14, xz, k + 20, 10, 2, 2, 4, 0, 0: k = k + 24:
NEXT
               COLOR 0, 2: LOCATE xx - 3, 32: PRINT "ANALISI SISTEMA"
      CASE 20: box 5, 7, 21, 73, 10, 2, 2, 0, 1, 0
               box 5, 7, 7, 73, 10, 2, 2, 7, 0, 0
               box 9, 7, 21, 73, 10, 2, 2, 7, 0, 0
               COLOR 0, 2: LOCATE 6, 28: PRINT "LISTA RIDOTTI ASSOLUTI"
               COLOR 0, 7: LOCATE 8, 9: PRINT "  TIPO DI RIDUZIONE";
SPC(21); "COLONNE         COSTO  "
      CASE 22: box 7, 9, 19, 71, 7, 1, 2, 0, 1, 0
               box 7, 9, 9, 71, 7, 1, 2, 7, 0, 0
               box 10, 10, 17, 54, 7, 1, 2, 5, 0, 0
               box 10, 55, 17, 70, 7, 1, 2, 4, 0, 0
               COLOR 15, 1: LOCATE 8, 31: PRINT "CONFIGURA STAMPANTE"
      CASE 24: box 4, 5, 16, 28, 10, 2, 2, 0, 1, 0
               box 4, 5, 6, 28, 10, 2, 2, 7, 0, 0
               box 7, 6, 16, 21, 10, 2, 2, 5, 0, 0
               box 7, 22, 16, 27, 10, 2, 2, 5, 0, 0
               COLOR 0, 2: LOCATE 5, 9: PRINT "COLONNA VINCENTE"
      CASE 27: box 8, 12, 19, 68, 7, 1, 2, 0, 1, 0
               box 8, 12, 10, 68, 7, 1, 2, 7, 0, 0
               box 11, 13, 19, 52, 7, 1, 2, 5, 0, 0
               box 11, 53, 19, 67, 7, 1, 2, 4, 0, 0
               COLOR 15, 1: LOCATE 9, 32: PRINT "RINOMINA SISTEMA"
      CASE 29: box 8, 6, 19, 75, 7, 1, 2, 0, 1, 0
               box 8, 6, 10, 75, 7, 1, 2, 7, 0, 0
               box 11, 7, 19, 59, 7, 1, 2, 5, 0, 0
               box 11, 60, 19, 74, 7, 1, 2, 4, 0, 0
               COLOR 15, 1: LOCATE 9, 26: PRINT "PERSONALIZZAZIONE
PROCEDURA"
      CASE 32: box 5, 10, 20, 70, 7, 1, 2, 0, 1, 0
               box 5, 10, 7, 70, 7, 1, 2, 7, 0, 0
               box 8, 10, 20, 70, 7, 1, 2, 7, 0, 0
               box 8, 11, 20, 17, 7, 1, 2, 5, 0, 0
               COLOR 15, 1: LOCATE 6, 34: PRINT "STAMPA AVVISI"
      CASE 33: box 8, 20, 17, 60, 7, 1, 2, 7, 1, 0
      CASE 121: x = 4: y = 5: xx = x + 18: yy = y + 71: k = y + 2
                box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                FOR j = 1 TO 3
                box x + 7, k, xx, k + 5, 15, 7, 2, 4, 0, 0: k = k + 6: NEXT
                box x + 3, y + 34, x + 5, yy - 1, 15, 7, 2, 4, 0, 0
                box x + 6, y + 21, xx, y + 25, 15, 7, 2, 5, 0, 0
                box x + 6, y + 25, xx, yy - 1, 15, 7, 2, 4, 0, 0
                COLOR 0, 7: LOCATE x + 1, y + 24: PRINT "INFORMAZIONI SUL
SISTEMA"
      CASE 201: box 5, 4, 21, 77, 15, 7, 2, 0, 1, 0
                box 5, 4, 7, 77, 15, 7, 0, 7, 0, 0
                COLOR 0, 7: LOCATE 6, 34: PRINT "SPOGLIO SISTEMI"
                COLOR 15, 1: LOCATE 8, 6: PRINT "  SISTEMA     8P   7P   
6P    MP   CONCORSO   COLONNE          COSTO "
                box 9, 5, 21, 17, 15, 7, 2, 5, 0, 22222
                box 9, 18, 21, 22, 15, 7, 2, 4, 0, 22222
                box 9, 23, 21, 28, 15, 7, 2, 4, 0, 22222
                box 9, 29, 21, 34, 15, 7, 2, 4, 0, 22222
                box 9, 35, 21, 39, 15, 7, 2, 4, 0, 22222
                box 9, 40, 21, 50, 15, 7, 2, 4, 0, 22222
                box 9, 51, 21, 61, 15, 7, 2, 4, 0, 22222
                box 9, 62, 21, 76, 15, 7, 2, 4, 0, 22222
      CASE 202: box 6, 8, 19, 64, 10, 2, 2, 7, 1, 0
                box 6, 8, 8, 64, 10, 2, 2, 7, 0, 0
                COLOR 0, 2: LOCATE 7, 16: PRINT "RICERCA VINCITE   -  
Nome sistema:"
                box 9, 9, 19, 23, 10, 2, 2, 5, 0, 2222
                box 9, 24, 19, 44, 10, 2, 2, 5, 0, 2222
                box 9, 45, 19, 63, 10, 2, 2, 5, 0, 2222
      CASE 3001: box 3, 31, 12, 77, 10, 2, 2, 0, 0, 0
                 box 3, 32, 12, 47, 10, 2, 2, 4, 0, 0
                 box 3, 48, 12, 53, 10, 2, 2, 4, 0, 0
                 box 3, 57, 12, 68, 10, 2, 2, 4, 0, 0
                 box 3, 69, 12, 76, 10, 2, 2, 4, 0, 0
                 COLOR 0, SCREEN(3, 78, 1)  16: LOCATE 3, 78: PRINT
CHR$(220)
                 tinta 4, 78, 13, 78, 0
      CASE 9001, 9010, 9011
                 x = 4: y = 8: xx = x + 17: yy = y + 69: k = 20
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 9, y + 19, x + 11, y + 23, 15, 7, 2, 4, 0, 0
                 FOR j = 1 TO 8
                 box x + 12, k, x + 14, k + 5, 15, 7, 2, 4, 0, 0: k = k +
7: NEXT
                 COLOR 0, 7: LOCATE x + 1, y + 27
                 IF p = 9001 THEN PRINT "SCELTA  FISSE"
                 IF p = 9010 THEN PRINT "GRUPPO  FORTE"
                 IF p = 9011 THEN PRINT "GRUPPO  DEBOLE"
      CASE 9002: x = 3: y = 7: xx = x + 19: yy = y + 70: k = y + 4
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 FOR j = 1 TO 3
                 box x + 5, k, xx - 3, k + 5, 15, 7, 2, 4, 0, 0: k = k +
6: NEXT
                 box x + 5, y + 46, x + 9, y + 66, 15, 7, 2, 4, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 27: PRINT "COLONNE  FILTRO"
      CASE 9003, 9016: x = 6: y = 4: xx = x + 15: yy = y + 73: k = x + 4
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 FOR j = 1 TO 2
                 box k, y + 14, k + 2, y + 20, 15, 7, 2, 4, 0, 0
                 box k, y + 32, k + 2, y + 38, 15, 7, 2, 4, 0, 0
                 box k, y + 51, k + 2, y + 57, 15, 7, 2, 4, 0, 0
                 box k, y + 68, k + 2, y + 70, 15, 7, 2, 4, 0, 0: k = k +
3: NEXT
                 box x + 10, y + 32, x + 12, y + 34, 15, 7, 2, 4, 0, 0
                 box x + 10, y + 51, x + 12, y + 70, 15, 7, 2, 4, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 28
                 IF p = 9003 THEN PRINT "   SOMMA NUMERI"
                 IF p = 9016 THEN PRINT "SOMMA DELLE DISTANZE"
                 IF p = 9021 THEN PRINT " MEDIA ARITMETICA"
      CASE 9004, 9009, 9017, 9018
                 x = 6: y = 9: xx = x + 15: yy = y + 64
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 6, y + 4, x + 12, y + 36, 15, 7, 2, 4, 0, 22
                 box x + 10, y + 39, x + 12, y + 60, 15, 7, 2, 4, 0, 0
                 IF p = 9006 OR p = 9007 THEN box x + 6, y + 54, x + 8, y
+ 61, 15, 7, 2, 6, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 20
                 IF p = 9004 THEN PRINT "  CONSECUTIVITA' NUMERI"
                 IF p = 9009 THEN PRINT "    RESTO DI ORDINE 8"
                 IF p = 9017 THEN PRINT " INTERRUZIONI IN GENERALE"
                 IF p = 9018 THEN PRINT "INTERRUZIONI PARI E DISPARI"
      CASE 9005: x = 6: y = 5: xx = x + 16: yy = y + 72
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y + 1, x + 2, yy - 1, 15, 7, 2, 5, 0, 0
                 box x + 3, y, x + 13, y + 36, 15, 7, 2, 6, 0, 24
                 box x + 3, y + 1, x + 5, y + 12, 15, 7, 2, 5, 0, 0
                 box x + 3, y + 36, x + 11, yy, 15, 7, 2, 6, 0, 22
                 box x + 3, y + 37, x + 5, y + 48, 15, 7, 2, 5, 0, 0
                 box x + 12, y + 36, x + 14, yy, 15, 7, 2, 6, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 29: PRINT "PARI  E  DISPARI"
      CASE 9006, 9014: x = 7: y = 10: xx = x + 14 + (p = 9014): yy = y + 56
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y + 1, xx - 2, y + 33, 15, 7, 2, 4, 0, 0
                 box x + 3, y + 34, xx - 2, y + 44, 15, 7, 2, 4, 0, 0
                 box x + 3, y + 45, xx - 2, y + 55, 15, 7, 2, 4, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 18
                 IF p = 9006 THEN PRINT "INTERVALLO POSIZIONI"
                 IF p = 9014 THEN PRINT "DISTANZA SU POSIZIONI"
      CASE 9007: x = 4: y = 10: xx = x + 18: yy = y + 64
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 k = x + 3: FOR j = 1 TO 2
                 box k, y, k + 6, y + 28, 15, 7, 2, 6, 0, 2: k = k + 7:
NEXT
                 box x + 3, y + 28, x + 9, yy, 15, 7, 2, 6, 0, 2
                 box x + 14, y + 28, x + 16, yy, 15, 7, 2, 6, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 21: PRINT " SIMMETRIE E
PARALLELI"
      CASE 9008: x = 4: y = 7: xx = x + 17: yy = y + 67
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 k = y + 18: FOR j = 1 TO 3
                 box x + 3, k, x + 5, k + 12, 15, 7, 2, 5, 0, 0
                 box x + 6, k, x + 8, k + 12, 15, 7, 2, 4, 0, 0
                 box x + 9, k, x + 11, k + 12, 15, 7, 2, 4, 0, 0
                 box x + 12, k, x + 14, k + 12, 15, 7, 2, 4, 0, 0: k = k +
15: NEXT
                 COLOR 0, 7: LOCATE x + 1, y + 20: PRINT "COPPIE - TERZINE
- QUARTINE"
      CASE 9012: x = 8: y = 9: xx = x + 13: yy = y + 68
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y + 1, x + 2, yy - 1, 15, 7, 2, 5, 0, 0
                 box x + 3, y, x + 11, y + 34, 15, 7, 2, 6, 0, 222
                 box x + 3, y + 34, x + 7, yy, 15, 7, 2, 6, 0, 2
                 box x + 9, y + 34, x + 11, yy, 15, 7, 2, 6, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 23: PRINT "DISTANZE PARI E
DISPARI"
      CASE 9013: x = 6: y = 10: xx = x + 15: yy = y + 59: k = x + 4: k = 37
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 FOR j = 1 TO 3
                 box x + 4, k, x + 6, k + 5, 15, 7, 2, 4, 0, 0
                 box x + 7, k, x + 9, k + 5, 15, 7, 2, 4, 0, 0: k = k +
11: NEXT
                 box x + 10, 37, x + 12, 64, 15, 7, 2, 4, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 16: PRINT "DISTANZA MINIMA
E MASSIMA"
      CASE 9015: x = 4: y = 4: xx = x + 18: yy = y + 73: k = y + 1
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 FOR j = 1 TO 2
                 box x + 3, k, xx - 2, k + 14, 15, 7, 2, 4, 0, 0
                 box x + 3, k + 15, xx - 2, k + 24, 15, 7, 2, 4, 0, 0
                 box x + 3, k + 25, xx - 2, k + 34, 15, 7, 2, 4, 0, 0: k =
k + 37: NEXT
                 COLOR 0, 7: LOCATE x + 1, y + 28: PRINT "DISTANZA
PRESENZE"
      CASE 9019: x = 8: y = 7: xx = x + 13: yy = y + 66
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, x + 11, y + 33, 15, 7, 2, 6, 0, 222
                 box x + 3, y + 33, x + 7, yy, 15, 7, 2, 6, 0, 2
                 box x + 9, y + 33, x + 11, yy, 15, 7, 2, 6, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 24: PRINT "PRIMA E SECONDA
META'"
      CASE 9020: x = 4: y = 6: xx = x + 19: yy = y + 71: k = x + 3
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 FOR j = 1 TO 3
                 box k, y + 1, k + 4, y + 18, 15, 7, 2, 4, 0, 0
                 box k, y + 19, k + 4, y + 49, 15, 7, 2, 4, 0, 0: k = k +
5: NEXT
                 box x + 15, y + 50, x + 17, yy, 15, 7, 2, 6, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 24: PRINT "PRIMA SECONDA E
TERZA DECINA"
      CASE 9021: x = 4: y = 3: xz = x + 20: yy = y + 74: k = y + 26: a = 65
                 box x, y, xz, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, y + 26, 15, 7, 2, 5, 0, 0
                 box x + 3, y, xz, y + 26, 15, 7, 2, 5, 0, -4
                 FOR j = 1 TO 16
                 box x, k + 1, x + 2, k + 3, 15, 7, 2, 5, 0, 0
                 box x + 3, k, xz, k + 3, 0, 7, 2, 5, 0, -4
                 COLOR 0, 2: LOCATE x + 1, k + 2: PRINT CHR$(a)
                 k = k + 3: a = a + 1: NEXT
                 COLOR 0, 7: LOCATE x + 1, y + 2: PRINT "QUADRO RECUPERO
ERRORI"
      CASE 9022: box 4, 5, 24, 77, 15, 7, 2, 0, 1, 0
                 box 4, 5, 6, 39, 15, 7, 2, 7, 0, 0
                 box 8, 5, 24, 39, 15, 7, 2, 7, 0, 0
                 box 4, 40, 24, 76, 15, 7, 2, 5, 0, -3
                 COLOR 0, 7: LOCATE 5, 16: PRINT "QUADRO LINK"
                 COLOR 0, 2: LOCATE 7, 7: PRINT " CONDIZIONE"; SPC(16);
"LIV "
      CASE 9101 TO 9120: x = 7: y = 4: xx = x + 14: yy = y + 73
                 box x, y, xx, yy, 15, 7, 2, 0, 1, 0
                 box x, y, x + 2, yy, 15, 7, 2, 7, 0, 0
                 box x + 3, y, xx - 2, yy, 15, 7, 2, 7, 0, 0
                 COLOR 0, 7: LOCATE x + 1, y + 19
                 SELECT CASE p
                    CASE 9103: PRINT "      STATISTICA SOMMA NUMERI"
                    CASE 9104: PRINT "  STATISTICA CONSECUTIVITA' NUMERI"
                    CASE 9105: PRINT "      STATISTICA PARI E DISPARI"
                    CASE 9106: PRINT "   STATISTICA INTERVALLO POSIZIONI"
                    CASE 9107: PRINT "  STATISTICA SIMMETRIE E PARALLELI"
                    CASE 9108: PRINT " STATISTICA COPPIE-TERZINE-QUARTINE"
                    CASE 9109: PRINT "          STATISTICA RESTO"
                    CASE 9112: PRINT "  STATISTICA DISTANZE PARI E DISPARI"
                    CASE 9113: PRINT " STATISTICA DISTANZA MINIMA E
MASSIMA"
                    CASE 9114: PRINT "  STATISTICA DISTANZA SU POSIZIONI"
                    CASE 9115: PRINT "    STATISTICA DISTANZA PRESENZE"
                    CASE 9116: PRINT "   STATISTICA SOMMA DELLE DISTANZE"
                    CASE 9117: PRINT " STATISTICA INTERRUZIONI UN GENERALE"
                    CASE 9118: PRINT "STATISTICA INTERRUZIONI PARI E
DISPARI"
                    CASE 9119: PRINT "   STATISTICA PRIMA E SECONDA META'"
                    CASE 9120: PRINT "STATISTICA PRIMA-SECONDA-TERZA
DECINA"
                    CASE 9121: PRINT "     STATISTICA MEDIA ARITMETICA"
                 END SELECT
                 prtkey "ESC�FINE", (xx - 1) * 100 + y + 2, 701, 0, 2
      CASE 9201 TO 9222: x = 5: y = 4: xx = x + 16: yy = y + 25: k = y + 1
                 box 13, 31, 15, 77, 10, 2, 2, 6, 1, 0
                 box 16, 31, 21, 77, 10, 2, 2, 6, 1, 0
   END SELECT
 
   IF p > 9000 AND p < 9100 AND xx THEN
      prtkey "TAB�   � ���ESC�FINE�F4 elabora", (xx - 1) * 100 + y + 2,
701, 0, 2
   END IF
 
END SUB
SUB boxlogo
    SCREEN 0, 0, 0
    SCREEN 0, 1, 0
    COLOR 7, 0: CLS
    PALETTE 1, 9
    PALETTE 3, 13
    PALETTE 6, 11
 
    creaindici
    caricacampi -2
    boxbase 0
    printlabel dec(), rd(), cd(), ld(), fd(), bd(), pd(), 1, campi
''' LOCATE 20, 37: PRINT "Demo"  ''' DEMO
    DO: more h
        IF h = 59 THEN win.help -11
    LOOP UNTIL h <> 59
    CALL box(18, 24, 23, 75, 7, 3, 2, 0, 0, 0)
    menuleggi
    initialize
 
END SUB
SUB boxschedina (q$, v)
S01: v = 0
     GOSUB S02
     DO: accept q$, 1436, 8, 5, 1, 700, 0, h
         IF h = 59 THEN win.help proc
         IF h = 60 THEN CALL lista.concorsi(q$, h): IF h = 27 THEN h = 0
     LOOP UNTIL h = 27 OR h = 79 OR (h = 13 AND VAL(q$) > 0)
     videotape 0
     IF h = 27 THEN v = -1: EXIT SUB
     CALL findconcorso(q$, 1, v)
     queryrecord proc, v
     IF v = 0 THEN azzera.campi: GOTO S01
     EXIT SUB
S02: videotape 1
     CALL box(8, 17, 17, 63, 15, 7, 2, 0, 1, 0)
     CALL box(8, 17, 10, 63, 15, 7, 2, 7, 0, 0)
     CALL box(11, 18, 17, 47, 15, 7, 2, 5, 0, 0)
     CALL box(11, 48, 17, 62, 15, 7, 2, 4, 0, 0)
     COLOR 4, 7: LOCATE 9, 27: PRINT "SELEZIONE SCHEDINA PRONOSTICO"
     COLOR 4, 7: LOCATE 14, 21: PRINT "Concorso del :"
     tasto 12, 1: tasto 34567, 0
     RETURN
END SUB
SUB boxspoglio
    boxbase 3001
    COLOR 0, 2: k = 8
    REDIM punti(1 TO 8) AS LONG
    FOR j = 1 TO 8
        LOCATE j + 3, 34: PRINT "Partita n."; USING "#_:"; j
        LOCATE j + 3, 50: PRINT SPC(2);
        LOCATE j + 3, 50: PRINT vin(j)
        LOCATE j + 3, 58: PRINT k: k = k - 1
        LOCATE j + 3, 61: PRINT "punti:"
    NEXT: LOCATE j + 2, 61: PRINT "punto:"
    k = 8
    FOR j = 1 TO 8
    LOCATE j + 3, 70: IF punti(k) < 100000 THEN PRINT USING "#####";
punti(k)
    k = k - 1: NEXT
 
END SUB
SUB caricacampi (p)
    LOCATE , , 0
    ERASE cmp
    ON LOCAL ERROR GOTO doctor09
    CLOSE FBOX
    OPEN "DATABOX.DBS" FOR ISAM dbcampi "CAMPI" AS FBOX
    SETINDEX FBOX, "proc"
    campi = 0
    SEEKGE FBOX, p, 1
    DO UNTIL EOF(FBOX)
       RETRIEVE FBOX, cm
       IF cm.proc <> p THEN EXIT DO
       IF ASC(cm.dec) = 64 THEN EXIT DO
       campi = campi + 1
       REDIM PRESERVE cmp(campi) AS STRING
       REDIM PRESERVE dec(campi) AS STRING
       REDIM PRESERVE rd(campi), cd(campi), ld(campi), fd(campi),
bd(campi), pd(campi)
       REDIM PRESERVE rc(campi), cc(campi), lc(campi), fc(campi),
bc(campi), tc(campi), xc(campi)
       dec(campi) = LEFT$(cm.dec, cm.ld)
       rd(campi) = cm.rd
       cd(campi) = 
cm.cd
       ld(campi) = cm.ld
       fd(campi) = cm.fd
       bd(campi) = 
cm.bd
       pd(campi) = cm.pd
       rc(campi) = cm.rc
       cc(campi) = cm.cc
       lc(campi) = 
cm.lc
       fc(campi) = cm.fc
       bc(campi) = cm.bc
       tc(campi) = 
cm.tc
       xc(campi) = cm.xc
       MOVENEXT FBOX
    LOOP
    tasti = 0
    DO UNTIL EOF(FBOX)
       RETRIEVE FBOX, cm
       IF cm.proc <> p THEN EXIT DO
       IF ASC(cm.dec) <> 64 THEN EXIT DO
       tasti = tasti + 1
       REDIM PRESERVE cmd(tasti) AS STRING
       REDIM PRESERVE xyt(tasti), clt(tasti), rgt(tasti), lnt(tasti)
       cmd(tasti) = MID$(cm.dec, 2, cm.ld)
       xyt(tasti) = cm.rd * 100 + 
cm.cd
       clt(tasti) = cm.fd * 100 + 
cm.bd
       rgt(tasti) = cm.rc
       lnt(tasti) = 
cm.lc
       MOVENEXT FBOX
    LOOP
    tcampi = campi + tasti
    CLOSE FBOX
    EXIT SUB
doctor09: CALL doctor("DATABOX.DBS", ERR, e)
          IF e = 1 THEN RESUME NEXT ELSE finish
END SUB
SUB clearkey (c)
    COLOR 7, 3
    LOCATE 23, c: PRINT TAB(79);
    LOCATE 24, c: PRINT TAB(79);
    LOCATE 25, c: PRINT STRING$(79 - c, 196);
END SUB
SUB initialize
 
    path = CURDIR$
    IF RIGHT$(path, 1) = "" THEN path = LEFT$(path, LEN(path) - 1)
    path = path + "SISTEMI"
    path.exe = path
    ON LOCAL ERROR RESUME NEXT
    MKDIR "SISTEMI"
    ON LOCAL ERROR GOTO 0
    REDIM gara(1 TO 30)   AS INTEGER
    REDIM vin(1 TO 8)     AS STRING
    REDIM serie(1 TO 7)   AS STRING
    REDIM condizione(22)  AS STRING
    RESTORE dataserie
    FOR j = 1 TO 7: READ serie(j): NEXT
    RESTORE datacondizioni
    FOR j = 1 TO 22: READ condizione(j): NEXT
    OPEN "RICEVIT.DAT" FOR RANDOM AS 1 LEN = LEN(rice)
    GET 1, 1, rice
    costo.col = rice.costo
    CLOSE
 
END SUB
SUB lanciaprog (p)
    videotape 1
    caricacampi p
    boxbase p
    printlabel dec(), rd(), cd(), ld(), fd(), bd(), pd(), 1, campi
 
    SELECT CASE p
       CASE 1:      ''' openfile: base.001
       CASE 2:      openfile: base.002
       CASE 3:      openfile: base.003
       CASE 4:      openfile: base.004
       CASE 5:      base.005
       CASE 6, 7:   base.006
       CASE 8:      base.008
       CASE 9:      base.009
       CASE 10:     base.010
       CASE 11:     base.011
       CASE 12:     base.012
       CASE 13:     base.013
       CASE 14:     base.014
       CASE 15:     base.015
       CASE 16, 30: base.016
       CASE 17:     base.017
       CASE 18:     base.018
       CASE 19:     base.019
       CASE 20:     base.020
       CASE 21:     base.021
       CASE 22:     base.022
       CASE 23:     openfile: base.023
       CASE 24:     base.024
       CASE 25:     base.025
       CASE 26:     base.026
       CASE 27:     base.027
       CASE 28:     base.028
       CASE 29:     base.029
       CASE 31:     base.031
       CASE 32:     base.032
       CASE 33:     base.033
       CASE 9001:   cond.9001
       CASE 9002:   cond.9002
       CASE 9003:   cond.9003
       CASE 9004:   cond.9004
       CASE 9005:   cond.9005
       CASE 9006:   cond.9006
       CASE 9007:   cond.9007
       CASE 9008:   cond.9008
       CASE 9009:   cond.9009
       CASE 9010:   cond.9010
       CASE 9011:   cond.9011
       CASE 9012:   cond.9012
       CASE 9013:   cond.9013
       CASE 9014:   cond.9014
       CASE 9015:   cond.9015
       CASE 9016:   cond.9016
       CASE 9017:   cond.9017
       CASE 9018:   cond.9018
       CASE 9019:   cond.9019
       CASE 9020:   cond.9020
       CASE 9021:   cond.9021
       CASE 9022:   cond.9022
    END SELECT
 
    videotape 0
    LOCATE , , 0
    path = path.exe
    CHDRIVE path
    CLOSE
 
END SUB
SUB menuapri (m, s)
    videotape 1
    menuscrivi 
ms.mp
(m), m
 
    IF s = 0 THEN
       FOR j = mp.dv(m) TO mp.av(m)
           IF ms.fx(j) THEN s = j: EXIT FOR
       NEXT
    END IF
 
    IF s THEN
       m = s
 
ms.sl
(s) = 1
       menuselect 0, s
    ELSE
       m = mp.dv(m)
    END IF
 
END SUB
SUB menuleggi
    ON LOCAL ERROR GOTO doctor10
    CLOSE FBOX
    OPEN "DATABOX.DBS" FOR ISAM dbcampi "CAMPI" AS FBOX
    SETINDEX FBOX, "proc"
    SEEKEQ FBOX, -1, 1
    DO UNTIL EOF(FBOX)
       RETRIEVE FBOX, cm
       IF cm.proc <> -1 THEN EXIT DO
       IF ASC(cm.dec) <> 35 THEN EXIT DO
       pmenu = pmenu + 1
       REDIM PRESERVE mp.dec(pmenu) AS STRING
..........................
...........................
...........................
.........................
.............................
..............................
...............................
............................
...................
e poi.. e poi--
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

BOOOOOOOOOO ha scritto:
