|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1266 (0x4f2)
Types: TextFile
Notes: LPT
Names: »LPT«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─ ⟦this⟧ »ASS::LPT«
«ff»
LOGICAL DISC CATALOG:
S LBLOCK LBYTE SIZE
FILENAME
R NO.REC RECSIZE SIZE
CO10.ENT R 00284 00020 00048
CB2NMAX S 00005 00057 00006
CO...PSE R 00160 00020 00027
CO...STA R 00256 00021 00043
.244CL-6 S 00039 00103 00039
TT S 00001 00071 00001
PÅ S 00010 00035 00010
.244CLCL S 00042 00121 00042
.231CL-1 S 00043 00109 00043
.231CL-2 S 00044 00108 00045
CO...USE R 00128 00007 00008
.CLPRG%1 S 00043 00053 00043
CLPRG000 S 00047 00102 00047
LASTCOM S 00006 00010 00006
.CLPRG%2 S 00042 00108 00042
.CLPRG-2 S 00040 00119 00040
.CLPRG-1 S 00008 00045 00008
LSTFILÆN S 00005 00106 00005
RM S 00023 00016 00023
CLPRG102 S 00035 00098 00035
TESTT S 00004 00064 00004
LPT S 00000 00000 00010
$FREE 00000 00000 00006
S 00035 000 FØR NU FORSK FØR NU<10>"
0050 FOR I=22168 TO 23555
0055 READ FILE(1)A
0056 IF I>T THEN CLOSE
0057 IF I>T THEN STOP
0058 IF I<S THEN GOTO 0150
0060 LET A$=" "
0070 CALL "GMEM",I,B
0080 IF B DIV 256>32 AND B DIV 256<93 THEN LET A$(4)=CHR(B DIV 256)
0090 IF B MOD 256>32 AND B MOD 256<93 THEN LET A$(5)=CHR(