OBJ'LOAD.L
FILE INFORMATION
FILENAME(S): OBJ'LOAD.L
FILE TYPE(S): SEQ
FILE SIZE: 427b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
90eb06e7f9d3013ca98605884a1a866aba884fd509582d54f4dcc4d6bcbebeca
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | OBJ'LOAD.L | SEQ | hedning, Mattias H00r | 10 | 11 | DOWNLOAD FILE |
| CCS COMAL | OBJ'LOAD.L | SEQ | hedning, Mattias H00r | 10 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 4F 42 4A 27 4C 4F |9000 PROC OBJ'LO| 00000010: 41 44 28 46 49 4C 45 4E 41 4D 45 24 2C 44 45 56 |AD(FILENAME$,DEV| 00000020: 49 43 45 29 20 43 4C 4F 53 45 44 0D 39 30 31 30 |ICE) CLOSED.9010| 00000030: 20 4C 3A 3D 4C 45 4E 28 46 49 4C 45 4E 41 4D 45 | L:=LEN(FILENAME| 00000040: 24 29 0D 39 30 32 30 20 46 4F 52 20 49 3A 3D 31 |$).9020 FOR I:=1| 00000050: 20 54 4F 20 4C 20 44 4F 0D 39 30 33 30 20 50 4F | TO L DO.9030 PO| 00000060: 4B 45 20 38 32 37 2B 49 2C 4F 52 44 28 46 49 4C |KE 827+I,ORD(FIL| 00000070: 45 4E 41 4D 45 24 28 49 29 29 0D 39 30 34 30 20 |ENAME$(I)).9040 | 00000080: 45 4E 44 46 4F 52 20 49 0D 39 30 35 30 20 46 4F |ENDFOR I.9050 FO| 00000090: 52 20 49 3A 3D 38 35 30 20 54 4F 20 38 38 31 20 |R I:=850 TO 881 | 000000A0: 44 4F 0D 39 30 36 30 20 52 45 41 44 20 58 0D 39 |DO.9060 READ X.9| 000000B0: 30 37 30 20 50 4F 4B 45 20 49 2C 58 0D 39 30 38 |070 POKE I,X.908| 000000C0: 30 20 45 4E 44 46 4F 52 20 0D 39 30 39 30 20 44 |0 ENDFOR .9090 D| 000000D0: 41 54 41 20 31 36 39 2C 30 2C 31 37 30 2C 31 36 |ATA 169,0,170,16| 000000E0: 30 2C 32 35 35 2C 33 32 2C 31 38 36 2C 32 35 35 |0,255,32,186,255| 000000F0: 2C 31 36 39 2C 30 2C 31 36 32 2C 36 30 2C 31 36 |,169,0,162,60,16| 00000100: 30 2C 33 2C 33 32 2C 31 38 39 2C 32 35 35 2C 31 |0,3,32,189,255,1| 00000110: 36 39 2C 30 2C 31 36 32 0D 39 31 30 30 20 44 41 |69,0,162.9100 DA| 00000120: 54 41 20 32 35 35 2C 31 36 30 2C 32 35 35 2C 33 |TA 255,160,255,3| 00000130: 32 2C 32 31 33 2C 32 35 35 2C 31 36 39 2C 30 2C |2,213,255,169,0,| 00000140: 33 32 2C 31 39 35 2C 32 35 35 2C 39 36 0D 39 31 |32,195,255,96.91| 00000150: 31 30 20 50 4F 4B 45 20 38 35 39 2C 4C 0D 39 31 |10 POKE 859,L.91| 00000160: 32 30 20 50 4F 4B 45 20 38 35 31 2C 44 45 56 49 |20 POKE 851,DEVI| 00000170: 43 45 0D 39 31 33 30 20 50 4F 4B 45 20 38 37 37 |CE.9130 POKE 877| 00000180: 2C 44 45 56 49 43 45 0D 39 31 34 30 20 53 59 53 |,DEVICE.9140 SYS| 00000190: 20 38 35 30 0D 39 31 35 30 20 45 4E 44 50 52 4F | 850.9150 ENDPRO| 000001A0: 43 20 4F 42 4A 27 4C 4F 41 44 0D |C OBJ'LOAD. |
9000 PROC OBJ'LOAD(FILENAME$,DEVICE) CLO SED.9010 L:=LEN(FILENAME$).9020 FOR I:=1 TO L DO.9030 POKE 827+I,ORD(FILENAME$(I )).9040 ENDFOR I.9050 FOR I:=850 TO 881 DO.9060 READ X.9070 POKE I,X.9080 ENDFOR .9090 DATA 169,0,170,160,255,32,186,255 ,169,0,162,60,160,3,32,189,255,169,0,162 .9100 DATA 255,160,255,32,213,255,169,0, 32,195,255,96.9110 POKE 859,L.9120 POKE 851,DEVICE.9130 POKE 877,DEVICE.9140 SYS 850.9150 ENDPROC OBJ'LOAD.
> CLICK IMAGE PREVIEW FOR FULL MODAL