ramcat
Descripción del contenido de la página
Programa escrito en Beta BASIC 4.0+D para listar el contenido del disco RAM de una ZX Spectrum 128.
Etiquetas:
Este programa utiliza la función CAT$
de Beta BASIC 4.0+D para obtener el contenido del disco RAM y mostrarlo en pantalla de forma similar a como la interfaz Plus D lista el contenido de un disquete.
Pantallazo
Código fuente
DEF PROC ramcat
REM A RAM disc cataloguer procedure
REM for ZX Spectrum 128.
REM Written in Beta Basic 4.0+D.
REM Copyright (C) 2010 Marcos Cruz (programandala.net)
REM License programandala.net/pl
REM 2010-05-23 First version.
LOCAL c$,files,f,base,n$,type,length
LET c$=CAT$()
LET files=LEN c$/13
PRINT "* RAM DISC CATALOGUE *"''
FOR f=1 TO files
LET base=(f-1)*13+1
LET n$=c$(base TO base+9)
LET type=CODE (c$(base+10))
LET length= NUMBER(c$(base+11 TO base+12))
PRINT USING "##";f;" ";n$;" ";
ON type+1
PRINT "BAS ";
PRINT "D.ARRAY";
PRINT "$.ARRAY";
PRINT "CDE ";
PRINT USING "######" ;length
NEXT f
PRINT DPEEK(23429)+65536*PEEK (23431);" free bytes"'files;" file";"s" AND files<>1
END PROC
CLEAR
SAVE d*"ramcat"
SAVE "ramcat"