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

⟦846715db0⟧

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

Derivation

└─⟦4dccd4eef⟧ Bits:30004660 Matematik med grafer (Butler)
    └─ ⟦this⟧ »TALKONTR.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 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 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┆