BASDEM04

   5 REM Load BC with 500
  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 1,244,1,201
 110 DATA -1
1000 PRINT USR 30000


