APPENDere in Turbo Pascal per CP/M

di Francesco Sblendorio Prerequisiti tecnici: conoscenza della gestione dei file di testo in Turbo Pascal Consideriamo un programma scritto in Turbo Pascal 3 che si occupi, in sequenza, di: Aprire un file di testo in scrittura, e scriverci una riga Aprire lo stesso file in append , quindi scrittura in coda, e aggiungere una seconda riga Aprire lo stesso file in lettura e stamparne il contenuto a video Per esempio… PROGRAM TestAppend; VAR f: TEXT ; s: STRING [80]; BEGIN ASSIGN (f,'test.txt'); REWRITE (f); WRITELN (f,'First row'); CLOSE (f); APPEND (f); WRITELN (f,'Second row'); CLOSE (f); RESET (f); WHILE NOT EOF (f) DO BEGIN READLN (f,s); WRITELN (s) END ; CLOSE (f); END . Se compilato in Turbo Pascal 3 per MS-DOS , fila tutto liscio. Se compilato invece in Turbo Pascal 3 ma sotto CP/M in fase di compilazione riceveremo il seguente messaggio di errore: Error 41...