10 REM Test BASIC file
   20 REM Edited in 8-bit editor
   30 :
   40 REM 8-bit editor lists as one-byte tokens
   50 REM       SUM       Acorn=C6,9E  Russell=C6
   60 A%=SUM(A%())
   70 :
   80 REM       WHILE     Acorn=C8,95  Russell=C7
   90 WHILE a%
  100   REM     CASE      Acorn=C8,8E  Russell=C8
  110   REM     OF        Acorn=CA     Russell=CA
  120   CASE a% OF
  130     REM   WHEN      Acorn=C9     Russell=C9
  140     WHEN 1: PROCdo
  150     REM OTHERWISE Acorn=7F     Russell=CC
  160   OTHERWISE
  170     PROCdone
  180     REM ENDCASE   Acorn=CB     Russell=CB
  190   ENDCASE
  200   REM     IF        Acorn=E7     Russell=E7
  210   REM     THEN      Acorn=8C     Russell=8C
  220   IF a% THEN
  230     REM   ELSE      Acorn=CC     Russell=8B
  240   ELSE
  250     REM   ENDIF     Acorn=CD     Russell=CD
  260   ENDIF
  270   REM     ENDWHILE  Acorn=CE     Russell=CE
  280 ENDWHILE
  290 :
  300 REM One-byte tokens in 8-bit editor:
  310 LOAD file$,load%
  320 SAVE file$,start%,end%,exec%,load%
  330 :
  340 ON A GOTO 1,2,4,8,16,32,64,128
  350 ON B GOTO 256,512,1024,2048,4096,8192,16384,32768

Download Test8bit

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.