10 MODE 1:p=&A400:MEMORY p-1:READ a$:FOR a=0 TO &74:POKE p+a,VAL(® & "+MID$(a$,a*2+1,2)):NEXT:SAVE "pack-gph ",b,&A400,&74:CALL &A400:|GPEN,3:a$= "DEUULIGNE RSX 01":FOR l=-6 TO 8:|GPAS,l,8:MOVE 150-l*4,170-l*16:|GPRINT,@a$:NEXT:LOCATE 28,23:PRINT "RSX PAC K #01" 20 DATA "0109A421F7BDC3D1BC1AA4C333A4C351A4C35FA4C36DA4C371A4475052494ED4475041D3475045CE474D4F44C547464F4EC400EB7EB7C847235E2356C51A13D5CDFCBB110000210400CDC3BBD1C110ECC9ED5347A4DD6603DD6E022244A4C93D28077BCDE4BBDD5E027BC3DEBB7BC359BC7BC39FBB"