nun serv a ......(25/05/1996)
BOOOOOOOOOO
'����������������������������������������������������������������������������
'� 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