PROGRAMMARE IN ERRE

PC
OPEN(“O”,4,”LPT1:”)
C64
OPEN(4,4,7)
ottengo la possibilità di scrivere sulla stampante collegata al PC su LPT1: o sulla stampante
principale del C-64 (device #4 - il ‘7’ indica modalità "business mode" sulle stampanti Commodore)
usando il comando PRINT(#4,A$) dove A$ può essere una costante stringa o una variabile stringa.
Ovviamente CLOSE(4) chiude il file e quindi la stampa.
Si propone una tabella riassuntiva per i dispositivi utilizzabili:
dispositivo device PC device C64
Tastiera KYBD: 3
Schermo SCRN: 0
Nastro CAS1: (*) 1
Disco da A: a Z: (se esistono) da 8 a 11
Stampante da LPT1: a LPT3: da 4 a 6 (**)
seriale RS232 COM1: e COM2: 2
(*) solo sul PC-IBM originale
(**) il 6 si riferisce al plotter Commodore 1520
Come visto nell'esempio della stampante, alcuni dispositivi non utilizzeranno la OPEN con tutti i
parametri indicati: ad esempio per "aprire" lo schermo come un file su PC si darà una
OPEN("O",1,"SCRN:") mentre su C-64 basterà una OPEN(1,3); i manuali dei singoli computer
daranno comunque informazioni più particolareggiate.
Nota: La sintassi di OPEN nel caso si utilizzi (su PC) una porta seriale è leggermente diversa:
OPEN("COMx:dati_porta_seriale",numero_file)
dove con "dati_porta_seriale" si indica la velocità, il tipo di parità, il numero di bit di dati ed il
numero di bit di stop: un esempio possibile è "2400,N,8,1". Questo diversitaà ha una sua propria
giustificazione se si tiene conto che un file aperto su una COM è contemporaneamente aperto sia
in lettura che in scrittura
Esempio sull'utilizzo dei file sequenziali
Vediamo un esempio (semplice) di utilizzo dei file sequenziali: viene fatto uso sia delle strutture di
controllo (vedi cap. 5) che dell'istruzione EXCEPTION (vedi cap. 8) che serve a gestire gli errori di
programma, in questo caso - nel PC - l'esistenza del file da visualizzare, mentre su C-64 basta
interrogare il canale #15 che ci comunica gli errori del 1541.
Esempio per PC
PROGRAM LETTURA
EXCEPTION
FERROR%=TRUE ! si è verificata l'eccezzione !!!
PRINT("Il file richiesto non esiste ! (Errore nø";ERR;")")
- 46 -