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

⟦9ab78e5b1⟧

    Length: 1024 (0x400)
    Names: »GEMME.CML«

Derivation

└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
    └─ ⟦this⟧ »GEMME.CML« 

Hex Dump

0x000…020 39 30 30 30 20 50 52 4f 43 20 54 41 4c 4b 4f 4e 54 52 4f 4c 28 5a 29 0d 39 30 30 31 20 20 20 4f   ┆9000 PROC TALKONTROL(Z) 9001   O┆
0x020…040 4b 3a 3d 54 52 55 45 3b 20 50 52 49 4b 3a 3d 30 3b 20 53 54 52 45 47 3a 3d 30 0d 39 30 30 32 20   ┆K:=TRUE; PRIK:=0; STREG:=0 9002 ┆
0x040…060 20 20 49 46 20 54 41 4c 24 28 5a 29 3d 22 2d 22 20 4f 52 20 54 41 4c 24 28 5a 29 3d 22 2d 30 22   ┆  IF TAL$(Z)="-" OR TAL$(Z)="-0"┆
0x060…080 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30 30 33 20 20 20 49 46 20 4c 45 4e 28 54 41   ┆ THEN OK:=FALSE 9003   IF LEN(TA┆
0x080…0a0 4c 24 28 5a 29 29 3e 3d 33 20 54 48 45 4e 20 0d 39 30 30 34 20 20 20 20 20 49 46 20 54 41 4c 24   ┆L$(Z))>=3 THEN  9004     IF TAL$┆
0x0a0…0c0 28 5a 29 28 31 3a 33 29 3d 22 2d 30 30 22 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30   ┆(Z)(1:3)="-00" THEN OK:=FALSE 90┆
0x0c0…0e0 30 35 20 20 20 45 4e 44 49 46 20 0d 39 30 30 36 20 20 20 49 46 20 4c 45 4e 28 54 41 4c 24 28 5a   ┆05   ENDIF  9006   IF LEN(TAL$(Z┆
0x0e0…100 29 29 3e 3d 32 20 54 48 45 4e 20 0d 39 30 30 37 20 20 20 20 20 49 46 20 54 41 4c 24 28 5a 29 28   ┆))>=2 THEN  9007     IF TAL$(Z)(┆
0x100…120 31 3a 32 29 3d 22 30 30 22 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30 30 38 20 20 20   ┆1:2)="00" THEN OK:=FALSE 9008   ┆
0x120…140 45 4e 44 49 46 20 0d 39 30 30 39 20 20 20 46 4f 52 20 49 49 3a 3d 31 20 54 4f 20 4c 45 4e 28 54   ┆ENDIF  9009   FOR II:=1 TO LEN(T┆
0x140…160 41 4c 24 28 5a 29 29 20 44 4f 20 0d 39 30 31 30 20 20 20 20 20 49 46 20 4e 4f 54 20 54 41 4c 24   ┆AL$(Z)) DO  9010     IF NOT TAL$┆
0x160…180 28 5a 29 28 49 49 29 20 49 4e 20 43 49 46 52 45 24 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45   ┆(Z)(II) IN CIFRE$ THEN OK:=FALSE┆
0x180…1a0 0d 39 30 31 31 20 20 20 20 20 49 46 20 49 49 3e 31 20 41 4e 44 20 54 41 4c 24 28 5a 29 28 49 49   ┆ 9011     IF II>1 AND TAL$(Z)(II┆
0x1a0…1c0 29 3d 22 2d 22 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30 31 32 20 20 20 20 20 49 46   ┆)="-" THEN OK:=FALSE 9012     IF┆
0x1c0…1e0 20 22 2e 22 3d 54 41 4c 24 28 5a 29 28 49 49 29 20 54 48 45 4e 20 50 52 49 4b 3a 2b 31 0d 39 30   ┆ "."=TAL$(Z)(II) THEN PRIK:+1 90┆
0x1e0…200 31 33 20 20 20 20 20 49 46 20 22 2f 22 3d 54 41 4c 24 28 5a 29 28 49 49 29 20 54 48 45 4e 20 53   ┆13     IF "/"=TAL$(Z)(II) THEN S┆
0x200…220 54 52 45 47 3a 2b 31 0d 39 30 31 34 20 20 20 4e 45 58 54 20 49 49 0d 39 30 31 35 20 20 20 49 46   ┆TREG:+1 9014   NEXT II 9015   IF┆
0x220…240 20 50 52 49 4b 3e 31 20 4f 52 20 53 54 52 45 47 3e 31 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53   ┆ PRIK>1 OR STREG>1 THEN OK:=FALS┆
0x240…260 45 0d 39 30 31 36 20 20 20 49 46 20 54 41 4c 24 28 5a 29 3d 22 22 20 54 48 45 4e 20 0d 39 30 31   ┆E 9016   IF TAL$(Z)="" THEN  901┆
0x260…280 37 20 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30 31 38 20 20 20 45 4c 49 46 20 54 41 4c 24   ┆7     OK:=FALSE 9018   ELIF TAL$┆
0x280…2a0 28 5a 29 28 4c 45 4e 28 54 41 4c 24 28 5a 29 29 29 3d 22 2f 22 20 54 48 45 4e 20 0d 39 30 31 39   ┆(Z)(LEN(TAL$(Z)))="/" THEN  9019┆
0x2a0…2c0 20 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30 32 30 20 20 20 45 4c 49 46 20 54 41 4c 24 28   ┆     OK:=FALSE 9020   ELIF TAL$(┆
0x2c0…2e0 5a 29 28 31 29 20 49 4e 20 22 2e 2f 22 20 54 48 45 4e 20 0d 39 30 32 31 20 20 20 20 20 4f 4b 3a   ┆Z)(1) IN "./" THEN  9021     OK:┆
0x2e0…300 3d 46 41 4c 53 45 0d 39 30 32 32 20 20 20 45 4e 44 49 46 20 0d 39 30 32 33 20 45 4e 44 50 52 4f   ┆=FALSE 9022   ENDIF  9023 ENDPRO┆
0x300…320 43 20 54 41 4c 4b 4f 4e 54 52 4f 4c 0d 39 31 30 30 20 50 52 4f 43 20 48 45 4e 54 54 41 53 54 28   ┆C TALKONTROL 9100 PROC HENTTAST(┆
0x320…340 53 54 52 45 4e 47 24 29 0d 39 31 30 31 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 32 35 35 0d 39 31   ┆STRENG$) 9101   POKE 256, 255 91┆
0x340…360 30 32 20 20 20 52 45 50 45 41 54 20 0d 39 31 30 33 20 20 20 20 20 56 24 3a 3d 43 48 52 24 28 50   ┆02   REPEAT  9103     V$:=CHR$(P┆
0x360…380 45 45 4b 28 32 35 36 29 29 0d 39 31 30 34 20 20 20 55 4e 54 49 4c 20 56 24 20 49 4e 20 53 54 52   ┆EEK(256)) 9104   UNTIL V$ IN STR┆
0x380…3a0 45 4e 47 24 0d 39 31 30 35 20 45 4e 44 50 52 4f 43 20 48 45 4e 54 54 41 53 54 0d 54 41 53 54 28   ┆ENG$ 9105 ENDPROC HENTTAST TAST(┆
0x3a0…3c0 53 54 52 45 4e 47 24 29 0d 39 31 30 31 20 20 20 50 4f 4b 45 20 32 35 36 2c 20 32 35 35 0d 39 31   ┆STRENG$) 9101   POKE 256, 255 91┆
0x3c0…3e0 30 32 20 20 20 52 45 50 45 41 54 20 0d 39 31 30 33 20 20 20 20 20 56 24 3a 3d 43 48 52 24 28 50   ┆02   REPEAT  9103     V$:=CHR$(P┆
0x3e0…400 45 45 4b 28 32 35 36 29 29 0d 39 31 30 34 20 20 20 55 4e 54 49 4c 20 56 24 20 49 4e 20 53 54 1b   ┆EEK(256)) 9104   UNTIL V$ IN ST ┆