10 REM > Example02
   20 ::
   30 REM © 2000 Martin Penny
   40 ::
   50 ON ERROR GOTO 450
   60 ::
   70 MODE 12
   80 OFF
   90 COLOUR 0, 4
  100 COLOUR 7, 3
  110 DIM D% 4095
  120 L% = D% + 4096
  130 FOR T% = 0 TO 1
  140 OPT% = 12 + T% * 3
  150 IF OPT% AND 1 THEN PRINT
  160 O% = D%
  170 P% = &8000
  180 [OPT OPT%
  190 :
  200 .Code%
  210 ADR       R0, String%
  220 SWI       "OS_Write0"
  230 SWI       "OS_NewLine"
  240 .Exit%
  250 MOV       R0, #0
  260 MOV       R1, #0
  270 MOV       R2, #0
  280 SWI       "OS_Exit"
  290 :
  300 .String%
  310 EQUS      "Hello, World!"
  320 EQUB      0
  330 ALIGN
  340 :
  350 .End%
  360 :
  370 ]
  380 IF OPT% AND 1 THEN PRINT
  390 NEXT T%
  400 OSCLI("Save RAM:$.Code02 " + STR$~D% + " +" + STR$~(End% - Code%))
  410 OSCLI("SetType RAM:$.Code02 Absolute")
  420 ON
  430 END
  440 ::
  450 PRINT REPORT$; " at line "; ERL
  460 ON
  470 END