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

MATSCALE.L

FILE INFORMATION

FILENAME(S): MATSCALE.L

FILE TYPE(S): SEQ

FILE SIZE: 187b

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

APPEARS ON: 2 disk(s)

FILE HASH

73dbe5126d28e80837e04b810f6938f44aa391ce456d0eb23855c88af9c10aeb

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL MATSCALE.L SEQ hedning, Mattias H00r 10 1 DOWNLOAD FILE
CCS COMAL MATSCALE.L SEQ hedning, Mattias H00r 10 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4D 41 54 53 43 41  |9000 PROC MATSCA|
00000010: 4C 45 28 52 45 46 20 41  28 2C 29 2C 52 45 46 20  |LE(REF A(,),REF |
00000020: 4D 2C 52 45 46 20 4E 2C  52 45 46 20 43 2C 52 45  |M,REF N,REF C,RE|
00000030: 46 20 42 28 2C 29 29 20  43 4C 4F 53 45 44 0D 39  |F B(,)) CLOSED.9|
00000040: 30 31 30 20 46 4F 52 20  49 23 3A 3D 31 20 54 4F  |010 FOR I#:=1 TO|
00000050: 20 4D 20 44 4F 0D 39 30  32 30 20 46 4F 52 20 4A  | M DO.9020 FOR J|
00000060: 23 3A 3D 31 20 54 4F 20  4E 20 44 4F 0D 39 30 33  |#:=1 TO N DO.903|
00000070: 30 20 42 28 49 23 2C 4A  23 29 3A 3D 43 2A 41 28  |0 B(I#,J#):=C*A(|
00000080: 49 23 2C 4A 23 29 0D 39  30 34 30 20 45 4E 44 46  |I#,J#).9040 ENDF|
00000090: 4F 52 20 4A 23 0D 39 30  35 30 20 45 4E 44 46 4F  |OR J#.9050 ENDFO|
000000A0: 52 20 49 23 0D 39 30 36  30 20 45 4E 44 50 52 4F  |R I#.9060 ENDPRO|
000000B0: 43 20 4D 41 54 53 43 41  4C 45 0D                 |C MATSCALE.     |

9000 PROC MATSCALE(REF A(,),REF M,REF N,
REF C,REF B(,)) CLOSED.9010 FOR I#:=1 TO
 M DO.9020 FOR J#:=1 TO N DO.9030 B(I#,J
#):=C*A(I#,J#).9040 ENDFOR J#.9050 ENDFO
R I#.9060 ENDPROC MATSCALE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL