10 HOME
20 PRINT CHR$ (4);"BLOAD UNIPROX"
30 CALL 32768
40 PRINT CHR$ (4);"BSAVE UNIROM,A$2000,L$1FFF"