LOAD'COMP.PROC

FILE INFORMATION

FILENAME(S): LOAD'COMP.PROC

FILE TYPE(S): SEQ

FILE SIZE: 880b

FIRST SEEN: 2025-11-30 01:07:52

APPEARS ON: 4 disk(s)

FILE HASH

6608aebabc1b5d68c94787701942d97734904ccf4b6d489f7c7385b42bb95bed

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
FREEWARE DISK NR	LOAD'COMP.PROC	SEQ	Treasure Chest - Wolfgang Rauprich	33	DOWNLOAD FILE
FREESOFT DISK NR	LOAD'COMP.PROC	SEQ	Treasure Chest - Wolfgang Rauprich	33	DOWNLOAD FILE
C OMAL	LOAD'COMP.PROC	SEQ	Treasure Chest - Wolfgang Rauprich	33	DOWNLOAD FILE
C OMAL	LOAD'COMP.PROC	SEQ	Treasure Chest - Wolfgang Rauprich	33	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 31 30 20 50 52 4F  |9000 //.9010 PRO|
00000010: 43 20 4C 4F 41 44 27 43  4F 4D 50 52 45 53 53 45  |C LOAD'COMPRESSE|
00000020: 44 28 4E 41 4D 45 24 29  20 43 4C 4F 53 45 44 0D  |D(NAME$) CLOSED.|
00000030: 39 30 32 30 20 4D 45 4D  3A 3D 34 39 31 35 32 3B  |9020 MEM:=49152;|
00000040: 20 43 48 45 43 4B 53 55  4D 3A 3D 30 0D 39 30 33  | CHECKSUM:=0.903|
00000050: 30 20 44 49 4D 20 44 53  24 20 4F 46 20 32 0D 39  |0 DIM DS$ OF 2.9|
00000060: 30 34 30 20 49 46 20 50  45 45 4B 28 4D 45 4D 2B  |040 IF PEEK(MEM+|
00000070: 31 29 3C 3E 38 20 54 48  45 4E 0D 39 30 35 30 20  |1)<>8 THEN.9050 |
00000080: 52 45 53 54 4F 52 45 20  0D 39 30 36 30 20 57 48  |RESTORE .9060 WH|
00000090: 49 4C 45 20 4E 4F 54 20  45 4F 44 20 44 4F 0D 39  |ILE NOT EOD DO.9|
000000A0: 30 37 30 20 52 45 41 44  20 4E 55 4D 0D 39 30 38  |070 READ NUM.908|
000000B0: 30 20 43 48 45 43 4B 53  55 4D 3A 2B 4E 55 4D 0D  |0 CHECKSUM:+NUM.|
000000C0: 39 30 39 30 20 50 4F 4B  45 20 4D 45 4D 2C 4E 55  |9090 POKE MEM,NU|
000000D0: 4D 0D 39 31 30 30 20 4D  45 4D 3A 2B 31 0D 39 31  |M.9100 MEM:+1.91|
000000E0: 31 30 20 45 4E 44 57 48  49 4C 45 20 0D 39 31 32  |10 ENDWHILE .912|
000000F0: 30 20 49 46 20 43 48 45  43 4B 53 55 4D 3C 3E 31  |0 IF CHECKSUM<>1|
00000100: 30 36 35 37 20 54 48 45  4E 0D 39 31 33 30 20 50  |0657 THEN.9130 P|
00000110: 52 49 4E 54 20 43 48 52  24 28 31 34 37 29 0D 39  |RINT CHR$(147).9|
00000120: 31 34 30 20 50 52 49 4E  54 20 22 45 52 52 4F 52  |140 PRINT "ERROR|
00000130: 20 49 4E 20 44 41 54 41  20 53 54 41 54 4D 45 4E  | IN DATA STATMEN|
00000140: 54 53 21 22 0D 39 31 35  30 20 43 4C 4F 53 45 0D  |TS!".9150 CLOSE.|
00000150: 39 31 36 30 20 53 54 4F  50 20 0D 39 31 37 30 20  |9160 STOP .9170 |
00000160: 45 4E 44 49 46 20 0D 39  31 38 30 20 45 4E 44 49  |ENDIF .9180 ENDI|
00000170: 46 20 0D 39 31 39 30 20  2F 2F 0D 39 32 30 30 20  |F .9190 //.9200 |
00000180: 4F 50 45 4E 20 46 49 4C  45 20 38 2C 4E 41 4D 45  |OPEN FILE 8,NAME|
00000190: 24 2B 22 2E 43 52 47 22  2C 52 45 41 44 0D 39 32  |$+".CRG",READ.92|
000001A0: 31 30 20 44 53 24 3A 3D  53 54 41 54 55 53 24 0D  |10 DS$:=STATUS$.|
000001B0: 39 32 32 30 20 49 46 20  44 53 24 3D 22 30 30 22  |9220 IF DS$="00"|
000001C0: 20 54 48 45 4E 0D 39 32  33 30 20 53 59 53 20 34  | THEN.9230 SYS 4|
000001D0: 39 31 35 32 0D 39 32 34  30 20 45 4E 44 49 46 20  |9152.9240 ENDIF |
000001E0: 0D 39 32 35 30 20 43 4C  4F 53 45 20 46 49 4C 45  |.9250 CLOSE FILE|
000001F0: 20 38 0D 39 32 36 30 20  2F 2F 0D 39 32 37 30 20  | 8.9260 //.9270 |
00000200: 44 41 54 41 20 31 36 32  2C 38 2C 33 32 2C 31 39  |DATA 162,8,32,19|
00000210: 38 2C 32 35 35 2C 31 36  39 2C 30 2C 31 33 33 0D  |8,255,169,0,133.|
00000220: 39 32 38 30 20 44 41 54  41 20 31 36 37 2C 31 36  |9280 DATA 167,16|
00000230: 39 2C 32 32 34 2C 31 33  33 2C 31 36 38 2C 33 32  |9,224,133,168,32|
00000240: 2C 32 30 37 0D 39 32 39  30 20 44 41 54 41 20 32  |,207.9290 DATA 2|
00000250: 35 35 2C 32 30 31 2C 32  35 34 2C 32 30 38 2C 33  |55,201,254,208,3|
00000260: 38 2C 33 32 2C 32 30 37  2C 32 35 35 0D 39 33 30  |8,32,207,255.930|
00000270: 30 20 44 41 54 41 20 31  33 33 2C 31 37 31 2C 33  |0 DATA 133,171,3|
00000280: 32 2C 32 30 37 2C 32 35  35 2C 31 33 33 2C 31 38  |2,207,255,133,18|
00000290: 30 0D 39 33 31 30 20 44  41 54 41 20 31 36 30 2C  |0.9310 DATA 160,|
000002A0: 30 2C 31 36 35 2C 31 37  31 2C 31 34 35 2C 31 36  |0,165,171,145,16|
000002B0: 37 2C 32 33 30 2C 31 36  37 0D 39 33 32 30 20 44  |7,230,167.9320 D|
000002C0: 41 54 41 20 32 30 38 2C  32 2C 32 33 30 2C 31 36  |ATA 208,2,230,16|
000002D0: 38 2C 31 39 38 2C 31 38  30 2C 32 30 38 2C 32 34  |8,198,180,208,24|
000002E0: 32 0D 39 33 33 30 20 44  41 54 41 20 33 32 2C 31  |2.9330 DATA 32,1|
000002F0: 38 33 2C 32 35 35 2C 32  34 30 2C 34 2C 33 32 2C  |83,255,240,4,32,|
00000300: 32 30 34 2C 32 35 35 0D  39 33 34 30 20 44 41 54  |204,255.9340 DAT|
00000310: 41 20 39 36 2C 32 34 2C  31 34 34 2C 32 31 31 2C  |A 96,24,144,211,|
00000320: 31 34 35 2C 31 36 37 2C  32 33 30 2C 31 36 37 0D  |145,167,230,167.|
00000330: 39 33 35 30 20 44 41 54  41 20 32 30 38 2C 32 2C  |9350 DATA 208,2,|
00000340: 32 33 30 2C 31 36 38 2C  32 34 2C 31 34 34 2C 32  |230,168,24,144,2|
00000350: 33 33 0D 39 33 36 30 20  45 4E 44 50 52 4F 43 20  |33.9360 ENDPROC |
00000360: 4C 4F 41 44 27 43 4F 4D  50 52 45 53 53 45 44 0D  |LOAD'COMPRESSED.|

9000 //.9010 PROC LOAD'COMPRESSED(NAME$)
 CLOSED.9020 MEM:=49152; CHECKSUM:=0.903
0 DIM DS$ OF 2.9040 IF PEEK(MEM+1)<>8 TH
EN.9050 RESTORE .9060 WHILE NOT EOD DO.9
070 READ NUM.9080 CHECKSUM:+NUM.9090 POK
E MEM,NUM.9100 MEM:+1.9110 ENDWHILE .912
0 IF CHECKSUM<>10657 THEN.9130 PRINT CHR
$(147).9140 PRINT "ERROR IN DATA STATMEN
TS!".9150 CLOSE.9160 STOP .9170 ENDIF .9
180 ENDIF .9190 //.9200 OPEN FILE 8,NAME
$+".CRG",READ.9210 DS$:=STATUS$.9220 IF 
DS$="00" THEN.9230 SYS 49152.9240 ENDIF 
.9250 CLOSE FILE 8.9260 //.9270 DATA 162
,8,32,198,255,169,0,133.9280 DATA 167,16
9,224,133,168,32,207.9290 DATA 255,201,2
54,208,38,32,207,255.9300 DATA 133,171,3
2,207,255,133,180.9310 DATA 160,0,165,17
1,145,167,230,167.9320 DATA 208,2,230,16
8,198,180,208,242.9330 DATA 32,183,255,2
40,4,32,204,255.9340 DATA 96,24,144,211,
145,167,230,167.9350 DATA 208,2,230,168,
24,144,233.9360 ENDPROC LOAD'COMPRESSED.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL