DataMuseum.dk

top - download

    Length: 650 (0x28a)
    Types: TextFile
    Notes: ASS::LASTCOM, LASTCOM 
    Names: »LASTCOM«

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

TextFile

«ff»
  0010 PAGE=0
  0020 PRINT "<12>SIDSTE GIVNE KOMMANDO<10>"
  0030 DIM A$(5),A(280)
  0040 OPEN FILE(1,4)"CO10.ENT"
  0050 FOR I=1 TO 279
  0060   READ FILE(1,I)A(I)
  0070 NEXT I
  0090 LET ADRR=6570; DOMMEDAG=0
  0100 REPEAT
  0110   CALL "GMEM",ADRR,B
  0120   LET MIN=1; MAX=279; MIDT=MAX*(B>A(1)) DIV (2-(B>=A(MAX)))
  0130   WHILE A(MIDT)>=B OR A(MIDT+1)<B DO 
  0140     IF B>A(MIDT) THEN 
  0150       LET MIN=MIDT
  0160     ELSE
  0170       LET MAX=MIDT
  0180     ENDIF
  0190     LET MIDT=(MIN+MAX) DIV 2
  0200   ENDWHILE
  0205   READ FILE(1,MIDT+1)D,A$
  0210   PRINT "..";A$;"..    <13>";
  0220 UNTIL DOMMEDAG