DataMuseum.dk

top - metrics - download

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

└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
    └─⟦this⟧ »TALKONTR.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 31 30 20 20 20 54   ┆9000 PROC TALKONTROL(Z) 9010   T┆
0x020…040      52 41 50 20 45 52 52 2d 0d 39 30 32 30 20 20 20 4f 4b 3a 3d 54 52 55 45 3b 20 50 52 49 4b 3a 3d   ┆RAP ERR- 9020   OK:=TRUE; PRIK:=┆
0x040…060      30 3b 20 53 54 52 45 47 3a 3d 30 0d 39 30 33 30 20 20 20 49 46 20 54 41 4c 24 28 5a 29 3d 22 2d   ┆0; STREG:=0 9030   IF TAL$(Z)="-┆
0x060…080      22 20 4f 52 20 54 41 4c 24 28 5a 29 3d 22 2d 30 22 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45   ┆" OR TAL$(Z)="-0" THEN OK:=FALSE┆
0x080…0a0      0d 39 30 34 30 20 20 20 49 46 20 4c 45 4e 28 54 41 4c 24 28 5a 29 29 3e 3d 33 20 54 48 45 4e 20   ┆ 9040   IF LEN(TAL$(Z))>=3 THEN ┆
0x0a0…0c0      0d 39 30 35 30 20 20 20 20 20 49 46 20 54 41 4c 24 28 5a 29 28 31 3a 33 29 3d 22 2d 30 30 22 20   ┆ 9050     IF TAL$(Z)(1:3)="-00" ┆
0x0c0…0e0      54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 30 36 30 20 20 20 45 4e 44 49 46 20 0d 39 30 37   ┆THEN OK:=FALSE 9060   ENDIF  907┆
0x0e0…100      30 20 20 20 49 46 20 4c 45 4e 28 54 41 4c 24 28 5a 29 29 3e 3d 32 20 54 48 45 4e 20 0d 39 30 38   ┆0   IF LEN(TAL$(Z))>=2 THEN  908┆
0x100…120      30 20 20 20 20 20 49 46 20 54 41 4c 24 28 5a 29 28 31 3a 32 29 3d 22 30 30 22 20 4f 52 20 54 41   ┆0     IF TAL$(Z)(1:2)="00" OR TA┆
0x120…140      4c 24 28 5a 29 28 31 3a 32 29 3d 22 30 2f 22 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39   ┆L$(Z)(1:2)="0/" THEN OK:=FALSE 9┆
0x140…160      30 39 30 20 20 20 45 4e 44 49 46 20 0d 39 31 30 30 20 20 20 46 4f 52 20 49 49 3a 3d 31 20 54 4f   ┆090   ENDIF  9100   FOR II:=1 TO┆
0x160…180      20 4c 45 4e 28 54 41 4c 24 28 5a 29 29 20 44 4f 20 0d 39 31 31 30 20 20 20 20 20 49 46 20 4e 4f   ┆ LEN(TAL$(Z)) DO  9110     IF NO┆
0x180…1a0      54 20 54 41 4c 24 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   ┆T TAL$(Z)(II) IN CIFRE$ THEN OK:┆
0x1a0…1c0      3d 46 41 4c 53 45 0d 39 31 32 30 20 20 20 20 20 49 46 20 49 49 3e 31 20 41 4e 44 20 54 41 4c 24   ┆=FALSE 9120     IF II>1 AND TAL$┆
0x1c0…1e0      28 5a 29 28 49 49 29 3d 22 2d 22 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 31 33 30 20   ┆(Z)(II)="-" THEN OK:=FALSE 9130 ┆
0x1e0…200      20 20 20 20 49 46 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   ┆    IF "."=TAL$(Z)(II) THEN PRIK┆
0x200…220 (1,) 3a 2b 31 0d 39 31 34 30 20 20 20 20 20 49 46 20 22 2f 22 3d 54 41 4c 24 28 5a 29 28 49 49 29 20   ┆:+1 9140     IF "/"=TAL$(Z)(II) ┆
0x220…240      54 48 45 4e 20 53 54 52 45 47 3a 2b 31 0d 39 31 35 30 20 20 20 4e 45 58 54 20 49 49 0d 39 31 36   ┆THEN STREG:+1 9150   NEXT II 916┆
0x240…260      30 20 20 20 49 46 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   ┆0   IF PRIK>1 OR STREG>1 THEN OK┆
0x260…280      3a 3d 46 41 4c 53 45 0d 39 31 37 30 20 20 20 49 46 20 54 41 4c 24 28 5a 29 3d 22 22 20 54 48 45   ┆:=FALSE 9170   IF TAL$(Z)="" THE┆
0x280…2a0      4e 20 0d 39 31 38 30 20 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 31 39 30 20 20 20 45 4c 49   ┆N  9180     OK:=FALSE 9190   ELI┆
0x2a0…2c0      46 20 54 41 4c 24 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   ┆F TAL$(Z)(LEN(TAL$(Z)))="/" THEN┆
0x2c0…2e0      20 0d 39 32 30 30 20 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 32 31 30 20 20 20 45 4c 49 46   ┆  9200     OK:=FALSE 9210   ELIF┆
0x2e0…300      20 54 41 4c 24 28 5a 29 28 31 29 20 49 4e 20 22 2e 2f 22 20 54 48 45 4e 20 0d 39 32 32 30 20 20   ┆ TAL$(Z)(1) IN "./" THEN  9220  ┆
0x300…320      20 20 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 32 33 30 20 20 20 45 4e 44 49 46 20 0d 39 32 33 35 20   ┆   OK:=FALSE 9230   ENDIF  9235 ┆
0x320…340      20 20 49 46 20 22 2e 2f 22 20 49 4e 20 54 41 4c 24 28 5a 29 20 4f 52 20 22 2f 2e 22 20 49 4e 20   ┆  IF "./" IN TAL$(Z) OR "/." IN ┆
0x340…360      54 41 4c 24 28 5a 29 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 32 34 30 20 20 20 49 46   ┆TAL$(Z) THEN OK:=FALSE 9240   IF┆
0x360…380      20 4f 4b 3d 54 52 55 45 20 54 48 45 4e 20 45 58 45 43 20 4f 4d 52 45 47 4e 28 5a 29 0d 39 32 35   ┆ OK=TRUE THEN EXEC OMREGN(Z) 925┆
0x380…3a0      30 20 20 20 49 46 20 45 52 52 28 29 3c 3e 30 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39   ┆0   IF ERR()<>0 THEN OK:=FALSE 9┆
0x3a0…3c0      32 36 30 20 20 20 54 52 41 50 20 45 52 52 2b 0d 39 32 37 30 20 45 4e 44 50 52 4f 43 20 54 41 4c   ┆260   TRAP ERR+ 9270 ENDPROC TAL┆
0x3c0…3e0      4b 4f 4e 54 52 4f 4c 0d 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 0d 39 32 34 30 20 20 20 49 46   ┆KONTROL THEN OK:=FALSE 9240   IF┆
0x3e0…400      20 4f 4b 3d 54 52 55 45 20 54 48 45 4e 20 45 58 45 43 20 4f 4d 52 45 47 4e 28 5a 29 0d 39 32 48   ┆ OK=TRUE THEN EXEC OMREGN(Z) 92H┆