10 REM THESE TWO LINES MUST OCCUR BEFORE ANY DIM($XX)!
   20 POKE $86,$80:REM SET EMEM  - NEW END OF MEMORY SPACE (HI BYTE OF $8000)
   30 CALL $C006:REM PERFORM "CLEAR"
   40 LOAD"SAMPLE.BIN",$8000:REM LOAD BINARY PROGRAM AND DATA TO $8000
   50 PRINT CHR$(12);"BINLOAD DEMO - GRAPH OF TWO VALUES"
   60 GOSUB 2000
   70 Y=96
   80 W=0
   90 DO
  100 W=W+0.05
  110 D=(RND(0)-0.5)*3:REM RANDOM WALK CURVE 1
  120 Z=SIN(W)*50+96:REM SINE CURVE 2
  130 Y=Y+D
  140 IF Y<0 THEN Y=0
  150 IF Y>191 THEN Y=191
  160 POKE $90FF,Y:REM NEW Y VALUE
  170 POKE $91FF,Z
  180 CALL $8000:REM CALL LISTPLOT ROUTINE
  190 LOOP
 2000 REM SET GRAPHIC FRAME
 2010 FRAME CLEAR:FRAME SIZE 1:FRAME COLOR 10
 2020 FRAME POSITION 50,36
 2030 FRAME WIDTH 128,96
 2040 FRAME GRID 32,32
 2050 RETURN