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

⟦80cf482d8⟧

    Length: 896 (0x380)
    Names: »DEMO1.CML«

Derivation

└─⟦9c4522ab9⟧ Bits:30004602 COMAL-80 version 1.8 og COMPAS-80 V3.02
    └─ ⟦this⟧ »DEMO1.CML« 

Hex Dump

0x000…020 30 30 31 30 20 2f 2f 20 50 52 49 4d 45 20 46 41 43 54 4f 52 49 4e 47 20 50 52 4f 47 52 41 4d 0d   ┆0010 // PRIME FACTORING PROGRAM ┆
0x020…040 30 30 32 30 20 2f 2f 0d 30 30 33 30 20 2f 2f 20 41 53 4b 20 46 4f 52 20 41 20 4e 55 4d 42 45 52   ┆0020 // 0030 // ASK FOR A NUMBER┆
0x040…060 20 41 4e 44 20 54 45 53 54 20 49 54 0d 30 30 34 30 20 2f 2f 0d 30 30 35 30 20 4c 4f 4f 50 20 0d   ┆ AND TEST IT 0040 // 0050 LOOP  ┆
0x060…080 30 30 36 30 20 20 20 49 4e 50 55 54 20 22 49 4e 50 55 54 20 50 4f 53 49 54 49 56 45 20 49 4e 54   ┆0060   INPUT "INPUT POSITIVE INT┆
0x080…0a0 45 47 45 52 20 54 4f 20 42 45 20 46 41 43 54 4f 52 45 44 3a 20 22 3a 20 4e 55 4d 42 45 52 0d 30   ┆EGER TO BE FACTORED: ": NUMBER 0┆
0x0a0…0c0 30 36 35 20 20 20 49 46 20 4e 55 4d 42 45 52 3e 30 20 41 4e 44 20 46 52 41 43 28 4e 55 4d 42 45   ┆065   IF NUMBER>0 AND FRAC(NUMBE┆
0x0c0…0e0 52 29 3d 30 20 54 48 45 4e 20 45 58 49 54 20 2f 2f 54 45 53 54 20 46 4f 52 20 50 4f 53 49 54 49   ┆R)=0 THEN EXIT //TEST FOR POSITI┆
0x0e0…100 56 45 20 49 4e 54 45 47 45 52 0d 30 30 38 30 20 20 20 50 52 49 4e 54 20 22 49 20 41 53 4b 45 44   ┆VE INTEGER 0080   PRINT "I ASKED┆
0x100…120 20 46 4f 52 20 41 20 50 4f 53 49 54 49 56 45 20 49 4e 54 45 47 45 52 21 22 0d 30 31 30 30 20 45   ┆ FOR A POSITIVE INTEGER!" 0100 E┆
0x120…140 4e 44 4c 4f 4f 50 20 0d 30 31 31 30 20 50 52 49 4e 54 20 22 54 48 45 20 50 52 49 4d 45 20 46 41   ┆NDLOOP  0110 PRINT "THE PRIME FA┆
0x140…160 43 54 4f 52 53 20 41 52 45 3a 20 22 0d 30 31 32 30 20 2f 2f 0d 30 31 33 30 20 2f 2f 20 50 52 49   ┆CTORS ARE: " 0120 // 0130 // PRI┆
0x160…180 4d 45 20 32 20 41 4e 44 20 33 20 4d 55 53 54 20 42 45 20 54 52 45 41 54 45 44 20 53 45 50 41 52   ┆ME 2 AND 3 MUST BE TREATED SEPAR┆
0x180…1a0 41 54 45 4c 59 0d 30 31 34 30 20 2f 2f 0d 30 31 35 30 20 44 49 56 49 53 4f 52 3a 3d 32 0d 30 31   ┆ATELY 0140 // 0150 DIVISOR:=2 01┆
0x1a0…1c0 36 30 20 45 58 45 43 20 54 45 53 54 0d 30 31 37 30 20 44 49 56 49 53 4f 52 3a 3d 33 0d 30 31 38   ┆60 EXEC TEST 0170 DIVISOR:=3 018┆
0x1c0…1e0 30 20 45 58 45 43 20 54 45 53 54 0d 30 31 39 30 20 2f 2f 0d 30 32 30 30 20 2f 2f 41 4c 4c 20 50   ┆0 EXEC TEST 0190 // 0200 //ALL P┆
0x1e0…200 52 49 4d 45 53 20 43 41 4e 20 42 45 20 45 58 50 52 45 53 53 45 44 20 41 53 0d 30 32 31 30 20 2f   ┆RIMES CAN BE EXPRESSED AS 0210 /┆
0x200…220 2f 4e 2a 36 2b 35 20 41 4e 44 20 4e 2a 36 2b 37 0d 30 32 32 30 20 2f 2f 0d 30 32 33 30 20 46 4f   ┆/N*6+5 AND N*6+7 0220 // 0230 FO┆
0x220…240 52 20 4e 3a 3d 30 20 54 4f 20 53 51 52 28 4e 55 4d 42 45 52 29 2f 36 20 44 4f 20 0d 30 32 34 30   ┆R N:=0 TO SQR(NUMBER)/6 DO  0240┆
0x240…260 20 20 20 44 49 56 49 53 4f 52 3a 3d 36 2a 4e 2b 35 0d 30 32 35 30 20 20 20 45 58 45 43 20 54 45   ┆   DIVISOR:=6*N+5 0250   EXEC TE┆
0x260…280 53 54 0d 30 32 36 30 20 20 20 44 49 56 49 53 4f 52 3a 3d 36 2a 4e 2b 37 0d 30 32 37 30 20 20 20   ┆ST 0260   DIVISOR:=6*N+7 0270   ┆
0x280…2a0 45 58 45 43 20 54 45 53 54 0d 30 32 38 30 20 4e 45 58 54 20 4e 0d 30 32 39 30 20 49 46 20 4e 55   ┆EXEC TEST 0280 NEXT N 0290 IF NU┆
0x2a0…2c0 4d 42 45 52 3c 3e 31 20 54 48 45 4e 20 50 52 49 4e 54 20 4e 55 4d 42 45 52 0d 30 32 39 35 20 2f   ┆MBER<>1 THEN PRINT NUMBER 0295 /┆
0x2c0…2e0 2f 0d 30 33 30 30 20 50 52 4f 43 20 54 45 53 54 0d 30 33 31 30 20 20 20 57 48 49 4c 45 20 4e 55   ┆/ 0300 PROC TEST 0310   WHILE NU┆
0x2e0…300 4d 42 45 52 20 4d 4f 44 20 44 49 56 49 53 4f 52 3d 30 20 44 4f 20 0d 30 33 32 30 20 20 20 20 20   ┆MBER MOD DIVISOR=0 DO  0320     ┆
0x300…320 50 52 49 4e 54 20 44 49 56 49 53 4f 52 3b 0d 30 33 33 30 20 20 20 20 20 4e 55 4d 42 45 52 3a 3d   ┆PRINT DIVISOR; 0330     NUMBER:=┆
0x320…340 4e 55 4d 42 45 52 20 44 49 56 20 44 49 56 49 53 4f 52 0d 30 33 35 30 20 20 20 45 4e 44 57 48 49   ┆NUMBER DIV DIVISOR 0350   ENDWHI┆
0x340…360 4c 45 20 0d 30 33 36 30 20 45 4e 44 50 52 4f 43 20 54 45 53 54 0d 20 20 57 48 49 4c 45 20 4e 55   ┆LE  0360 ENDPROC TEST   WHILE NU┆
0x360…380 4d 42 45 52 20 4d 4f 44 20 44 49 56 49 53 4f 52 3d 30 20 44 4f 20 0d 30 33 32 30 20 20 20 20 56   ┆MBER MOD DIVISOR=0 DO  0320    V┆