DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦9bec164e3⟧ TextFile

    Length: 432 (0x1b0)
    Types: TextFile
    Notes: @.LAGTXT
    Names: »@.LAGTXT«

Derivation

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »BASIC::@.LAGTXT«

TextFile

«ff»
  0005 PAGE=0
  0007 DIM A$(132)
  0010 INPUT "A,B ",A,B
  0015 PRINT "  00000  ";
  0020 FOR I=A TO B
  0030   CALL "GMEM",I,B
  0040   IF B DIV 256 MOD 128>32 THEN LET A$=A$,CHR(B DIV 256)
  0042   IF B MOD 128>32 THEN LET A$=A$,CHR(B MOD 128)
  0044   IF LEN(A$)>120 THEN 
  0046     PRINT A$
  0047     PRINT USING "-+#####  ",I;
  0048     LET A$=""
  0049   ENDIF
  0050 NEXT I
  0055 PRINT 
  0060 GOTO 0010