10 SCREEN 0:CLEAR 200,&HC6F3
20 FOR I=&HC6F3 TO &HC6FF:READ A$:POKE I,VAL("&H"+A$):NEXT
30 BLOAD"LABYLIN.BIN"
40 DEF USR=&HC6F3:I=USR(0)
50 CLEAR 200,&HDE40
60 RUN"LABYLIN2.BAS"
70 DATA 21,00,C7,11,00,30,01,80,0C,CD,5C,00,C9