In ritardo, ma ecco anche il mio risultato. Ero già preso e non ho colpevolmente tenuto conto dei contributi vostri, ma li studierò lo stesso domani (bello quello coi poke, minuscolo e... diverso).
Pur con delle differenze e con delle dimensioni ridotte, è troppo legato come sequenza dei passaggi al programma DIR preso come modello, lo so.
start tok64 roulist.prg
1000 PRINT"{clear}{C*28}"
1010 OPEN 1,8,0,"$":g=1
1020 FOR g=g TO 3:GET#1,d$,d2$:NEXT g
1030 b=0:g=2
1040 IF d$<>"" THEN b=ASC(d$)
1045 IF d2$<>"" THEN b=b+ASC(d2$)*256
1050 PRINT "(" MID$(STR$(b),2);")";TAB(5);
1060 GET#1,d$:IF st<>0 THEN 1090
1065 IF d$<>CHR$(34) THEN 1060
1070 GET#1,d$:IF d$<>CHR$(34)THEN PRINT d$;:GOTO 1070
1075 GET#1,d$:PRINT d$;:IF d$<>"" THEN 1075
1080 PRINT:IF st=0 THEN 1020
1090 PRINT"{left} blocchi liberi)":CLOSE 1
1095 PRINT"{C*28}"
stop tok64Il listato ha anche un pò di formattazione del testo perchè l'ho già integrato nel resto del programma dimostrativo, nel quale, prima di caricarlo sullo spazio, ho corretto anche un errore nel codice che era nato dalla "rinumerazione" delle righe fatta la volta precedente e che mi era sfuggito.
Credo sia utile riportare, come esperienza fatta, che per comprendere meglio il contenuto del settore e come questo sia strutturato all'interno del settore stesso, in modo da sapere come poterlo utilizzare, ho trovato molto utile in fase di studio, farmi rappresentare il tutto sotto forma di codice ASCII, chiedendo di volta in volta la stampa del contenuto estratto da GET# con PRINT ASC(X$)
Infine per completezza, una cosa che avevo dimenticato di riferire nel frattempo, e cioè che quel problema di blocco del sistema di cui parlavo nei messaggi dell'8 agosto, era un problema mio, dovuto all'emulatore come sospettavo. Quindi come non detto.
iao.
