home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Exec 5
/
CD_Magazyn_EXEC_nr_5.iso
/
Recent
/
game
/
demo
/
Mattonite_Src.lha
/
PulisciIPunteggi.AMOS
/
PulisciIPunteggi.amosSourceCode
Wrap
AMOS Source Code
|
2001-06-04
|
471b
|
21 lines
'-> PulisciIPunteggi by Stefano Regattin
'i> 4 giugno 2001
'-----------------
PUNTEGGI$=Dir$+"TopHundredScores"
Dim GIOCATORE$(99)
Dim PUNTEGGIO$(99)
Open In 1,PUNTEGGI$
For POSIZIONE=0 To 99
Input #1,GIOCATORE$(POSIZIONE)
Input #1,PUNTEGGIO$(POSIZIONE)
Next POSIZIONE
Close 1
Kill PUNTEGGI$
Open Out 1,PUNTEGGI$
For POSIZIONE=0 To 99
If Val(PUNTEGGIO$(POSIZIONE))>0
Print #1,GIOCATORE$(POSIZIONE)
Print #1,PUNTEGGIO$(POSIZIONE)
End If
Next POSIZIONE
Close 1