Newsgroup: it.comp.os.amiga
Titolo: Ai possessori di Messydos o Simili - Please Help

Ciao a tutti,
PARTE A: volevo chiedervi se c'era qualcuno gentilmente disposto a
mandarmi una copia di MESSYDOS o qualcosa del genere per posta, poiché
non trovo un metodo per passare files dal PC al mio vecchio amiga 500.
Ovviamente invio i dischetti e il denaro sufficiente, affinché la
spedizione possa avvenire, senza spese da parte di chi mi aiuta! Essendo
i programmi che cerco "fuori corso", credo e spero, non ci siano
problemi di copyright. Altrimenti, non importa, dovrò rassegnarmi, a
quanto pare :-(
Ad ogni modo, da buon amighista, vi prego di aiutarmi, perché ho tanta
nostalgia di rimettere le mani sul mio "giocattolo" preferito della mia
infanzia! Numerosi metodi che ho già sperimentato non hanno funzionato.
Siete dunque la mia ultima speranza!
PARTE B: Già che ci sono, volevo sapere se qualche guru del BASIC, mi sa
dire una funzione equivalente a CHR$. Infatti ho provato a scrivere un
terminalino con supporto di file transfer, ma questa funzione mi ritorna
errore ad ogni tentativo. Includo il source dello script in seguito, se
vi può chiarire le idee di cosa voglio fare...
Grazie per l'attenzione e complimenti per l'ottimo newsgroup!
Steve
Ecco lo script (riceve il file dal PC come caratteri e poi dovrebbe
scriverli in un file #2. Al momento della conversione, con la funzione
CHR$ mi viene dato inesorabilmente un errore):
OPEN "com1:9600,n,8,1" AS #1
                  PRINT #1,"Hi";
                  BEGINNING:
                  IF INPUT$(3,#1) = "Hei" THEN
                   PRINT #1,"Nl";
                   NameLength = VAL(INPUT$(3,#1))
                   PRINT #1,"Nn";
                   FileName$ = INPUT$(NameLength,#1)
                   OPEN FileName$ FOR OUTPUT AS #2
                   PRINT #1,"Ll";
                   Tall = VAL(INPUT$(3,#1))
                   PRINT #1,"Fl";
                   FileLength=VAL(INPUT$(Tall,#1))
                   PRINT #1,"Fb";
                   FOR I=1 TO FileLength
                    Byte = VAL(INPUT$(3,#1))
                    PRINT #2,CHR$(Byte);            <- qui, mi viene
costantemente dato un errore nella funzione :-(
                    IF (I/100) = INT(I/100) THEN
                     PRINT #1,"ok";
                     CLS
                     PRINT
I;"/";FileLength;SPC(5);INT(I/FileLength*100);"%"
                     END IF
                    NEXT I
                   CLS
                   PRINT "Filetransfer completed"
                   CLOSE #2
                   GOTO BEGINNING
                  ELSE
                   PRINT #1,"Hi";
                   GOTO BEGINNING
END IF

spedizione possa avvenire, senza spese da parte di chi mi aiuta! Essendo
perche' non ti compri Amiga Explorer 4?
bye, bye
  Ale Gerelli
    -
a...@gerelli.it

costantemente dato un errore nella funzione :-(
  La funzione VAL restituisce i numeri inclusi in una stringa sotto forma
 di valore numerico. CHR$() converte il codice carattere nel carattere.
   Se INPUT(3,#1) legge tre caratteri dalla seriale CHR$ potrebbe non
 essere in grado di fare la conversione.
   E perche' non subito PRINT #2,INPUT$(3,#1) ? Forse perche'
 non sono pratico di Basic...
  Hai provato invece sul prompt della CLI a digitare:
  copy SER: ram:pc_dati