tbi68k_test.txt

   1 10 S=8191\r
   2 20 F=8192\r
   3 40 C=0\r
   4 50 FOR I=2 TO S\r
   5 60 POKE I+F,1\r
   6 70 NEXT I\r
   7 80 FOR I=2 TO S\r
   8 90 IF PEEK(I+F)=0 GOTO 170\r
   9 100 PRINT I\r
  10 110 K=I\r
  11 120 GOTO 140\r
  12 130 POKE K+F,0\r
  13 140 K=K+I\r
  14 150 IF K<=S GOTO 130\r
  15 160 C=C+1\r
  16 170 NEXT I\r
  17 180 PRINT "Count",C\r
  18 LIST\r
  19                     \r
  20 RUN\r