10 MEMORY &8FFF : FOR i =0 TO 200 READ a$ POKE &A000+i,VAL("&"+a$): NEXT :CALL &A000:NEW
20 DATA 01,0A,A0,21,2C,A0,CD,D1,BC,C9,26 A0,18,6A,08,81,44,41,4D,53,2E,54,58,54,31,00,00,00,00,00,00,00,00,00,00,00,00,00 
30 DATA 45,58,49,53,D4,00,FC,A6,0A,A0,43,61,20,67,61,7A,65,20,70,61,73,0D,0A,FF,43,6F,6E,74,69,6E,75,65,2C,20,63,27,65,73
40 DATA 74,20,62,6F,6E,00,0A,FF,4E,65,74,74,6F,69,65,20,74,65,73,20,6C,75,6E,65,74,74,65,73,20,6D,6F,6E,20,67,72,61,6E,64
50 DATA 2E,2E,2E,0D,0A,FF,DD,56,01,DD,5E,00,1A,FE,00,20,07,11,00,90,CD,9B,BC,C9,FE,0C,33,05,21,54,A0,18,36,32,0E,A0,47,13
60 DATA 1A,6F,13,1A,67,11,10,A0,7E,12,23,13,10,FA,21,0F,A0,CD,D4,BC,D0,3E,FF,CD,1B,00,3A,0E,A9,47,21,10,A0,11,00,90,CD,77,BC,30,05,21,3E,A0,18,03,21,30,A0,7E,FE,FF,28,06,CD,5A,BB,23,18,F5,CD,7A,BC,C9,00,00,00,00,00