10  DIM A$[255],B$[255]
20  REM Set a$= ".Home acct for program"
30  A$=".B008"
40  REM b$="Name of program"
50  B$="Optmiz"
60  B$[LEN(B$)+1]=A$
70  CHAIN R,B$
80  PRINT LIN(-1);'7"Sorry, ";B$[1,POS(B$,".")-1];" is not available at this time."
90  CHAIN R,"$hello",9999
100  END 
