10 RESTORE:MODE 0:BORDER &D:FOR i=0 TO 15:READ a$:INK i,VAL("&"+a$):NEXT
20 LOAD"pacland1":FOR i=&BE80 TO &BE86:READ a$:POKE i,VAL("&"+a$):NEXT
30 OPENOUT"d":MEMORY &A00:CLOSEOUT:LOAD"pacland2":CALL &BE80
40 DATA 0,1a,3,a,4,9,1,18,3,0,7,a,d,16,2,14,F3,31,FA,BF,C3,B6,0A
