DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Names: »lager«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »lager« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »lager« 

Hex Dump

0x000…020 (0,) 61 73 64 66 67 66 19 00 00 20 20 20 20 20 20 20 72 75 6e 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20   ┆asdfgf          run:=false;     ┆
0x020…040      20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3c 2a 63 61 73 65 2a 3e 3b 0a 20 20 20   ┆     end;       end<*case*>;    ┆
0x040…060      65 6e 64 3c 2a 77 68 69 6c 65 2a 3e 3b 0a 65 6e 64 3c 2a 70 72 6f 67 72 61 6d 2a 3e 0a 66 0a 0a   ┆end<*while*>; end<*program*> f  ┆
0x060…080      19 00 00 3b 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 72 75 6e 3b 0a 0a 20 20 20 72 75 6e 3a 3d 20 74   ┆   ;    boolean run;     run:= t┆
0x080…0a0      72 75 65 3b 0a 20 20 20 6f 72 64 72 65 74 61 62 65 6c 28 31 29 3a 3d 3c 3a 2e 63 68 61 6e 3a 3e   ┆rue;    ordretabel(1):=<:.chan:>┆
0x0a0…0c0      20 61 64 64 20 27 67 27 3b 0a 20 20 20 6f 72 64 72 65 74 61 62 65 6c 28 32 29 3a 3d 3c 3a 2e 74   ┆ add 'g';    ordretabel(2):=<:.t┆
0x0c0…0e0      65 72 6d 3a 3e 3b 0a 20 20 20 77 68 69 6c 65 20 72 75 6e 20 64 6f 0a 20 20 20 62 65 67 69 6e 0a   ┆erm:>;    while run do    begin ┆
0x0e0…100      20 20 20 20 20 20 3c 2a 20 69 6e 64 6c 65 73 6e 69 6e 67 20 2a 3e 0a 20 20 20 20 20 20 72 65 61   ┆      <* indlesning *>       rea┆
0x100…120      64 63 68 61 72 28 69 6e 2c 63 68 29 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 63 68 3d 27 73 70   ┆dchar(in,ch);       while ch='sp┆
0x120…140      27 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 72 65 61 64 63 68   ┆' do       begin          readch┆
0x140…160      61 72 28 69 6e 2c 63 68 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 72 65 70 65   ┆ar(in,ch);       end;       repe┆
0x160…180      61 74 63 68 61 72 28 69 6e 29 3b 0a 20 20 20 20 20 20 72 65 61 64 73 74 72 69 6e 67 28 69 6e 2c   ┆atchar(in);       readstring(in,┆
0x180…1a0      6f 72 64 72 65 2c 31 29 3b 0a 20 20 20 20 20 20 63 6f 64 65 3a 3d 30 0a 20 20 20 20 20 20 66 6f   ┆ordre,1);       code:=0       fo┆
0x1a0…1c0      72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 20 64 6f 0a 20 20 20 20 20 20 62   ┆r i:=1 step 1 until 2 do       b┆
0x1c0…1e0      65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 66 20 6f 72 64 72 65 3d 6f 72 64 72 65 74 61 62 65   ┆egin          if ordre=ordretabe┆
0x1e0…200      6c 28 69 29 20 74 68 65 6e 20 63 6f 64 65 3a 3d 69 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20   ┆l(i) then code:=i       end;    ┆
0x200…220      20 20 20 63 61 73 65 20 63 6f 64 65 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e   ┆   case code+1 of          begin┆
0x220…240      0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c   ┆             write(out,<:<10>:>,┆
0x240…260      3c 3a 66 65 6a 6c 20 70 72 71 76 20 69 67 65 6e 3a 3e 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20   ┆<:fejl prqv igen:>,<:<10>:>);   ┆
0x260…280      20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20   ┆       end          begin       ┆
0x280…2a0      20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3a 65 6e 64 72 69   ┆      write(out,<:<10>:>,<:endri┆
0x2a0…2c0      6e 67 20 61 6b 74 69 76 65 72 65 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20   ┆ng aktiveret:>);          end;  ┆
0x2c0…2e0      20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28   ┆        begin             write(┆
0x2e0…300      6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3a 20 70 72 6f 67 72 61 6d 20 73 6c 75 74 74 00 20 02   ┆out,<:<10>:>,<: program slutt   ┆