10 REM > Example18
   20 ::
   30 REM © 2000 Martin Penny
   40 ::
   50 ON ERROR GOTO 520
   60 ::
   70 MODE 12
   80 OFF
   90 COLOUR 0, 4
  100 COLOUR 7, 3
  110 DIM B% 255
  120 REPEAT
  130 REPEAT
  140 CLS
  150 PRINT
  160 ON
  170 INPUT "Enter SWI Number: " C$
  180 OFF
  190 IF C$ <> "" THEN
  200 C% = EVAL(C$)
  210 ELSE
  220 C% = -1
  230 ENDIF
  240 IF C% < 0 THEN
  250 CLS
  260 ON
  270 END
  280 ENDIF
  290 UNTIL C% >= &000000 AND C% <= &0FFFFFF
  300 C% = C% AND &0FFFC0
  310 PRINT
  320 VDU 14
  330 PRINT
  340 FOR T% = &00 TO &3F
  350 PRINT "  ";
  360 PRINT RIGHT$("000000" + STR$~(C% + T%), 6);
  370 PRINT "  ";
  380 L% = 0
  390 SYS "OS_SWINumberToString", (C% + T%), B%, 256 TO ,L%
  400 IF L% > 0 THEN
  410 SYS "OS_Write0", B%
  420 PRINT
  430 NEXT T%
  440 PRINT
  450 VDU 15
  460 PRINT
  470 PRINT "-- Press ENTER to continue --"
  480 PRINT
  490 REPEAT UNTIL GET = 13
  500 UNTIL FALSE
  510 ::
  520 VDU 15
  530 PRINT REPORT$; " at line "; ERL
  540 ON
  550 END