DataMuseum.dk

top - download

    Length: 1020 (0x3fc)
    Types: TextFile
    Notes: ASS2::CHK-LAGE, CHK-LAGE
    Names: »CHK-LAGE«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─⟦this⟧ 

TextFile

«ff»
  0005 INPUT "<34><60>><34> (0) <34>=<34> (1) ",D
  0008 INPUT "FRA,TIL(MIN 22168 MAX 23555) : ",S,T
  0010 DIM A$(5)
  0020 PRINT "<13><10>ÆNDRINGER I LAGER MHT. TERM01 NEDBRUD  CB.11.12.79<10>"
  0030 OPEN FILE(1,1)"LAGER"
  0040 PRINT "  ADR         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(B MOD 256)
  0110   IF A DIV 256>32 AND A DIV 256<93 THEN LET A$(1)=CHR(A DIV 256)
  0120   IF A MOD 256>32 AND A MOD 256<93 THEN LET A$(2)=CHR(A MOD 256)
  0130   LET C=(A=B)*D+(A<>B)*(D=0)+(D>1)
  0140   IF C THEN PRINT USING "-+#####      #####     #####     #####    ##  ##",I,A,B,B-A,A$,A$(4,5)
  0150 NEXT I
  0160 INPUT Z
  0170 CALL "GMEM",Z,Z
  0180 PRINT Z
  0190 GOTO 0160