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

⟦174dd489b⟧

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

Derivation

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

Hex Dump

0x000…020 50 52 4f 47 52 41 4d 20 43 52 54 54 45 53 54 3b 0d 0a 0d 0a 0d 0a 7b 24 49 20 67 72 61 70 68 69   ┆PROGRAM CRTTEST;      æ$I graphi┆
0x020…040 63 73 7d 0d 0a 0d 0a 56 41 52 0d 0a 20 20 62 75 66 20 3a 20 41 52 52 41 59 5b 2d 35 2e 2e 32 38   ┆cså    VAR    buf : ARRAYÆ-5..28┆
0x040…060 38 5d 20 4f 46 20 62 79 74 65 3b 0d 0a 20 20 6c 2c 78 2c 79 20 3a 20 49 4e 54 45 47 45 52 3b 0d   ┆8Å OF byte;    l,x,y : INTEGER; ┆
0x060…080 0a 20 20 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 63 72 74 6d 6f 64 65 28 34 29 3b 0d 0a 20   ┆         begin    crtmode(4);   ┆
0x080…0a0 20 67 6f 74 6f 78 79 28 31 2c 32 33 29 3b 0d 0a 20 20 77 72 69 74 65 28 27 4f 6c 65 20 20 27 29   ┆ gotoxy(1,23);    write('Ole  ')┆
0x0a0…0c0 3b 0d 0a 20 20 67 65 74 70 69 63 28 62 75 66 2c 35 2c 33 2c 36 38 2c 32 30 29 3b 0d 0a 20 20 63   ┆;    getpic(buf,5,3,68,20);    c┆
0x0c0…0e0 72 74 6d 6f 64 65 28 34 29 3b 0d 0a 20 20 63 6f 6c 6f 72 6d 61 70 28 30 2c 31 2c 31 2c 31 29 3b   ┆rtmode(4);    colormap(0,1,1,1);┆
0x0e0…100 0d 0a 20 20 70 65 6e 63 6f 6c 6f 72 28 2d 31 29 3b 0d 0a 20 20 0d 0a 20 20 0d 0a 20 20 78 3a 3d   ┆    pencolor(-1);            x:=┆
0x100…120 30 3b 79 3a 3d 30 3b 0d 0a 20 20 46 4f 52 20 78 3a 3d 31 20 74 6f 20 33 30 30 20 44 4f 0d 0a 20   ┆0;y:=0;    FOR x:=1 to 300 DO   ┆
0x120…140 20 62 65 67 69 6e 0d 0a 20 20 20 20 79 3a 3d 74 72 75 6e 63 28 31 30 30 2a 73 69 6e 28 78 2f 32   ┆ begin      y:=trunc(100*sin(x/2┆
0x140…160 35 29 29 2b 39 30 3b 0d 0a 20 20 20 20 70 75 74 70 69 63 28 62 75 66 2c 78 2c 79 29 3b 0d 0a 20   ┆5))+90;      putpic(buf,x,y);   ┆
0x160…180 20 65 6e 64 3b 20 20 0d 0a 20 20 66 6f 72 20 6c 3a 3d 31 20 74 6f 20 32 35 30 30 30 20 20 64 6f   ┆ end;      for l:=1 to 25000  do┆
0x180…1a0 20 62 65 67 69 6e 20 65 6e 64 3b 0d 0a 20 20 63 72 74 6d 6f 64 65 28 33 29 3b 0d 0a 65 6e 64 2e   ┆ begin end;    crtmode(3);  end.┆
0x1a0…1c0 0d 0a 0d 0a 20 20 c3 e8 72 02 c9 1e 1e 07 8e 1e 30 02 be c8 29 bf 80 00 b9 07 00 fc f3 a5 1e 07   ┆        r       0   )           ┆
0x1c0…1e0 1f bf c8 29 26 81 25 fe ff a1 32 02 3b 06 38 02 73 03 a1 38 02 26 89 45 06 a1 34 02 3b 06 3a 02   ┆   )& %   2 ; 8 s  8 & E  4 ; : ┆
0x1e0…200 73 03 a1 3a 02 26 89 45 08 a1 3c 02 26 89 45 0a 3b 06 3e 02 73 03 a1 3e 02 26 89 45 0c b4 40 8b   ┆s  : & E  < & E ; > s  > & E  @ ┆