134 lines
2.6 KiB
Plaintext
134 lines
2.6 KiB
Plaintext
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
|