10 REM > Example04
   20 ::
   30 REM © 2000 Martin Penny
   40 ::
   50 ON ERROR GOTO 820
   60 ::
   70 MODE 12
   80 OFF
   90 COLOUR 0, 4
  100 COLOUR 7, 3
  110 DIM D% 4095
  120 L% = D% + 4096
  130 REPEAT
  140 CLS
  150 ON
  160 PRINT
  170 INPUT "Value #1: " V1%
  180 PRINT
  190 INPUT "Value #2: " V2%
  200 PRINT
  210 OFF
  220 FOR T% = 0 TO 1
  230 OPT% = 8 + T% * 3
  240 IF OPT% AND 1 THEN VDU 14
  250 IF OPT% AND 1 THEN PRINT
  260 P% = D%
  270 [OPT OPT%
  280 :
  290 .Code%
  300 LDR       R0, Value1%
  310 LDR       R1, Value2%
  320 .StripSigns%
  330 CMPS      R0, #0
  340 RSBMI     R0, R0, #0
  350 MVNMI     R2, #0
  360 MOVPL     R2, #0
  370 CMPS      R1, #0
  380 RSBMI     R1, R1, #0
  390 MVNMI     R3, #0
  400 MOVPL     R3, #0
  410 .CalculateSign%
  420 EOR       R2, R2, R3
  430 STR       R2, Sign%
  440 .Multiply%
  450 MUL       R0, R1, R0
  460 STR       R0, Result% + 0
  470 .Exit%
  480 MOV       R15, R14
  490 :
  500 .Value1%
  510 EQUD      V1%
  520 :
  530 .Value2%
  540 EQUD      V2%
  550 :
  560 .Result%
  570 EQUD      0
  580 EQUD      0
  590 :
  600 .Sign%
  610 EQUD      0
  620 :
  630 .End%
  640 :
  650 ]
  660 IF OPT% AND 1 THEN PRINT
  670 IF OPT% AND 1 THEN VDU 15
  680 NEXT T%
  690 CALL Code%
  700 PRINT
  710 PRINT "Result: ";
  720 Total = 0
  730 FOR T% = 0 TO 7
  740 Total += Result%?T% * (256 ^ T%)
  750 NEXT T%
  760 IF !Sign% = -1 THEN Total = -Total
  770 PRINT STR$(Total)
  780 PRINT
  790 ON
  800 END
  810 ::
  820 VDU 15
  830 PRINT REPORT$; " at line "; ERL
  840 ON
  850 END