_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

ASC.FUNC

FILE INFORMATION

FILENAME(S): ASC.FUNC

FILE TYPE(S): SEQ

FILE SIZE: 186b

FIRST SEEN: 2025-12-01 01:48:19

APPEARS ON: 3 disk(s)

FILE HASH

6044088e1bdea6df3037799dfdb4cb3c33964e32d6ac0e508567eca67de834c9

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMAL 2 ASC.FUNC SEQ hedning, Mattias H00r 23 0 DOWNLOAD FILE
CCS COMAL 2 ASC.FUNC SEQ hedning, Mattias H00r 23 0 DOWNLOAD FILE
COMAL B ASC.FUNC SEQ hedning, Helsinborg 23 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 31 38 30 20 46 55 4E  43 20 41 53 43 28 58 24  |9180 FUNC ASC(X$|
00000010: 29 20 0D 39 31 39 30 20  43 3A 3D 4F 52 44 28 58  |) .9190 C:=ORD(X|
00000020: 24 29 0D 39 32 30 30 20  49 46 20 43 3E 3D 36 35  |$).9200 IF C>=65|
00000030: 20 41 4E 44 20 43 3C 3D  39 30 20 54 48 45 4E 0D  | AND C<=90 THEN.|
00000040: 39 32 31 30 20 52 45 54  55 52 4E 20 43 2B 33 32  |9210 RETURN C+32|
00000050: 0D 39 32 32 30 20 45 4C  49 46 20 43 3E 3D 31 39  |.9220 ELIF C>=19|
00000060: 33 20 41 4E 44 20 43 3C  3D 32 32 33 20 54 48 45  |3 AND C<=223 THE|
00000070: 4E 0D 39 32 33 30 20 52  45 54 55 52 4E 20 43 2D  |N.9230 RETURN C-|
00000080: 31 32 38 0D 39 32 34 30  20 45 4C 53 45 20 0D 39  |128.9240 ELSE .9|
00000090: 32 35 30 20 52 45 54 55  52 4E 20 43 0D 39 32 36  |250 RETURN C.926|
000000A0: 30 20 45 4E 44 49 46 20  0D 39 32 37 30 20 45 4E  |0 ENDIF .9270 EN|
000000B0: 44 46 55 4E 43 20 41 53  43 0D                    |DFUNC ASC.      |

9180 FUNC ASC(X$) .9190 C:=ORD(X$).9200 
IF C>=65 AND C<=90 THEN.9210 RETURN C+32
.9220 ELIF C>=193 AND C<=223 THEN.9230 R
ETURN C-128.9240 ELSE .9250 RETURN C.926
0 ENDIF .9270 ENDFUNC ASC.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL