Rem *********************
Rem ** primo programma **
Rem **  conta insieme  **
Rem *********************


<Unknown Token 0CD8>,,,,,,,,,,,,,,,,,,,,,,,,,,,,$0FFF,$0FFF,$0FFF,$0FFF
Screen Open 1,320,200,64,Lowres
Load "bobs/drink_bobs.abk"
Flash Off
Get Bob Palette


For INDEX=0 To 63
   Pen INDEX : Print "Pen ";INDEX;"    ";
Next INDEX
Wait 1000

Do
   A$=""
   SPLASHSCREEN
   A$=Param$
   
   Rem ******************
   Rem ** Main Program **
   Rem ******************
   LIMIT=100
   LIMIT_2=20
   ITERAZIONI=0
   SCORE=0
   BADSCORE=0
   
   Locate 0,15
   Print "---------------------------------------"
   Pen 29
   Locate 4,15 : Print " ";A$;" "
   Pen 2
   Bob 1,290,195,4
   
   Repeat
      X=Rnd(LIMIT)
      Y=Rnd(LIMIT_2)
      If X<Y
         Z=Y : Y=X : X=Z
      End If
      SEGNO=Rnd(1)
      If SEGNO=1
         SE$=" +"
         RESU=X+Y
      Else
         SE$=" -"
         RESU=X-Y
      End If
      
      RIGA=(ITERAZIONI mod 5)*2+1
      If RIGA=1
         Cls 1,0,0 To 320,96
      End If
      Locate 0,RIGA
      Pen 2
      Print " Quanto fa"; : Pen 6 : Print X;SE$;Y;" "; : Pen 2
      Input RES
      
      If RES=RESU
         Locate 25,RIGA : Pen 5 : Print "OK!"
         SCORE=SCORE+1
         SUONO_OK
         PALLINA[SCORE,1]
      Else
         Locate 25,RIGA : Pen 4 : Print "ERRORE!";RESU
         BADSCORE=BADSCORE+1
         SUONO_ERROR
         PALLINA[BADSCORE,0]
      End If
      
      ITERAZIONI=ITERAZIONI+1
   Until ITERAZIONI>39
   
   Cls 1,0,0 To 320,96
   Locate 0,1
   Print "Bravo ";A$;"!"
   Print
   Print "Hai eseguito "; : Pen 5 : Print SCORE; : Pen 2 : Print " operazioni corrette"
   Print "           e "; : Pen 4 : Print BADSCORE; : Pen 2 : Print " operazioni errate"
   Print
   Print "Ora tocca al prossimo giocatore!"
   Wait 1000
Loop

Rem ***************************
Rem **  Procedure e funzioni **
Rem ***************************

Procedure SPLASHSCREEN
   Cls
   Bob 1,290,190,4
   Rem Flash Off
   Locate 0,1
   Print " Conta Insieme"
   Print " -------------"
   
   Locate 1,5
   Input "Come ti chiami? ";A$
   
   Locate 1,8
   Print "Ciao "; : Pen 3 : Print A$; : Pen 2 : Print ", partiamo!"
   
   Wait 200
   Pen 2
   Cls 1
End Proc[A$]

Procedure SUONO_OK
End Proc

Procedure SUONO_ERROR
End Proc

Procedure PALLINA[ITERAZIONI,RISULTATO]
   If RISULTATO=1
      Rem pallina buona
      Locate ITERAZIONI-1,17
      Pen 5
      Print "O"
      Pen 2
   Else
      Rem pallina cattiva
      Locate ITERAZIONI-1,19
      Pen 4
      Print "X"
      Pen 2
   End If
End Proc