@opt stack_pointer RF @opt csr_scratch RH @use ext_std:* @use ext_string_io:* ; bootstrap code (must be called to set up mandatory data) ; will jump to label main @include bootstrap @label main cursor_to_line RA 1 put_char RA RB %SPACE put_string RA RB HELLO CORECAMP cursor_to_line RA 3 put_char RA RB %SPACE put_string RA RB BY JAN ; set graphics mode to sprite mode ; set_graphics_mode gr_sprite_mode set_graphics_mode gr_text_mode @label loop jpi loop