trunk/AMOS_Paolo/conta.txt

@@ -0,0 +1,133 @@
+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