10 REM > Example15
   20 ::
   30 REM © 2000 Martin Penny
   40 ::
   50 ON ERROR GOTO 550
   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% = 8 + T% * 3
  150 IF OPT% AND 1 THEN VDU 14
  160 IF OPT% AND 1 THEN PRINT
  170 P% = D%
  180 [OPT OPT%
  190 :
  200 .Code%
  210 STMFD     R13!, {R8 - R12, R14}
  220 .LevelZero%
  230 SWI       "OS_NewLine"
  240 ADR       R0, LevelZeroText%
  250 BL        Print%
  260 SWI       "OS_NewLine"
  270 .Exit%
  280 LDMFD     R13!, {R8 - R12, R15}
  290 :
  300 .Print%
  310 SWI       "OS_Write0"
  320 SWI       "OS_NewLine"
  330 MOV       R15, R14
  340 :
  350 .LevelZeroText%
  360 EQUS      "This is the main body - label ""LevelZero%""."
  370 EQUB      0
  380 ALIGN
  390 :
  400 .End%
  410 :
  420 ]
  430 IF OPT% AND 1 THEN PRINT
  440 IF OPT% AND 1 THEN VDU 15
  450 NEXT T%
  460 PRINT
  470 PRINT "-- Press ENTER to continue --"
  480 PRINT
  490 REPEAT UNTIL GET = 13
  500 CLS
  510 CALL Code%
  520 ON
  530 END
  540 ::
  550 VDU 15
  560 PRINT REPORT$; " at line "; ERL
  570 ON
  580 END