100 ONERR GOTO 900

110 HOME

111 POKE 768,160: POKE 769,0: POKE 770,32

113 POKE 771,44: POKE 772,254: POKE 773,96

120 D$ = CHR$ (4)

130 HGR

135 POKE 49234,0

190 READ F$

200 GOSUB 800

210 GOTO 190

220 REM *********************

300 DATA BAMBI,ROBOTARM,BAMBI AND FLOWER

310 DATA EDITOR,WINNIE,BEARS

500 POKE 60,0: POKE 61,64: POKE 62,255: POKE 63,95: POKE 66,0: POKE 67,32: CALL 768

540 RETURN

800 PRINT

805 PRINT CHR$ (4);"BLOAD ";F$;",A$4000"

810 GOSUB 500

835 IF PEEK (49152) > 128 THEN POKE 49168,0: HOME : TEXT : END

860 RETURN

900 RESTORE

950 GOTO 190