BASDEM03

   5 REM Load B and C with 306
  10 CLEAR 29999
  30 LET x=30000
  40 READ a
  50 IF a=-1 THEN GO TO 1000
  60 POKE x,a
  70 LET x=x+1
  80 GO TO 40
 100 DATA 6,1,14,50,201
 110 DATA -1
1000 PRINT USR 30000


