bcall(_zeroop1)
 ld hl,picname
 ld de,op1
 ld bc,3
 ldir
 bcall(_checkfindsym)
 jp nc,load_data		;it exists so write to it
 bcall(_createpic)
 
load_data:
 inc de
 inc de			;length bytes
 ld hl,plotsscreen	;the screen
 ld bc,756
 ldir
 ret

picname:
 .db picobj,tvarpict,tpic1		;change this for name