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

MATUNIT.L

FILE INFORMATION

FILENAME(S): MATUNIT.L

FILE TYPE(S): SEQ

FILE SIZE: 168b

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

APPEARS ON: 2 disk(s)

FILE HASH

0cc6c6e289c8e1394a712d6dc7272b958c4f4aba8e87521ffc0176fcefa56ab0

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4D 41 54 55 4E 49  |9000 PROC MATUNI|
00000010: 54 28 52 45 46 20 55 28  2C 29 2C 4E 29 20 43 4C  |T(REF U(,),N) CL|
00000020: 4F 53 45 44 0D 39 30 31  30 20 46 4F 52 20 4A 23  |OSED.9010 FOR J#|
00000030: 3A 3D 31 20 54 4F 20 4E  20 44 4F 0D 39 30 32 30  |:=1 TO N DO.9020|
00000040: 20 46 4F 52 20 49 23 3A  3D 31 20 54 4F 20 4E 20  | FOR I#:=1 TO N |
00000050: 44 4F 0D 39 30 33 30 20  55 28 4A 23 2C 49 23 29  |DO.9030 U(J#,I#)|
00000060: 3A 3D 30 0D 39 30 34 30  20 55 28 49 23 2C 49 23  |:=0.9040 U(I#,I#|
00000070: 29 3A 3D 31 0D 39 30 35  30 20 45 4E 44 46 4F 52  |):=1.9050 ENDFOR|
00000080: 20 49 23 0D 39 30 36 30  20 45 4E 44 46 4F 52 20  | I#.9060 ENDFOR |
00000090: 4A 23 0D 39 30 37 30 20  45 4E 44 50 52 4F 43 20  |J#.9070 ENDPROC |
000000A0: 4D 41 54 55 4E 49 54 0D                           |MATUNIT.        |

9000 PROC MATUNIT(REF U(,),N) CLOSED.901
0 FOR J#:=1 TO N DO.9020 FOR I#:=1 TO N 
DO.9030 U(J#,I#):=0.9040 U(I#,I#):=1.905
0 ENDFOR I#.9060 ENDFOR J#.9070 ENDPROC 
MATUNIT.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL