10 FOR I=0 TO &H12:READ A$ 20 POKE &H2000+I,VAL("&H"+A$):NEXT 30 CLS:POKE &H200A,91 40 PRINT FRE 1:CALL &H2000:PRINT FRE 1:END 100 DATA 33,C0,8C,D8,B4,BB,CD,41 110 DATA 81,C7,5B,00,8A,05,FE,C8 120 DATA 88,05,CF