10 REM Test BASIC file
   20 REM Edited in RISC OS editor
   30 :
   40 REM       SUM       Acorn=C6,9E  Russell=C6
   50 A%=SUM(A%())
   60 :
   70 REM       WHILE     Acorn=C8,95  Russell=C7
   80 WHILE a%
   90   REM     CASE      Acorn=C8,8E  Russell=C8
  100   REM     OF        Acorn=CA     Russell=CA
  110   CASE a% OF
  120     REM   WHEN      Acorn=C9     Russell=C9
  130     WHEN 1: PROCdo
  140     REM OTHERWISE Acorn=7F     Russell=CC
  150   OTHERWISE
  160     PROCdone
  170     REM ENDCASE   Acorn=CB     Russell=CB
  180   ENDCASE
  190   REM     IF        Acorn=E7     Russell=E7
  200   REM     THEN      Acorn=8C     Russell=8C
  210   IF a% THEN
  220     REM   ELSE      Acorn=CC     Russell=8B
  230   ELSE
  240     REM   ENDIF     Acorn=CD     Russell=CD
  250   ENDIF
  260   REM     ENDWHILE  Acorn=CE     Russell=CE
  270 ENDWHILE
  280 :
  290 REM Two-byte tokens in RISC OS editor:
  300 LOAD file$,load%
  310 SAVE file$,start%,end%,exec%,load%
  320 :
  330 REM Other commands
  340 CIRCLE    :REM CIRCLE    Acorn=C8,8F Russell=01
  350 ELLIPSE   :REM ELLIPSE   Acorn=C8,9D Russell=02
  360 FILL      :REM FILL      Acorn=C8,90 Russell=03
  370 MOUSE     :REM MOUSE     Acorn=C8,97 Russell=04
  380 ORIGIN    :REM ORIGIN    Acorn=C8,91 Russell=05
  390 QUIT      :REM QUIT      Acorn=C8,98 Russell=06
  400 RECTANGLE :REM RECTANGLE Acorn=C8,93 Russell=07
  410 SWAP      :REM SWAP      Acorn=C8,94 Russell=08
  420 SYS       :REM SYS       Acorn=C8,99 Russell=09
  430 TINT      :REM TINT      Acorn=C8,9C Russell=0A
  440 WAIT      :REM WAIT      Acorn=C8,96 Russell=0B
  450 INSTALL   :REM INSTALL   Acorn=C8,9A Russell=0C
  460 PRIVATE   :REM PRIVATE   Acorn=C8,A5 Russell=0E
  470 BY        :REM BY        Acorn=42,59 Russell=0F
  480 EXIT      :REM EXIT      Acorn=C8,A6 Russell=10
  490 :
  500 REM ARM specific, untokensied in Russell editor
  510 BEAT      :REM BEAT      Acorn=C6,8F
  520 POINT     :REM POINT     Acorn=C8,92
  530 LIBRARY   :REM LIBRARY   Acorn=C8,9B
  540 BEATS     :REM BEATS     Acorn=C8,9E
  550 TEMPO     :REM TEMPO     Acorn=C8,9F
  560 VOICES    :REM VOICES    Acorn=C8,A0
  570 VOICE     :REM VOICE     Acorn=C8,A1
  580 STEREO    :REM STEREO    Acorn=C8,A2
  590 OVERLAY   :REM OVERLAY   Acorn=C8,A3
  600 MANDEL    :REM MANDEL    Acorn=C8,A4
  610 :
  620 REM ARM immediate commands, untokensied in Russell editor
  630 APPEND    :REM APPEND    Acorn=C7,8E
  640 AUTO      :REM AUTO      Acorn=C7,8F
  650 CRUNCH    :REM CRUNCH    Acorn=C7,90
  660 DELETE    :REM DELETE    Acorn=C7,91
  670 EDIT      :REM EDIT      Acorn=C7,92
  680 HELP      :REM HELP      Acorn=C7,93
  690 LIST      :REM LIST      Acorn=C7,94
  700 LOAD      :REM LOAD      Acorn=C7,95
  710 LVAR      :REM LVAR      Acorn=C7,96
  720 NEW       :REM NEW       Acorn=C7,97
  730 OLD       :REM OLD       Acorn=C7,98
  740 RENUMBER  :REM RENUMBER  Acorn=C7,99
  750 SAVE      :REM SAVE      Acorn=C7,9A
  760 TEXTLOAD  :REM TEXTLOAD  Acorn=C7,9B
  770 TEXTSAVE  :REM TEXTSAVE  Acorn=C7,9C
  780 TWIN      :REM TWIN      Acorn=C7,9D
  790 TWINO     :REM TWINO     Acorn=C7,9E
  800 INSTALL   :REM INSTALL   Acorn=C7,9F Russell=0C
  810 :
  820 ON A GOTO 1,2,4,8,16,32,64,128
  830 ON A GOTO 256,512,1024,2048,4091,8192,16384,32768

Download TestARM

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.