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

MATTRANSP.L

FILE INFORMATION

FILENAME(S): MATTRANSP.L

FILE TYPE(S): SEQ

FILE SIZE: 177b

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

APPEARS ON: 3 disk(s)

FILE HASH

ac851729ccb11030294e116734b1a99293dd144f2376016ec4131b4cb9f87d91

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL MATTRANSP.L SEQ hedning, Mattias H00r 10 2 DOWNLOAD FILE
CCS COMAL MATTRANSP.L SEQ hedning, Mattias H00r 10 2 DOWNLOAD FILE
COMAL A MATTRANSP.L SEQ hedning, Helsinborg 10 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4D 41 54 54 52 41  |9000 PROC MATTRA|
00000010: 4E 53 50 28 52 45 46 20  41 28 2C 29 2C 4D 2C 4E  |NSP(REF A(,),M,N|
00000020: 2C 52 45 46 20 41 54 27  28 2C 29 29 20 43 4C 4F  |,REF AT'(,)) CLO|
00000030: 53 45 44 0D 39 30 31 30  20 46 4F 52 20 49 23 3A  |SED.9010 FOR I#:|
00000040: 3D 31 20 54 4F 20 4D 20  44 4F 0D 39 30 32 30 20  |=1 TO M DO.9020 |
00000050: 46 4F 52 20 4A 23 3A 3D  31 20 54 4F 20 4E 20 44  |FOR J#:=1 TO N D|
00000060: 4F 0D 39 30 33 30 20 41  54 27 28 4A 23 2C 49 23  |O.9030 AT'(J#,I#|
00000070: 29 3A 3D 41 28 49 23 2C  4A 23 29 0D 39 30 34 30  |):=A(I#,J#).9040|
00000080: 20 45 4E 44 46 4F 52 20  4A 23 0D 39 30 35 30 20  | ENDFOR J#.9050 |
00000090: 45 4E 44 46 4F 52 20 49  23 0D 39 30 36 30 20 45  |ENDFOR I#.9060 E|
000000A0: 4E 44 50 52 4F 43 20 4D  41 54 54 52 41 4E 53 50  |NDPROC MATTRANSP|
000000B0: 0D                                                |.               |

9000 PROC MATTRANSP(REF A(,),M,N,REF AT'
(,)) CLOSED.9010 FOR I#:=1 TO M DO.9020 
FOR J#:=1 TO N DO.9030 AT'(J#,I#):=A(I#,
J#).9040 ENDFOR J#.9050 ENDFOR I#.9060 E
NDPROC MATTRANSP.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL