10CLS
   20ON ERROR GOTO 40
   30GOTO 80
   40ON ERROR OFF
   50IF ERR <> 203 THEN REPORT:PRINT:END
   60REPORT
   70ON ERROR GOTO 40
   80*BBC1
   90*PAGE 711
  100OSCLI("LOAD SANTA 2700")