DataMuseum.dk Presents historical artifacts from the history of: CP/M

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

top - download

⟦54dd33953⟧

    Length: 640 (0x280)
    Names: »LOGARIT.CML«

Derivation

└─⟦237ddb885⟧ Bits:30004603 COMAL-80 version 2.05
    └─ ⟦this⟧ »LOGARIT.CML« 

Hex Dump

0x000…020 30 30 31 30 20 47 52 41 46 49 4b 20 0d 30 30 32 30 20 58 50 4f 53 23 3a 3d 35 30 0d 30 30 33 30   ┆0010 GRAFIK  0020 XPOS#:=50 0030┆
0x020…040 20 59 50 4f 53 23 3a 3d 31 32 30 0d 30 30 34 30 20 44 45 4c 54 41 23 3a 3d 32 0d 30 30 35 30 20   ┆ YPOS#:=120 0040 DELTA#:=2 0050 ┆
0x040…060 4c 5b 4e 47 44 45 23 3a 3d 31 32 32 0d 30 30 36 30 20 4d 4f 56 45 54 4f 20 58 50 4f 53 23 2c 20   ┆LÆNGDE#:=122 0060 MOVETO XPOS#, ┆
0x060…080 59 50 4f 53 23 0d 30 30 37 30 20 44 52 41 57 20 4c 5b 4e 47 44 45 23 2c 20 30 0d 30 30 38 30 20   ┆YPOS# 0070 DRAW LÆNGDE#, 0 0080 ┆
0x080…0a0 46 4f 52 20 49 23 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 0d 30 30 39 30 20 20 20 4d 4f 56 45 54   ┆FOR I#:=1 TO 10 DO  0090   MOVET┆
0x0a0…0c0 4f 20 28 58 50 4f 53 23 2b 4c 5b 4e 47 44 45 23 2a 4c 4f 47 28 49 23 29 2f 4c 4f 47 28 31 30 29   ┆O (XPOS#+LÆNGDE#*LOG(I#)/LOG(10)┆
0x0c0…0e0 29 2c 20 59 50 4f 53 23 0d 30 31 30 30 20 20 20 43 55 52 53 4f 52 20 31 2c 20 49 23 0d 30 31 31   ┆), YPOS# 0100   CURSOR 1, I# 011┆
0x0e0…100 30 20 20 20 50 52 49 4e 54 20 28 58 50 4f 53 23 2b 4c 5b 4e 47 44 45 23 2a 4c 4f 47 28 49 23 29   ┆0   PRINT (XPOS#+LÆNGDE#*LOG(I#)┆
0x100…120 2f 4c 4f 47 28 31 30 29 29 0d 30 31 32 30 20 20 20 44 52 41 57 20 30 2c 20 44 45 4c 54 41 23 0d   ┆/LOG(10)) 0120   DRAW 0, DELTA# ┆
0x120…140 30 31 33 30 20 20 20 44 52 41 57 20 30 2c 20 2d 32 2a 44 45 4c 54 41 23 2d 31 0d 30 31 34 30 20   ┆0130   DRAW 0, -2*DELTA#-1 0140 ┆
0x140…160 20 20 4d 4f 56 45 20 2d 33 2c 20 2d 38 0d 30 31 35 30 20 20 20 58 3a 3d 47 50 41 52 4d 28 30 29   ┆  MOVE -3, -8 0150   X:=GPARM(0)┆
0x160…180 0d 30 31 36 30 20 20 20 59 3a 3d 47 50 41 52 4d 28 31 29 0d 30 31 37 30 20 20 20 50 52 49 4e 54   ┆ 0160   Y:=GPARM(1) 0170   PRINT┆
0x180…1a0 20 22 22 32 37 22 50 22 3b 0d 30 31 38 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 3a 22 3b 43   ┆ ""27"P"; 0180   PRINT ""27":";C┆
0x1a0…1c0 48 52 24 28 58 20 44 49 56 20 32 35 36 29 3b 43 48 52 24 28 58 20 4d 4f 44 20 32 35 36 29 3b 43   ┆HR$(X DIV 256);CHR$(X MOD 256);C┆
0x1c0…1e0 48 52 24 28 30 29 3b 43 48 52 24 28 59 29 3b 0d 30 31 39 30 20 20 20 50 52 49 4e 54 20 49 23 0d   ┆HR$(0);CHR$(Y); 0190   PRINT I# ┆
0x1e0…200 30 32 30 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 70 22 3b 0d 30 32 31 30 20 20 20 46 4f 52   ┆0200   PRINT ""27"p"; 0210   FOR┆
0x200…220 20 4a 3a 3d 31 20 54 4f 20 31 30 30 30 20 44 4f 20 0d 30 32 32 30 20 20 20 4e 45 58 54 20 4a 0d   ┆ J:=1 TO 1000 DO  0220   NEXT J ┆
0x220…240 30 32 33 30 20 4e 45 58 54 20 49 23 0d 30 32 34 30 20 45 4e 44 20 0d 4f 44 20 32 35 36 29 3b 43   ┆0230 NEXT I# 0240 END  OD 256);C┆
0x240…260 48 52 24 28 30 29 3b 43 48 52 24 28 59 29 3b 0d 30 31 39 30 20 20 20 50 52 49 4e 54 20 49 23 0d   ┆HR$(0);CHR$(Y); 0190   PRINT I# ┆
0x260…280 30 32 30 30 20 20 20 50 52 49 4e 54 20 22 22 32 37 22 70 22 3b 0d 30 32 31 30 20 20 20 46 4f 37   ┆0200   PRINT ""27"p"; 0210   FO7┆