VAL.L
FILE INFORMATION
FILENAME(S): VAL.L
FILE TYPE(S): SEQ
FILE SIZE: 272b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 3 disk(s)
FILE HASH
19de3d343891da96d5a988d6397b06e509633fbeaeddf7c5be5c1157b7b5306a
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | VAL.L | SEQ | hedning, Mattias H00r | 28 | 4 | DOWNLOAD FILE |
| CCS COMAL | VAL.L | SEQ | hedning, Mattias H00r | 28 | 4 | DOWNLOAD FILE |
| COMAL A | VAL.L | SEQ | hedning, Helsinborg | 28 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 46 55 4E 43 20 56 41 4C 28 41 24 |9000 FUNC VAL(A$| 00000010: 29 20 43 4C 4F 53 45 44 0D 39 30 31 30 20 53 3A |) CLOSED.9010 S:| 00000020: 3D 30 0D 39 30 32 30 20 59 3A 3D 22 2E 22 20 49 |=0.9020 Y:="." I| 00000030: 4E 20 41 24 0D 39 30 33 30 20 4C 3A 3D 4C 45 4E |N A$.9030 L:=LEN| 00000040: 28 41 24 29 0D 39 30 34 30 20 49 46 20 59 3C 3E |(A$).9040 IF Y<>| 00000050: 30 20 54 48 45 4E 20 59 3A 3D 4C 2D 59 2B 31 0D |0 THEN Y:=L-Y+1.| 00000060: 39 30 35 30 20 46 4F 52 20 58 3A 3D 31 20 54 4F |9050 FOR X:=1 TO| 00000070: 20 4C 20 44 4F 0D 39 30 36 30 20 49 46 20 41 24 | L DO.9060 IF A$| 00000080: 28 58 29 20 49 4E 20 22 31 32 33 34 35 36 37 38 |(X) IN "12345678| 00000090: 39 30 22 20 54 48 45 4E 0D 39 30 37 30 20 53 3A |90" THEN.9070 S:| 000000A0: 3D 53 2B 28 4F 52 44 28 41 24 28 58 29 29 2D 34 |=S+(ORD(A$(X))-4| 000000B0: 38 29 2A 28 31 30 5E 28 4C 2D 58 2D 59 29 29 0D |8)*(10^(L-X-Y)).| 000000C0: 39 30 38 30 20 45 4C 53 45 20 0D 39 30 39 30 20 |9080 ELSE .9090 | 000000D0: 59 3A 3D 59 2D 31 0D 39 31 30 30 20 45 4E 44 49 |Y:=Y-1.9100 ENDI| 000000E0: 46 20 0D 39 31 31 30 20 45 4E 44 46 4F 52 20 58 |F .9110 ENDFOR X| 000000F0: 0D 39 31 32 30 20 52 45 54 55 52 4E 20 53 0D 39 |.9120 RETURN S.9| 00000100: 31 33 30 20 45 4E 44 46 55 4E 43 20 56 41 4C 0D |130 ENDFUNC VAL.|
9000 FUNC VAL(A$) CLOSED.9010 S:=0.9020 Y:="." IN A$.9030 L:=LEN(A$).9040 IF Y<> 0 THEN Y:=L-Y+1.9050 FOR X:=1 TO L DO.90 60 IF A$(X) IN "1234567890" THEN.9070 S: =S+(ORD(A$(X))-48)*(10^(L-X-Y)).9080 ELS E .9090 Y:=Y-1.9100 ENDIF .9110 ENDFOR X .9120 RETURN S.9130 ENDFUNC VAL.
> CLICK IMAGE PREVIEW FOR FULL MODAL