---

ramcat

Ĉi programo uzas la funckion CAT$ de Beta BASIC 4.0+D por ekhavi la enhavon de RAM-disko de ZX Spectrum 128 kaj ĝin montri sur ekranon simil-aspekte al diskilo Plus D.

Ekranfoto

Fontkodo

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"

Deŝutoj

• ramcat.tap (1.54 KiB)