DataMuseum.dk Presents historical artifacts from the history of: Jet Computer Jet80

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1afa1cfb7⟧

    Length: 512 (0x200)
    Names: »INDTAL.PAS«

Derivation

└─⟦692ac107c⟧ Bits:30005923 PolyPascal-80 V3.10 arbejdsdiskette 1
    └─ ⟦this⟧ »INDTAL.PAS« 

Hex Dump

0x000…020 50 52 4f 47 52 41 4d 20 74 61 6c 69 6e 64 3b 0d 0a 4c 41 42 45 4c 20 78 3b 0d 0a 56 41 52 0d 0a   ┆PROGRAM talind;  LABEL x;  VAR  ┆
0x020…040 20 20 6c 61 65 73 2c 69 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 74 65 78 74 66 69 6c 20 3a   ┆  laes,i : integer;    textfil :┆
0x040…060 20 20 74 65 78 74 3b 0d 0a 20 20 66 69 6c 6e 61 76 6e 20 3a 73 74 72 69 6e 67 28 2e 31 32 2e 29   ┆  text;    filnavn :string(.12.)┆
0x060…080 3b 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 63 6c 72 68 6f 6d 29 3b 0d 0a   ┆;    BEGIN      WRITE(clrhom);  ┆
0x080…0a0 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 20 73 6b 61 6c 20 66 69 6c 65 6e 20 68 65 64 64 65   ┆    WRITE('Hvad skal filen hedde┆
0x0a0…0c0 3f 20 27 29 3b 72 65 61 64 6c 6e 28 66 69 6c 6e 61 76 6e 29 3b 0d 0a 20 20 20 20 20 61 73 73 69   ┆? ');readln(filnavn);       assi┆
0x0c0…0e0 67 6e 28 74 65 78 74 66 69 6c 2c 66 69 6c 6e 61 76 6e 29 3b 20 20 0d 0a 20 20 20 20 20 20 72 65   ┆gn(textfil,filnavn);          re┆
0x0e0…100 77 72 69 74 65 28 74 65 78 74 66 69 6c 29 3b 0d 0a 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20   ┆write(textfil);        REPEAT   ┆
0x100…120 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 6c 91 73 20 74 61 6c 6c 65 74 20 27 29 3b 72 65   ┆      WRITE('Indl s tallet ');re┆
0x120…140 61 64 6c 6e 28 6c 61 65 73 29 3b 0d 0a 20 20 20 20 20 20 20 49 46 20 6c 61 65 73 3d 30 20 54 48   ┆adln(laes);         IF laes=0 TH┆
0x140…160 45 4e 20 47 4f 54 4f 20 78 3b 0d 0a 20 20 20 20 20 20 20 57 52 49 54 45 28 74 65 78 74 66 69 6c   ┆EN GOTO x;         WRITE(textfil┆
0x160…180 2c 6c 61 65 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 74 65 78 74 66 69 6c   ┆,laes);          WRITELN(textfil┆
0x180…1a0 29 3b 0d 0a 20 20 20 20 20 20 55 4e 54 49 4c 20 6c 61 65 73 3d 30 3b 0d 0a 20 20 78 3a 63 6c 6f   ┆);        UNTIL laes=0;    x:clo┆
0x1a0…1c0 73 65 28 74 65 78 74 66 69 6c 29 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 20 20 20 20 00 00 00 00 00 00   ┆se(textfil);    END.            ┆
0x1c0…1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
       […0x1…]