DataMuseum.dk

top - metrics - download

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

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

Hex Dump

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