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 (0,) 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 (1,) 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┆