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

ASCII.L

FILE INFORMATION

FILENAME(S): ASCII.L

FILE TYPE(S): SEQ

FILE SIZE: 196b

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

APPEARS ON: 3 disk(s)

FILE HASH

17ae0d5eccb71955ad9c278d3c07421cf302f0cc39bb3adff69bd92b71cea602

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL ASCII.L SEQ hedning, Mattias H00r 22 1 DOWNLOAD FILE
CCS COMAL ASCII.L SEQ hedning, Mattias H00r 22 1 DOWNLOAD FILE
COMAL A ASCII.L SEQ hedning, Helsinborg 22 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 41 53 43 49 49 28  |9000 FUNC ASCII(|
00000010: 58 24 29 20 43 4C 4F 53  45 44 0D 39 30 31 30 20  |X$) CLOSED.9010 |
00000020: 43 3A 3D 4F 52 44 28 58  24 29 0D 39 30 32 30 20  |C:=ORD(X$).9020 |
00000030: 49 46 20 43 3E 3D 36 35  20 41 4E 44 20 43 3C 3D  |IF C>=65 AND C<=|
00000040: 39 30 20 54 48 45 4E 0D  39 30 33 30 20 52 45 54  |90 THEN.9030 RET|
00000050: 55 52 4E 20 43 2B 33 32  0D 39 30 34 30 20 45 4C  |URN C+32.9040 EL|
00000060: 49 46 20 43 3E 3D 31 39  33 20 41 4E 44 20 43 3C  |IF C>=193 AND C<|
00000070: 3D 32 31 39 20 54 48 45  4E 0D 39 30 35 30 20 52  |=219 THEN.9050 R|
00000080: 45 54 55 52 4E 20 43 2D  31 32 38 0D 39 30 36 30  |ETURN C-128.9060|
00000090: 20 45 4C 53 45 20 0D 39  30 37 30 20 52 45 54 55  | ELSE .9070 RETU|
000000A0: 52 4E 20 43 0D 39 30 38  30 20 45 4E 44 49 46 20  |RN C.9080 ENDIF |
000000B0: 0D 39 30 39 30 20 45 4E  44 46 55 4E 43 20 41 53  |.9090 ENDFUNC AS|
000000C0: 43 49 49 0D                                       |CII.            |

9000 FUNC ASCII(X$) CLOSED.9010 C:=ORD(X
$).9020 IF C>=65 AND C<=90 THEN.9030 RET
URN C+32.9040 ELIF C>=193 AND C<=219 THE
N.9050 RETURN C-128.9060 ELSE .9070 RETU
RN C.9080 ENDIF .9090 ENDFUNC ASCII.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL