MSXPen

100 ' Test unRLEWB to RAM

110 DEFINT A-Z

120 SCREEN 1

122 WIDTH 32

130 PRINT "Decompress data to RAM"

140 RESTORE 1020

150 DE=&HE000

160 GOSUB 9100

170 PRINT "Copy RAM to VRAM"

180 DE=BASE(5)+(32*2)

190 FOR BC=&HE000 TO &HE160

200 A=PEEK(BC)

210 VPOKE DE,A

220 DE=DE+1

230 NEXT

240 IF INKEY$="" THEN 240

250 LOCATE 0,14

260 END

1000 ' map size width:32 height:11

1010 ' RLE WB compressed - Original size= 352 - Compress size= 103

1020 DATA 24,128,29,23,25,22,128,29,32,22,22,128,29,32,22,22

1030 DATA 128,29,32,22,22,128,8,32,72,101,108,108,111,32,87,111

1040 DATA 114,108,100,33,128,8,32,22,22,128,29,32,22,22,128,29

1050 DATA 32,22,22,128,29,32,22,26,128,4,23,18,128,17,23,18

1060 DATA 128,4,23,27,128,5,32,22,32,80,114,101,115,115,32,97

1070 DATA 110,121,32,107,101,121,128,3,32,22,128,11,32,26,128,17

1080 DATA 23,27,128,5,32,128,255

9000 '=================================

9010 ' unRLEWB to RAM for MSX BASIC

9020 ' Decompress RLEWB data to RAM

9030 ' Input: 

9040 '  RESTORE [line] <-- DATAs

9050 '              DE <-- RAM address

9060 '=================================

9100 READ A

9110 IF A=128 THEN 9130

9120 POKE DE,A:DE=DE+1:GOTO 9100

9130 READ B

9140 IF B=255 THEN RETURN

9150 IF B=0 THEN 9120

9160 READ A

9170 FOR DE=DE TO DE+B:POKE DE,A:NEXT

9180 GOTO 9100