|
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: 583 (0x247)
Types: TextFile
Notes: SØGLAGER
Names: »SØGLAGER«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─ ⟦this⟧ »ASS2::SØGLAGER«
«ff» 0003 REM ** PROG I FORB. MED FEJLSØG. MHT. BOGUDSK. ** CB 20.11.79 ** 0005 PRINT 0010 PAGE=72 0015 DIM A$(30) 0020 INPUT "SØGES EFTER : ",A$," TALVÆRDI : ",BB 0030 PRINT "DER SØGES EFTER <34>";A$;"<34> MED TALVÆRDI :";BB 0040 FOR I=4012 TO 22168 0050 CALL "GMEM",I,B 0051 IF B DIV 4096>0 AND B<32768 THEN 0052 IF B MOD 1024 DIV 256=3 AND B MOD 256=BB THEN 0053 PRINT USING " FEJL I ##/#/## INSTR : ##### ",I DIV 256,I MOD 256 DIV 64+1,I MOD 100,B 0054 ENDIF 0055 ENDIF 0070 NEXT I 0080 PRINT 0090 GOTO 0020